Dichiarazione IVA Quadro VE
NUMREG+CODIVA
MESSAGE RESET,F2
NUMREG+" "+CODIVA
201@.S3="1"
201@.S3
RMOVIVA.NUMREG
RMOVIVA.NUMRIG
MOV.DATAREG
RMOVIVA.INTRA
MOV.DATADOC
MOV.NUMDOC
MOV.CODCAUS
CLIFO.RAGSOC
RMOVIVA.IMPONIBILE
MESSAGE ADD,F2.100
RMOVIVA.CODIVA
#B1.5
RMOVIVA.NUMRIG
#B1.15
RMOVIVA.INTRA
#B1.25
#B1.30
#B1.35
#B1.40
#B1.105
201@.S3
MESSAGE ADD,F1.100
USE RMOVIVA SELECT (23.ANNOIVA=#ANNO)((201@.S3="1")||(201@.S3="2"))
JOIN MOV INTO NUMREG==NUMREG
JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF
JOIN %IVA ALIAS 201 INTO CODTAB=CODIVA