campo-sirio/src/ca/ca3200b.rep
Alessandro Bonazzi fadf0f5faa Patch level : 12.0 1100
Files correlati     : f151.dir f151.trr ca1.exe ca2.exe ca3.exe ca3100.uml
                      ca3100a.rep ca3100b.rep ca3200.uml ca3200a.rep
                      ca3200b.rep ca3300.uml ca3300a.rep ca3300b.rep
                      ca3300c.rep ca3300d.rep ca3600.uml ca3600a.rep
                      ca3700.uml ca3700a.rep ca3700b.rep ca3800.uml
                      ca3800a.rep ca3800as.rep ca3800b.rep ca3800bs.rep
                      ca3800c.rep ca3800cs.rep ca3883.cpp ca3900.uml
                      ca3900a.rep
Commento :

Aggiunta contabilità separata alle stampe di analitica.
Aggiunto meccanismo per lanciare le stampe in batch.
Sintassi: ca3 -7 -b <nome del file che contiene i valori dell maschera> <tipo di output <P>rint|<E>xport|E<X>cel|PD<F>|<T>esto|<D>Base|<V>isualizza> <nome del file di output

Esempio: ca3 -7 -b select.sav X c:\out\rend

esporta il rendiconto di commessa usando i parametri salvati in select.sav nel file c:\out\rend.xls
2021-12-13 22:21:30 +01:00

319 lines
22 KiB
XML

<?xml version="1.0" encoding="UTF-8" ?>
<report libraries="ve1300" page_merge="" save_printer="" name="ca3200b" use_printer_font="" orientation="2" page_split="" lpi="8" command="" class="ca3200b">
<description>Mastrini CA per conto</description>
<font face="Courier New" size="8" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="" hidden="" page_break="" can_break="" pattern="1">
<font italic="1" face="Courier New" bold="1" size="8" />
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="1" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" size="9" />
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101
MESSAGE RESET,F1.102</prescript>
<field border="1" radius="100" x="1" y="0.5" deactivated="" type="Testo" valign="center" hidden="" align="center" link="" dynamic_height="" shade_offset="25" width="167" codval="" height="4" id="" pattern="2" hide_zero="" text="MASTRINI DI CONTABILITA' ANALITICA">
<font face="Arial" bold="1" size="14" />
</field>
<field x="1" y="5.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#SYSTEM.RAGSOC</source>
</field>
<field x="80" y="5.5" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#SYSTEM.DATE</source>
</field>
<field x="1" y="7" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="18" codval="" id="" pattern="1" hide_zero="" text="Centro di Costo:" />
<field x="44" y="7" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=#101,DESCRIZ</prescript>
</field>
<field x="1" y="8.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="9" codval="" id="" pattern="1" hide_zero="" text="Commessa:" />
<field x="44" y="8.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,COMMESSE,CODCMS=#102,DESCRIZ</prescript>
</field>
<field x="1" y="10" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="5" codval="" id="" pattern="1" hide_zero="" text="Fase:" />
<field x="44" y="10" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,FASI,CODFASE=#103,DESCRIZ</prescript>
</field>
<field x="1" y="11.25" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="18" codval="" id="" pattern="1" hide_zero="" text="Contabilit&#E0; separata:" />
<field x="44" y="11.25" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<prescript description="">MESSAGE TABLEREAD,&#26;NPENT,#104,S0</prescript>
</field>
<field border="2" x="1" y="12.75" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="20" y="7" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="101" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#COSTO</source>
<prescript description="H1.101 PRESCRIPT">CA_FORMAT_COSTO</prescript>
</field>
<field x="20" y="8.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="102" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#COMMESSA</source>
<prescript description="H1.102 PRESCRIPT">CA_FORMAT_COMMESSA</prescript>
</field>
<field x="20" y="10" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#FASE</source>
<prescript description="H1.103 PRESCRIPT">CA_FORMAT_FASE</prescript>
</field>
<field x="20" y="11.25" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="13" codval="" id="104" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#CONTSEP</source>
</field>
</section>
<section repeat="1" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="2" hidden="" height="5" page_break="" can_break="" pattern="1">
<groupby>CODCONTO</groupby>
<font italic="1" face="Arial" size="8" />
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.201
MESSAGE RESET,F2.202
</prescript>
<field y="0.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="Conto:">
<font italic="1" face="Arial" bold="1" size="8" />
</field>
<field x="7" y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="23" codval="" id="" pattern="1" hide_zero="" text="">
<font italic="1" face="Arial" bold="1" size="8" />
<source>CODCONTO</source>
<prescript description="H2.0 PRESCRIPT">CA_FORMAT_CONTO</prescript>
</field>
<field x="31" y="0.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="50" codval="" id="" pattern="1" hide_zero="" text="">
<font italic="1" face="Arial" bold="1" size="8" />
<source>CODCONTO</source>
<prescript description="H2.0 PRESCRIPT">CA_FORMAT_CONTO_DESCR</prescript>
</field>
<field x="10" y="2" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="N.Reg. Riga" />
<field x="22" y="2" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="11" codval="" id="" pattern="1" hide_zero="" text="Descrizione" />
<field x="41" y="2" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="8" codval="" id="" pattern="1" hide_zero="" text="N.Reg.CG" />
<field x="50" y="2" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="Data Doc." />
<field x="61" y="2" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="N.Doc." />
<field x="68" y="2" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="7" codval="" id="" pattern="1" hide_zero="" text="Causale" />
<field x="102" y="2" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="4" codval="" id="" pattern="1" hide_zero="" text="Dare" />
<field x="115" y="2" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="5" codval="" id="" pattern="1" hide_zero="" text="Avere" />
<field x="120" y="2" deactivated="" type="Testo" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="14" codval="" id="" pattern="1" hide_zero="" text="Saldo" />
<field x="137" y="2" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="30" codval="" id="" pattern="1" hide_zero="" text="Tipo&#2F;Codice&#2F;Ragsoc. Cli.&#2F;Forn." />
<field border="1" x="1" y="3" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="168" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="66" y="3.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="25" codval="" id="" pattern="1" hide_zero="" text="Progressivo precedente" />
<field x="1" y="2" deactivated="" type="Testo" hidden="" align="center" link="" dynamic_height="" shade_offset="" width="10" codval="" id="121" pattern="1" hide_zero="" text="Data" />
<field x="91" y="3.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDOINI:DARE</source>
<postscript description="H2.201 POSTSCRIPT">MESSAGE COPY,B1.103
</postscript>
</field>
<field x="107" y="3.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="202" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>SALDOINI:AVERE</source>
<prescript description="H2.202 PRESCRIPT">#THIS @
DUP
0 &#3E; IF
-1 *
"B1.103" +!
ELSE
DROP
THEN</prescript>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Head" level="3" hidden="" page_break="" can_break="" pattern="1">
<groupby>DATACOMP</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.103</prescript>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="" hidden="" page_break="" can_break="" pattern="1" />
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Body" level="1" hidden="" height="2" page_break="" can_break="" pattern="1">
<condition>NUMREG != 0</condition>
<font face="Arial" size="8" />
<field x="1" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="">
<source>DATACOMP</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE COPY,F3.131</postscript>
</field>
<field x="11.5" deactivated="" type="Numero" hidden="" align="right" link="107.NUMREG" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="">
<source>NUMREG</source>
</field>
<field x="18.5" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="1" hide_zero="" text="">
<source>NUMRIG</source>
</field>
<field x="22" deactivated="" type="Stringa" hidden="" link="" dynamic_height="1" shade_offset="" width="20" codval="" height="2" id="" pattern="1" hide_zero="" text="">
<font face="Arial Narrow" size="8" />
<source>DESCR</source>
</field>
<field x="43" deactivated="" type="Numero" hidden="" align="right" link="23.NUMREG" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="">
<source>MOVANA.NUMREGCG</source>
</field>
<field x="50" deactivated="" type="Data" hidden="" link="" dynamic_height="" shade_offset="" width="10" codval="" id="" pattern="1" hide_zero="" text="">
<source>MOVANA.DATADOC</source>
</field>
<field x="61" deactivated="" type="Stringa" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="6" codval="" id="" pattern="1" hide_zero="" text="">
<source>MOVANA.NUMDOC</source>
</field>
<field x="68" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="1" hide_zero="" text="">
<source>MOVANA.CODCAUS</source>
</field>
<field x="72" deactivated="" type="Stringa" hidden="" link="" dynamic_height="1" shade_offset="" width="20" codval="" height="2" id="" pattern="1" hide_zero="" text="">
<font face="Arial Narrow" size="8" />
<prescript description="B1.0 PRESCRIPT">MESSAGE ISAMREAD,CAUS,CODCAUS=MOVANA.CODCAUS,DESCR</prescript>
</field>
<field x="93" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="101" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTO</source>
<prescript description="B1.101 PRESCRIPT">"RMOVANA.SEZIONE" @
"A" =
IF
0 #THIS !
ELSE
#THIS @
"B1.103"
+!
THEN
</prescript>
<postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F2.101
</postscript>
</field>
<field x="107" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="102" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTO</source>
<prescript description="B1.102 PRESCRIPT">"RMOVANA.SEZIONE" @
"D" =
IF
0 #THIS !
ELSE
#THIS @
-1 *
"B1.103"
+!
THEN
</prescript>
<postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F2.102
</postscript>
</field>
<field x="121" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<postscript description="B1.103 POSTSCRIPT">MESSAGE COPY,F3.103</postscript>
</field>
<field x="136.5" deactivated="" type="Stringa" hidden="" link="" dynamic_height="" shade_offset="" width="1" codval="" id="104" pattern="1" hide_zero="" text="">
<source>MOV.TIPO</source>
</field>
<field x="137.5" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="6" codval="" id="105" pattern="1" hide_zero="1" text="">
<source>MOV.CODCF</source>
</field>
<field x="144" deactivated="" type="Stringa" hidden="" link="" dynamic_height="1" shade_offset="" width="20" codval="" height="2" id="106" pattern="1" hide_zero="" text="">
<font face="Arial Narrow" size="8" />
<prescript description="B1.106 PRESCRIPT">MESSAGE ISAMREAD,CLIFO,TIPOCF=#104!CODCF=#105,RAGSOC</prescript>
</field>
<field x="166" deactivated="" type="Stringa" hidden="1" link="" dynamic_height="" shade_offset="" width="23" codval="" id="201" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#COSTO</source>
<prescript description="">CA_FORMAT_COSTO</prescript>
</field>
<field x="190" deactivated="" type="Stringa" hidden="1" link="" dynamic_height="" shade_offset="" width="23" codval="" id="202" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#COMMESSA</source>
<prescript description="">CA_FORMAT_COMMESSA</prescript>
</field>
<field x="214" deactivated="" type="Stringa" hidden="1" link="" dynamic_height="" shade_offset="" width="13" codval="" id="203" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<source>#FASE</source>
<prescript description="">CA_FORMAT_FASE</prescript>
</field>
<field x="228" deactivated="" type="Stringa" hidden="1" link="" dynamic_height="" shade_offset="" width="13" codval="" id="204" pattern="1" hide_zero="" text="">
<font face="Arial" bold="1" size="9" />
<modules>NP</modules>
<source>#CONTSEP</source>
</field>
<field x="242" deactivated="" type="Stringa" hidden="1" link="" dynamic_height="" shade_offset="" width="23" codval="" id="205" pattern="1" hide_zero="" text="">
<font italic="1" face="Arial" bold="1" size="8" />
<source>CODCONTO</source>
<prescript description="B1.205 PRESCRIPT">CA_FORMAT_CONTO</prescript>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="" hidden="" page_break="" can_break="" pattern="1">
<font face="Arial" size="8" />
<field border="2" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="167" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="143" y="1" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="5" codval="" id="" pattern="1" hide_zero="" text="Pag." />
<field x="149" y="1" deactivated="" type="Numero" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="3" codval="" id="" pattern="1" hide_zero="" text="">
<source>#REPORT.PAGE</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="1" hidden="" page_break="" can_break="" pattern="1">
<field border="1" x="1" y="0.5" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="168" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="74" y="1" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="20" codval="" id="" pattern="1" hide_zero="" text="TOTALI COMMESSA">
<font face="Arial" bold="1" size="9" />
</field>
<field x="92" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="14" codval="" id="101" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="9" />
</field>
<field x="106" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="14" codval="" id="102" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="9" />
</field>
<field x="120" y="1" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="14" codval="" id="103" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="9" />
<source>#101-#102</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="2" hidden="" height="3.5" page_break="" can_break="" pattern="1">
<field border="1" x="1" y="0.25" deactivated="" type="Linea" hidden="" link="" dynamic_height="" shade_offset="" width="168" codval="" height="0" id="" pattern="1" hide_zero="" text="" />
<field x="72" y="0.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="22" codval="" id="" pattern="1" hide_zero="" text="Totali periodo:">
<font face="Arial" bold="1" size="8" />
</field>
<field x="72" y="1.75" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="22" codval="" id="" pattern="1" hide_zero="" text="Totali progressivi:">
<font face="Arial" bold="1" size="8" />
</field>
<field x="93" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="101" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
<postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript>
</field>
<field x="107" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="102" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
<postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript>
</field>
<field x="93" y="1.75" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="201" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
<source>#101+#H2.201</source>
</field>
<field x="107" y="1.75" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="202" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
<source>#102+#H2.202</source>
</field>
<field x="121" y="1.75" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="13" codval="" id="203" pattern="1" hide_zero="" text="###.###.###,@@">
<font face="Arial" bold="1" size="8" />
<source>#201-#202</source>
</field>
</section>
<section repeat="" keep_with_next="" deactivated="" hidden_if_needed="" type="Foot" level="3" hidden="" page_break="" can_break="" pattern="1">
<condition>#103 != 0</condition>
<font italic="1" face="Arial" size="8" />
<field x="135" y="0.5" deactivated="" type="Testo" hidden="" link="" dynamic_height="" shade_offset="" width="2" codval="" id="" pattern="1" hide_zero="" text="al">
<font italic="1" face="Arial Black" size="7" />
</field>
<field x="119" y="0.5" deactivated="" type="Valuta" hidden="" align="right" link="" dynamic_height="" shade_offset="" width="15" codval="" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<font italic="1" face="Arial" bold="1" size="8" />
</field>
<field x="137" y="0.5" deactivated="" type="Data" valign="center" hidden="" link="" dynamic_height="" shade_offset="" width="11" codval="" id="131" pattern="1" hide_zero="" text="">
<font italic="1" face="Arial" size="7" />
</field>
</section>
<sql>USE RMOVANA KEY 2
JOIN MOVANA INTO NUMREG==NUMREG
JOIN MOV TO MOVANA INTO NUMREG==NUMREGCG</sql>
<prescript description="PRESCRIPT">: SCAMBIA_CAMPI ( F1 F2 -- )
VARIABLE _X1 \ coordinate del campo F1
VARIABLE _Y1
VARIABLE _X2 \ coordinate del campo F2
VARIABLE _Y2
2DUP \ duplica i campi F1 F2 sullo stack
GET_POS \ prende le coordinate del campo F2
_Y2 ! \ e le mette in _Y2 e _X2
_X2 !
GET_POS \ prende le coordinate del campo F1
_Y1 ! \ e le mette in _Y1 e _X1
_X1 !
_X1 @ \ legge le coordinate di F1
_Y1 @
ROT
SET_POS \ mette le coord in F2
_X2 @
_Y2 @
ROT
SET_POS
;
</prescript>
</report>