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

Diff of /papo/forms/providerSelect.gfd

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

revision 1.1 by apronotti, Mon Feb 10 22:44:41 2003 UTC revision 1.1.2.1 by anthonyl, Fri Mar 14 22:45:25 2003 UTC
# Line 1  Line 1 
1  <?xml version="1.0" encoding="ISO-8859-1"?>  <?xml version="1.0" encoding="ISO-8859-1"?>
 <form width="65" height="26">  
   <datasource name="ghost" cache="1"/>  
2    
3    <!--  GNUe Forms 0.5.0 Migration Tool
4          Saved on: 2003-02-11 17:42:17  -->
5    
6    <form>
7      <datasource name="ghost" cache="1"/>
8    <parameter name="data" default=""/>    <parameter name="data" default=""/>
9    <parameter name="callback" default=""/>    <parameter name="callback" default=""/>
   
10    <trigger type="ON-STARTUP"><![CDATA[    <trigger type="ON-STARTUP"><![CDATA[
11      sourceBlock = getParameter ('data')      sourceBlock = getParameter ('data')
12    
13      lRecordCount = sourceBlock.getRecordCount()      lRecordCount = sourceBlock.getRecordCount()
14      for recNum in range(lRecordCount-1):      for recNum in range(lRecordCount-1):
15        sourceBlock.jumpRecord(recNum)        sourceBlock.gotoRecord(recNum)
16        targetBlock.uid = str(sourceBlock.providerCodeEntry)        targetBlock.uid = str(sourceBlock.providerCodeEntry)
17        targetBlock.desc = str(sourceBlock.providerNameEntry)        targetBlock.desc = str(sourceBlock.providerNameEntry)
18        targetBlock.newRecord()        targetBlock.newRecord()
19      sourceBlock.jumpRecord(recNum+1)      sourceBlock.gotoRecord(recNum+1)
20      targetBlock.uid = str(sourceBlock.providerCodeEntry)      targetBlock.uid = str(sourceBlock.providerCodeEntry)
21      targetBlock.desc = str(sourceBlock.providerNameEntry)      targetBlock.desc = str(sourceBlock.providerNameEntry)
22            
23    ]]></trigger>    ]]></trigger>
   
24    <trigger type="ON-EXIT"><![CDATA[    <trigger type="ON-EXIT"><![CDATA[
25      func= getParameter ('callback')      func= getParameter ('callback')
26      func (targetBlock.getCurrentRecordNumber())      func (targetBlock.getCurrentRecordNumber())
27    ]]></trigger>    ]]></trigger>
28      <trigger name="exitTrigger" type="NAMED"><![CDATA[
29    <trigger type="NAMED" name="exitTrigger"><![CDATA[       close()
      exit()  
30    ]]></trigger>    ]]></trigger>
31      <logic>
   <page>  
32      <block name="targetBlock" datasource="ghost">      <block name="targetBlock" datasource="ghost">
33        <label name="codeLbl" text="Código" x="2" y="1" />        <field name="uid" field="uid"/>
34        <entry name="uid" field="uid" x="2" y="2" width="20" rows="23"/>        <field name="desc" field="desc"/>
       <label name="descLbl" text="Nombre o Descripción" x="25" y="1" />  
       <entry name="desc" field="desc" style="label" x="25" y="2" width="35" rows="23"/>  
       <scrollbar page="2" x="61" y="2" width="1" height="23"/>        
       <button name="exitButton" label="Ok" trigger="exitTrigger" height="2" width="10" x="30" y="26"/>  
35      </block>      </block>
36    </page>    </logic>
37      <layout xmlns:c="GNUe:Layout:Char" c:height="29" c:width="65">
38        <page>
39          <label name="codeLbl" text="Código" c:x="2" c:y="1"/>
40          <entry block="targetBlock" field="uid" rows="23" c:width="20" c:x="2"
41                 c:y="2"/>
42          <label name="descLbl" text="Nombre o Descripción" c:x="25" c:y="1"/>
43          <entry block="targetBlock" field="desc" rows="23" style="label"
44                 c:width="35" c:x="25" c:y="2"/>
45          <scrollbar block="targetBlock" c:height="23" page="2" c:width="1"
46                     c:x="61" c:y="2"/>
47          <button name="exitButton" c:height="2" label="Ok" c:width="10" c:x="30"
48                  c:y="26">
49            <trigger src="exitTrigger" type="On-Action"/>
50          </button>
51        </page>
52      </layout>
53  </form>  </form>

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.2.1

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