Bilancio di verifica (cons - prev)
"F1" AZZERA_TOTALI
#SYSTEM.RAGSOC
#SYSTEM.DATE
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCRIZ
#DATA_INIZIALE
#DATA_FINALE
MESSAGE ISAMREAD,CDC,CODCOSTO=#101,DESCRIZ
MESSAGE ISAMREAD,COMMESSE,CODCMS=#102,DESCRIZ
MESSAGE ISAMREAD,FASI,CODCMSFAS=#CMSCDC!CODFASE=#103,DESCRIZ
NP
NP
MESSAGE TABLEREAD,NPENT,#104,S0
#COSTO
#COMMESSA
#FASE
NP
#CONTSEP
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
#COSTO
CA_FORMAT_COSTO
#COMMESSA
CA_FORMAT_COMMESSA
#FASE
CA_FORMAT_FASE
NP
#CONTSEP
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
;