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
20
21
20
21
21
20
20
21
20
21
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
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 @
"F2.5"
#100 @
+
THEN
ELSE
#85 @
"C"
C;E;
IF
#50 @
"F3.5"
#100 @
+
THEN
THEN
+!
#100 @
"07"
C;
IF
#85 @
"C"
C;E;
IF
#60 @
"F2.6"
#100 @
+
THEN
ELSE
#85 @
"C"
C;E;
IF
#60 @
"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
#101
#101+#102
#101+#102+#103
#101+#102+#103+#104
#101+#102+#103+#104+#105
#101+#102+#103+#104+#105+#106
#201
#201+#202
#201+#202+#203
#201+#202+#203+#204
#201+#202+#203+#204+#205
#201+#202+#203+#204+#205+#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
#101
#101+#102
#101+#102+#103
#101+#102+#103+#104
#101+#102+#103+#104+#105
#101+#102+#103+#104+#105+#106
#201
#201+#202
#201+#202+#203
#201+#202+#203+#204
#201+#202+#203+#204+#205
#201+#202+#203+#204+#205+#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
#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