Dichiarazione IVA Quadro VF 26-5 - San Marino
"Pag. " +#PAGE
RMOVIVA.INTRA
MESSAGE RESET,F1
#SYSTEM.RAGSOC
"Data di Stampa: " +#SYSTEM.DATE
"ELENCO FATTURE ACQUISTO DA SAN MARINO - " +#ANNO
NUMREG+CODIVA
MESSAGE RESET,F2
NUMREG+" "+CODIVA
201@.S3
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
#B1.5
RMOVIVA.NUMRIG
#B1.15
RMOVIVA.INTRA
#B1.25
#B1.30
#B1.35
#B1.40
#B1.105
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@.S3="")(202@.B1="X")
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