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

605 lines
15 KiB
Plaintext
Raw Normal View History

Patch level : 10.0 67 Files correlati : Ricompilazione Demo : [ ] Commento : RIportata la verione 3.2 1167 git-svn-id: svn://10.65.10.50/trunk@16718 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-06-11 10:26:16 +00:00
<?xml version="1.0" encoding="UTF-8" ?>
<report name="gv0500" lpi="6">
<description>Stampa F24</description>
<font face="Courier New" size="12" />
<section type="Head" height="18">
<field x="4" type="Numero" hidden="1" align="right" width="5" pattern="1">
<source>RIGHEF24.ABI</source>
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.101</postscript>
</field>
<field x="11" type="Numero" hidden="1" align="right" width="5" pattern="1">
<source>RIGHEF24.CAB</source>
<postscript description="H0.0 POSTSCRIPT">MESSAGE COPY,F1.102</postscript>
</field>
<field x="47.5" y="3" type="Stringa" valign="bottom" width="35" height="2" pattern="1">
<prescript description="H0.0 PRESCRIPT">"S0"
"'"
"ABI" @ +
"'" +
"%BAN"
TABLE_READ</prescript>
</field>
<field x="47.5" y="5" type="Stringa" valign="bottom" width="24" height="2" pattern="1">
<prescript description="H0.0 PRESCRIPT">"S0"
"'"
"ABI" @ +
"CAB" @ +
"'" +
"%BAN"
TABLE_READ</prescript>
</field>
<field x="75" y="6" type="Stringa" width="5" pattern="1">
<prescript description="H0.0 PRESCRIPT">"DENCOM!#103=PROVCOM"
"COM="
"S5" @ +
13
ISAM_READ</prescript>
</field>
<field x="16" y="9" type="Stringa" valign="bottom" hidden="1" bg_color="#FFFF80" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
<source>CLIFO.COFI</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF
SHOW
#THIS @
STRLEN
11 = IF
#THIS @
" " +
#THIS !
THEN
ELSE
HIDE
THEN
</prescript>
</field>
<field x="16" y="9" type="Stringa" valign="bottom" width="32" pattern="1" text="# # # # # # # # # # # # # # # #">
<source>ANAGR.COFI</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF
SHOW
#THIS @
STRLEN
11 = IF
#THIS @
" " +
#THIS !
THEN
ELSE
HIDE
THEN</prescript>
</field>
<field x="16" y="11" type="Stringa" hidden="1" width="30" pattern="1">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF
SHOW
"CLIFO.RAGSOC" @
0
30
STRMID
#THIS !
ELSE
HIDE
THEN</prescript>
</field>
<field x="16" y="11" type="Stringa" width="30" pattern="1">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF
SHOW
"ANAGR.RAGSOC" @
0
30
STRMID
#THIS !
ELSE
HIDE
THEN</prescript>
</field>
<field x="58.5" y="11" type="Stringa" hidden="1" width="20" pattern="1">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF
SHOW
"CLIFO.RAGSOC" @
30
20
STRMID
#THIS !
ELSE
HIDE
THEN</prescript>
</field>
<field x="58.5" y="11" type="Stringa" width="20" pattern="1">
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF
SHOW
"ANAGR.RAGSOC" @
30
20
STRMID
#THIS !
ELSE
HIDE
THEN</prescript>
</field>
<field x="15.5" y="13" type="Numero" align="right" width="4" pattern="1" hide_zero="1" text="# #">
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP
"" = IF
DROP
"CLIFO.COFI" @
THEN
DUP
STRLEN
16 = IF
9
2
STRMID
DUP
40 &#3E; IF
40 -
"F" #104 !
ELSE
"M" #104 !
THEN
#THIS !
THEN</prescript>
</field>
<field x="20" y="13" type="Array" width="4" pattern="1">
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP
"" = IF
DROP
"CLIFO.COFI" @
THEN
DUP
STRLEN
16 = IF
8
1
STRMID
#THIS !
THEN</prescript>
<list>
<li Value=" " Code=" " />
<li Value="0 1" Code="A" />
<li Value="0 2" Code="B" />
<li Value="0 3" Code="C" />
<li Value="0 4" Code="D" />
<li Value="0 5" Code="E" />
<li Value="0 6" Code="H" />
<li Value="0 7" Code="L" />
<li Value="0 8" Code="M" />
<li Value="0 9" Code="P" />
<li Value="1 0" Code="R" />
<li Value="1 1" Code="S" />
<li Value="1 2" Code="T" />
</list>
</field>
<field x="23.5" y="13" type="Numero" align="right" width="8" pattern="1" hide_zero="1" text="# # # #">
<prescript description="H0.0 PRESCRIPT">"ANAGR.COFI" @
DUP
"" = IF
DROP
"CLIFO.COFI" @
THEN
DUP
STRLEN
16 = IF
6
2
STRMID
#THIS !
#THIS @
1900 +
DUP
50 &#3C; IF
100 +
THEN
#THIS !
THEN</prescript>
</field>
<field x="52" y="15" type="Stringa" hidden="1" width="30" height="2" pattern="1">
<source>CLIFO.INDCF+", "+CLIFO.CIVCF</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = IF
SHOW
ELSE
HIDE
THEN</prescript>
</field>
<field x="52" y="15" type="Stringa" width="30" height="2" pattern="1">
<source>ANAGR.INDRES+", "+ANAGR.CIVRES</source>
<prescript description="H0.0 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF
SHOW
ELSE
HIDE
THEN</prescript>
</field>
<field y="19" type="Array" hidden="1" width="1" pattern="1">
<source>RIGHEF24.TIPO</source>
<list>
<li Value="C" Code="C">MESSAGE SHOW,2@ MESSAGE HIDE,1@</li>
<li Value="F" Code="F">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
<li Value="G" Code="G">MESSAGE SHOW,1@ MESSAGE HIDE,2@</li>
</list>
</field>
<field x="16" y="15" type="Stringa" hidden="1" width="30" height="2" id="101" pattern="1">
<prescript description="H0.101 PRESCRIPT">#THIS "TIPO" @
"C" = IF
SHOW
"DENCOM!#103=PROVCOM"
"CLIFO.STATOCF" @
"" = NEGATE IF
"STATO="
"CLIFO.STATOCF" @ +
"!COM" +
ELSE
"COM="
THEN
"CLIFO.COMCF" @ +
13
ISAM_READ
ELSE
HIDE
THEN</prescript>
</field>
<field x="16" y="15" type="Stringa" width="30" height="2" id="102" pattern="1">
<prescript description="H0.102 PRESCRIPT">#THIS "TIPO" @
"C" = NEGATE IF
SHOW
"DENCOM!#103=PROVCOM"
"COM="
"ANAGR.COMRES" @ +
13
ISAM_READ
ELSE
HIDE
THEN</prescript>
</field>
<field x="47" y="15" type="Stringa" width="4" id="103" pattern="1" text="# #" />
<field x="34.5" y="13" type="Stringa" width="1" id="104" pattern="1" />
<field x="38.5" y="13" type="Stringa" width="39" id="105" pattern="1">
<prescript description="H0.105 PRESCRIPT">"DENCOM!#106=PROVCOM"
"COM="
"ANAGR.COFI" @
DUP
"" = IF
DROP
"CLIFO.COFI" @
THEN
DUP
STRLEN
16 = IF
11
4
STRMID
THEN
+
13
ISAM_READ
</prescript>
</field>
<field x="76.5" y="13" type="Stringa" width="4" id="106" pattern="1" text="# #" />
</section>
<section type="Head" level="1">
<prescript description="H1 PRESCRIPT">VARIABLE HB0
VARIABLE HB1
VARIABLE HB2
VARIABLE HB3
VARIABLE HB4
VARIABLE HB5
VARIABLE LS
VARIABLE HS
0 "HB0" !
7 "HB1" !
5 "HB2" !
5 "HB3" !
5 "HB4" !
4 "HB5" !
"" LS !
0
TOT_SEC_HEIGHT
HS !</prescript>
</section>
<section type="Head" level="2" height="2">
<groupby>SEZIONE</groupby>
<prescript description="H2 PRESCRIPT">"F2"
"HB"
"SEZIONE" @
SEC_2_INDEX
+
@
SET_SEC_HEIGHT
"H2"
HS @
"SEZIONE" @
SEC_2_INDEX
TOT_SEC_HEIGHT
-
"SEZIONE" @
SEC_2_INDEX
LS @
SEC_2_INDEX
-
2 *
+
SET_SEC_HEIGHT
"SEZIONE" @
LS !
</prescript>
</section>
<section type="Body">
<field type="Immagine" width="83.7" height="70" pattern="1">
<source>"f24.png"</source>
</field>
</section>
<section type="Body" level="1">
<condition>SEZIONE='E'</condition>
<postscript description="B1 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript>
<field x="22.5" type="Stringa" width="4" pattern="1">
<source>TRIBUTO</source>
</field>
<field x="31" type="Stringa" width="4" pattern="1">
<source>RATEAZIONE</source>
</field>
<field x="38" type="Numero" align="right" width="4" pattern="1">
<source>ANNO</source>
</field>
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTODEB</source>
<prescript description="B1.0 PRESCRIPT">#THIS @
"F2.101" +!
</prescript>
</field>
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTOCRE</source>
<prescript description="B1.0 PRESCRIPT">#THIS @
"F2.102" +!
</prescript>
</field>
</section>
<section type="Body" level="2" bg_color="#FFFF80">
<condition>SEZIONE='I'</condition>
<postscript description="B2 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript>
<field x="2.5" type="Stringa" width="5" pattern="1">
<source>RIGHEF24.SEDE</source>
</field>
<field x="8" type="Stringa" width="4" pattern="1">
<source>TRIBUTO</source>
</field>
<field x="12.5" type="Stringa" width="18" pattern="1">
<source>RIGHEF24.MATRICOLA</source>
</field>
<field x="31" type="Numero" align="right" width="6" pattern="1" hide_zero="1" text="@@@@@@">
<source>RIGHEF24.PERIODODA</source>
</field>
<field x="38" type="Numero" align="right" width="6" pattern="1" hide_zero="1" text="@@@@@@">
<source>RIGHEF24.PERIODOA</source>
</field>
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTODEB</source>
<prescript description="B2.0 PRESCRIPT">#THIS @
"F2.101" +!
</prescript>
</field>
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTOCRE</source>
<prescript description="B2.0 PRESCRIPT">#THIS @
"F2.102" +!
</prescript>
</field>
</section>
<section type="Body" level="3">
<condition>SEZIONE=='R'</condition>
<postscript description="B3 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript>
<field x="1.5" type="Numero" align="right" width="5" pattern="1" text="@ @">
<source>RIGHEF24.CODREG</source>
</field>
<field x="22" type="Stringa" width="4" pattern="1">
<source>TRIBUTO</source>
</field>
<field x="31" type="Stringa" width="4" pattern="1">
<source>RATEAZIONE</source>
</field>
<field x="38" type="Numero" align="right" width="4" pattern="1">
<source>ANNO</source>
</field>
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTODEB</source>
<prescript description="B3.0 PRESCRIPT">#THIS @
"F2.101" +!
</prescript>
</field>
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTOCRE</source>
<prescript description="B3.0 PRESCRIPT">#THIS @
"F2.102" +!
</prescript>
</field>
</section>
<section type="Body" level="4">
<condition>SEZIONE=='L'</condition>
<postscript description="B4 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript>
<field x="2.9" type="Stringa" bg_color="#FFFF80" width="7" pattern="1" text="# # # #">
<source>RIGHEF24.ENTECOM</source>
<prescript description="B4.0 PRESCRIPT">#THIS @
DUP
4 SWAP
STRLEN
DO
" " +
LOOP
#THIS !
</prescript>
</field>
<field x="10.5" type="Stringa" width="1" pattern="1">
<source>RIGHEF24.RAVVED</source>
</field>
<field x="12.5" type="Stringa" width="1" pattern="1">
<source>RIGHEF24.IMMVAR</source>
</field>
<field x="14.5" type="Stringa" width="1" pattern="1">
<source>RIGHEF24.ACCONTO</source>
</field>
<field x="16.5" type="Stringa" width="1" pattern="1">
<source>RIGHEF24.SALDO</source>
</field>
<field x="18.2" type="Numero" align="right" width="2" pattern="1" hide_zero="1">
<source>RIGHEF24.NUMIMM</source>
</field>
<field x="22.5" type="Stringa" width="4" pattern="1">
<source>TRIBUTO</source>
</field>
<field x="31" type="Stringa" width="4" pattern="1">
<source>RATEAZIONE</source>
</field>
<field x="38" type="Numero" align="right" width="4" pattern="1">
<source>ANNO</source>
</field>
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTODEB</source>
<prescript description="B4.0 PRESCRIPT">#THIS @
"F2.101" +!
</prescript>
</field>
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTOCRE</source>
<prescript description="B4.0 PRESCRIPT">#THIS @
"F2.102" +!
</prescript>
</field>
</section>
<section type="Body" level="5">
<condition>SEZIONE=='N'</condition>
<postscript description="B5 POSTSCRIPT">"F2"
DECR_SEC_HEIGHT</postscript>
<field x="14" type="Stringa" width="5" pattern="1">
<source>RIGHEF24.SEDE</source>
</field>
<field x="19.5" type="Numero" align="right" width="8" pattern="1">
<source>RIGHEF24.POSASS</source>
</field>
<field x="29" type="Numero" align="right" width="2" pattern="1">
<source>RIGHEF24.CIN</source>
</field>
<field x="33" type="Numero" align="right" width="6" pattern="1">
<source>RIGHEF24.NUMRIF</source>
</field>
<field x="40.5" type="Stringa" width="1" pattern="1">
<source>RIGHEF24.CAUSINAIL</source>
</field>
<field x="45.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTODEB</source>
<prescript description="B5.0 PRESCRIPT">#THIS @
"F2.101" +!
</prescript>
</field>
<field x="57.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>IMPORTOCRE</source>
<prescript description="B5.0 PRESCRIPT">#THIS @
"F2.102" +!
</prescript>
</field>
</section>
<section type="Foot" />
<section y="58" type="Foot" level="1" bg_color="#80FF80">
<field x="23.5" y="6.75" type="Numero" align="right" width="5" id="101" pattern="1" text="@@@@@" />
<field x="36" y="6.75" type="Numero" align="right" width="5" id="102" pattern="1" text="@@@@@" />
<field x="69.5" y="0.87" type="Valuta" align="right" bg_color="#FF8080" width="11" id="103" pattern="1" hide_zero="1" text="###.###.###,@@">
<postscript description="F1.103 POSTSCRIPT">0 #THIS !</postscript>
</field>
</section>
<section type="Foot" level="2" bg_color="#80FF80" height="5">
<postscript description="F2 POSTSCRIPT">\ Ripristina l'altezza del footer
"F2"
"HB2" @
SET_SEC_HEIGHT
LS @
SEC_2_INDEX
1
+
TOT_SEC_HEIGHT
HS !
</postscript>
<field x="69.5" type="Valuta" align="right" width="11" pattern="1" hide_zero="1" text="###.###.###,@@">
<source>#101-#102</source>
<prescript description="F2.0 PRESCRIPT">"F2"
REP_MESSAGE_ALIGN_BOTTOM
</prescript>
<postscript description="F2.0 POSTSCRIPT">MESSAGE ADD,F1.103</postscript>
</field>
<field x="45.5" y="0.06" type="Valuta" align="right" width="11" id="101" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.101 PRESCRIPT">"F2"
REP_MESSAGE_ALIGN_BOTTOM</prescript>
<postscript description="F2.101 POSTSCRIPT">0 #THIS !</postscript>
</field>
<field x="57.5" y="0.06" type="Valuta" align="right" width="11" id="102" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F2.102 PRESCRIPT">"F2"
REP_MESSAGE_ALIGN_BOTTOM</prescript>
<postscript description="F2.102 POSTSCRIPT">0 #THIS !</postscript>
</field>
</section>
<sql>USE RIGHEF24 KEY 5
JOIN ANAGR INTO TIPOA==TIPO CODANAGR==CODICE
JOIN CLIFO INTO TIPOCF==TIPO CODCF==CODICE
FROM F24=#DISTINTA
TO F24=#DISTINTA</sql>
<prescript description="PRESCRIPT">: SET_SEC_HEIGHT ( s h -- )
0 SWAP ROT
SET_SIZE
;
: DECR_SEC_HEIGHT ( s -- )
DUP
GET_SIZE
SWAP
DROP
1 -
SET_SEC_HEIGHT
;
: SEC_2_INDEX ( s -- n )
DUP
"E" = IF
1
ELSE
DUP
"I" = IF
2
ELSE
DUP
"R" = IF
3
ELSE
DUP
"L" = IF
4
ELSE
DUP
"N" = IF
5
ELSE
0
THEN
THEN
THEN
THEN
THEN
SWAP
DROP
;
: TOT_SEC_HEIGHT ( n -- n )
VARIABLE TOT
0 TOT !
6 SWAP DO
"HB"
I
+ @
TOT +!
LOOP
TOT @
;</prescript>
</report>
Reference in New Issue Copy Permalink