diff --git a/src/ic/ic0100.cpp b/src/ic/ic0100.cpp index 0f996f0db..6adeb1c17 100644 --- a/src/ic/ic0100.cpp +++ b/src/ic/ic0100.cpp @@ -1,4 +1,5 @@ #include +#include #include #include "ic0.h" diff --git a/src/ic/ic0100f.rep b/src/ic/ic0100f.rep index 5dde95d2d..1c83fbcab 100644 --- a/src/ic/ic0100f.rep +++ b/src/ic/ic0100f.rep @@ -3,58 +3,62 @@
+ 0 #F1.101 ! +0 #F1.102 ! +0 #F1.103 ! IF(#TIPOIVA==1,"VENDITE", "ACQUISTI") + " CON IVA " + IF(#TIPODIFF==1,"DIFFERITA", "PER CASSA") - - - IF(#DAL="",""," DAL "+#DAL) + IF(#AL="","", " AL "+#AL) - + + + IF(#DAL="",""," DAL "+#DAL) + IF(#AL="","", " AL "+#AL) +
NUMREG + 0 #F2.101 ! +0 #F2.102 ! +0 #F2.103 ! - - MOV.NUMDOC - - - - MOV.DATADOC - - - CLIFO.RAGSOC - - - - - - - - - - - NUMREG - - - DATAREG - - - IF(#TIPOIVA==1,"D","A") - -
  • -
  • - - - - MOV.TOTDOC - - - CHIUSA - - + + MOV.NUMDOC + + + + MOV.DATADOC + + + CLIFO.RAGSOC + + + + + + + + + NUMREG + + + DATAREG + + + IF(#TIPOIVA==1,"D","A") + +
  • +
  • + + + + MOV.TOTDOC + + + CHIUSA + +
  • @@ -66,32 +70,118 @@ DATAREGP DATAREG - - SEZIONE - -
  • -
  • - - IMPORTO + #100 @ +"A" += +IF +-1 +ELSE +1 +THEN +#THIS @ +* +#F2.101 +! IMPONIBILE + #THIS @ +#F2.102 +! CODIVA IMPOSTA + #THIS @ +#F2.103 +! - CHIUSA - + CHIUSA + + + SEZIONE + +
  • +
  • + +
  • -
    -
    +
    + + + + SEZIONE + +
  • +
  • + + + + #THIS @ +0 +C; +IF +"A" #100 ! +#THIS +-1 +* +#THIS ! +ELSE +"D" #100 ! +THEN + + + + +
  • +
    + + + + SEZIONE + +
  • +
  • + + + + #THIS @ +0 +C; +IF +"A" #100 ! +#THIS +-1 +* +#THIS ! +ELSE +"D" #100 ! +THEN + + #100 @ +"A" += +IF +-1 +ELSE +1 +THEN +#THIS @ +* +#F1.101 +! + + + #THIS @ +#F1.102 +! + + + #THIS @ +#F1.103 +! + +
  • USE IVADIFF SELECT (BETWEEN(DATAREG,#DAL,#AL))(TIPOIVA==#TIPOIVA)(TIPODIFF==#TIPODIFF)((CHIUSA=#CHIUSA)||(#CHIUSA="T")) JOIN MOV INTO NUMREG==NUMREG JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF diff --git a/src/ic/ic0200.cpp b/src/ic/ic0200.cpp index 23927f826..d6719f489 100644 --- a/src/ic/ic0200.cpp +++ b/src/ic/ic0200.cpp @@ -1,4 +1,5 @@ #include +#include #include #include "ic0.h" diff --git a/src/ic/ic0200p.rep b/src/ic/ic0200p.rep index b3b8744f4..1588128e4 100644 --- a/src/ic/ic0200p.rep +++ b/src/ic/ic0200p.rep @@ -3,11 +3,14 @@
    + 0 #F1.101 ! +0 #F1.102 ! +0 #F1.103 ! IF(#TIPOIVA==1,"INCASSI", "PAGAMENTI") + " CON IVA " + IF(#TIPODIFF==1,"DIFFERITA", "PER CASSA") - + IF(#DAL="",""," DAL "+#DAL) + IF(#AL="","", " AL "+#AL) @@ -15,6 +18,9 @@
    NUMREG + 0 #F2.101 ! +0 #F2.102 ! +0 #F2.103 ! @@ -27,38 +33,36 @@ CLIFO.RAGSOC - - - - - - - - - - NUMREG - - - DATAREG - - - IF(#TIPOIVA==1,"D","A") - -
  • -
  • - - - - MOV.TOTDOC - - - CHIUSA - - + + + + + + + + NUMREG + + + DATAREG + + + IF(#TIPOIVA==1,"D","A") + +
  • +
  • + + + + MOV.TOTDOC + + + CHIUSA + +
  • - + IF(NUMREGP==NUMREG,"",NUMREGP) @@ -73,23 +77,110 @@ IMPORTO + #100 @ +"A" += +IF +-1 +ELSE +1 +THEN +#THIS @ +* +#F2.101 +! IMPONIBILE + #THIS @ +#F2.102 +! CODIVA IMPOSTA + #THIS @ +#F2.103 +! - CHIUSA + CHIUSA
    -
    - USE IVADIFF SELECT (BETWEEN(DATAREGP,#DAL,#AL))(TIPOIVA==#TIPOIVA)(TIPODIFF==#TIPODIFF)(NUMPRO>0)((CHIUSA=#CHIUSA)||(#CHIUSA="T")) +
    + + + + SEZIONE + +
  • +
  • + + + + #THIS @ +0 +C; +IF +"A" #100 ! +#THIS +-1 +* +#THIS ! +ELSE +"D" #100 ! +THEN + + + + +
  • +
    + + + + SEZIONE + +
  • +
  • + + + + #THIS @ +0 +C; +IF +"A" #100 ! +#THIS +-1 +* +#THIS ! +ELSE +"D" #100 ! +THEN + + #100 @ +"A" += +IF +-1 +ELSE +1 +THEN +#THIS @ +* +#F1.101 +! + + + #THIS @ +#F1.102 +! + + + #THIS @ +#F1.103 +! + +
  • + USE IVADIFF SELECT (BETWEEN(DATAREGP,#DAL,#AL))(TIPOIVA==#TIPOIVA)(TIPODIFF==#TIPODIFF)(NUMPROE;0)((CHIUSA=#CHIUSA)||(#CHIUSA="T")) BY NUMREG DATAREGP NUMREGP JOIN MOV INTO NUMREG==NUMREG JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF