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

Diff of /papo/forms/productInvoice.neb

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

revision 1.34 by apronotti, Fri Aug 1 20:41:07 2003 UTC revision 1.35 by apronotti, Tue Aug 5 15:21:08 2003 UTC
# Line 802  Line 802 
802    <trigger name="cashEntryPreFocusout" type="NAMED">    <trigger name="cashEntryPreFocusout" type="NAMED">
803    
804      import hack      import hack
805        
806      lCurrentCredit = round(hack.a2f(tmpValuesDataSource.creditLimitAmount,2) - \      lCurrentCredit = round(hack.a2f(tmpValuesDataSource.creditLimitAmount,2) - \
807                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)
808    
# Line 823  Line 823 
823    
824      lCurrentCredit = round(hack.a2f(tmpValuesDataSource.creditLimitAmount,2) - \      lCurrentCredit = round(hack.a2f(tmpValuesDataSource.creditLimitAmount,2) - \
825                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)
826        
827      if hack.a2f(payBlock.ctaCteEntry,2) > lCurrentCredit:      if hack.a2f(payBlock.ctaCteEntry,2) > lCurrentCredit:
828          genericBox("Esta excedido el Límite de Crédito",["Aceptar"])          genericBox("Esta excedido el Límite de Crédito",["Aceptar"])
829          payBlock.ctaCteEntry = "0.00"          payBlock.ctaCteEntry = "0.00"
830          callTrigger('ctaCteEntryPreFocusout')          callTrigger('cashEntryPreFocusout')
831      else:      else:
832          payBlock.cashEntry = str(round(hack.a2f(totalBlock.totalEntry,2) - hack.a2f(payBlock.ctaCteEntry,2),2))          payBlock.cashEntry = str(round(hack.a2f(totalBlock.totalEntry,2) - hack.a2f(payBlock.ctaCteEntry,2),2))
833          callTrigger('currencyTypeTrigger')          callTrigger('currencyTypeTrigger')
# Line 1517  Line 1518 
1518        </box>        </box>
1519        <box height="4" label="Cobro de la factura" name="payBox"        <box height="4" label="Cobro de la factura" name="payBox"
1520          width="105" x="0" y="7">          width="105" x="0" y="7">
1521          <block datasource="payDataSource" name="payBlock">          <block datasource="payDataSource" name="payBlock" restrictInsert="">
1522            <label text="Efectivo : " x="1" y="1"/>            <label text="Efectivo : " x="1" y="1"/>
1523            <entry name="cashEntry" typecast="number" displaymask="%0.2f" default="0.00"            <entry name="cashEntry" typecast="number" displaymask="%0.2f" default="0.00"
1524              x="11" y="1" width="12">              x="11" y="1" width="12">

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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