diff --git a/ba/batb%cfi.uml b/ba/batb%cfi.uml index f1121bdb2..e2354b49b 100755 --- a/ba/batb%cfi.uml +++ b/ba/batb%cfi.uml @@ -1,45 +1,45 @@ -#include - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Legali" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %CFI - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %CFI KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK +#include + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Legali" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %CFI + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + FIELD LF_TABCOM->S0 + KEY 2 + USE %CFI KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batb%cve.uml b/ba/batb%cve.uml index ffc6333c2..5e43b9d5d 100755 --- a/ba/batb%cve.uml +++ b/ba/batb%cve.uml @@ -1,54 +1,54 @@ -#include - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Categorie di vendita " -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %CVE - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 +#include + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Categorie di vendita " -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %CVE + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 DISPLAY "Provvigione" R0 DISPLAY "Gruppo" I1 DISPLAY "Conto" I2 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 OUTPUT F_PROVV R0 OUTPUT F_GRUPPO I1 OUTPUT F_CONTO I2 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %CVE KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + FIELD LF_TABCOM->S0 + KEY 2 + USE %CVE KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB DISPLAY "Provvigione" R0 DISPLAY "Gruppo" I1 DISPLAY "Conto" I2 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 OUTPUT F_PROVV R0 OUTPUT F_GRUPPO I1 OUTPUT F_CONTO I2 - CHECKTYPE REQUIRED -END + CHECKTYPE REQUIRED +END NUMBER F_PROVV 5 2 BEGIN @@ -61,14 +61,14 @@ BEGIN PROMPT 30 6 "Gruppo " FIELD LF_TABCOM->I1 END - + NUMBER F_CONTO 2 BEGIN PROMPT 43 6 "Conto " FIELD LF_TABCOM->I2 END -ENDPAGE -ENDMASK +ENDPAGE +ENDMASK