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

Diff of /papo/forms/ivaBuyer.neb

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

revision 1.3 by mhepp, Thu May 22 16:06:54 2003 UTC revision 1.4 by mhepp, Fri May 23 19:18:55 2003 UTC
# Line 1  Line 1 
1  <?xml version="1.0" encoding="ISO-8859-1"?>  <?xml version="1.0" encoding="ISO-8859-1"?>
2  <!DOCTYPE form SYSTEM "gnue-forms.dtd">  <!DOCTYPE form SYSTEM "gnue-forms.dtd">
3    
4  <form width="30" height="7" title="Listado I.V.A. Compras">  <form width="38" height="7" title="Listado I.V.A. Compras">
5      <neb:Block>
6        use PAPO;
7        my $uniqed=0;
8      </neb:Block>
9    <datasource name="printDataSource" cache="1"/>    <datasource name="printDataSource" cache="1"/>
10    
11    <datasource name="invTaxTotDataSource" database="papo"    <datasource name="invTaxTotDataSource" database="papo"
# Line 92  Line 95 
95    
96    <datasource database="papo" name="alienDocumentDataSource" table="alien_document"    <datasource database="papo" name="alienDocumentDataSource" table="alien_document"
97      order_by="date" />      order_by="date" />
98    <!--para buscar branch-->
99        
100      <neb:Sub neb:src="datasource.nebc" zot="../zot/PAPO-ER.zot" search="own_branch"
101      name="ownBranchSearchDataSource" database="papo"/>
102    
103    <trigger name="printTrigger" type="NAMED"><![CDATA[  
104      <trigger name="printTrigger" type="NAMED">
105    
106  if not str(printBlock.printBox.startDateEntry).strip() \  if not str(printBlock.printBox.startDateEntry).strip() \
107     or not str(printBlock.printBox.startDateEntry).strip():     or not str(printBlock.printBox.startDateEntry).strip():
# Line 124  else: Line 132  else:
132    le = GConditions.GCle(tmpAnd)    le = GConditions.GCle(tmpAnd)
133    GConditions.GCField(le,"alien_document.date")    GConditions.GCField(le,"alien_document.date")
134    GConditions.GCConst(le,str(printBlock.printBox.endDateEntry))    GConditions.GCConst(le,str(printBlock.printBox.endDateEntry))
135      #condiciones por Branch
136      if str(printBlock.printBox.ownBranchIdSearch):
137       print str(printBlock.printBox.ownBranchIdSearch)
138       #condiciono relacion ownPos con ownBranch
139       #condiciono documentos emitidos por el pos
140       eq1 = GConditions.GCeq(tmpAnd)
141       GConditions.GCField(eq1,"_entity_relation_data.entity_to")
142       GConditions.GCField(eq1,"alien_document.own_entity")
143       eq2 = GConditions.GCeq(tmpAnd)
144       GConditions.GCField(eq2,"_entity_relation_data.entity_from")
145       GConditions.GCConst(eq2,str(printBlock.printBox.ownBranchIdSearch))
146       #condiciono relacion del tipo own_pos del branch al que pertenece
147       eq3 = GConditions.GCeq(tmpAnd)
148       GConditions.GCField(eq3,"_entity_relation_data._table")
149       GConditions.GCField(eq3,"_relation_types_data.entity_relation")
150       eq4 = GConditions.GCeq(tmpAnd)
151       GConditions.GCField(eq4,"_relation_types_data.relation_type")
152       GConditions.GCConst(eq4,<neb:Inline>'"'.PAPO::posOfType.'"'</neb:Inline>)
153       # solo veo los datos actuales
154       null1 = GConditions.GCnull(tmpAnd)
155       GConditions.GCField(null1,"_relation_types_data._end_t")
156       null2 = GConditions.GCnull(tmpAnd)
157       GConditions.GCField(null2,"_entity_relation_data._end_t")
158      #/condiciones por Branch
159    
160    
161    
162        
163    productInvoiceResultSet = productInvoiceDataSource.createResultSet(condProductInvoice)    productInvoiceResultSet = productInvoiceDataSource.createResultSet(condProductInvoice)
164    more = productInvoiceResultSet.firstRecord()    more = productInvoiceResultSet.firstRecord()
# Line 181  else: Line 216  else:
216        
217    printing.previewPrint(table,"xless")    printing.previewPrint(table,"xless")
218            
219    ]]></trigger>    </trigger>
220    
221    <trigger name="startWaitingModeTrigger" type="NAMED"><![CDATA[    <trigger name="startWaitingModeTrigger" type="NAMED"><![CDATA[
222      setStatusText("Procesando ...")      setStatusText("Procesando ...")
# Line 213  else: Line 248  else:
248      <block datasource="printDataSource" name="printBlock" restrictInsert="">      <block datasource="printDataSource" name="printBlock" restrictInsert="">
249    
250        <box height="8" label="Listado de I.V.A. Compras"        <box height="8" label="Listado de I.V.A. Compras"
251          name="printBox" width="25" x="1" y="1">          name="printBox" width="37" x="1" y="1">
252          <label name="startDateLbl" text="Desde : " x="1" y="1"/>          <label name="startDateLbl" text="Desde : " x="1" y="1"/>
253          <entry name="startDateEntry" typecast="date" x="9" y="1" width="12"/>              <entry name="startDateEntry" typecast="date" x="9" y="1" width="12"/>    
254          <label name="startDateLbl" text="Hasta : " x="1" y="2"/>          <label name="startDateLbl" text="Hasta : " x="1" y="2"/>
255          <entry name="endDateEntry" typecast="date" x="9" y="2" width="12"/>              <entry name="endDateEntry" typecast="date" x="9" y="2" width="12"/>    
256            <label  text="sucursal :" x="1" y="3"/>
257            <entry  x="9" y="3" name="ownBranchIdSearch"  width="25" style="dropdown"
258              foreign_key="ownBranchSearchDataSource._entity_data._table"
259              foreign_key_description="_entity_data.name" />
260          <button x="2" y="4" trigger="printTrigger" width="20" label="Imprimir"          <button x="2" y="4" trigger="printTrigger" width="20" label="Imprimir"
261            name="printBotton" height="1"/>            name="printBotton" height="1"/>
262    

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

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