root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ca/ca1100a.rep
guy d4bcd5fd79 Patch level : 10.0 
Files correlati     : ca1100a.rep
Ricompilazione Demo : [ ]
Commento            :
Corretta stampa intestazione del primo livello del centro di costo


git-svn-id: svn://10.65.10.50/branches/R_10_00@22573 c028cbd2-c16b-5b4b-a496-9718f37d4682
2012-02-09 10:14:55 +00:00

778 lines
25 KiB
XML
Raw Blame History

<?xml version="1.0" encoding="UTF-8" ?>
<report name="ca1100a" orientation="2" lpi="8" command="ca1 -0 ca1100a">
<font face="Arial" size="8" />
<section type="Head" pattern="1" />
<section type="Head" level="1" pattern="1">
<font face="Arial" bold="1" size="16" />
<field border="3" type="Stringa" valign="center" align="center" width="162" height="3" pattern="1">
<source>"BILANCIO " + YEAR(#DATAFIN) + " - SITUAZIONE AL " + #DATASTA</source>
</field>
</section>
<section repeat="1" type="Head" level="2" page_break="1" pattern="1">
<groupby>CODCCOSTO_1</groupby>
<font face="Arial" bold="1" size="8" />
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
<field border="3" x="63" type="Linea" height="4" pattern="1" />
<field border="3" x="112" type="Linea" height="4" pattern="1" />
<field x="70" y="0.5" type="Stringa" align="right" width="24" pattern="1">
<source>"Situazione al " + #DATASTA</source>
</field>
<field x="118" y="0.5" type="Stringa" align="right" width="24" pattern="1">
<source>"Situazione al " + #DATAFIN</source>
</field>
<field border="2" type="Linea" width="162" height="0" pattern="1" />
<field y="2.25" type="Testo" width="20" pattern="1" text="Conto" />
<field x="21" y="2.25" type="Testo" align="center" width="41.5" pattern="1" text="Descrizione" />
<field x="65" y="2.25" type="Testo" align="right" width="12" pattern="1" text="Budget" />
<field x="77" y="2.25" type="Testo" align="right" width="17" pattern="1" text="Consuntivo" />
<field x="94" y="2.25" type="Testo" align="right" width="14" pattern="1" text="Differenza" />
<field x="109" y="2.25" type="Testo" align="center" width="3" pattern="1" text="%" />
<field x="112" y="2.25" type="Testo" align="right" width="15" pattern="1" text="Budget" />
<field x="129" y="2.25" type="Testo" align="right" width="14" pattern="1" text="Consuntivo " />
<field x="143" y="2.25" type="Testo" align="right" width="14" pattern="1" text="Differenza" />
<field x="158" y="2.25" type="Testo" align="center" width="3" pattern="1" text="%" />
<field border="3" y="3.5" type="Linea" width="162" height="0" pattern="1" />
<field type="Stringa" valign="center" width="20" height="2" id="101" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>CODCCOSTO_1</source>
</field>
<field x="21" type="Stringa" valign="center" width="42" height="2" id="102" pattern="1">
<prescript description="H2.102 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO_1,DESCRIZ</prescript>
</field>
</section>
<section type="Head" level="3" pattern="1">
<groupby>CODCCOSTO</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3</prescript>
<field border="2" type="Linea" width="162" height="0" pattern="1" />
<field border="2" x="20.5" type="Linea" height="2" pattern="1" />
<field border="3" x="63" type="Linea" height="2" pattern="1" />
<field border="2" x="78" type="Linea" height="2" pattern="1" />
<field border="2" x="94" type="Linea" height="2" pattern="1" />
<field border="3" x="112" type="Linea" height="2" pattern="1" />
<field border="2" x="128" type="Linea" height="2" pattern="1" />
<field border="2" x="144" type="Linea" height="2" pattern="1" />
<field type="Stringa" valign="center" width="20" height="2" id="101" pattern="1">
<font face="Arial" bold="1" size="10" />
<source>CODCCOSTO</source>
</field>
<field x="21" type="Stringa" valign="center" width="42" height="2" id="102" pattern="1">
<font face="Arial" bold="1" size="8" />
<prescript description="H3.102 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO,DESCRIZ</prescript>
</field>
</section>
<section type="Head" level="4" pattern="1">
<groupby>CODCONTO</groupby>
<prescript description="H4 PRESCRIPT">MESSAGE RESET,F4</prescript>
<field type="Stringa" hidden="1" width="20" id="101" pattern="1">
<source>CODCONTO</source>
</field>
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" hidden="1" pattern="1">
<field x="63" type="Valuta" align="right" width="12" id="201" pattern="1" text="#########,@@">
<source>IF(NUM((MOVANA.TIPOMOV="P")||(MOVANA.TIPOMOV="V"));BETWEEN(DATACOMP,#DATAINI,#DATASTA); 0) * IMPORTO</source>
<postscript description="B1.201 POSTSCRIPT">#THIS @
EMPTY=
IF
ELSE
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
#THIS @ -1 * \ Cambia segno
#THIS ! \ al campo corrente
THEN
#THIS @ \ Prende il valore attuale con segno
"F4." #THIS GET_ID + \ Costruisce la stringa F4.101
+! \ Somma il campo corrente al corrispondente in F4
THEN
</postscript>
</field>
<field x="76" type="Stringa" width="1.5" id="202" pattern="1">
<source>SEZIONE</source>
</field>
<field x="78" type="Valuta" align="right" width="12" id="203" pattern="1" text="#########,@@">
<source>IF(NUM(MOVANA.TIPOMOV="");BETWEEN(DATACOMP,#DATAINI,#DATASTA); 0) * IMPORTO</source>
<postscript description="B1.203 POSTSCRIPT">#THIS @
EMPTY=
IF
ELSE
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
#THIS @ -1 * \ Cambia segno
#THIS ! \ al campo corrente
THEN
#THIS @ \ Prende il valore attuale con segno
"F4." #THIS GET_ID + \ Costruisce la stringa F4.101
+! \ Somma il campo corrente al corrispondente in F4
THEN
</postscript>
</field>
<field x="91" type="Stringa" width="1.5" id="204" pattern="1">
<source>SEZIONE</source>
</field>
<field x="111" type="Valuta" align="right" width="14" id="301" pattern="1" text="#########,@@">
<source>IF(NUM((MOVANA.TIPOMOV="P")||(MOVANA.TIPOMOV="V"));IMPORTO;0)</source>
<postscript description="B1.301 POSTSCRIPT">#THIS @
EMPTY=
IF
ELSE
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
#THIS @ -1 * \ Cambia segno
#THIS ! \ al campo corrente
THEN
#THIS @ \ Prende il valore attuale con segno
"F4." #THIS GET_ID + \ Costruisce la stringa F4.101
+! \ Somma il campo corrente al corrispondente in F4
THEN
</postscript>
</field>
<field x="126" type="Stringa" width="1.5" id="302" pattern="1">
<source>SEZIONE</source>
</field>
<field x="128" type="Valuta" align="right" width="14" id="303" pattern="1" text="###.###.###,@@">
<source>IF(NUM(MOVANA.TIPOMOV="");IMPORTO;0)</source>
<postscript description="B1.303 POSTSCRIPT">#THIS @
EMPTY=
IF
ELSE
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
#THIS @ -1 * \ Cambia segno
#THIS ! \ al campo corrente
THEN
#THIS @ \ Prende il valore attuale con segno
"F4." #THIS GET_ID + \ Costruisce la stringa F4.101
+! \ Somma il campo corrente al corrispondente in F4
THEN
</postscript>
</field>
<field x="143" type="Stringa" width="1.5" id="304" pattern="1">
<source>SEZIONE</source>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" height="2" pattern="1">
<font face="Arial" bold="1" size="8" />
<field border="2" x="20.5" type="Linea" height="2" pattern="1" />
<field border="3" x="63" type="Linea" height="2" pattern="1" />
<field border="2" x="78" type="Linea" height="2" pattern="1" />
<field border="2" x="94" type="Linea" height="2" pattern="1" />
<field border="3" x="112" type="Linea" height="2" pattern="1" />
<field border="2" x="128" type="Linea" height="2" pattern="1" />
<field border="2" x="144" type="Linea" height="2" pattern="1" />
<field border="2" x="144" type="Linea" height="2" pattern="1" />
<field border="3" y="0.25" type="Linea" width="162" height="0" pattern="1" />
<field y="0.5" type="Testo" width="20" id="101" pattern="1" text="TOTALE GENERALE" />
<field x="63" y="0.5" type="Valuta" align="right" width="12" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
</field>
<field x="76" y="0.5" type="Stringa" width="1.5" id="202" pattern="1" />
<field x="79" y="0.5" type="Valuta" align="right" width="12" id="203" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
</field>
<field x="92" y="0.5" type="Stringa" width="1.5" id="204" pattern="1" />
<field x="95" y="0.5" type="Valuta" align="right" width="12" id="205" pattern="1" text="###.###.###,@@">
<prescript>201 @
203 @
- .</prescript>
</field>
<field x="108" y="0.5" type="Numero" align="right" width="3" id="206" pattern="1">
<prescript>201 @
0 = IF
0
ELSE
205 @
201 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
<field x="113" y="0.5" type="Valuta" align="right" width="12" id="301" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
</field>
<field x="126" y="0.5" type="Stringa" width="1.5" id="302" pattern="1" />
<field x="129" y="0.5" type="Valuta" align="right" width="12" id="303" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
</field>
<field x="142" y="0.5" type="Stringa" width="1.5" id="304" pattern="1" />
<field x="145" y="0.5" type="Valuta" align="right" width="12" id="305" pattern="1" text="###.###.###,@@">
<prescript>301 @
303 @
- .</prescript>
</field>
<field x="158" y="0.5" type="Numero" align="right" width="3" id="306" pattern="1">
<prescript>301 @
0 = IF
0
ELSE
305 @
301 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
</section>
<section type="Foot" level="2" pattern="1">
<font face="Arial" bold="1" size="8" />
<field border="2" x="20.5" type="Linea" height="2" pattern="1" />
<field border="3" x="63" type="Linea" height="2" pattern="1" />
<field border="2" x="78" type="Linea" height="2" pattern="1" />
<field border="2" x="94" type="Linea" height="2" pattern="1" />
<field border="3" x="112" type="Linea" height="2" pattern="1" />
<field border="2" x="128" type="Linea" height="2" pattern="1" />
<field border="2" x="144" type="Linea" height="2" pattern="1" />
<field border="2" x="144" type="Linea" height="2" pattern="1" />
<field border="3" y="0.25" type="Linea" width="162" height="0" pattern="1" />
<field type="Stringa" valign="center" width="20" height="2" id="101" pattern="1">
<source>#H2.101</source>
</field>
<field x="21" type="Stringa" valign="center" width="42" height="2" id="102" pattern="1">
<source>#H2.102</source>
</field>
<field x="63" y="0.5" type="Valuta" align="right" width="12" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.201 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F2.201 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F1." #THIS GET_ID + \ Costruisce la stringa F1.201
+! \ Somma il valore corrente al corrispondente in F1</postscript>
</field>
<field x="76" y="0.5" type="Stringa" width="1.5" id="202" pattern="1" />
<field x="79" y="0.5" type="Valuta" align="right" width="12" id="203" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.203 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F2.203 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F1." #THIS GET_ID + \ Costruisce la stringa F1.201
+! \ Somma il valore corrente al corrispondente in F1</postscript>
</field>
<field x="92" y="0.5" type="Stringa" width="1.5" id="204" pattern="1" />
<field x="95" y="0.5" type="Valuta" align="right" width="12" id="205" pattern="1" text="###.###.###,@@">
<prescript>201 @
203 @
- .</prescript>
</field>
<field x="108" y="0.5" type="Numero" align="right" width="3" id="206" pattern="1">
<prescript>201 @
0 = IF
0
ELSE
205 @
201 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
<field x="113" y="0.5" type="Valuta" align="right" width="12" id="301" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.301 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F2.301 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F1." #THIS GET_ID + \ Costruisce la stringa F1.201
+! \ Somma il valore corrente al corrispondente in F1</postscript>
</field>
<field x="126" y="0.5" type="Stringa" width="1.5" id="302" pattern="1" />
<field x="129" y="0.5" type="Valuta" align="right" width="12" id="303" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.303 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F2.303 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F1." #THIS GET_ID + \ Costruisce la stringa F1.201
+! \ Somma il valore corrente al corrispondente in F1</postscript>
</field>
<field x="142" y="0.5" type="Stringa" width="1.5" id="304" pattern="1" />
<field x="145" y="0.5" type="Valuta" align="right" width="12" id="305" pattern="1" text="###.###.###,@@">
<prescript>301 @
303 @
- .</prescript>
</field>
<field x="158" y="0.5" type="Numero" align="right" width="3" id="306" pattern="1">
<prescript description="F2.306 PRESCRIPT">301 @
0 = IF
0
ELSE
305 @
301 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
</section>
<section type="Foot" level="3" pattern="1">
<font face="Arial" bold="1" size="8" />
<field border="2" x="20.5" type="Linea" pattern="1" />
<field border="3" x="63" type="Linea" pattern="1" />
<field border="2" x="78" type="Linea" pattern="1" />
<field border="2" x="94" type="Linea" pattern="1" />
<field border="3" x="112" type="Linea" pattern="1" />
<field border="2" x="128" type="Linea" pattern="1" />
<field border="2" x="144" type="Linea" pattern="1" />
<field border="2" x="144" type="Linea" pattern="1" />
<field type="Stringa" width="20" id="101" pattern="1">
<source>#H3.101</source>
</field>
<field x="21" type="Stringa" width="42" id="102" pattern="1">
<source>#H3.102</source>
</field>
<field x="63" type="Valuta" align="right" width="12" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript>#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F2." #THIS GET_ID + \ Costruisce la stringa F2.201
+! \ Somma il valore corrente al corrispondente in F2</postscript>
</field>
<field x="76" type="Stringa" width="1.5" id="202" pattern="1" />
<field x="79" type="Valuta" align="right" width="12" id="203" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript>#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F2." #THIS GET_ID + \ Costruisce la stringa F2.203
+! \ Somma il valore corrente al corrispondente in F2
</postscript>
</field>
<field x="92" type="Stringa" width="1.5" id="204" pattern="1" />
<field x="95" type="Valuta" align="right" width="12" id="205" pattern="1" text="###.###.###,@@">
<prescript>201 @
203 @
- .</prescript>
</field>
<field x="108" type="Numero" align="right" width="3" id="206" pattern="1">
<prescript>201 @
0 = IF
0
ELSE
205 @
201 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
<field x="113" type="Valuta" align="right" width="12" id="301" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript>#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F2." #THIS GET_ID + \ Costruisce la stringa F2.301
+! \ Somma il valore corrente al corrispondente in F2
</postscript>
</field>
<field x="126" type="Stringa" width="1.5" id="302" pattern="1" />
<field x="129" type="Valuta" align="right" width="12" id="303" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript>#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript>#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F2." #THIS GET_ID + \ Costruisce la stringa F2.303
+! \ Somma il valore corrente al corrispondente in F2
</postscript>
</field>
<field x="142" type="Stringa" width="1.5" id="304" pattern="1" />
<field x="145" type="Valuta" align="right" width="12" id="305" pattern="1" text="###.###.###,@@">
<prescript>301 @
303 @
- .</prescript>
</field>
<field x="158" type="Numero" align="right" width="3" id="306" pattern="1">
<prescript>301 @
0 = IF
0
ELSE
305 @
301 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
</section>
<section type="Foot" level="4" pattern="1">
<field border="2" x="20.5" type="Linea" pattern="1" />
<field border="3" x="63" type="Linea" pattern="1" />
<field border="2" x="78" type="Linea" pattern="1" />
<field border="2" x="94" type="Linea" pattern="1" />
<field border="3" x="112" type="Linea" pattern="1" />
<field border="2" x="128" type="Linea" pattern="1" />
<field border="2" x="144" type="Linea" pattern="1" />
<field border="2" x="144" type="Linea" pattern="1" />
<field type="Stringa" width="20" id="101" pattern="1">
<source>#H4.101</source>
</field>
<field x="21" type="Stringa" width="42" id="102" pattern="1">
<source>#H4.101</source>
<prescript description="F4.102 PRESCRIPT">CA_FORMAT_CONTO_DESCR</prescript>
</field>
<field x="63" type="Valuta" align="right" width="12" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.201 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F4.201 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F3." #THIS GET_ID + \ Costruisce la stringa F3.201
+! \ Somma il valore corrente al corrispondente in F3</postscript>
</field>
<field x="76" type="Stringa" width="1.5" id="202" pattern="1" />
<field x="79" type="Valuta" align="right" width="12" id="203" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.203 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F4.203 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F3." #THIS GET_ID + \ Costruisce la stringa F3.203
+! \ Somma il valore corrente al corrispondente in F3
</postscript>
</field>
<field x="92" type="Stringa" width="1.5" id="204" pattern="1" />
<field x="95" type="Valuta" align="right" width="12" id="205" pattern="1" text="###.###.###,@@">
<prescript>201 @
203 @
- .</prescript>
</field>
<field x="108" type="Numero" align="right" width="3" id="206" pattern="1">
<prescript>201 @
0 = IF
0
ELSE
205 @
201 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
<field x="113" type="Valuta" align="right" width="12" id="301" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.301 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F4.301 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F3." #THIS GET_ID + \ Costruisce la stringa F3.301
+! \ Somma il valore corrente al corrispondente in F3
</postscript>
</field>
<field x="126" type="Stringa" width="1.5" id="302" pattern="1" />
<field x="129" type="Valuta" align="right" width="12" id="303" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F4.303 PRESCRIPT">#THIS @ 0 &#3C; IF
#THIS @
-1 *
#THIS !
#THIS GET_ID_NEXT
"A"
ELSE
#THIS @
0 = IF
""
ELSE
"D"
THEN
THEN
#THIS GET_ID_NEXT !
</prescript>
<postscript description="F4.303 POSTSCRIPT">#THIS @ \ Legge il valore del campo corrente
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
-1 * \ Cambia segno
THEN
"F3." #THIS GET_ID + \ Costruisce la stringa F3.303
+! \ Somma il valore corrente al corrispondente in F3
</postscript>
</field>
<field x="142" type="Stringa" width="1.5" id="304" pattern="1" />
<field x="145" type="Valuta" align="right" width="12" id="305" pattern="1" text="###.###.###,@@">
<prescript>301 @
303 @
- .</prescript>
</field>
<field x="158" type="Numero" align="right" width="3" id="306" pattern="1">
<prescript>301 @
0 = IF
0
ELSE
305 @
301 @
&#2F; 100 *
0 ROUND
THEN
.
</prescript>
</field>
</section>
<sql>USE RMOVANA KEY 3 SELECT BETWEEN(CODCCOSTO,#CODCOSTO,#CODCOSTO+'~')
BY CODCCOSTO CODCONTO DATACOMP
JOIN MOVANA INTO NUMREG==NUMREG
FROM DATACOMP=#DATAINI
TO DATACOMP=#DATAFIN</sql>
<prescript description="PRESCRIPT">: ADD_T0_F3 ( -- )
#THIS @
EMPTY=
IF
ELSE
MON
#THIS GET_ID_NEXT @ \ Legge la sezione dal campo successivo
"A" = IF \ Se vale Avere
#THIS @ -1 * \ Cambia segno
#THIS ! \ al campo corrente
THEN
#THIS @ \ Prende il valore attuale con segno
"F3." #THIS GET_ID + \ Costruisce la stringa F3.101
+! \ Somma il campo corrente al corrispondente in F3
THEN
;</prescript>
</report>
Reference in New Issue View Git Blame Copy Permalink