/[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.6 by charlie, Fri May 16 18:51:11 2003 UTC revision 1.7 by charlie, Tue May 20 23:04:04 2003 UTC
# Line 1  Line 1 
1  <?xml version="1.0" encoding="ISO-8859-1"?>  <?xml version="1.0" encoding="ISO-8859-1"?>
2  <!DOCTYPE form SYSTEM "gnue-forms.dtd">  <!DOCTYPE form SYSTEM "gnue-forms.dtd">
3    
4  <form title="Carga de Recibos a Clientes" height="20" width="73">  <form title="Carga de Recibos a Clientes" height="17" width="73">
5    
6    <neb:Block>    <neb:Block>
7      use PAPO;      use PAPO;
# Line 234  Line 234 
234    
235    <datasource name="ownDocumentProceedingDataSource" database="papo" table="own_document_proceeding"/>    <datasource name="ownDocumentProceedingDataSource" database="papo" table="own_document_proceeding"/>
236    
237      <neb:Sub neb:src="datasource.nebc" zot="../zot/PAPO-ER.zot"
238        search="currency_type" database="papo" name="currencyTypeDataSource" />
239    
240    <datasource name="currencyMovementDataSource" database="papo"    <datasource name="currencyMovementDataSource" database="papo"
241                table="movement, currency_movement">                table="currency_movement">
242      <condition>      <condition>
243        <eq>        <eq>
244          <cfield name="movement.id"/>          <cfield name="movement.id"/>
# Line 246  Line 249 
249    
250    <datasource name="tmpInvToPayedDataSource" cache="1"/>    <datasource name="tmpInvToPayedDataSource" cache="1"/>
251    
252      <datasource name="tmpCurrencyDataSource" cache="1"/>
253      <datasource name="dataCurrencyDataSource" cache="1"/>
254    
255    <datasource name="invoiceToPayedDataSource" cache="1"/>    <datasource name="invoiceToPayedDataSource" cache="1"/>
256    
257    
258    <trigger name="startUp" type="On-Startup">    <trigger name="startUp" type="On-Startup">
     ownDocumentBlock.typeEntry = "3"  
     callTrigger('searchNextReceiptNumber')  
259      tmpBlock.tmpDateEntry = ownDocumentDataSource.getTimeStamp()      tmpBlock.tmpDateEntry = ownDocumentDataSource.getTimeStamp()
260    </trigger>    </trigger>
261    
# Line 361  invoiceToPayedBlock.clear() Line 366  invoiceToPayedBlock.clear()
366  proceedingBlock.clear()  proceedingBlock.clear()
367  currencyMovementBlock.clear()  currencyMovementBlock.clear()
368  ownDocumentProceedingBlock.clear()  ownDocumentProceedingBlock.clear()
369    currencyTypeBlock.clear()
370    
371      ]]></trigger>      ]]></trigger>
372    
# Line 474  for recNum in range(rc): Line 480  for recNum in range(rc):
480  invoiceToPayedBlock.invoiceBox.totalEntry = str(total)  invoiceToPayedBlock.invoiceBox.totalEntry = str(total)
481    
482      ]]></trigger>      ]]></trigger>
483    
484      <trigger type="NAMED" name="endPayTrigger"><![CDATA[
485    import hack
486    
487    currencyTypeBlock.clear()
488    currencyDataBlock.clear()
489    
490    callTrigger('totalTrigger')
491    rs = currencyTypeDataSource.createResultSet()
492    client = 0
493    more = rs.firstRecord()
494    while more:
495        currencyTypeBlock.currencyBox.idEntry = rs.current.getField("_table")
496        currencyTypeBlock.currencyBox.nameEntry = rs.current.getField("name")
497        currencyTypeBlock.currencyBox.rateEntry = hack.a2f(rs.current.getField("rate"))
498        monto = hack.a2f(invoiceToPayedBlock.invoiceBox.totalEntry) / hack.a2f(rs.current.getField("rate"))
499        currencyTypeBlock.currencyBox.amountEntry = rs.current.getField("format") % monto
500        currencyTypeBlock.currencyBox.payEntry = 0.0
501        currencyTypeBlock.newRecord()
502        more = rs.nextRecord()
503    
504    currencyDataBlock.recipientBox.dateEntry = str(tmpBlock.tmpDateEntry)
505    currencyDataBlock.recipientBox.numberEntry = str(ownPosDocumentBlock.documentNumberEntry)
506    
507    currencyDataBlock.clientRecipientBox.clientCodeEntry = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)
508    currencyDataBlock.clientRecipientBox.clientNameEntry = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)
509    
510      <trigger name="clientSearchTrigger" type="NAMED"><![CDATA[  currencyDataBlock.clientRecipientBox.totalEntry = str(invoiceToPayedBlock.invoiceBox.totalEntry)
511    
512    setFocus(currencyTypeBlock.currencyBox.payEntry)
513    
514        ]]></trigger>
515    
516      <trigger type="NAMED" name="currencyTypeTrigger">
517        <![CDATA[
518    
519        ]]>
520      </trigger>
521    
522       <trigger name="clientSearchTrigger" type="NAMED"><![CDATA[
523        codeToSearch = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)        codeToSearch = str(ownDocumentBlock.clientRecipientBox.clientCodeEntry)
524        nameToSearch = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)        nameToSearch = str(ownDocumentBlock.clientRecipientBox.clientNameEntry)
525    
# Line 505  invoiceToPayedBlock.invoiceBox.totalEntr Line 549  invoiceToPayedBlock.invoiceBox.totalEntr
549          ownDocumentBlock.clientRecipientBox.clientCodeEntry = str(clientResultBlock.uidEntry)          ownDocumentBlock.clientRecipientBox.clientCodeEntry = str(clientResultBlock.uidEntry)
550          ownDocumentBlock.clientRecipientBox.clientNameEntry = str(clientResultBlock.nameEntry)          ownDocumentBlock.clientRecipientBox.clientNameEntry = str(clientResultBlock.nameEntry)
551          ownDocumentBlock.clientRecipientBox.clientEntry = str(clientResultBlock.idEntry)          ownDocumentBlock.clientRecipientBox.clientEntry = str(clientResultBlock.idEntry)
   ]]></trigger>  
552    
553    <trigger name="startWaitingModeTrigger" type="NAMED"><![CDATA[        ownDocumentBlock.typeEntry = "3"
554      setStatusText("Procesando ...")        callTrigger('searchNextReceiptNumber')
     try:  
       # gnue version <= 0.4  
       from gnue.forms.GFEvent import GFEvent  
     except ImportError:  
       # gnue version >= 0.5  
       from gnue.common.events.Event import Event as GFEvent  
555    
     # busy clock  
     self._object.dispatchEvent(GFEvent('beginWAIT'))  
556    ]]></trigger>    ]]></trigger>
557    
558    <trigger name="endWaitingModeTrigger" type="NAMED"><![CDATA[    <neb:Sub neb:src="wait.nebc"/>
     try:  
       # gnue version <= 0.4  
       from gnue.forms.GFEvent import GFEvent  
     except ImportError:  
       # gnue version >= 0.5  
       from gnue.common.events.Event import Event as GFEvent  
   
     self._object.dispatchEvent(GFEvent('endWAIT'))  
     setStatusText("Listo")  
   ]]></trigger>  
559    
560    <page name="Emision de Recibos">    <page name="Emision de Recibos">
561      <!-- Fecha y numero de documento -->      <!-- Fecha y numero de documento -->
# Line 546  invoiceToPayedBlock.invoiceBox.totalEntr Line 571  invoiceToPayedBlock.invoiceBox.totalEntr
571        searchNextDocumentNumber="searchNextReceiptNumber"  >        searchNextDocumentNumber="searchNextReceiptNumber"  >
572      </neb:Sub>      </neb:Sub>
573      </box>      </box>
574    
575      <!-- /nro de documento  -->      <!-- /nro de documento  -->
576      <!-- Bloque para la búsqueda de clientes -->      <!-- Bloque para la búsqueda de clientes -->
577      <block name="clientResultBlock" datasource="clientSearchDataSource">      <block name="clientResultBlock" datasource="clientSearchDataSource">
# Line 556  invoiceToPayedBlock.invoiceBox.totalEntr Line 582  invoiceToPayedBlock.invoiceBox.totalEntr
582        <entry name="uidEntry" field="_entity_uid_data.uid" hidden="" x="1" y="1" width="12"/>        <entry name="uidEntry" field="_entity_uid_data.uid" hidden="" x="1" y="1" width="12"/>
583        <entry name="nameEntry" field="_entity_data.name" hidden="" x="1" y="1" width="20"/>        <entry name="nameEntry" field="_entity_data.name" hidden="" x="1" y="1" width="20"/>
584      </block>      </block>
585    
586      <block datasource="ownDocumentDataSource" name="ownDocumentBlock">      <block datasource="ownDocumentDataSource" name="ownDocumentBlock">
587        <entry field="id" hidden="" name="idEntry" x="1" y="1"/>        <entry field="id" hidden="" name="idEntry" x="1" y="1"/>
588        <entry field="own_document_type" hidden="" name="typeEntry" x="1" y="1"/>        <entry field="own_document_type" hidden="" name="typeEntry" x="1" y="1"/>
# Line 600  invoiceToPayedBlock.invoiceBox.totalEntr Line 627  invoiceToPayedBlock.invoiceBox.totalEntr
627            x="1" y="2" width="10" readonly=""/>            x="1" y="2" width="10" readonly=""/>
628          <entry name="dateEntry" field="date" style="label" rows="8"          <entry name="dateEntry" field="date" style="label" rows="8"
629            x="20" y="2" width="11" readonly=""/>            x="20" y="2" width="11" readonly=""/>
630          <entry name="amountEntry" field="amount" style="label" rows="8"  typecast="number" displaymask="%0.2f"          <entry name="amountEntry" field="amount" style="label" rows="8"  typecast="number" displaymask="%6.2f"
631            x="33" y="2" width="10" readonly=""/>            x="33" y="2" width="10" readonly=""/>
632          <entry name="payedEntry" field="payed" style="label" rows="8"  typecast="number" displaymask="%0.2f"          <entry name="payedEntry" field="payed" style="label" rows="8"  typecast="number" displaymask="%6.2f"
633            x="45" y="2" width="10" readonly=""/>            x="45" y="2" width="10" readonly=""/>
634          <entry name="payEntry" field="pay"  rows="8" x="57" y="2" width="10" typecast="number" displaymask="%0.2f">          <entry name="payEntry" field="pay"  rows="8" x="57" y="2" width="10" typecast="number" displaymask="%8.2f">
635            <trigger type="PRE-FOCUSOUT" src="totalTrigger"/>            <trigger type="PRE-FOCUSOUT" src="totalTrigger"/>
636          </entry>          </entry>
637          <scrollbar page="2" x="68" y="2" width="1" height="8"/>          <scrollbar page="2" x="68" y="2" width="1" height="8"/>
638    
639          <label name="totalLbl" text="Total a Pagar" x="43" y="10"/>          <label name="totalLbl" text="Total a Pagar" x="43" y="10"/>
640          <entry name="totalEntry" field="total" x="57" y="10" width="10" readonly=""          <entry name="totalEntry" field="total" x="57" y="10" width="10" readonly=""
641            typecast="number" displaymask="%0.2f"/>            typecast="number" displaymask="%8.2f"/>
642    
643          <button name="acceptButton" trigger="acceptTrigger" label="Aceptar"          <button name="acceptButton" trigger="endPayTrigger" label="Fin Pago"
644            width="10" height="1" x="10" y="10"/>            width="10" height="1" x="10" y="10"/>
645          <button name="cancelButton" trigger="cancelTrigger" label="Cancelar"          <button name="cancelButton" trigger="cancelTrigger" label="Cancelar"
646            width="10" height="1" x="20" y="10"/>            width="10" height="1" x="20" y="10"/>
# Line 639  invoiceToPayedBlock.invoiceBox.totalEntr Line 666  invoiceToPayedBlock.invoiceBox.totalEntr
666          x="1" y="1" width="12"/>          x="1" y="1" width="12"/>
667      </block>      </block>
668    </page>    </page>
669    
670      <page name="Determinacion de Monedas">
671        <block name="currencyDataBlock" datasource="dataCurrencyDataSource">
672          <box height="4" label="recibo" name="recipientBox" width="72" x="0" y="0">
673            <label  text="Fecha" x="1" y="1" />
674            <label  text="Número de Recibo:" x="32" y="1"/>
675            <entry name="dateEntry" style="label" typecast="date" width="14" x="7" y="1"/>
676            <entry name="numberEntry" style="label" typecast="number" width="14" x="50" y="1"/>
677          </box>
678          <box height="5" label="Datos del Cliente" name="clientRecipientBox" width="72" x="0" y="3">
679            <label name="codeLbl" text="Codigo" x="1" y="1"/>
680            <label name="nameLbl" text="Nombre" x="21" y="1"/>
681            <entry x="1" y="2" name="clientCodeEntry" style="label" width="20"/>
682            <entry x="21" y="2" name="clientNameEntry" style="label" width="35"/>
683            <label name="totalLbl" text="Total a Pagar:" x="26" y="3"/>
684            <entry name="totalEntry" field="total" x="41" y="3" width="10" style="label"
685              typecast="number" displaymask="%10.2f"/>
686          </box>
687        </block>
688        <block name="currencyTypeBlock" datasource="tmpCurrencyDataSource">
689          <box label="Monedas de Pago" name="currencyBox"
690            height="13" width="72" x="0" y="7">
691    
692            <label name="nameLbl" text="Moneda" x="1" y="1"/>
693            <label name="rateLbl" text="Cotización" x="10" y="1"/>
694            <label name="montoLbl" text="Monto" x="21" y="1"/>
695            <label name="pagoLbl" text="Pago" x="31" y="1"/>
696    
697            <entry name="idEntry" field="id" style="label" rows="6" x="1" y="1" hidden=""/>
698            <entry name="nameEntry" field="name" style="label" rows="6"
699              x="1" y="2" width="6" readonly=""/>
700            <entry name="rateEntry" field="rate" style="label" rows="6" typecast="number"
701              displaymask="%4.2f" x="10" y="2" width="10" readonly=""/>
702            <entry name="amountEntry" field="amount" style="label" rows="6"
703              x="21" y="2" width="20" readonly=""/>
704            <entry name="payEntry" field="pay" rows="6" x="38" y="2" width="20"
705              typecast="number" displaymask="%10.2f"/>
706            <scrollbar page="2" x="68" y="2" width="1" height="6"/>
707          </box>
708        </block>
709      </page>
710    
711    
712  </form>  </form>
713    
714    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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