<report libraries="ve1300" name="ca3100a" lpi="8" class="ca3100b"> <description>Movimenti CA per numero registrazione</description> <font face="Courier New" size="8" /> <section type="Head"> <font italic="1" face="Courier New" size="8" /> <prescript description="H0 PRESCRIPT">#ESERCIZIO @ 0 E; IF 121 122 SCAMBIA_CAMPI THEN ;</prescript> <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="76" type="Data" width="10" pattern="1"> <source>#SYSTEM.DATE</source> </field> <field x="157" type="Numero" align="right" width="3" pattern="1"> <source>#REPORT.PAGE</source> </field> <field border="2" x="1" y="2.5" type="Linea" width="161" height="0" pattern="1" /> <field x="1.5" y="3" type="Testo" align="center" width="7" pattern="1" text="N.Reg." /> <field x="33.5" y="3" type="Testo" align="center" width="10" pattern="1" text="Data Doc." /> <field x="45.5" y="3" type="Testo" align="center" width="8" pattern="1" text="N.Reg.CG" /> <field x="55" y="3" type="Testo" align="center" width="6" pattern="1" text="N.Doc." /> <field x="62" y="3" type="Testo" align="center" width="7" pattern="1" text="Tp.Doc." /> <field x="69" y="3" type="Testo" align="center" width="11" pattern="1" text="Descrizione" /> <field x="95" y="3" type="Testo" align="center" width="7" pattern="1" text="Causale" /> <field x="125" y="3" type="Testo" align="center" width="7" pattern="1" text="Tp.Mov." /> <field x="133" y="3" type="Testo" align="center" width="15" pattern="1" text="Totale Dare" /> <field x="147" y="3" type="Testo" align="center" width="15" pattern="1" text="Totale Avere" /> <field border="2" x="1" y="4" type="Linea" width="161" height="0" pattern="1" /> <field x="10" y="3" type="Testo" align="center" width="10" id="121" pattern="1" text="Data Reg." /> <field x="22" y="3" type="Testo" width="10" id="122" pattern="1" text="Data Comp." /> </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="161" height="2.5" text="MOVIMENTI DI CONTABILITA' ANALITICA"> <font face="Courier New" bold="1" size="16" /> </field> </section> <section type="Head" level="2"> <groupby>NUMREG</groupby> <field x="1" y="1" type="Numero" align="right" link="107.NUMREG" width="7" pattern="1"> <source>MOVANA.NUMREG</source> </field> <field x="34" y="1" type="Data" width="10" pattern="1"> <source>MOVANA.DATADOC</source> </field> <field x="47" y="1" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1" hide_zero="1"> <source>MOVANA.NUMREGCG</source> </field> <field x="56" y="1" type="Stringa" width="7" pattern="1"> <source>MOVANA.NUMDOC</source> </field> <field x="64" y="1" type="Stringa" width="4" pattern="1"> <source>MOVANA.TIPODOC</source> </field> <field x="69" y="1" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <source>MOVANA.DESCR</source> </field> <field x="95" y="1" type="Stringa" width="3" pattern="1"> <source>MOVANA.CODCAUS</source> </field> <field x="99" y="1" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,CAUS,CODCAUS=MOVANA.CODCAUS,DESCR</prescript> </field> <field x="127" y="1" type="Stringa" width="1" pattern="1"> <source>MOVANA.TIPOMOV</source> </field> <field x="131" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@"> <source>MOVANA.TOTDOC</source> <prescript description="H2.0 PRESCRIPT">"MOVANA.SEZIONE" @ "A" = IF 0 #THIS ! THEN </prescript> </field> <field x="146" y="1" type="Valuta" align="right" width="15" pattern="1" hide_zero="1" text="###.###.###,@@"> <source>MOVANA.TOTDOC</source> <prescript description="H2.0 PRESCRIPT">"MOVANA.SEZIONE" @ "D" = IF 0 #THIS ! THEN </prescript> </field> <field x="8" y="3" type="Testo" align="center" width="4" pattern="1" text="Riga" /> <field x="13" y="3" type="Testo" width="23" pattern="1" text="Centro di Costo" /> <field x="37" y="3" type="Testo" width="23" pattern="1" text="Commessa" /> <field x="61" y="3" type="Testo" width="13" pattern="1" text="Fase" /> <field x="75" y="3" type="Testo" width="23" pattern="1" text="Conto" /> <field x="99" y="3" type="Testo" width="25" pattern="1" text="Descrizione" /> <field x="131.18" y="3" type="Testo" align="center" width="15" pattern="1" text="Dare" /> <field x="146.18" y="3" type="Testo" align="center" width="15" pattern="1" text="Avere" /> <field border="1" x="8.18" y="4" type="Linea" width="154" height="0" pattern="1" /> <field x="-9.88" y="1" type="Data" width="10" id="121" pattern="1"> <source>DATAREG</source> </field> <field x="10" y="1" type="Data" width="10" id="121" pattern="1"> <source>MOVANA.DATAREG</source> </field> <field x="22" y="1" type="Data" align="right" width="10" id="122" pattern="1"> <source>MOVANA.DATACOMP</source> </field> </section> <section type="Body" /> <section type="Body" level="1"> <prescript description="B1 PRESCRIPT">#ESERCIZIO @ 0 E; IF 121 122 SCAMBIA_CAMPI THEN ;</prescript> <field x="9" type="Numero" align="right" width="3" pattern="1"> <source>NUMRIG</source> </field> <field x="13" type="Stringa" width="23" pattern="1"> <source>CODCCOSTO</source> <prescript description="B1.0 PRESCRIPT">CA_FORMAT_COSTO</prescript> </field> <field x="37" type="Stringa" width="23" pattern="1"> <source>CODCMS</source> <prescript description="B1.0 PRESCRIPT">CA_FORMAT_COMMESSA</prescript> </field> <field x="61" type="Stringa" width="13" pattern="1"> <source>CODFASE</source> <prescript description="B1.0 PRESCRIPT">CA_FORMAT_FASE</prescript> </field> <field x="75" type="Stringa" width="23" pattern="1"> <source>CODCONTO</source> <prescript description="B1.0 PRESCRIPT">CA_FORMAT_CONTO</prescript> </field> <field x="99" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <source>DESCR</source> </field> <field x="131" 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 ! THEN </prescript> <postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript> </field> <field x="146" 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 ! THEN </prescript> <postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript> </field> </section> <section type="Foot" height="1" /> <section type="Foot" level="1"> <field border="2" x="1" y="1" type="Linea" width="161" height="0" pattern="1" /> <field x="101" y="1.5" type="Testo" width="30" pattern="1" text="Totale generale per sezione:"> <font face="Courier New" bold="1" size="8" /> </field> <field x="131" y="1.5" type="Valuta" align="right" width="15" id="101" pattern="1" text="###.###.###,@@"> <font face="Courier New" bold="1" size="8" /> </field> <field x="146" y="1.5" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@"> <font face="Courier New" bold="1" size="8" /> </field> </section> <section type="Foot" level="2" /> <sql>USE RMOVANA 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>