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

Diff of /papo/forms/main.neb

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

revision 1.23 by apronotti, Tue Oct 14 17:57:07 2003 UTC revision 1.24 by mhepp, Thu Oct 23 20:10:56 2003 UTC
# Line 50  if d: Line 50  if d:
50      sys.exit(1)      sys.exit(1)
51    </trigger>    </trigger>
52    
53    <!-- admin period set -->
54     <datasource name="adminPeriodSetDataSource" database="papo"
55       table="admin_period" order_by="id desc">
56      <condition>
57        <and>
58          <eq>
59            <cfield name="admin_period.admin_period_type"/>
60            <cconst value="1" />
61          </eq>
62        </and>
63      </condition>
64     </datasource>
65    
66      <block name="adminPeriodSetBlock" datasource="adminPeriodSetDataSource">
67      <entry name="periodoIdEntry" x="1" field="admin_period.id"
68        y="1" hidden="y"/>
69      <entry name="periodoStartTimeEntry" x="1" field="admin_period.start_time"
70        y="1" hidden="y"/>
71      <entry name="periodoTypeEntry" x="1" field="admin_period.admin_period_type"
72        y="1" hidden="y"/>
73      <entry name="periodoEndTimeEntry" x="1" field="admin_period.end_time"
74        y="1" hidden="y"/>
75      <entry name="periodoNameEntry" x="1" field="admin_period.name"
76        y="1" hidden="y"/>
77      </block>
78    
79    <trigger name="adminPeriodSet" type="NAMED">
80      import mx.DateTime
81      adminPeriodSetResultSet = adminPeriodSetDataSource.createResultSet()
82      adminPeriodSetResultSet.firstRecord()
83      adminPeriodId = adminPeriodSetResultSet.current.getField("admin_period.id")
84      adminPeriodEnd = str(adminPeriodSetResultSet.current.getField("admin_period.end_time"))
85      #print "adminPeriodId", adminPeriodId
86      #print "adminPeriodEND", adminPeriodEnd
87      #creacion de un periodo nuevo
88      today = str(adminPeriodSetDataSource.getTimeStamp())
89      new = 0
90      if adminPeriodEnd != "None":
91         if (mx.DateTime.strptime(today[:-3], "%Y-%m-%d %T") >= mx.DateTime.strptime(adminPeriodEnd[:7],"%Y-%m") ):
92           new = 1
93      else:  
94           new = 1
95      if  new :  
96          next_period_start =  str(mx.DateTime.strptime(today[:7],"%Y-%m"))
97          #print "prox period start " , str(next_period_start)
98          end   = str(mx.DateTime.strptime(today[:7],"%Y-%m")+31)
99          next_period_end   = str(mx.DateTime.strptime(end[:7],"%Y-%m"))
100          #print "prox period end ", str(next_period_end)
101          adminPeriodSetBlock.newRecord()
102          adminPeriodSetBlock.periodoStartTimeEntry = next_period_start
103          adminPeriodSetBlock.periodoEndTimeEntry = next_period_end
104          adminPeriodSetBlock.periodoTypeEntry = 1
105          adminPeriodSetBlock.periodoNameEntry = next_period_start[:7]
106          adminPeriodSetBlock.postChanges()
107          commitConnection()
108     </trigger>
109    
110    <!-- /admin period set -->
111    
112    
113    
114    <!-- si alguien sabe como parametrizar esto... (me siento estupido haciendo cut-'n'-paste) -->    <!-- si alguien sabe como parametrizar esto... (me siento estupido haciendo cut-'n'-paste) -->
115     <page name="Principal">     <page name="Principal">
116      <neb:Sub neb:src="posDocument.nebc"  ownPosBlock="ownPosBlock" searchOwnPosData= "searchOwnPosData"/>      <neb:Sub neb:src="posDocument.nebc"  ownPosBlock="ownPosBlock" searchOwnPosData= "searchOwnPosData"/>
# Line 67  if d: Line 128  if d:
128    
129       <box name="ownDocsBox" label="Ventas"       <box name="ownDocsBox" label="Ventas"
130          width="43" height="15">          width="43" height="15">
131    
132    
133  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidInvoice" label="Anular Facturas"  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidInvoice" label="Anular Facturas"
134            verifyPosExistence="true"  locationY ="1"  />            verifyPosExistence="true" verifyIvaPeriod="true" locationY ="9"  />
135  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidCreditNote" label="Anular Notas de Crédito"  <neb:Sub neb:src="mainButton.nebc" verifyIvaPeriod="true" formToBeCalled="voidCreditNote" label="Anular Notas de Crédito" verifyPosExistence="true" locationY ="10"  />
           verifyPosExistence="true"  locationY ="2"  />  
136  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidDebitNote" label="Anular Notas de Débito"  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidDebitNote" label="Anular Notas de Débito"
137            verifyPosExistence="true"  locationY ="3"  />            verifyPosExistence="true"  verifyIvaPeriod="true"  locationY ="11"  />
138  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidDespatchNote" label="Anular Remitos"  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="voidDespatchNote" label="Anular Remitos"
139            verifyPosExistence="true"  locationY ="4"  />            verifyPosExistence="true"  verifyIvaPeriod="true"  locationY ="12"  />
140    
141                
142  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="proposal" label="Presupuesto de productos o servicios" verifyPosExistence="true"  locationY ="5" />  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="proposal" label="Presupuesto de productos o servicios" verifyPosExistence="true"  locationY ="2" />
143        
144  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="despatchNote" label="Remito" verifyPosExistence="true"  locationY ="6"  />  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="despatchNote" label="Remito" verifyPosExistence="true"  locationY ="3"  />
145    
146  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="productInvoice" label="Facturación de productos o servicios" verifyPosExistence="true"  locationY = "7" />  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="productInvoice" label="Facturación de productos o servicios" verifyPosExistence="true" verifyIvaPeriod="true" locationY = "1" />
147            
148  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="creditNote" label="Nota de crédito" verifyPosExistence="true"  locationY ="8"  />  <neb:Sub neb:src="mainButton.nebc" verifyIvaPeriod="true" formToBeCalled="creditNote" label="Nota de crédito" verifyPosExistence="true"  locationY ="4"  />
149    
150  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="descCreditNote" label="Nota de crédito (descriptiva)" verifyPosExistence="true"  locationY ="9"  />  <neb:Sub neb:src="mainButton.nebc" verifyIvaPeriod="true" formToBeCalled="descCreditNote" label="Nota de crédito (descriptiva)" verifyPosExistence="true"  locationY ="5"  />
151  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="debitNote" label="Nota de Débito" verifyPosExistence="true"  locationY ="10"  />  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="debitNote" label="Nota de Débito" verifyPosExistence="true"  locationY ="6"  />
152  <neb:Sub neb:src="mainButton.nebc" formToBeCalled="descDebitNote" label="Nota de débito (descriptiva)" verifyPosExistence="true"  locationY ="11"  />  <neb:Sub neb:src="mainButton.nebc" verifyIvaPeriod="true" formToBeCalled="descDebitNote" label="Nota de débito (descriptiva)" verifyPosExistence="true"  locationY ="7"  />
153    
154         <neb:Sub neb:src="mainButton.nebc" formToBeCalled="returnNote" label="Devolución de mercadería" verifyPosExistence="true"  locationY = "12" />         <neb:Sub neb:src="mainButton.nebc" formToBeCalled="returnNote" label="Devolución de mercadería" verifyPosExistence="true"  locationY = "8" />
155                
156        </box>        </box>
157    <box name="payBox" label="Pagos / Cobros"    <box name="payBox" label="Pagos / Cobros"
158            width="43" height="5">            width="43" height="6">
159            <neb:Sub neb:src="mainButton.nebc" formToBeCalled="payOrder" label="Orden de Pagos" verifyPosExistence="true"  locationY ="1"  />            <neb:Sub neb:src="mainButton.nebc" formToBeCalled="payOrder" label="Orden de Pagos" verifyPosExistence="true"  locationY ="1"  />
160                        
161            <neb:Sub neb:src="mainButton.nebc" formToBeCalled="receipt" label="Recibos" verifyPosExistence="true"  locationY = "2" />            <neb:Sub neb:src="mainButton.nebc" formToBeCalled="receipt" label="Recibos" verifyPosExistence="true"  locationY = "2" />
# Line 110  if d: Line 172  if d:
172                        
173            <box name="providerDocsBox" label="Compras"            <box name="providerDocsBox" label="Compras"
174              width="43" height="7">              width="43" height="7">
175              <neb:Sub neb:src="mainButton.nebc" formToBeCalled="productProviderInvoice" label="Facturas de productos o servicios" verifyPosExistence="true"  locationY ="1"  />              <neb:Sub neb:src="mainButton.nebc"
176                formToBeCalled="productProviderInvoice" label="Facturas de productos o servicios"
177                  verifyPosExistence="true"
178                  verifyIvaPeriod="true"  locationY ="1"  />
179                            
180              <neb:Sub neb:src="mainButton.nebc" formToBeCalled="providerDespatchNote" label="Remito" verifyPosExistence="true"  locationY = "2" />              <neb:Sub neb:src="mainButton.nebc" formToBeCalled="providerDespatchNote" label="Remito" verifyPosExistence="true"  locationY = "2" />
181                            

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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