Stampa conti per commessa (analitica CM)

MESSAGE RESET,F1 MESSAGE RESET,F1.105 MESSAGE RESET,F1.107 #SYSTEM.DATE #ANNO #DATAINI #DATAFIN #DACODFASE #ACODFASE

CODCMS MESSAGE RESET,F2 MESSAGE RESET,F2.105 MESSAGE RESET,F2.107 CODCMS MESSAGE COPY,F2.101 MESSAGE ISAMREAD,COMMESSE,CODCMS=#101,DESCRIZ MESSAGE COPY,F2.102

CODCONTO CA_FORMAT_CONTO CODCONTO CA_FORMAT_CONTO_DESCR 1 IMPORTO #THIS @ #F3.105 @ \ se la sezione del tot &#E8; vuota la metto = alla mia sezione corrente EMPTY= IF #105 @ #F3.105 ! THEN #105 @ #F3.105 @ C;E; IF \ se sono diverse le sezioni deve sottrarmi al totale -1 * THEN #F3.104 +! #THIS @ \ stesso lavoro per il totale di commessa #F2.105 @ EMPTY= IF #105 @ #F2.105 ! THEN #105 @ #F2.105 @ C;E; IF -1 * THEN #F2.104 +! #THIS @ \ stesso lavoro per il totale generale #F1.105 @ EMPTY= IF #105 @ #F1.105 ! THEN #105 @ #F1.105 @ C;E; IF -1 * THEN #F1.104 +! 1 SEZIONE 2 IMPORTO #THIS @ #F3.107 @ \ se la sezione del tot &#E8; vuota la metto = alla mia sezione corrente EMPTY= IF #107 @ #F3.107 ! THEN #107 @ #F3.107 @ C;E; IF \ se sono diverse le sezioni deve sottrarmi al totale -1 * THEN #F3.106 +! #THIS @ \ stesso lavoro per il totale commessa #F2.107 @ EMPTY= IF #107 @ #F2.107 ! THEN #107 @ #F2.107 @ C;E; IF -1 * THEN #F2.106 +! #THIS @ \ stesso lavoro per il totale generale #F1.107 @ EMPTY= IF #107 @ #F1.107 ! THEN #107 @ #F1.107 @ C;E; IF -1 * THEN #F1.106 +! 2 SEZIONE

#REPORT.PAGE

#THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #105 @ "D" = IF "A" ELSE "D" THEN #105 ! ELSE DROP THEN #104 @ 0 = IF HIDE ELSE SHOW THEN #THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #107 @ "D" = IF "A" ELSE "D" THEN #107 ! ELSE DROP THEN #106 @ 0 = IF HIDE ELSE SHOW THEN

#THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #105 @ "D" = IF "A" ELSE "D" THEN #105 ! ELSE DROP THEN #104 @ 0 = IF HIDE ELSE SHOW THEN #THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #107 @ "D" = IF "A" ELSE "D" THEN #107 ! ELSE DROP THEN #106 @ 0 = IF HIDE ELSE SHOW THEN

MESSAGE ISAMREAD,PCON,GRUPPO=#101!CONTO=#102,DESCR #THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #105 @ "D" = IF "A" ELSE "D" THEN #105 ! ELSE DROP THEN #104 @ 0 = IF HIDE ELSE SHOW THEN #THIS @ \ se importo negativo cambia segno e inverte sezione DUP 0 C; IF -1 * #THIS ! #107 @ "D" = IF "A" ELSE "D" THEN #107 ! ELSE DROP THEN #106 @ 0 = IF HIDE ELSE SHOW THEN