"BILANCIO DAL " + #DATAINI + " AL " + #DATAFIN + " STAMPA DEL " + #DATASTA

CODCCOSTO CODCCOSTO MESSAGE ISAMREAD,CDC,CODCOSTO=CODCCOSTO,DESCRIZ "AL " + #DATASTA

CODCONTO MESSAGE RESET,F3

IF((MOVANA.TIPOMOV!="")(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0) #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 SEZIONE IF((MOVANA.TIPOMOV=="")(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0) #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 SEZIONE IF((MOVANA.TIPOMOV!="")(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0) #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 SEZIONE IF((MOVANA.TIPOMOV=="")(BETWEEN(DATACOMP,#DATAINI,#DATASTA));IMPORTO;0) #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 SEZIONE

#H3.101 MESSAGE ISAMREAD,PCONANA,CODCONTO=#H3.101,DESCR #THIS @ 0 C; IF #THIS @ -1 * #THIS ! #THIS GET_ID_NEXT "A" ELSE #THIS @ 0 = IF "" ELSE "D" THEN THEN #THIS GET_ID_NEXT ! #THIS @ 0 C; IF #THIS @ -1 * #THIS ! #THIS GET_ID_NEXT "A" ELSE #THIS @ 0 = IF "" ELSE "D" THEN THEN #THIS GET_ID_NEXT ! 104 @ 102 @ - . 102 @ 0 = IF 0 ELSE 106 @ 102 @ F; 100 * 0 ROUND THEN . #THIS @ 0 C; IF #THIS @ -1 * #THIS ! #THIS GET_ID_NEXT "A" ELSE #THIS @ 0 = IF "" ELSE "D" THEN THEN #THIS GET_ID_NEXT ! #THIS @ 0 C; IF #THIS @ -1 * #THIS ! #THIS GET_ID_NEXT "A" ELSE #THIS @ 0 = IF "" ELSE "D" THEN THEN #THIS GET_ID_NEXT ! 104 @ 102 @ - . 102 @ 0 = IF 0 ELSE 106 @ 102 @ F; 100 * 0 ROUND THEN .

USE RMOVANA KEY 3 SELECT BETWEEN(CODCCOSTO,#CODCOSTO,#CODCOSTO) BY CODCCOSTO CODCONTO DATACOMP JOIN MOVANA INTO NUMREG==NUMREG FROM DATACOMP=#DATAINI TO DATACOMP=#DATAFIN : 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 ;