Lista fatture per imponibile
MESSAGE RESET,F1
#DESCF
#ANNO
#TIPODATE
#DATAINI
#DATAFIN
#TIPOELENCO
#LIMITE
#CODCF
#101
#103 @
0 = IF
"H1.105" HIDE
ELSE
"H1.105" SHOW
THEN
CODCF
MESSAGE RESET,F2
MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,RAGSOC
CODCF
USE RMOVIVA
FROM NUMREG=#PARENT.NUMREG
TO NUMREG=#PARENT.NUMREG
NUMRIG
IMPONIBILE
IMPOSTA
PARENT.TIPODOC
251 ENABLE
251 DISABLE "IMPONIBILE" @ "F11.235" +! "IMPOSTA" @ "F11.236" +!
CODIVA
MESSAGE TABLEREAD,%IVA,CODIVA,S1
"IMPONIBILE" @ "F11.201" +! "IMPOSTA" @ "F11.202" +!
"IMPONIBILE" @ "F11.211" +! "IMPOSTA" @ "F11.212" +!
"IMPONIBILE" @ "F11.221" +! "IMPOSTA" @ "F11.222" +!
"IMPONIBILE" @ "F11.231" +! "IMPOSTA" @ "F11.232" +!
#241 @
#H1.102 @ C;= IF
"F11" HIDE
ELSE
"F11" SHOW
THEN
NUMREG
DATAREG
REG
PROTIVA
NUMDOC
DATADOC
MESSAGE ISAMREAD,26,CODCAUS=#239,DESCR
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.201" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.202" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.211" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.212" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.221" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.222" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.231" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.232" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.235" +!
THEN
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.236" +!
THEN
CODCAUS
PARENT.TOTDOC
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.240" +!
THEN
#201+#211+#221+#231
#THIS @
"H1.102" @ E;= IF
#THIS @
"F1.241" +!
THEN
#202+#212+#222+#232
#241 @
"H1.102" @ E;= IF
#THIS @
"F1.242" +!
THEN
USE MOV KEY 3
SELECT (ANNOIVA=2010)
FROM TIPO=C
TO TIPO=C