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

Diff of /papo/forms/providerDespatchNote.neb

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

revision 1.7 by styxman, Wed May 28 23:47:42 2003 UTC revision 1.8 by mhepp, Mon Jun 2 19:05:54 2003 UTC
# Line 6  Line 6 
6  <!--    observations (text) -->  <!--    observations (text) -->
7    
8  <form tabbed="top" width="107" height="24" title="Carga de Remitos de Proveedores">  <form tabbed="top" width="107" height="24" title="Carga de Remitos de Proveedores">
9    <neb:Block>
10        use PAPO;
11        my $uniqed=0;
12      </neb:Block>
13    <parameter name="despatchNoteDate" default=""/>    <parameter name="despatchNoteDate" default=""/>
14    
15    <datasource name="nil" cache="1"/>    <datasource name="nil" cache="1"/>
# Line 789  Line 792 
792            rollbackConnection ()            rollbackConnection ()
793            genericBox ('Hay problemas para grabar %s: %s.\nLos datos no han sido grabados.' % (errors[commitProgress], err), ['Aceptar'])            genericBox ('Hay problemas para grabar %s: %s.\nLos datos no han sido grabados.' % (errors[commitProgress], err), ['Aceptar'])
794      else:      else:
795        # sure this is what we want?        if alienItemBlock.getRecordCount() > 0 and len(alienItemBlock.qtyEntry) > 0 and len(alienItemBlock.productEntry) > 0:
796        alienDocumentBlock.clear()          alienDocumentBlock.idEntry.autofillBySequence('alien_document_id_seq')
797            alienDocumentBlock.ownEntityIdEntry  = str(ownPosBlock.ownPosEntityIdEntry)
798            alienDocumentBlock.commit()
799            lAlienDocId = str(alienDocumentBlock.idEntry)
800            setFocus(alienDocumentBlock.dateEntry)
801            alienItemToUpdBlock.initQuery()
802            alienItemToUpdBlock.alienDocumentToUpdEntry = lAlienDocId
803            #storehouse
804            alienItemToUpdBlock.storehouseEntry = str(ownStorehouseBlock.ownStorehouseIdEntry)
805            #/storehouse
806            alienItemToUpdBlock.processQuery()
807            lRecordCount = alienItemToUpdBlock.getRecordCount()
808            for recNum in range(lRecordCount):
809              alienItemToUpdBlock.jumpRecord(recNum)
810              alienItemToUpdBlock.levelEntry.atomicModify(lambda x:x+round(float(str(alienItemToUpdBlock.qtyEntry)),4))
811            alienItemToUpdBlock.clear()
812          else:
813            alienDocumentBlock.clear()
814    
815    
816      callTrigger('rollbackTrigger')      callTrigger('rollbackTrigger')
817    </trigger>    </trigger>
# Line 1238  Line 1259 
1259        </block>        </block>
1260      </box>      </box>
1261      <neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock"      <neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock"
1262        ownPosEntityIdEntry="ownPosEntityIdEntry"  searchOwnPosData="searchOwnPosData" />        ownPosEntityIdEntry="ownPosEntityIdEntry"
1263      <box height="14" label="Remitos encontradas" name="searchResultBox"        searchOwnPosData="searchOwnPosData"
1264          ownStorehouseBlock ="ownStorehouseBlock" ownStorehouseIdEntry="ownStorehouseIdEntry" />
1265        <box height="14" label="Remitos encontradas" name="searchResultBox"
1266        width="107" x="0" y="11">        width="107" x="0" y="11">
1267        <block datasource="resultAlienDocumentDataSource" name="resultBlock">        <block datasource="resultAlienDocumentDataSource" name="resultBlock">
1268    

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

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