Stampa Saldi Estratto Conto per Banca101.NUMCCSaldo a debito102.S0101.CODCF#REPORT.PAGE#SYSTEM.RAGSOC#DATAINI#DATAFINCLIFO.CODABI+CLIFO.CODCABMESSAGE RESET,F2.101
MESSAGE RESET,F2.102CLIFO.CODABI+' '+CLIFO.CODCAB+' '+101@.S0+' '+102@.S0#THIS @
"F3.106" !DOC.TIPOCF+DOC.CODCFMESSAGE RESET,F3.103
MESSAGE RESET,F3.104
MESSAGE RESET,F3.105DOC.CODCF#THIS @ \ leggo il valore attuale
"F3.101" ! \ lo scrivo nel riepilogoTRIM(20.RAGSOC[1,30])+" "+TRIM(20.RAGSOC[31,50])#THIS @
"F3.102" !CLIFO.IBANCLIFO.NUMCC#THIS @
"F3.103" !"DOC.TIPODOC" @ \ leggo il tipo documento
"CONF" = IF \ controllo se &#E8; un conferimento
"DOC.NETCRED" @
"F3.104" \ lo devo mettere nella coda del gruppo
ELSE \ se non &#E8; un conferimento
"DOC.IMPONIBILI" @
-1 * \ gli cambio segno
"F3.104" \ lo metto nella coda del gruppo
THEN
+! \ lo sommo"DOC.TOTRITACC" @
"F3.104" \ lo metto nella coda del gruppo
+! \ lo sommo#THIS @ \ leggo il valore attuale
DUP \ lo duplico
0 E;= IF \ se &#E8; maggiore di zero
"0" "F3.105" ! \ scrivo 0 in saldo a debito
ELSE
-1 * \ canbio segno al valore attuale
"F3.105" ! \ lo scrivo in saldo a debito
0 "F3.104" ! \ scrivo 0 in saldo a credito
THENMESSAGE ADD,F2.101MESSAGE ADD,F2.102USE DOC
KEY 2
SELECT BETWEEN(DATADOC,#DATAINI,#DATAFIN)((#CODABI=="")||(CLIFO.CODABI==#CODABI))((#CODCAB=="")||(CLIFO.CODCAB==#CODCAB))
BY 20.CODABI 20.CODCAB TIPOCF CODCF
JOIN CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN %BAN TO CLIFO ALIAS 101 INTO CODTAB==CODABI
JOIN %BAN TO CLIFO ALIAS 102 INTO CODTAB==CODABI+CODCAB
FROM TIPOCF='F' CODCF=#DASOCIO
TO TIPOCF='F' CODCF=#ASOCIO