Bilancio a sezioni contrapposte (cons - prev)
#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
MESSAGE RESET,F2
IF(SEZIONE=="AP","SITUAZIONE CONTO ECONOMICO","SITUAZIONE CONTI PATRIMONIALI")
SEZIONE
MESSAGE COPY,F2.101
IF(SEZIONE=="AP","ATTIVITA'","COSTI")
IF(SEZIONE=="AP","PASSIVITA'","RICAVI")
LEFT:LIVELLO
"LEFT:BACKCOLOR" @ "1@" SET_BACK_COLOR
"LEFT:TEXTCOLOR" @ "1@" SET_TEXT_COLOR
1
LEFT:CONTO
CA_FORMAT_CONTO
1
LEFT:DESCR
1
LEFT:SALDO
#101 @
1 = IF
#THIS @
"F2.104" +!
THEN
1
LEFT:SEZIONE
#101 @
1 = IF
#THIS @
"F2.105" !
THEN
RIGHT:LIVELLO
"RIGHT:BACKCOLOR" @ "2@" SET_BACK_COLOR
"RIGHT:TEXTCOLOR" @ "2@" SET_TEXT_COLOR
2
RIGHT:CONTO
CA_FORMAT_CONTO
2
RIGHT:DESCR
2
RIGHT:SALDO
#201 @
1 = IF
#THIS @
"F2.204" +!
THEN
2
RIGHT:SEZIONE
#201 @
1 = IF
#THIS @
"F2.205" !
THEN
IF(#105==#205,#104-#204,#104+#204)
#THIS @
0 C; IF
"2@" HIDE
"1@" SHOW
#THIS @
-1 *
406 !
ELSE
"1@" HIDE
"2@" SHOW
#THIS @
409 !
THEN
1
1
1
#105
2
2
2
#205
1
1
#104 @
#406 @
+
#THIS !
1
#105
2
2
#204 @
#409 @
+
#THIS !
2
#205