Stampa tabelle ripartizione analitica
#TIPO
#THIS @
"B" = IF
"2@" HIDE
"1@" SHOW
ELSE
"1@" HIDE
"2@" SHOW
THEN
2
1
1
1
#CODCMS @
EMPTY= IF
101 HIDE
102 HIDE
THEN
#CODCOSTO @
EMPTY= IF
103 HIDE
104 HIDE
THEN
#TIPO
#CODCMS
MESSAGE ISAMREAD,COMMESSE,CODCMS=#102,DESCRIZ
#CODCOSTO
MESSAGE ISAMREAD,CDC,CODCOSTO=#104,DESCRIZ
CODICE
#TIPO
#THIS @
"B" = IF
"2@" HIDE
"1@" SHOW
ELSE
"1@" HIDE
"2@" SHOW
THEN
CODICE
RIP.DESCRIZ
1
RIP.CODCMS
1
MESSAGE ISAMREAD,COMMESSE,CODCMS=#101,DESCRIZ
1
RIP.CODCOSTO
1
MESSAGE ISAMREAD,CDC,CODCOSTO=#103,DESCRIZ
1
RIP.CODFASE
RIP.TIPORIP
RIP.ANNOES
RIP.INDBIL
RIP.CLASSEMOV
2
RIP.GRUPPO
2
RIP.CONTO
2
RIP.SOTTOCONTO
2
MESSAGE ISAMREAD,PCON,GRUPPO=#201!CONTO=#202!SOTTOCONTO=#203,DESCR
NRIGA
MESSAGE ISAMREAD,COMMESSE,CODCMS=#101,DESCRIZ
MESSAGE ISAMREAD,CDC,CODCOSTO=#103,DESCRIZ
CODCONTO
CA_FORMAT_CONTO_DESCR
RIPARTO
CODCMS
CODCOSTO
CODFASE
CODCONTO
CA_FORMAT_CONTO
#SYSTEM.DATE
#REPORT.PAGE
USE RRIP
SELECT (BETWEEN(CODCMS,#CODCMS,#CODCMS))(BETWEEN(CODCOSTO,#CODCOSTO,#CODCOSTO))
JOIN RIP INTO TIPO==TIPO CODICE==CODICE
FROM TIPO=#TIPO CODICE=#DACODICE
TO TIPO=#TIPO CODICE=#ACODICE