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

Diff of /papo/forms/productProviderInvoice.neb

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

revision 1.14 by charlie, Fri May 30 21:32:44 2003 UTC revision 1.15 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 Facturas de Proveedores">  <form tabbed="top" width="107" height="24" title="Carga de Facturas de Proveedores">
9      <neb:Block>
10        use PAPO;
11        my $uniqed=0;
12      </neb:Block>
13    <parameter name="invoiceDate" default=""/>    <parameter name="invoiceDate" default=""/>
14    
15    <datasource name="nil" cache="1"/>    <datasource name="nil" cache="1"/>
# Line 947  Line 950 
950          setFocus(alienDocumentBlock.dateEntry)          setFocus(alienDocumentBlock.dateEntry)
951          alienItemToUpdBlock.initQuery()          alienItemToUpdBlock.initQuery()
952          alienItemToUpdBlock.alienDocumentToUpdEntry = lAlienDocId          alienItemToUpdBlock.alienDocumentToUpdEntry = lAlienDocId
953            #storehouse
954            alienItemToUpdBlock.storehouseEntry = str(ownStorehouseBlock.ownStorehouseIdEntry)
955            #/storehouse
956          alienItemToUpdBlock.processQuery()          alienItemToUpdBlock.processQuery()
957          lRecordCount = alienItemToUpdBlock.getRecordCount()          lRecordCount = alienItemToUpdBlock.getRecordCount()
958          for recNum in range(lRecordCount):          for recNum in range(lRecordCount):
# Line 1680  Line 1686 
1686        </block>        </block>
1687      <!--busco own pos entityIdEntry-->      <!--busco own pos entityIdEntry-->
1688      <neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock"      <neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock"
1689      ownPosEntityIdEntry="ownPosEntityIdEntry"  searchOwnPosData="searchOwnPosData" />      ownPosEntityIdEntry="ownPosEntityIdEntry"
1690        searchOwnPosData="searchOwnPosData"
1691     ownStorehouseBlock ="ownStorehouseBlock" ownStorehouseIdEntry="ownStorehouseIdEntry" />
1692      <block datasource="alienDocumentDataSource" name="alienDocumentBlock" restrictInsert="t">      <block datasource="alienDocumentDataSource" name="alienDocumentBlock" restrictInsert="t">
1693  <!--     <trigger name="t" type="Pre-Insert"> -->  <!--     <trigger name="t" type="Pre-Insert"> -->
1694  <!--       alienDocumentBlock.idEntry.autofillBySequence('alien_document_id_seq') -->  <!--       alienDocumentBlock.idEntry.autofillBySequence('alien_document_id_seq') -->

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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