Totale iva per aliquota
#SYSTEM.RAGSOC
MOV.TIPO
"PERIODO RIFERIMENTO: " +#DADATA+" - "+#ADATA
SUBSTR(#DADATA,4,5)
#30 @
"07"
C; IF
"20@" SHOW
"21@" HIDE
ELSE
"20@" HIDE
"21@" SHOW
THEN
21
20
21
20
21
20
21
20
21
20
21
20
MESSAGE RESET,F1
SUBSTR(#DADATA,4,5)
#30 @
"07"
C; IF
"F2" SHOW
"F3" HIDE
ELSE
"F2" HIDE
"F3" SHOW
THEN
CODIVA
MESSAGE RESET,F2
RMOVIVA.CODIVA
MESSAGE _TABLEREAD,%IVA,#10,S0
MOV.TIPO="C"
RMOVIVA.ANNOES
RMOVIVA.NUMREG
RMOVIVA.CODIVA
MOV.DATAREG
MOV.TIPODOC
MOV.CODCF
RMOVIVA.TIPODET
20.ALLEG
RMOVIVA.IMPONIBILE
RMOVIVA.IMPOSTA
MOV.CODCAUS
MOV.TIPO
MESSAGE ISAMREAD,26,CODCAUS=#70,REGSPIVA
MOV.SPLITPAY
23.DATAREG[4,5]
#100 @
"07"
C;
IF
#50 @
"F2.1"
#100 @
+
ELSE
#50 @
"F3.1"
#100 @
+
THEN
+!
23.DATAREG[4,5]
#100 @
"07"
C;
IF
#90 @
"S"
C;E;
IF
#60 @
"F2.2"
#100 @
+
THEN
ELSE
#90 @
"S"
C;E;
IF
#60 @
"F3.2"
#100 @
+
THEN
THEN
+!
#100 @
"07"
C;
IF
#80 @
""
=
IF
#50 @
"F2.5"
#100 @
+
THEN
ELSE
#80 @
""
=
IF
#50 @
"F3.5"
#100 @
+
THEN
THEN
+!
#100 @
"07"
C;
IF
#80 @
""
=
IF
#60 @
"F2.6"
#100 @
+
THEN
ELSE
#80 @
""
=
IF
#60 @
"F3.6"
#100 @
+
THEN
THEN
+!
(MOV.TIPO="F")
RMOVIVA.ANNOES
RMOVIVA.NUMREG
RMOVIVA.CODIVA
MOV.DATAREG
MOV.TIPODOC
MOV.CODCF
RMOVIVA.TIPODET
20.COFI
20.PAIV
IF((20.COFI[1,1]E;='8')((20.PAIV[1,1]E;'1')||(20.PAIV[1,1]='')),0,1)
(RMOVIVA.IMPONIBILE)
RMOVIVA.IMPOSTA
MOV.CODCAUS
MOV.TIPO
MESSAGE ISAMREAD,26,CODCAUS=#70,REGSPIVA
20.ALLEG
MOV.SPLITPAY
23.DATAREG[4,5]
#100 @
"07"
C;
IF
#50 @
"F2.1"
#100 @
+
ELSE
#50 @
"F3.1"
#100 @
+
THEN
+!
23.DATAREG[4,5]
#100 @
"07"
C;
IF
#90 @
"S"
C;E;
IF
#60 @
"F2.2"
#100 @
+
THEN
ELSE
#90 @
"S"
C;E;
IF
#60 @
"F3.2"
#100 @
+
THEN
THEN
+!
#100 @
"07"
C;
IF
#85 @
"C"
C;E;
IF
#50 @
#40 @
*
"F2.5"
#100 @
+
THEN
ELSE
#85 @
"C"
C;E;
IF
#50 @
#40 @
*
"F3.5"
#100 @
+
THEN
THEN
+!
#100 @
"07"
C;
IF
#85 @
"C"
C;E;
IF
#60 @
#40 @
*
"F2.6"
#100 @
+
THEN
ELSE
#85 @
"C"
C;E;
IF
#60 @
#40 @
*
"F3.6"
#100 @
+
THEN
THEN
+!
#101+#102+#103+#104+#105+#106
#201+#202+#203+#204+#205+#206
#501+#502+#503+#504+#505+#506
#601+#602+#603+#604+#605+#606
MESSAGE HIDE,20@
#H2.10
#H2.20
MESSAGE ADD,F1.101
MESSAGE ADD,F1.102
MESSAGE ADD,F1.103
MESSAGE ADD,F1.104
MESSAGE ADD,F1.105
MESSAGE ADD,F1.106
MESSAGE ADD,F1.201
MESSAGE ADD,F1.202
MESSAGE ADD,F1.203
MESSAGE ADD,F1.204
MESSAGE ADD,F1.205
MESSAGE ADD,F1.206
MESSAGE ADD,F1.501
MESSAGE ADD,F1.502
MESSAGE ADD,F1.503
MESSAGE ADD,F1.504
MESSAGE ADD,F1.505
MESSAGE ADD,F1.506
MESSAGE ADD,F1.601
MESSAGE ADD,F1.602
MESSAGE ADD,F1.603
MESSAGE ADD,F1.604
MESSAGE ADD,F1.605
MESSAGE ADD,F1.606
#101+#102+#103+#104+#105+#106
#201+#202+#203+#204+#205+#206
#501+#502+#503+#504+#505+#506
#601+#602+#603+#604+#605+#606
#H2.10
#H2.20
MESSAGE ADD,F1.101
MESSAGE ADD,F1.102
MESSAGE ADD,F1.103
MESSAGE ADD,F1.104
MESSAGE ADD,F1.105
MESSAGE ADD,F1.106
MESSAGE ADD,F1.203
MESSAGE ADD,F1.204
MESSAGE ADD,F1.205
MESSAGE ADD,F1.206
MESSAGE ADD,F1.201
MESSAGE ADD,F1.202
MESSAGE ADD,F1.501
MESSAGE ADD,F1.502
MESSAGE ADD,F1.503
MESSAGE ADD,F1.504
MESSAGE ADD,F1.505
MESSAGE ADD,F1.506
MESSAGE ADD,F1.601
MESSAGE ADD,F1.602
MESSAGE ADD,F1.603
MESSAGE ADD,F1.604
MESSAGE ADD,F1.605
MESSAGE ADD,F1.606
#107+#108+#109+#110+#111+#112
#207+#208+#209+#210+#211+#212
#507+#508+#509+#510+#511+#512
#607+#608+#609+#610+#611+#612
USE RMOVIVA SELECT BETWEEN(23.DATAREG,#DADATA,#ADATA)(23.TIPO=#TIPOSEL)
BY CODIVA 23.DATAREG NUMREG
JOIN MOV INTO NUMREG==NUMREG
JOIN 20 TO MOV INTO TIPOCF==TIPO CODCF==CODCF