/[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.35 by apronotti, Tue Aug 5 15:21:08 2003 UTC revision 1.36 by apronotti, Tue Aug 5 15:44:43 2003 UTC
# Line 807  Line 807 
807                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)                             hack.a2f(ownDocumentBlock.clientRecipientBox.deudaEntry,2),2)
808    
809      newCtaCteValue = round(hack.a2f(totalBlock.totalEntry,2) - hack.a2f(payBlock.cashEntry,2),2)      newCtaCteValue = round(hack.a2f(totalBlock.totalEntry,2) - hack.a2f(payBlock.cashEntry,2),2)
810      if newCtaCteValue > lCurrentCredit:      if newCtaCteValue > lCurrentCredit and hack.a2f(payBlock.cashEntry,2) != hack.a2f(totalBlock.totalEntry,2):
811        genericBox("Esta excedido el Límite de Crédito",["Aceptar"])        genericBox("Esta excedido el Límite de Crédito",["Aceptar"])
812        payBlock.ctaCteEntry = "0.00"        payBlock.ctaCteEntry = "0.00"
813        callTrigger('ctaCteEntryPreFocusout')        payBlock.cashEntry = hack.a2f(totalBlock.totalEntry,2)
814      else:      else:
815        payBlock.ctaCteEntry = newCtaCteValue        payBlock.ctaCteEntry = newCtaCteValue
816        callTrigger('currencyTypeTrigger')        callTrigger('currencyTypeTrigger')
# Line 818  Line 818 
818    </trigger>    </trigger>
819    
820    <trigger name="ctaCteEntryPreFocusout" type="NAMED">    <trigger name="ctaCteEntryPreFocusout" type="NAMED">
821        
822      import hack      import hack
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 not (0 > lCurrentCredit and hack.a2f(payBlock.ctaCteEntry,2) == 0.00):
828          if hack.a2f(payBlock.ctaCteEntry,2) > lCurrentCredit:
829          genericBox("Esta excedido el Límite de Crédito",["Aceptar"])          genericBox("Esta excedido el Límite de Crédito",["Aceptar"])
830          payBlock.ctaCteEntry = "0.00"          payBlock.ctaCteEntry = "0.00"
831          callTrigger('cashEntryPreFocusout')          payBlock.cashEntry = hack.a2f(totalBlock.totalEntry,2)
832      else:        else:
833          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))
834          callTrigger('currencyTypeTrigger')          callTrigger('currencyTypeTrigger')
835    

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

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