root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ca/ca1100a.rep

284 lines
10 KiB
Plaintext
Raw Normal View History

Patch level : 10.0 1180 Files correlati : ca1.exe ca1100a.msk ca1100a.rep Ricompilazione Demo : [ ] Commento : Aggiunto bilancio per cento di costo git-svn-id: svn://10.65.10.50/branches/R_10_00@22519 c028cbd2-c16b-5b4b-a496-9718f37d4682
2011-12-07 16:03:53 +00:00
<?xml version="1.0" encoding="UTF-8" ?>
<report name="BilancioTassan" orientation="2" lpi="6">
<font face="Arial" size="8" />
<section type="Head" pattern="1" />
<section type="Head" level="1" pattern="1">
<field type="Stringa" valign="center" align="center" width="130" height="3" pattern="1">
<font face="Courier New" bold="1" size="16" />
<source>"BILANCIO DAL " + #DATAINI + " AL " + #DATAFIN + " STAMPA DEL " + #DATASTA</source>
</field>
</section>
<section repeat="1" type="Head" level="2" page_break="1" pattern="1">
<groupby>CODCCOSTO</groupby>
<font face="Arial" bold="1" size="8" />
<field border="3" y="0.5" type="Linea" width="162" height="0" pattern="1" />
<field y="1" type="Stringa" width="20" pattern="1">
<font face="Courier New" bold="1" size="10" />
<source>CODCCOSTO</source>
</field>
<field x="20" y="1" type="Stringa" width="50" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO,DESCRIZ</prescript>
</field>
<field x="84" y="1" type="Stringa" align="right" width="10" pattern="1">
<source>"AL " + #DATASTA</source>
</field>
<field border="2" y="2.5" type="Linea" width="162" height="0" pattern="1" />
<field border="2" x="63" y="2.5" type="Linea" height="1.5" pattern="1" />
<field border="2" x="112" y="2.5" type="Linea" height="1.5" pattern="1" />
<field y="3" type="Testo" width="20" pattern="1" text="Conto" />
<field x="21" y="3" type="Testo" align="center" width="41.5" pattern="1" text="Descrizione" />
<field x="65" y="3" type="Testo" align="right" width="12" pattern="1" text="Budget" />
<field x="77" y="3" type="Testo" align="right" width="17" pattern="1" text="Consuntivo" />
<field x="94" y="3" type="Testo" align="right" width="14" pattern="1" text="Differenza" />
<field x="109" y="3" type="Testo" align="center" width="3" pattern="1" text="%" />
<field x="113" y="3" type="Testo" align="right" width="14" pattern="1" text="Budget" />
<field x="129" y="3" type="Testo" align="right" width="14" pattern="1" text="Consuntivo " />
<field x="143" y="3" type="Testo" align="right" width="14" pattern="1" text="Differenza" />
<field x="158" y="3" type="Testo" align="center" width="3" pattern="1" text="%" />
<field border="3" y="4" type="Linea" width="162" height="0" pattern="1" />
</section>
<section type="Head" level="3" pattern="1">
<groupby>CODCONTO</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3</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="20" type="Valuta" align="right" width="12" id="201" pattern="1" text="#########,@@">
<source>IF((MOVANA.TIPOMOV!="")&#26;&#26;(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0)</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
"F3." #THIS GET_ID + \ Costruisce la stringa F3.101
+! \ Somma il campo corrente al corrispondente in F3
THEN
</postscript>
</field>
<field x="33" type="Stringa" width="1" id="202" pattern="1">
<source>SEZIONE</source>
</field>
<field x="36" type="Valuta" align="right" width="12" id="203" pattern="1" text="#########,@@">
<source>IF((MOVANA.TIPOMOV=="")&#26;&#26;(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0)</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
"F3." #THIS GET_ID + \ Costruisce la stringa F3.101
+! \ Somma il campo corrente al corrispondente in F3
THEN
</postscript>
</field>
<field x="49" type="Stringa" width="1" id="204" pattern="1">
<source>SEZIONE</source>
</field>
<field x="66" type="Valuta" align="right" width="14" id="301" pattern="1" text="#########,@@">
<source>IF((MOVANA.TIPOMOV!="")&#26;&#26;(BETWEEN(DATACOMP,#DATAINI,#DATASTA));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
"F3." #THIS GET_ID + \ Costruisce la stringa F3.101
+! \ Somma il campo corrente al corrispondente in F3
THEN
</postscript>
</field>
<field x="87" type="Stringa" width="1" id="302" pattern="1">
<source>SEZIONE</source>
</field>
<field x="88" type="Valuta" align="right" width="14" id="303" pattern="1" text="###.###.###,@@">
<source>IF((MOVANA.TIPOMOV=="")&#26;&#26;(BETWEEN(DATACOMP,#DATAINI,#DATASTA));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
"F3." #THIS GET_ID + \ Costruisce la stringa F3.101
+! \ Somma il campo corrente al corrispondente in F3
THEN
</postscript>
</field>
<field x="103" type="Stringa" width="1" id="304" pattern="1">
<source>SEZIONE</source>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1" />
<section type="Foot" level="2" pattern="1" />
<section type="Foot" level="3" pattern="1">
<field border="2" x="20" type="Linea" pattern="1" />
<field border="2" 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="2" 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 border="2" x="162" type="Linea" pattern="1" />
<field border="2" x="162" type="Linea" pattern="1" />
<field type="Stringa" width="20" id="101" pattern="1">
<source>#H3.101</source>
</field>
<field x="20" type="Stringa" width="43" id="102" pattern="1">
<prescript description="F3.102 PRESCRIPT">MESSAGE ISAMREAD,PCONANA,CODCONTO=#H3.101,DESCR</prescript>
</field>
<field x="63" type="Valuta" align="right" width="12" id="201" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.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>
</field>
<field x="76" type="Stringa" width="1" id="202" pattern="1" />
<field x="79" type="Valuta" align="right" width="12" id="203" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.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>
</field>
<field x="92" type="Stringa" width="1" id="204" pattern="1" />
<field x="95" type="Valuta" align="right" width="12" id="205" pattern="1" hide_zero="1" text="###.###.###,@@">
<postscript description="F3.205 POSTSCRIPT">104 @
102 @
- .</postscript>
</field>
<field x="108" type="Numero" align="right" width="3" id="206" pattern="1" text="###">
<prescript description="F3.206 PRESCRIPT">102 @
0 = IF
0
ELSE
106 @
102 @
&#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="F3.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>
</field>
<field x="126" type="Stringa" width="1" id="302" pattern="1" />
<field x="129" type="Valuta" align="right" width="12" id="303" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.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>
</field>
<field x="142" type="Stringa" width="1" id="304" pattern="1" />
<field x="145" type="Valuta" align="right" width="12" id="305" pattern="1" text="###.###.###,@@">
<postscript description="F3.305 POSTSCRIPT">104 @
102 @
- .</postscript>
</field>
<field x="158" type="Numero" align="right" width="3" id="306" pattern="1" text="###">
<prescript description="F3.306 PRESCRIPT">102 @
0 = IF
0
ELSE
106 @
102 @
&#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 Copy Permalink