Bilancio di verifica (cons - prev)

"F1" AZZERA_TOTALI #SYSTEM.RAGSOC #SYSTEM.DATE MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ #DATA_INIZIALE #DATA_FINALE #COSTO MESSAGE ISAMREAD,CDC,CODCOSTO=#COSTO,DESCRIZ #COMMESSA MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ #FASE MESSAGE ISAMREAD,FASI,CODCMSFAS=#CMSCDC!CODFASE=#FASE,DESCRIZ

CODCONTO:2!="" CODCONTO:1 "CODCONTO:1" @ "F2.101" ! "F2" AZZERA_TOTALI

CODCONTO:3!="" CODCONTO:2 "CODCONTO:2" @ "F3.101" ! "F3" AZZERA_TOTALI

CODCONTO:4 != "" CODCONTO:3 "CODCONTO:3" @ "F4.101" ! \ Copia il codice conto nel footer "F4" AZZERA_TOTALI

SALDO:INI_DARE MESSAGE ADD,F1.103|ADD,F2.103|ADD,F3.103|ADD,F4.103 SALDO:INI_AVERE MESSAGE ADD,F1.104|ADD,F2.104|ADD,F3.104|ADD,F4.104 SALDO:MOV_DARE MESSAGE ADD,F1.105|ADD,F2.105|ADD,F3.105|ADD,F4.105 SALDO:MOV_AVERE MESSAGE ADD,F1.106|ADD,F2.106|ADD,F3.106|ADD,F4.106 SALDO:FIN_DARE MESSAGE ADD,F1.107|ADD,F2.107|ADD,F3.107|ADD,F4.107 SALDO:FIN_AVERE MESSAGE ADD,F1.108|ADD,F2.108|ADD,F3.108|ADD,F4.108 CODCONTO CA_FORMAT_CONTO DESCR

#REPORT.PAGE

MESSAGE ISAMREAD,PCONANA,CODCONTO=#102,DESCR 103 DARE_AVERE 107 DARE_AVERE

#101 != "" #THIS @ #102 ! CA_FORMAT_CONTO CA_FORMAT_CONTO_DESCR 103 DARE_AVERE 107 DARE_AVERE

#101 != "" #THIS @ #102 ! CA_FORMAT_CONTO CA_FORMAT_CONTO_DESCR 103 DARE_AVERE 107 DARE_AVERE

#101 != "" #THIS @ #102 ! CA_FORMAT_CONTO CA_FORMAT_CONTO_DESCR 103 DARE_AVERE 107 DARE_AVERE

USE PCONANA : AZZERA_TOTALI ( ID_SEC - ) 109 103 DO DUP \ Duplica codice sezione "." + \ Aggiunge punto I + \ Aggiunge codice campo 0 SWAP ! \ Lo azzera LOOP DROP ; : DARE_AVERE ( ID_DARE -- ) VARIABLE _DARE VARIABLE _AVERE DUP _DARE ! 1 + _AVERE ! _DARE @ @ \ DARE _AVERE @ @ \ AVERE - \ DARE-AVERE DUP 0 C; IF \ Se negativo -1 * \ Cambia segno _AVERE @ ! \ Setta AVERE 0 _DARE @ ! \ Azzera DARE ELSE _DARE @ ! \ Setta DARE 0 _AVERE @ ! \ Azzera AVERE THEN ;