/[papo]/papo/forms/client.gfd
ViewVC logotype

Diff of /papo/forms/client.gfd

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

revision 1.42 by styxman, Mon Mar 17 16:13:36 2003 UTC revision 1.43 by styxman, Wed Mar 19 21:25:34 2003 UTC
# Line 3  Line 3 
3  <form tabbed="top" title="Clientes" height="20" width="84">  <form tabbed="top" title="Clientes" height="20" width="84">
4    <datasource name="focusDataSource" cache="1"/>    <datasource name="focusDataSource" cache="1"/>
5    <datasource name="searchDataSource" cache="1"/>    <datasource name="searchDataSource" cache="1"/>
6    <datasource name="clientResultDataSource" database="papo"    <datasource name="clientResultDataSource" database="papo"
7                table="_entity_data, _alien_entity_data, _persona_data, _client_data, entity_type_uid_conf, _entity_uid_data"                table="_entity_data, _alien_entity_data, _persona_data, _client_data, entity_type_uid_conf, _entity_uid_data"
8                order_by="_entity_data.name">                order_by="_entity_data.name">
9      <condition>      <condition>
10        <and>        <and>
# Line 53  Line 53 
53      </condition>      </condition>
54    </datasource>    </datasource>
55    
56    <datasource name="clientDataSource" database="papo"    <datasource name="clientDataSource" database="papo"
57                table="entity, _entity_data, alien_entity, _alien_entity_data, persona, _persona_data, client, _client_data, entity_type_uid_conf"                table="entity, _entity_data, alien_entity, _alien_entity_data, persona, _persona_data, client, _client_data, entity_type_uid_conf"
58                historytable="_entity_data, _alien_entity_data, _persona_data, _client_data">                historytable="_entity_data, _alien_entity_data, _persona_data, _client_data">
59      <condition>      <condition>
# Line 289  Line 289 
289      if not str(clientTaxProfileBlock.taxProfileEntry):      if not str(clientTaxProfileBlock.taxProfileEntry):
290        message+= 'Debe ingresar un categoría de IVA\n'        message+= 'Debe ingresar un categoría de IVA\n'
291        isOk= 0        isOk= 0
292        
293      if isOk:      if isOk:
294        if clientBlock.getCurrentRecord().isInserted():        if clientBlock.getCurrentRecord().isInserted():
295          # entity_type 7 es cliente          # entity_type 7 es cliente
# Line 320  Line 320 
320    ]]></trigger>    ]]></trigger>
321    
322    <trigger name="clientDeleteTrigger" type="NAMED"><![CDATA[    <trigger name="clientDeleteTrigger" type="NAMED"><![CDATA[
323        print "here"
324      clientBlock.deleteRecord()      clientBlock.deleteRecord()
325      clientBlock.commit()      clientBlock.commit()
326    
327        for block in [ clientBlock, clientCodeBlock, clientTaxProfileBlock ]:
328          block.processRollback ()
329    ]]></trigger>    ]]></trigger>
330    
331    <trigger name="clientRollbackTrigger" type="NAMED"><![CDATA[    <trigger name="clientRollbackTrigger" type="NAMED"><![CDATA[
332        print "here-here"
333      import hack      import hack
334      hack.rollback(clientBlock)      hack.rollback(clientBlock)
335    ]]></trigger>    ]]></trigger>
336    
337    <trigger name="askForChangesTrigger" type="NAMED"><![CDATA[    <trigger name="askForChangesTrigger" type="NAMED"><![CDATA[
338      import hack      import hack
339        
340      # there are some places where the blocks are dirty      # there are some places where the blocks are dirty
341      # for field in clientBloc      # for field in clientBloc
342        
343      hack.confirmPageChanges(self, 'commitTrigger', clientBlock)      hack.confirmPageChanges(self, 'commitTrigger', clientBlock)
344    ]]></trigger>    ]]></trigger>
345    
# Line 365  Line 370 
370    
371    <trigger name="uidRollbackTrigger" type="NAMED"><![CDATA[    <trigger name="uidRollbackTrigger" type="NAMED"><![CDATA[
372      from hack import rollback      from hack import rollback
373        
374      rollback(clientUID_IB_Block)      rollback(clientUID_IB_Block)
375      rollback(clientUID_CUIT_Block)      rollback(clientUID_CUIT_Block)
376      rollback(clientTaxProfileBlock)      rollback(clientTaxProfileBlock)
# Line 420  Line 425 
425        clientSearchBlock.notificationEntry ='%6d registros encontrados' % clientResultBlock.getRecordCount()        clientSearchBlock.notificationEntry ='%6d registros encontrados' % clientResultBlock.getRecordCount()
426    
427    ]]></trigger>    ]]></trigger>
428      
429      <trigger type="NAMED" name="clientPageFocusInTrigger"><![CDATA[      <trigger type="NAMED" name="clientPageFocusInTrigger"><![CDATA[
430      if str(clientResultBlock.clientIdREntry)!='':      if str(clientResultBlock.clientIdREntry)!='':
431        # this is needed for updating some fields, like price_type there below        # this is needed for updating some fields, like price_type there below
# Line 598  Line 603 
603            width="35" style="dropdown" foreign_key="taxProfileDataSource._table"            width="35" style="dropdown" foreign_key="taxProfileDataSource._table"
604            foreign_key_description="profile" />            foreign_key_description="profile" />
605        </block>        </block>
606          
607        <block name="buttonBlock" datasource="focusDataSource"        <block name="buttonBlock" datasource="focusDataSource"
608          transparentBlock="y">          transparentBlock="y">
609          <button x="1" y="19" trigger="commitTrigger" width="9" label="Aceptar"          <button x="1" y="19" trigger="commitTrigger" width="9" label="Aceptar"
# Line 641  Line 646 
646        </block>        </block>
647      </box>      </box>
648    </page>    </page>
649      
650    <page name="Teléfonos">    <page name="Teléfonos">
651    <trigger type="Pre-Focusout" src="askForChangesTrigger"/>    <trigger type="Pre-Focusout" src="askForChangesTrigger"/>
652      <box label="Teléfonos"      <box label="Teléfonos"
# Line 671  Line 676 
676        </block>        </block>
677      </box>      </box>
678    </page>    </page>
679      
680    <page name="Límites crédito">    <page name="Límites crédito">
681    <trigger type="Pre-Focusout" src="askForChangesTrigger"/>    <trigger type="Pre-Focusout" src="askForChangesTrigger"/>
682      <box label="Límites de Crédito"      <box label="Límites de Crédito"
# Line 682  Line 687 
687          <entry name="name" field="_entity_data.name" readonly=""          <entry name="name" field="_entity_data.name" readonly=""
688            x="1" y="2" width="40"/>            x="1" y="2" width="40"/>
689       </block>       </block>
690      </box>      </box>
691      <box label="Tipos de límite Crédito"      <box label="Tipos de límite Crédito"
692          x="0" y="5" height="15" width="64">          x="0" y="5" height="15" width="64">
693        <block name="creditLimit1Block"        <block name="creditLimit1Block"
# Line 712  Line 717 
717          <entry name="name" field="_entity_data.name" readonly=""          <entry name="name" field="_entity_data.name" readonly=""
718            x="1" y="2" width="40"/>            x="1" y="2" width="40"/>
719       </block>       </block>
720      </box>      </box>
721      <box label=""      <box label=""
722          x="0" y="5" height="15" width="64">          x="0" y="5" height="15" width="64">
723       <block name="clientUID_CUIT_Block" datasource="entityUID_CUIT_DataSource"       <block name="clientUID_CUIT_Block" datasource="entityUID_CUIT_DataSource"

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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