/[papo]/papo/forms/components/setStock.nebc
ViewVC logotype

Diff of /papo/forms/components/setStock.nebc

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

revision 1.2 by mhepp, Mon Jun 2 20:19:25 2003 UTC revision 1.3 by mhepp, Mon Jun 2 21:40:30 2003 UTC
# Line 17  Line 17 
17  $ownDocumentId => ""  $ownDocumentId => ""
18  $alienDocumentId => ""  $alienDocumentId => ""
19  $storehouseEntityId => ""  $storehouseEntityId => ""
20  $stockAddTrigger => "stockAddTrigger"  $stockAddTrigger => ""
21  $stockSubstractTrigger => "stockSubstractTrigger"  $stockSubstractTrigger => ""
22  </neb:Vars>  </neb:Vars>
23   <neb:Block>if ($ownDocumentId ne ""){</neb:Block>   <neb:Block>if ($ownDocumentId ne ""){</neb:Block>
24    <datasource database="papo" name="ownItemToUpdDataSource"    <datasource database="papo" name="ownItemToUpdDataSource"
# Line 38  $stockSubstractTrigger => "stockSubstrac Line 38  $stockSubstractTrigger => "stockSubstrac
38    </datasource>    </datasource>
39   <neb:Block>}</neb:Block>   <neb:Block>}</neb:Block>
40    
41   <neb:Block>if ($alienDocumentId ne ""){</neb:Block>  <!--  <neb:Block>if ($alienDocumentId ne ""){</neb:Block> -->
42   <datasource database="papo" name="alienItemDataSourceToUpd" -->  <!--  <datasource database="papo" name="alienItemDataSourceToUpd" -\-> -->
43  <!--     table="alien_item, alien_product_item, _product_data, _product_store_data"> -->  <!--     table="alien_item, alien_product_item, _product_data, _product_store_data"> -->
44  <!--     <condition> -->  <!--     <condition> -->
45  <!--       <and> -->  <!--       <and> -->
# Line 61  $stockSubstractTrigger => "stockSubstrac Line 61  $stockSubstractTrigger => "stockSubstrac
61  <!--       </and> -->  <!--       </and> -->
62  <!--     </condition> -->  <!--     </condition> -->
63  <!--   </datasource> -->  <!--   </datasource> -->
64    <!--  <neb:Block>}</neb:Block> -->
  <neb:Block>}</neb:Block>  
65    
66    
67    
# Line 83  $stockSubstractTrigger => "stockSubstrac Line 82  $stockSubstractTrigger => "stockSubstrac
82    </condition>    </condition>
83    </datasource>    </datasource>
84    
85   <trigger name="neb:$stockTrigger" type="NAMED">  
86    <neb:Block>
87    
88    my @triggers = ($stockAddTrigger, $stockSubstractTrigger);
89    
90    foreach (0..$#triggers) {
91        if ($triggers[$_])
92        {
93            my $operation = ['+', '-']->[$_];
94    
95    </neb:Block>
96    
97    
98     <trigger name="neb:$triggers[$_]" type="NAMED">
99            itemToUpdBlock.initQuery()            itemToUpdBlock.initQuery()
100            lOwnDocId = str(<neb:Inline>$ownDocumentId || $alienDocumentId </neb:Inline>)            lOwnDocId = str(<neb:Inline>$ownDocumentId || $alienDocumentId </neb:Inline>)
101            itemToUpdBlock.documentEntry = lOwnDocId            itemToUpdBlock.documentEntry = lOwnDocId
# Line 115  $stockSubstractTrigger => "stockSubstrac Line 127  $stockSubstractTrigger => "stockSubstrac
127                   print "ya esta el post change"                   print "ya esta el post change"
128                elif productRecordCount > 1:                elif productRecordCount > 1:
129                   #error                   #error
130                   print "ERROR DE CONSISTENCIA EN LA BASE DE DATOS"                   print "ERROR DE CONSISTENCIA EN LA BASE DE DATOS    "
131                   break                   break
132                #ajusto el stock                #ajusto el stock
133                else:                else:
# Line 123  $stockSubstractTrigger => "stockSubstrac Line 135  $stockSubstractTrigger => "stockSubstrac
135                   productStoreBlock.levelEntry.postAtomicModify(lambda x:x<neb:Inline>$operation</neb:Inline>round(float(str(itemToUpdBlock.qtyEntry)),4))                   productStoreBlock.levelEntry.postAtomicModify(lambda x:x<neb:Inline>$operation</neb:Inline>round(float(str(itemToUpdBlock.qtyEntry)),4))
136            itemToUpdBlock.clear()            itemToUpdBlock.clear()
137        </trigger>        </trigger>
138     <neb:Block>}}</neb:Block>
139    
140   <neb:Block>if ($ownDocumentId ne ""){</neb:Block>   <neb:Block>if ($ownDocumentId ne ""){</neb:Block>
141       <block datasource="ownItemToUpdDataSource" name="itemToUpdBlock">       <block datasource="ownItemToUpdDataSource" name="itemToUpdBlock">

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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