/[papo]/papo/forms/receipt.neb
ViewVC logotype

Diff of /papo/forms/receipt.neb

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by charlie, Fri May 30 21:32:44 2003 UTC revision 1.14 by styxman, Mon Jun 2 23:06:06 2003 UTC
# Line 172  Line 172 
172      </condition>      </condition>
173    </datasource>    </datasource>
174    
175    <datasource name="payTotDataSource" database="papo"    <datasource name="payTotDataSource" database="papo"
176      table="_entity_data, own_document, own_document_proceeding">      table="_entity_data, own_document, own_document_proceeding">
177      <condition>      <condition>
178        <and>        <and>
# Line 231  Line 231 
231    
232    <datasource name="proceedingDataSource" database="papo" table="proceeding"/>    <datasource name="proceedingDataSource" database="papo" table="proceeding"/>
233    
234    <datasource name="ownDocumentProceedingDataSource" database="papo"    <datasource name="ownDocumentProceedingDataSource" database="papo"
235      table="own_document_proceeding"/>      table="own_document_proceeding"/>
236    
237    <neb:Sub neb:src="datasource.nebc" zot="../zot/PAPO-ER.zot"    <neb:Sub neb:src="datasource.nebc" zot="../zot/PAPO-ER.zot"
# Line 271  rs = onlyClientDataSource.createResultSe Line 271  rs = onlyClientDataSource.createResultSe
271  client = 0  client = 0
272  if rs.firstRecord():  if rs.firstRecord():
273      client = rs.current.getField('_table')      client = rs.current.getField('_table')
274        
275  if client:  if client:
276      import gnue.common.GConditions as GConditions      import gnue.common.GConditions as GConditions
277      import hack      import hack
# Line 367  proceedingBlock.clear() Line 367  proceedingBlock.clear()
367  currencyMovementBlock.clear()  currencyMovementBlock.clear()
368  ownDocumentProceedingBlock.clear()  ownDocumentProceedingBlock.clear()
369  currencyTypeBlock.clear()  currencyTypeBlock.clear()
370  setFocus(invoiceToPayedBlock.invoiceBox.totalEntry)  setFocus(invoiceToPayedBlock.invoiceBox.totalEntry)
371    
372      ]]></trigger>      ]]></trigger>
373    
# Line 380  from gnue.common.GDataObjects import Con Line 380  from gnue.common.GDataObjects import Con
380  # nro de documento  # nro de documento
381  ownDocumentBlock.numberEntry= str(ownPosDocumentBlock.documentNumberEntry)  ownDocumentBlock.numberEntry= str(ownPosDocumentBlock.documentNumberEntry)
382    
383  # /nro de documento      # /nro de documento
384  proceedingBlock.clear()  proceedingBlock.clear()
385  currencyMovementBlock.clear()  currencyMovementBlock.clear()
386  ownDocumentProceedingBlock.clear()  ownDocumentProceedingBlock.clear()
# Line 465  except DBError, err: Line 465  except DBError, err:
465      errStr = ["número de factura","recibos","procedimientos",      errStr = ["número de factura","recibos","procedimientos",
466                "movimientos de monedas","moviminetos de porcedimientos"]                "movimientos de monedas","moviminetos de porcedimientos"]
467      genericBox("Hay problemas para grabar los "+errStr[error]+"\n",['Aceptar'])      genericBox("Hay problemas para grabar los "+errStr[error]+"\n",['Aceptar'])
468        
469  callTrigger('cancelTrigger')  callTrigger('cancelTrigger')
470    
471      ]]></trigger>      ]]></trigger>
# Line 483  for recNum in range(rc): Line 483  for recNum in range(rc):
483  invoiceToPayedBlock.invoiceBox.totalEntry = str(round(total,2))  invoiceToPayedBlock.invoiceBox.totalEntry = str(round(total,2))
484    
485      ]]></trigger>      ]]></trigger>
486    
487    <trigger type="NAMED" name="endPayTrigger"><![CDATA[    <trigger type="NAMED" name="endPayTrigger"><![CDATA[
488  import hack  import hack
489    
# Line 509  if hack.a2f(invoiceToPayedBlock.invoiceB Line 509  if hack.a2f(invoiceToPayedBlock.invoiceB
509    
510      currencyDataBlock.recipientBox.dateEntry = str(tmpBlock.tmpDateEntry)      currencyDataBlock.recipientBox.dateEntry = str(tmpBlock.tmpDateEntry)
511      currencyDataBlock.recipientBox.numberEntry = str(ownPosDocumentBlock.documentNumberEntry)      currencyDataBlock.recipientBox.numberEntry = str(ownPosDocumentBlock.documentNumberEntry)
512        
513      currencyDataBlock.clientRecipientBox.clientCodeEntry = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)      currencyDataBlock.clientRecipientBox.clientCodeEntry = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)
514      currencyDataBlock.clientRecipientBox.clientNameEntry = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)      currencyDataBlock.clientRecipientBox.clientNameEntry = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)
515        
516      currencyDataBlock.clientRecipientBox.totalEntry = str(invoiceToPayedBlock.invoiceBox.totalEntry)      currencyDataBlock.clientRecipientBox.totalEntry = str(invoiceToPayedBlock.invoiceBox.totalEntry)
517        
518      setFocus(currencyTypeBlock.currencyBox.payEntry)      setFocus(currencyTypeBlock.currencyBox.payEntry)
519    
520      ]]></trigger>      ]]></trigger>
   
   <trigger type="NAMED" name="currencyTypeTrigger">  
     <![CDATA[  
 import hack  
       
 total = hack.a2f(invoiceToPayedBlock.invoiceBox.totalEntry,2)  
 rc = currencyTypeBlock.getRecordCount()  
 for recNum in range(rc):  
     currencyTypeBlock.jumpRecord(recNum)  
     if hack.a2f(currencyTypeBlock.currencyBox.payEntry,2) > 0:  
         total -= round(hack.a2f(currencyTypeBlock.currencyBox.payEntry,2) * hack.a2f(currencyTypeBlock.currencyBox.rateEntry,2),2)  
521    
522  rc = currencyTypeBlock.getRecordCount()  <!--  para la parametrizaci'on: param= invoiceToPayBlock.invoiceBox.totalEntry (total a pagar?) //-->
523  for recNum in range(rc):    <trigger type="NAMED" name="currencyTypeTrigger"><![CDATA[
524      currencyTypeBlock.jumpRecord(recNum)      import hack
525      if hack.a2f(currencyTypeBlock.currencyBox.rateEntry,2) > 0:  
526          monto = round(total / hack.a2f(currencyTypeBlock.currencyBox.rateEntry,2),2)      rn= currencyTypeBlock.getCurrentRecordNumber()
527          currencyTypeBlock.currencyBox.amountEntry = str(currencyTypeBlock.currencyBox.formatEntry) % monto  
528            total = hack.a2f(invoiceToPayBlock.invoiceBox.totalEntry,2)
529      ]]>      rc = currencyTypeBlock.getRecordCount()
530    </trigger>      for recNum in range(rc):
531            currencyTypeBlock.jumpRecord(recNum)
532            if hack.a2f(currencyTypeBlock.currencyBox.payEntry,2) > 0:
533                total -= round(hack.a2f(currencyTypeBlock.currencyBox.payEntry,2) * hack.a2f(currencyTypeBlock.currencyBox.rateEntry),2)
534    
535        rc = currencyTypeBlock.getRecordCount()
536        for recNum in range(rc):
537            currencyTypeBlock.jumpRecord(recNum)
538            if hack.a2f(currencyTypeBlock.currencyBox.rateEntry,2) > 0:
539                monto = round(total / hack.a2f(currencyTypeBlock.currencyBox.rateEntry,2),2)
540                currencyTypeBlock.currencyBox.amountEntry = str(currencyTypeBlock.currencyBox.formatEntry) % monto
541        currencyTypeBlock.jumpRecord(rn)
542      ]]></trigger>
543    
544    <trigger type="NAMED" name="endTypeTrigger">    <trigger type="NAMED" name="endTypeTrigger">
545      <![CDATA[      <![CDATA[
546    
547  import hack  import hack
548        
549  callTrigger('currencyTypeTrigger')  callTrigger('currencyTypeTrigger')
550    
551  total = hack.a2f(invoiceToPayedBlock.invoiceBox.totalEntry,2)  total = hack.a2f(invoiceToPayedBlock.invoiceBox.totalEntry,2)
# Line 558  if total != 0: Line 559  if total != 0:
559      genericBox("El recibo no esta totalmente pagado\n",['Aceptar'])      genericBox("El recibo no esta totalmente pagado\n",['Aceptar'])
560  else:  else:
561      callTrigger('writeAllTrigger')      callTrigger('writeAllTrigger')
562        
563      ]]>      ]]>
564    </trigger>    </trigger>
565    
566     <trigger name="clientSearchTrigger" type="NAMED"><![CDATA[     <trigger name="clientSearchTrigger" type="NAMED"><![CDATA[
567     codeToSearch = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)     codeToSearch = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)
568     nameToSearch = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)     nameToSearch = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)
569      
570     ownDocumentBlock.clientRecipientBox.clientCodeEntry = codeToSearch     ownDocumentBlock.clientRecipientBox.clientCodeEntry = codeToSearch
571     ownDocumentBlock.clientRecipientBox.clientNameEntry = nameToSearch     ownDocumentBlock.clientRecipientBox.clientNameEntry = nameToSearch
572      
573     callTrigger('startWaitingModeTrigger')     callTrigger('startWaitingModeTrigger')
574     clientResultBlock.initQuery()     clientResultBlock.initQuery()
575     clientResultBlock.uidEntry = codeToSearch+"%"     clientResultBlock.uidEntry = codeToSearch+"%"
# Line 601  else: Line 602  else:
602    <neb:Sub neb:src="wait.nebc"/>    <neb:Sub neb:src="wait.nebc"/>
603    
604    <page name="Emision de Recibos">    <page name="Emision de Recibos">
605      <!-- Fecha y numero de documento -->      <!-- Fecha y numero de documento -->
606      <box height="4" label="recibo" name="clientRecipientBox" width="72" x="0" y="0">      <box height="4" label="recibo" name="clientRecipientBox" width="72" x="0" y="0">
607        <block name="tmpBlock" datasource="tmpValuesDataSource" transparentBlock="">        <block name="tmpBlock" datasource="tmpValuesDataSource" transparentBlock="">
608          <label  text="Fecha" x="1" y="1" />          <label  text="Fecha" x="1" y="1" />
# Line 611  else: Line 612  else:
612        <neb:Sub neb:src="posDocument.nebc" documentType="ownDocumentBlock.typeEntry"        <neb:Sub neb:src="posDocument.nebc" documentType="ownDocumentBlock.typeEntry"
613          ownPosDocumentBlock="ownPosDocumentBlock"  documentNumberEntry="documentNumberEntry"          ownPosDocumentBlock="ownPosDocumentBlock"  documentNumberEntry="documentNumberEntry"
614          documentNumberEntryX="55" documentNumberEntryY="1"          documentNumberEntryX="55" documentNumberEntryY="1"
615          searchNextDocumentNumber="searchNextReceiptNumber">          searchNextDocumentNumber="searchNextReceiptNumber">
616        </neb:Sub>        </neb:Sub>
617      </box>      </box>
618    
# Line 706  else: Line 707  else:
707          x="1" y="1" width="12"/>          x="1" y="1" width="12"/>
708        <entry name="movementTypeEntry" field="movement.movement_type" hidden=""        <entry name="movementTypeEntry" field="movement.movement_type" hidden=""
709          x="1" y="1" width="12"/>          x="1" y="1" width="12"/>
710        <entry name="amountEntry" field="movement.amount" hidden=""        <entry name="amountEntry" field="movement.amount" hidden=""
711          x="1" y="1" width="12"/>          x="1" y="1" width="12"/>
712        <entry name="currencyTypeEntry" field="currency_movement.currency_type" hidden=""        <entry name="currencyTypeEntry" field="currency_movement.currency_type" hidden=""
713          x="1" y="1" width="12"/>          x="1" y="1" width="12"/>
# Line 744  else: Line 745  else:
745          <entry name="formatEntry" field="format" rows="6" x="1" y="1" hidden=""/>          <entry name="formatEntry" field="format" rows="6" x="1" y="1" hidden=""/>
746          <entry name="nameEntry" field="name" style="label" rows="6"          <entry name="nameEntry" field="name" style="label" rows="6"
747            x="1" y="2" width="6" readonly=""/>            x="1" y="2" width="6" readonly=""/>
748          <entry name="rateEntry" field="rate" style="label" rows="6" typecast="number"          <entry name="rateEntry" field="rate" style="label" rows="6" typecast="number"
749            displaymask="%4.2f" x="10" y="2" width="10" readonly=""/>            displaymask="%4.2f" x="10" y="2" width="10" readonly=""/>
750          <entry name="amountEntry" field="amount" style="label" rows="6"          <entry name="amountEntry" field="amount" style="label" rows="6"
751            x="21" y="2" width="20" readonly=""/>            x="21" y="2" width="20" readonly=""/>
752          <entry name="payEntry" field="pay" rows="6" x="38" y="2" width="20"          <entry name="payEntry" field="pay" rows="6" x="38" y="2" width="20"
753            typecast="number" displaymask="%10.2f">            typecast="number" displaymask="%10.2f">
754            <trigger type="PRE-FOCUSOUT" src="currencyTypeTrigger"/>            <trigger type="PRE-FOCUSOUT" src="currencyTypeTrigger"/>
755          </entry>          </entry>

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26