diff --git a/tc/tcipval.uml b/tc/tcipval.uml index 090d0271e..ec022ea01 100755 --- a/tc/tcipval.uml +++ b/tc/tcipval.uml @@ -25,17 +25,17 @@ BEGIN PROMPT 2 2 "" USE LF_MULTIREL JOIN %VAL INTO CODTAB==FIRST - JOIN &IVA INTO CODTAB==DATA + JOIN &IVL INTO CODTAB==DATA INPUT COD F_COD SELECT INPUT FIRST F_CODTAB DISPLAY "Codice valuta" FIRST DISPLAY "Descrizione@60" %VAL->S0 DISPLAY "Sigla valuta IPSOA" DATA - DISPLAY "Descrizione@50" &IVA->S0 + DISPLAY "Descrizione@50" &IVL->S0 OUTPUT F_CODTAB FIRST OUTPUT F_DESC %VAL->S0 OUTPUT F_COD_CAMPO DATA - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED FIELD FIRST FLAGS "UZG" KEY 1 @@ -47,16 +47,16 @@ BEGIN PROMPT 2 2 "" USE %VAL JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB - JOIN &IVA TO LF_MULTIREL INTO CODTAB==DATA + JOIN &IVL TO LF_MULTIREL INTO CODTAB==DATA INPUT CODTAB F_CODTAB1 DISPLAY "Cod." CODTAB DISPLAY "Descrizione@50" S0 DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA - DISPLAY "Descrizione@50" &IVA->S0 + DISPLAY "Descrizione@50" &IVL->S0 OUTPUT F_CODTAB CODTAB OUTPUT F_CODTAB1 CODTAB OUTPUT F_DESC S0 - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED FIELD FIRST FLAGS "UZ" KEY 1 @@ -68,12 +68,12 @@ BEGIN PROMPT 10 2 "Descrizione " USE %VAL KEY 2 JOIN LF_MULTIREL INTO COD=="IPVAL" FIRST==CODTAB - JOIN &IVA TO LF_MULTIREL INTO CODTAB==DATA + JOIN &IVL TO LF_MULTIREL INTO CODTAB==DATA INPUT S0 F_DESC DISPLAY "Descrizione@50" S0 DISPLAY "Cod." CODTAB DISPLAY "Sigla valuta IPSOA" LF_MULTIREL->DATA - DISPLAY "Descrizione@50" &IVA->S0 + DISPLAY "Descrizione@50" &IVL->S0 COPY OUTPUT F_CODTAB1 KEY 2 GROUP 3 @@ -85,7 +85,7 @@ BEGIN PROMPT 2 4 "Codice Valuta IPSOA " FIELD DATA FLAGS "UZ" - USE &IVA + USE &IVL INPUT CODTAB F_COD_CAMPO DISPLAY "Cod." CODTAB DISPLAY "Descrizione@50" S0 @@ -97,7 +97,7 @@ END STRING F_DESC1 50 35 BEGIN PROMPT 37 4 "" - USE &IVA KEY 2 + USE &IVL KEY 2 INPUT S0 F_DESC1 DISPLAY "Descrizione@60" S0 DISPLAY "Codice" CODTAB diff --git a/tc/tctbiva.h b/tc/tctbivl.h similarity index 100% rename from tc/tctbiva.h rename to tc/tctbivl.h diff --git a/tc/tctbiva.uml b/tc/tctbivl.uml similarity index 89% rename from tc/tctbiva.uml rename to tc/tctbivl.uml index 90dea830a..cdc20ca5f 100755 --- a/tc/tctbiva.uml +++ b/tc/tctbivl.uml @@ -1,4 +1,4 @@ -#include "tctbiva.h" +#include "tctbivl.h" TOOLBAR "topbar" 0 0 0 2 #include @@ -14,13 +14,13 @@ END STRING F_CODTAB 3 BEGIN PROMPT 2 2 "Codice " - USE &IVA + USE &IVL INPUT CODTAB F_CODTAB DISPLAY "Codice" CODTAB DISPLAY "Descrizione@60" S0 OUTPUT F_CODTAB CODTAB OUTPUT F_DESC S0 - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED FIELD CODTAB VALIDATE FIXLEN_FUNC 3 KEY 1 @@ -29,7 +29,7 @@ END STRING F_DESC 50 BEGIN PROMPT 2 5 "Descrizione " - USE &IVA KEY 2 + USE &IVL KEY 2 INPUT S0 F_DESC DISPLAY "Descrizione@60" S0 DISPLAY "Codice" CODTAB