Bilancio a sezioni contrapposte (raffronto)
#TIPOSTAMPA
#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
SEZIONE
IF(SEZIONE=="AP","SITUAZIONE CONTO ECONOMICO","SITUAZIONE CONTI PATRIMONIALI")
IF(SEZIONE=="AP","ATTIVITA'","COSTI")
IF(SEZIONE=="AP","PASSIVITA'","RICAVI")
LEFT:LIVELLO
#TIPOPIANO @
"C" = IF
#THIS @ 1 = IF
8421504 "1@" SET_BACK_COLOR
16777215 "1@" SET_FORE_COLOR
THEN
#THIS @ 2 = IF
12632256 "1@" SET_BACK_COLOR
0 "1@" SET_FORE_COLOR
THEN
#THIS @ 3 = IF
16777215 "1@" SET_BACK_COLOR
0 "1@" SET_FORE_COLOR
THEN
THEN
1
LEFT:CONTO
CA_FORMAT_CONTO
1
LEFT:DESCR
1
LEFT:SALDOP
1
LEFT:SEZIONEP
1
LEFT:SALDOC
1
LEFT:SEZIONEC
RIGHT:LIVELLO
#TIPOPIANO @
"C" = IF
#THIS @ 1 = IF
8421504 "2@" SET_BACK_COLOR
16777215 "2@" SET_FORE_COLOR
THEN
#THIS @ 2 = IF
12632256 "2@" SET_BACK_COLOR
0 "2@" SET_FORE_COLOR
THEN
#THIS @ 3 = IF
16777215 "2@" SET_BACK_COLOR
0 "2@" SET_FORE_COLOR
THEN
THEN
2
RIGHT:CONTO
CA_FORMAT_CONTO
2
RIGHT:DESCR
1
LEFT:SALDO
2
RIGHT:SALDOP
1
LEFT:SEZIONE
2
RIGHT:SEZIONEP
2
RIGHT:SALDOC
2
RIGHT:SEZIONEC
2
RIGHT:SALDO
2
RIGHT:SEZIONE