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","ATTIVITA'","COSTI")
"SEZIONE" @
"AP" = IF
"PERDITA" "F2.405" !
ELSE
"UTILE" "F2.405" !
THEN
IF(SEZIONE=="AP","PASSIVITA'","RICAVI")
"SEZIONE" @
"AP" = IF
"UTILE" "F2.408" !
ELSE
"PERDITA" "F2.408" !
THEN
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:SALDO
#101 @
1 = IF
#THIS @
"F2.104" +!
THEN
1
LEFT:SEZIONE
#101 @
1 = IF
#THIS @
"F2.105" !
THEN
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
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