DOC.CODCF #THIS @ \ leggo il valore attuale "F2.101" ! \ lo scrivo nel riepilogo TRIM(CLIFO.RAGSOC[1,30])+" "+TRIM(CLIFO.RAGSOC[31,50]) #THIS @ "F2.102" ! CLIFO.IBAN CLIFO.NUMCC #THIS @ "F2.103" ! "DOC.TIPODOC" @ \ leggo il tipo documento "CONF" = IF \ controllo se &#E8; un conferimento "DOC.NETCRED" @ "F2.104" \ lo devo mettere nella coda del gruppo ELSE \ se non &#E8; un conferimento "DOC.IMPONIBILI" @ -1 * \ gli cambio segno "F2.104" \ lo metto nella coda del gruppo THEN +! \ lo sommo "DOC.TOTRITACC" @ "F2.104" \ lo metto nella coda del gruppo +! \ lo sommo CLIFO.CODABI+' '+CLIFO.CODCAB+' '+101@.S0+' '+102@.S0 #THIS @ "F2.106" !

#THIS @ \ leggo il valore attuale DUP \ lo duplico 0 E;= IF \ se &#E8; maggiore di zero "0" "F2.105" ! \ scrivo 0 in saldo a debito ELSE -1 * \ canbio segno al valore attuale "F2.105" ! \ lo scrivo in saldo a debito 0 "F2.104" ! \ scrivo 0 in saldo a credito THEN MESSAGE ADD,F1.101 MESSAGE ADD,F1.102

USE DOC KEY 2 SELECT BETWEEN(DATADOC,#DATAINI,#DATAFIN) 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