diff --git a/ba/batbois.uml b/ba/batbois.uml index 2b87f950a..e681901aa 100755 --- a/ba/batbois.uml +++ b/ba/batbois.uml @@ -1,57 +1,56 @@ -#include "batbois.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Vecchi codici attivita'" -1 -1 78 7 - -STRING FLD_TABOIS_CODTAB 4 -BEGIN - PROMPT 2 1 "Codice " - FIELD %OIS->CODTAB[1,4] - HELP "Codice del vecchio codice attivit…" - USE %OIS - CHECKTYPE REQUIRED - INPUT CODTAB[1,4] FLD_TABOIS_CODTAB - INPUT CODTAB[5,] FLD_TABOIS_ADD - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - DISPLAY "Descrizione@40" S0 - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 1 - FLAGS "RZ" -END - -STRING FLD_TABOIS_ADD 1 -BEGIN - PROMPT 22 1 "Subcodice " - HELP "Subcodice del vecchio codice attivit…" - FIELD %OIS->CODTAB[5,] - COPY ALL FLD_TABOIS_CODTAB - CHECKTYPE REQUIRED - KEY 1 - FLAGS "U" -END - -STRING FLD_TABOIS_S0 40 -BEGIN - PROMPT 2 3 "Descrizione " - FIELD %OIS->S0 - HELP "Descrizione del vecchio codice attivit… " - USE %OIS KEY 2 - CHECKTYPE REQUIRED - INPUT S0 FLD_TABOIS_S0 - DISPLAY "Descrizione@40" S0 - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 2 -END - -ENDPAGE -ENDMASK +#include "batbois.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Vecchi codici attivita'" -1 -1 78 7 + +STRING FLD_TABOIS_CODTAB 4 +BEGIN + PROMPT 2 1 "Codice " + FIELD %OIS->CODTAB[1,4] + HELP "Codice del vecchio codice attivit…" + USE %OIS + INPUT CODTAB[1,4] FLD_TABOIS_CODTAB + INPUT CODTAB[5,] FLD_TABOIS_ADD + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + DISPLAY "Descrizione@40" S0 + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 1 + FLAGS "RZ" +END + +STRING FLD_TABOIS_ADD 1 +BEGIN + PROMPT 22 1 "Subcodice " + HELP "Subcodice del vecchio codice attivit…" + FIELD %OIS->CODTAB[5,] + COPY ALL FLD_TABOIS_CODTAB + KEY 1 + FLAGS "U" + VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB +END + +STRING FLD_TABOIS_S0 40 +BEGIN + PROMPT 2 3 "Descrizione " + FIELD %OIS->S0 + HELP "Descrizione del vecchio codice attivit… " + USE %OIS KEY 2 + CHECKTYPE REQUIRED + INPUT S0 FLD_TABOIS_S0 + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 2 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbucc.h b/ba/batbucc.h index 3823e5e64..8f7834547 100755 --- a/ba/batbucc.h +++ b/ba/batbucc.h @@ -1,11 +1,11 @@ -#define FLD_TABUCC_CODTAB 100 -#define FLD_TABUCC_S0 101 -#define FLD_TABUCC_S1 102 -#define FLD_TABUCC_S2 103 -#define FLD_TABUCC_S6 104 -#define FLD_TABUCC_S6_COMUNI_DENCOM 105 -#define FLD_TABUCC_S6_COMUNI_PROVCOM 109 -#define FLD_TABUCC_S3 106 -#define FLD_TABUCC_S5 107 -#define FLD_TABUCC_S4 108 -#define FLD_TABUCC_S7_CAP 111 +#define FLD_TABUCC_CODTAB 100 +#define FLD_TABUCC_S0 101 +#define FLD_TABUCC_S1 102 +#define FLD_TABUCC_S2 103 +#define FLD_TABUCC_S6 104 +#define FLD_TABUCC_S6_COMUNI_DENCOM 105 +#define FLD_TABUCC_S6_COMUNI_PROVCOM 109 +#define FLD_TABUCC_S3 106 +#define FLD_TABUCC_S5 107 +#define FLD_TABUCC_S4 108 +#define FLD_TABUCC_S7_CAP 111