Dichiarazione IVA Quadro VF - VF12 - VF16
"Pag. " +#PAGE
RMOVIVA.INTRA
MESSAGE RESET,F1
#SYSTEM.RAGSOC
"Data di Stampa: " +#SYSTEM.DATE
"ELENCO FATTURE ACQUISTO VF14 - VF18 - " +#ANNO
NUMREG+CODIVA
MESSAGE RESET,F2
NUMREG+" "+CODIVA
202@.B1
202@.S0
RMOVIVA.NUMREG
RMOVIVA.NUMRIG
MOV.DATAREG
RMOVIVA.INTRA
MOV.DATADOC
MOV.NUMDOC
MOV.CODCAUS
CLIFO.RAGSOC
RMOVIVA.IMPONIBILE
MESSAGE ADD,F2.100
RMOVIVA.IMPOSTA
MESSAGE ADD,F2.101
RMOVIVA.CODIVA
201@.S9
#100 @
"F1.1"
#THIS @
+
+!
#B1.5
RMOVIVA.NUMRIG
#B1.15
RMOVIVA.INTRA
#B1.25
#B1.30
#B1.35
#B1.40
#B1.105
#B1.110
201@.S3
MESSAGE ADD,F1.100
#THIS @
0 E; IF
#100 @
"F1.100" +!
ELSE
#100 @
"F1.101" +!
THEN
USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)(23.TIPO="F")(201@.S9E;="12")(201@.S9C;="16")
JOIN MOV INTO NUMREG==NUMREG
JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA
JOIN %STA TO CLIFO ALIAS 202 INTO CODTAB==STATOCF