Dichiarazione IVA Quadro VJ - VJ1 - VJ19
"Pag. " +#PAGE
RMOVIVA.INTRA
MESSAGE RESET,F1
#SYSTEM.RAGSOC
"Data di Stampa: " +#SYSTEM.DATE
"ELENCO FATTURE ACQUISTO PARTICOLARI TIPOLOGIE DI OPERAZIONI - QUADRO VJ - " +#ANNO
NUMREG+CODIVA
MESSAGE RESET,F2
NUMREG+" "+CODIVA
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
26.REGSPIVA
#100 @
"F1.1"
#THIS @
+
+!
26.REGSPIVA
#101 @
"F1.2"
#THIS @
+
+!
#B1.5
RMOVIVA.NUMRIG
#B1.15
RMOVIVA.INTRA
#B1.25
#B1.30
#B1.35
#B1.40
MESSAGE ADD,F1.100
MESSAGE ADD,F1.101
#B1.105
#B1.110
USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)(23.TIPO="F")(26.REGSPIVAE;0)
JOIN MOV INTO NUMREG==NUMREG
JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
JOIN %IVA ALIAS 201 INTO CODTAB==CODIVA
JOIN 26 TO MOV INTO CODCAUS==CODCAUS
JOIN %STA TO CLIFO ALIAS 202 INTO CODTAB==STATOCF