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

Diff of /papo/forms/receipt.gfd

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

revision 1.10 by charlie, Fri Dec 13 22:16:53 2002 UTC revision 1.11 by charlie, Wed Dec 18 18:47:15 2002 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="Recibos" height="17" width="70">  <form title="Recibos" height="17" width="76">
5    
6    <datasource name="clientDataSource" database="papo"    <datasource name="clientDataSource" database="papo"
7                table="entity, _entity_data, alien_entity, _alien_entity_data, persona, _persona_data, client, _client_data,                table="entity, _entity_data, alien_entity, _alien_entity_data, persona, _persona_data, client, _client_data,
# Line 263  if str(ownDocumentBlock.clientRecipientB Line 263  if str(ownDocumentBlock.clientRecipientB
263              invoiceTotal += hack.a2f(odt_rs.current.getField("own_document_tax.amount"))              invoiceTotal += hack.a2f(odt_rs.current.getField("own_document_tax.amount"))
264              odt_more = odt_rs.nextRecord()              odt_more = odt_rs.nextRecord()
265                                    
266            tmpInvToPayedBlock.numberEntry = str(productInvoiceResultSet.current.getField("own_document.number"))
267          tmpInvToPayedBlock.dateEntry = str(productInvoiceResultSet.current.getField("own_document.date"))          tmpInvToPayedBlock.dateEntry = str(productInvoiceResultSet.current.getField("own_document.date"))
268          tmpInvToPayedBlock.amountEntry = str(invoiceTotal)          tmpInvToPayedBlock.amountEntry = str(invoiceTotal)
269          tmpInvToPayedBlock.payedEntry = "0.0"          tmpInvToPayedBlock.payedEntry = "0.0"
# Line 273  if str(ownDocumentBlock.clientRecipientB Line 274  if str(ownDocumentBlock.clientRecipientB
274      serviceInvoiceResultSet= serviceInvoiceDataSource.createResultSet (condServiceInvoice)      serviceInvoiceResultSet= serviceInvoiceDataSource.createResultSet (condServiceInvoice)
275      more= serviceInvoiceResultSet.firstRecord ()      more= serviceInvoiceResultSet.firstRecord ()
276    
     # por todos los documentos post-checkpoint (si no hay, desde el principio)  
     # print "calc 4"  
277      while more:      while more:
278          invoiceTotal = 0          invoiceTotal = 0
279          currentOwnDocument = serviceInvoiceResultSet.current.getField ("own_document.id")          currentOwnDocument = serviceInvoiceResultSet.current.getField ("own_document.id")
# Line 289  if str(ownDocumentBlock.clientRecipientB Line 288  if str(ownDocumentBlock.clientRecipientB
288                  more = serviceInvoiceResultSet.nextRecord ()                  more = serviceInvoiceResultSet.nextRecord ()
289              invoiceTotal += item + itemTaxTotal              invoiceTotal += item + itemTaxTotal
290                                            
291            tmpInvToPayedBlock.numberEntry = str(serviceInvoiceResultSet.current.getField("own_document.number"))
292          tmpInvToPayedBlock.dateEntry = str(serviceInvoiceResultSet.current.getField("own_document.date"))          tmpInvToPayedBlock.dateEntry = str(serviceInvoiceResultSet.current.getField("own_document.date"))
293          tmpInvToPayedBlock.amountEntry = str(invoiceTotal)          tmpInvToPayedBlock.amountEntry = str(invoiceTotal)
294          tmpInvToPayedBlock.payedEntry = "0.0"          tmpInvToPayedBlock.payedEntry = "0.0"
# Line 314  if str(ownDocumentBlock.clientRecipientB Line 314  if str(ownDocumentBlock.clientRecipientB
314          tmpInvToPayedBlock.jumpRecord(recNum)          tmpInvToPayedBlock.jumpRecord(recNum)
315          if hack.a2f(tmpInvToPayedBlock.payedEntry) < hack.a2f(tmpInvToPayedBlock.amountEntry):          if hack.a2f(tmpInvToPayedBlock.payedEntry) < hack.a2f(tmpInvToPayedBlock.amountEntry):
316              invoiceToPayedBlock.invoiceBox.idEntry = str(tmpInvToPayedBlock.idEntry)              invoiceToPayedBlock.invoiceBox.idEntry = str(tmpInvToPayedBlock.idEntry)
317                invoiceToPayedBlock.invoiceBox.numberEntry = str(tmpInvToPayedBlock.numberEntry)
318              invoiceToPayedBlock.invoiceBox.dateEntry = str(tmpInvToPayedBlock.dateEntry)              invoiceToPayedBlock.invoiceBox.dateEntry = str(tmpInvToPayedBlock.dateEntry)
319              invoiceToPayedBlock.invoiceBox.amountEntry = str(tmpInvToPayedBlock.amountEntry)              invoiceToPayedBlock.invoiceBox.amountEntry = str(tmpInvToPayedBlock.amountEntry)
320              invoiceToPayedBlock.invoiceBox.payedEntry = str(tmpInvToPayedBlock.payedEntry)              invoiceToPayedBlock.invoiceBox.payedEntry = str(tmpInvToPayedBlock.payedEntry)
# Line 395  invoiceToPayedBlock.invoiceBox.totalEntr Line 396  invoiceToPayedBlock.invoiceBox.totalEntr
396      <block datasource="ownDocumentDataSource" name="ownDocumentBlock">      <block datasource="ownDocumentDataSource" name="ownDocumentBlock">
397        <entry field="id" hidden="" name="idEntry" x="1" y="1"/>        <entry field="id" hidden="" name="idEntry" x="1" y="1"/>
398        <entry field="own_document_type" hidden="" name="typeEntry" x="1" y="1"/>        <entry field="own_document_type" hidden="" name="typeEntry" x="1" y="1"/>
399        <box height="5" label="Datos del Cliente" name="clientRecipientBox" width="64" x="0" y="1">        <box height="5" label="Datos del Cliente" name="clientRecipientBox" width="74" x="0" y="1">
400          <label name="clientLbl" text="Cliente" x="1" y="1" />          <label name="clientLbl" text="Cliente" x="1" y="1" />
401          <entry x="1" y="2" field="recipient" name="clientEntry"          <entry x="1" y="2" field="recipient" name="clientEntry"
402            width="40" style="dropdown" foreign_key="clientDataSource._entity_data._table"            width="40" style="dropdown" foreign_key="clientDataSource._entity_data._table"
# Line 410  invoiceToPayedBlock.invoiceBox.totalEntr Line 411  invoiceToPayedBlock.invoiceBox.totalEntr
411    
412      <block name="tmpInvToPayedBlock" datasource="tmpInvToPayedDataSource">      <block name="tmpInvToPayedBlock" datasource="tmpInvToPayedDataSource">
413        <entry name="idEntry" field="id" hidden="" x="1" y="1" width="1" />        <entry name="idEntry" field="id" hidden="" x="1" y="1" width="1" />
414          <entry name="numberEntry" field="number" hidden="" x="1" y="1" width="1" />
415        <entry name="dateEntry" field="date" hidden="" x="1" y="1" width="1"/>        <entry name="dateEntry" field="date" hidden="" x="1" y="1" width="1"/>
416        <entry name="amountEntry" field="amount" hidden="" x="1" y="1" width="1"/>        <entry name="amountEntry" field="amount" hidden="" x="1" y="1" width="1"/>
417        <entry name="payedEntry" field="payed" hidden="" x="1" y="1" width="1"/>        <entry name="payedEntry" field="payed" hidden="" x="1" y="1" width="1"/>
# Line 417  invoiceToPayedBlock.invoiceBox.totalEntr Line 419  invoiceToPayedBlock.invoiceBox.totalEntr
419    
420      <block name="invoiceToPayedBlock" datasource="invoiceToPayedDataSource">      <block name="invoiceToPayedBlock" datasource="invoiceToPayedDataSource">
421        <box height="12" label="Facturas Pendientes de Pago" name="invoiceBox"        <box height="12" label="Facturas Pendientes de Pago" name="invoiceBox"
422          width="64" x="0" y="8">          width="74" x="0" y="8">
423          <label name="dateLbl" text="Fecha" x="1" y="1"/>          <label name="numberLbl" text="Numero" x="1" y="1"/>
424          <label name="amountLbl" text="Monto" x="13" y="1"/>          <label name="dateLbl" text="Fecha" x="12" y="1"/>
425          <label name="payedLbl" text="Pagado" x="24" y="1"/>          <label name="amountLbl" text="Monto" x="23" y="1"/>
426          <label name="payLbl" text="A Pagar" x="35" y="1"/>          <label name="payedLbl" text="Pagado" x="34" y="1"/>
427            <label name="payLbl" text="A Pagar" x="45" y="1"/>
428    
429          <entry name="idEntry" field="id" style="label" hidden="" rows="8" x="1" y="2" width="1" />          <entry name="idEntry" field="id" style="label" hidden="" rows="8" x="1" y="2" width="1" />
430            <entry name="numberEntry" field="number" style="label" rows="8"
431              x="1" y="2" width="10" readonly=""/>
432          <entry name="dateEntry" field="date" style="label" rows="8"          <entry name="dateEntry" field="date" style="label" rows="8"
433            x="1" y="2" width="11" readonly=""/>            x="13" y="2" width="11" readonly=""/>
434          <entry name="amountEntry" field="amount" style="label" rows="8"          <entry name="amountEntry" field="amount" style="label" rows="8"
435            x="13" y="2" width="10" readonly=""/>            x="23" y="2" width="10" readonly=""/>
436          <entry name="payedEntry" field="payed" style="label" rows="8"          <entry name="payedEntry" field="payed" style="label" rows="8"
437            x="24" y="2" width="10" readonly=""/>            x="34" y="2" width="10" readonly=""/>
438          <entry name="payEntry" field="pay"  rows="8" x="35" y="2" width="10">          <entry name="payEntry" field="pay"  rows="8" x="45" y="2" width="10">
439            <trigger type="PRE-FOCUSOUT" src="totalTrigger"/>            <trigger type="PRE-FOCUSOUT" src="totalTrigger"/>
440          </entry>          </entry>
441          <scrollbar page="2" x="46" y="2" width="1" height="8"/>          <scrollbar page="2" x="56" y="2" width="1" height="8"/>
442    
443          <label name="totalLbl" text="Total a Pagar" x="49" y="5"/>          <label name="totalLbl" text="Total a Pagar" x="59" y="5"/>
444          <entry name="totalEntry" field="total" x="49" y="6" width="10" readonly=""/>          <entry name="totalEntry" field="total" x="59" y="6" width="10" readonly=""/>
445    
446          <button name="acceptButton" trigger="acceptTrigger" label="Aceptar"          <button name="acceptButton" trigger="acceptTrigger" label="Aceptar"
447            width="10" height="1" x="49" y="8"/>            width="10" height="1" x="59" y="8"/>
448          <button name="cancelButton" trigger="cancelTrigger" label="Cancelar"          <button name="cancelButton" trigger="cancelTrigger" label="Cancelar"
449            width="10" height="1" x="49" y="9"/>            width="10" height="1" x="59" y="9"/>
450        </box>        </box>
451      </block>      </block>
452    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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