USE RDOC SELECT ((TIPORIGA=="CO")||(TIPORIGA=="02")) JOIN %SPP ALIAS 201 INTO CODTAB==CODART JOIN ANAMAG INTO CODART==CODARTMAG FROM CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC TO CODNUM=#PARENT.CODNUM ANNO=#PARENT.ANNO PROVV=#PARENT.PROVV NDOC=#PARENT.NDOC #PARENT.DATADOC #PARENT.NFASTA DESCR #THIS @ #EC_TIPOMOV ! 1 QTA #THIS @ DUP "F1.102" +! #EC_QTA ! 1 "CODNUM" @ "CONF" = IF "PREZZONN" @ "ANAMAG.USER1" @ "X" = IF "QTA" @ DUP 0 C;E; IF F; THEN THEN ELSE 0 THEN #THIS ! 1 "CODNUM" @ "CONF" = IF "PREZZONS" @ "ANAMAG.USER1" @ "X" = IF "QTA" @ DUP 0 C;E; IF F; THEN THEN ELSE 0 THEN #THIS ! 1 #PARENT.SPESMER #THIS @ \ leggo il val corrente -1 * \ cambio segno #THIS ! \ scrivo il valore #THIS @ DUP "F1.105" +! #EC_MER ! SCONTOR #THIS @ DUP "F1.106" +! #EC_ACC ! 1 #PARENT.CODNUM @ \ legge il tipodoc "CONF" = IF \ controlla se &#E8; un conferimento #PARENT.NETCRED @ \ se &#E8; un conferimento scrivo TOTMER DUP 0 E;= IF \ se &#E8; maggiore di zero lo scrivo in B11.107 "B11.107" ELSE \ altrimenti ci scrivo 0 0 * "B11.107" THEN ELSE \ se non &#E8; un conferimento #PARENT.IMPONIBILI @ \ se non un conferimento scrivo IMPONIBILI DUP 0 C;= IF \ se &#E8; minore di zero gli cambio segno e lo scrivo in B11.107 -1 * "B11.107" ELSE \ altrimenti scrivo 0 0 * "B11.107" THEN THEN ! \ lo scrivo effettivamente #THIS @ DUP DUP "F1.107" +! #EC_IMPCRE ! #EC_CRED ! 2 #PARENT.CODNUM @ \ legge il tipodoc "CONF" = IF \ controlla se &#E8; un conferimento #PARENT.NETCRED @ \ se &#E8; un conferimento scrivo TOTMER DUP 0 C;= IF \ se &#E8; minore di zero gli cambio segno e lo scrivo in B11.108 -1 * "B11.108" ELSE \ altrimenti ci scrivo 0 0 * "B11.108" THEN ELSE \ se non &#E8; un conferimento #PARENT.IMPONIBILI @ \ se non &#E8; un conferimento scrivo IMPONIBILI DUP 0 E;= IF \ se &#E8; maggiore di zero lo scrivo in B11.108 "B11.108" ELSE \ altrimenti scrivo 0 0 * "B11.108" THEN THEN ! \ lo scrivo effettivamente #THIS @ DUP DUP "F1.108" +! #EC_IMPDEB ! #EC_DEB ! MESSAGE _ISAMREAD,CLIFO,TIPOCF='C'!CODCF=#PARENT.MERCATO,RAGSOC

1 #THIS @ #108 @ + #108 ! 1 1 1 1 1 1 "F1.107" @ \ leggo il contenuto del campo 107 "F1.108" @ \ leggo il contenuto del campo 108 - \ faccio la sottrazione tra i due 0 E;= IF \ se il risultato &#E8; maggiore di zero, scrivo "saldo a credito" "Saldo a credito" "F1.109" ELSE "Saldo a debito" "F1.109" \ altrimenti scrivo saldo a debito THEN ! 1 "F1.107" @ \ leggo il contenuto del campo 107 "F1.108" @ \ leggo il conetnuto del campo 108 - \ faccio la sottrazione tra i due DUP \ duplico il risultato 0 C;= IF \ se il risultato &#E8; negativo, gli cambio segno -1 * THEN \ e lo scrivo nel campo 110 #THIS ! 1 #EC_CHIUDI !

USE DOC KEY 2 SELECT BETWEEN(DATADOC,#DATAINI,#DATAFIN)(201@.I1E;4) JOIN CLIFO ALIAS 101 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN COMUNI TO 101@ INTO STATO==STATOCF COM==COMCF JOIN %NUM ALIAS 201@ INTO CODTAB==CODNUM FROM TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAINI TO TIPOCF='F' CODCF=#SOCIO PROVV='D' ANNO=#ANNO DATADOC=#DATAFIN