Bilancio a sezioni contrapposte (cons - prev)

#TIPOSTAMPA

#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

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 #COSTO CA_FORMAT_COSTO #COMMESSA CA_FORMAT_COMMESSA #FASE CA_FORMAT_FASE NP #CONTSEP

#REPORT.PAGE

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