<report libraries="ve1300" name="ca3200a" orientation="2" lpi="8" class="ca3200a">
 <description>Mastrini CA</description>
 <font face="Courier New" size="8" />
 <section type="Head" height="6.5">
  <font italic="1" face="Courier New" bold="1" size="8" />
  <field x="1" type="Stringa" width="50" pattern="1">
   <font italic="1" face="Courier New" bold="1" size="10" />
   <source>#SYSTEM.RAGSOC</source>
  </field>
  <field x="80" type="Data" width="10" pattern="1">
   <source>#SYSTEM.DATE</source>
  </field>
  <field x="165" type="Numero" align="right" width="3" pattern="1">
   <source>#REPORT.PAGE</source>
  </field>
  <field x="1" y="1.5" type="Testo" width="18" pattern="1" text="Centro di Costo:" />
  <field x="14" y="1.5" type="Stringa" width="23" pattern="1">
   <source>#COSTO</source>
   <prescript description="H0.0 PRESCRIPT">CA_FORMAT_COSTO</prescript>
  </field>
  <field x="38" y="1.5" type="Stringa" width="50" pattern="1">
   <prescript description="H0.0 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=RMOVANA.CODCCOSTO,DESCRIZ</prescript>
  </field>
  <field x="1" y="3" type="Testo" width="9" pattern="1" text="Commessa:" />
  <field x="14" y="3" type="Stringa" width="23" pattern="1">
   <source>#COMMESSA</source>
   <prescript description="H0.0 PRESCRIPT">CA_FORMAT_COMMESSA</prescript>
  </field>
  <field x="38" y="3" type="Stringa" width="50" pattern="1">
   <prescript description="H0.0 PRESCRIPT">MESSAGE ISAMREAD,COMMESSE,CODCMS=RMOVANA.CODCMS,DESCRIZ</prescript>
  </field>
  <field x="1" y="4.5" type="Testo" width="5" pattern="1" text="Fase:" />
  <field x="14" y="4.5" type="Stringa" width="13" pattern="1">
   <source>#FASE</source>
   <prescript description="H0.0 PRESCRIPT">CA_FORMAT_FASE</prescript>
  </field>
  <field x="38" y="4.5" type="Stringa" width="50" pattern="1">
   <prescript description="H0.0 PRESCRIPT">MESSAGE ISAMREAD,FASI,CODFASE=RMOVANA.CODFASE,DESCRIZ</prescript>
  </field>
  <field border="2" x="1" y="6" type="Linea" width="167" height="0" pattern="1" />
 </section>
 <section type="Head" level="1" height="3">
  <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101
MESSAGE RESET,F1.102</prescript>
  <field border="1" radius="100" x="1" type="Testo" valign="center" align="center" shade_offset="25" width="167" height="2.5" text="MASTRINI DI CONTABILITA' ANALITICA">
   <font face="Courier New" bold="1" size="16" />
  </field>
 </section>
 <section repeat="1" type="Head" level="2" height="4.5">
  <groupby>CODCONTO</groupby>
  <font italic="1" face="Courier New" size="8" />
  <prescript description="H2 PRESCRIPT">MESSAGE RESET,F2.101
MESSAGE RESET,F2.102
MESSAGE RESET,F2.201
MESSAGE RESET,F2.202
</prescript>
  <field type="Testo" width="6" pattern="1" text="Conto:">
   <font italic="1" face="Courier New" bold="1" size="8" />
  </field>
  <field x="7" type="Stringa" width="23" pattern="1">
   <font italic="1" face="Courier New" bold="1" size="8" />
   <source>CODCONTO</source>
   <prescript description="H2.0 PRESCRIPT">CA_FORMAT_CONTO</prescript>
  </field>
  <field x="31" type="Stringa" width="50" pattern="1">
   <font italic="1" face="Courier New" bold="1" size="8" />
   <prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,PCONANA,CODCONTO=CODCONTO,DESCR</prescript>
  </field>
  <field x="13" y="1.5" type="Testo" align="center" width="11" pattern="1" text="N.Reg.&#2F;Riga" />
  <field x="25" y="1.5" type="Testo" width="11" pattern="1" text="Descrizione" />
  <field x="47" y="1.5" type="Testo" width="11" pattern="1" text="N.Reg.Cont." />
  <field x="60" y="1.5" type="Testo" width="10" pattern="1" text="Data Doc." />
  <field x="71" y="1.5" type="Testo" width="6" pattern="1" text="N.Doc." />
  <field x="80" y="1.5" type="Testo" width="7" pattern="1" text="Causale" />
  <field x="122" y="1.5" type="Testo" align="right" width="4" pattern="1" text="Dare" />
  <field x="137" y="1.5" type="Testo" align="right" width="5" pattern="1" text="Avere" />
  <field x="145" y="1.5" type="Testo" align="right" width="14" pattern="1" text="Saldo" />
  <field border="1" x="1" y="2.5" type="Linea" width="168" height="0" pattern="1" />
  <field x="87" y="3" type="Testo" width="25" pattern="1" text="Progressivo precedente" />
  <field x="1" y="1.5" type="Testo" align="center" width="10" id="121" pattern="1" text="Data" />
  <field x="111" y="3" type="Valuta" align="right" width="15" 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="127" y="3" type="Valuta" align="right" width="15" 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 type="Head" level="3">
  <groupby>DATACOMP</groupby>
  <prescript description="H3 PRESCRIPT">MESSAGE RESET,F3.103</prescript>
 </section>
 <section type="Body" />
 <section type="Body" level="1">
  <condition>NUMREG != 0</condition>
  <field x="1" type="Data" width="11" pattern="1">
   <source>DATACOMP</source>
   <postscript description="B1.0 POSTSCRIPT">MESSAGE COPY,F3.131</postscript>
  </field>
  <field x="13" type="Numero" align="right" link="107.NUMREG" width="7" pattern="1">
   <source>NUMREG</source>
  </field>
  <field x="20" type="Testo" width="1" pattern="1" text="&#2F;" />
  <field x="21" type="Numero" align="right" width="3" pattern="1">
   <source>NUMRIG</source>
  </field>
  <field x="25" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
   <source>DESCR</source>
  </field>
  <field x="51" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
   <source>MOVANA.NUMREGCG</source>
  </field>
  <field x="59" type="Data" width="11" pattern="1">
   <source>MOVANA.DATADOC</source>
  </field>
  <field x="71" type="Stringa" width="7" pattern="1">
   <source>MOVANA.NUMDOC</source>
  </field>
  <field x="80" type="Stringa" width="3" pattern="1">
   <source>MOVANA.CODCAUS</source>
  </field>
  <field x="84" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
   <prescript description="B1.0 PRESCRIPT">MESSAGE ISAMREAD,CAUS,CODCAUS=MOVANA.CODCAUS,DESCR</prescript>
  </field>
  <field x="111" type="Valuta" align="right" width="15" 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="127" type="Valuta" align="right" width="15" 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="144" type="Valuta" align="right" width="15" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
   <postscript description="B1.103 POSTSCRIPT">MESSAGE COPY,F3.103</postscript>
  </field>
 </section>
 <section type="Foot" />
 <section type="Foot" level="1" />
 <section type="Foot" level="2" height="4">
  <field border="1" x="1" y="0.5" type="Linea" width="168" height="0" pattern="1" />
  <field x="89" y="1" type="Testo" width="22" pattern="1" text="Totali periodo:">
   <font face="Courier New" bold="1" size="8" />
  </field>
  <field x="89" y="2.5" type="Testo" width="22" pattern="1" text="Totali progressivi:">
   <font face="Courier New" bold="1" size="8" />
  </field>
  <field x="111" y="1" type="Valuta" align="right" width="15" id="101" pattern="1" text="###.###.###,@@">
   <font face="Courier New" bold="1" size="8" />
  </field>
  <field x="127" y="1" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@">
   <font face="Courier New" bold="1" size="8" />
  </field>
  <field x="111" y="2.5" type="Valuta" align="right" width="15" id="201" pattern="1" text="###.###.###,@@">
   <font face="Courier New" bold="1" size="8" />
   <source>#101+#H2.201</source>
  </field>
  <field x="127" y="2.5" type="Valuta" align="right" width="15" id="202" pattern="1" text="###.###.###,@@">
   <font face="Courier New" bold="1" size="8" />
   <source>#102+#H2.202</source>
  </field>
  <field x="144" y="2.5" type="Valuta" align="right" width="15" id="203" pattern="1" text="###.###.###,@@">
   <font face="Courier New" bold="1" size="8" />
   <source>#201-#202</source>
  </field>
 </section>
 <section type="Foot" level="3" height="2.75">
  <condition>#103 != 0</condition>
  <font italic="1" face="Courier New" size="8" />
  <field x="160" y="0.5" type="Testo" width="2" pattern="1" text="al">
   <font italic="1" face="Courier New" size="7" />
  </field>
  <field x="144" y="0.5" type="Valuta" align="right" width="15" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
   <font italic="1" face="Courier New" bold="1" size="8" />
  </field>
  <field x="162" y="0.5" type="Data" width="11" id="131" pattern="1">
   <font italic="1" face="Courier New" size="7" />
  </field>
 </section>
 <sql>USE RMOVANA KEY 2
JOIN MOVANA INTO NUMREG==NUMREG</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>