diff --git a/ve/batbgmc.h b/ve/batbgmc.h index 1d9a73b4e..4feed1b46 100755 --- a/ve/batbgmc.h +++ b/ve/batbgmc.h @@ -1,5 +1,6 @@ -#define F_CODICE 101 -#define F_TIPO 102 -#define F_DESCR 103 +#define F_CODICE1 101 +#define F_CODICE2 102 +#define F_TIPO 103 +#define F_DESCR 104 diff --git a/ve/batbgmc.uml b/ve/batbgmc.uml index 0c94980c8..b723eac7c 100755 --- a/ve/batbgmc.uml +++ b/ve/batbgmc.uml @@ -6,21 +6,30 @@ ENDPAGE PAGE "Gruppi merceologici " 11 60 14 - -STRING F_CODICE 2 +STRING F_CODICE1 3 BEGIN PROMPT 4 4 "Codice merceologico " - FIELD %GMC->CODTAB + FIELD %GMC->CODTAB[1,3] + KEY 1 + FLAG "U" +END + +STRING F_CODICE2 2 +BEGIN + PROMPT 32 4 "" + FIELD %GMC->CODTAB[4,5] KEY 1 USE %GMC - FLAG "U" - FLAG "R" - INPUT CODTAB F_CODICE + FLAG "UR" + INPUT CODTAB[1,3] F_CODICE1 + INPUT CODTAB[4,5] F_CODICE2 DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE CODTAB + OUTPUT F_CODICE1 CODTAB[1,3] + OUTPUT F_CODICE2 CODTAB[4,5] OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED + CHECKTYPE NORMAL + VALIDATE AUTOEXIT_FUNC 1 F_CODICE1 END STRING F_DESCR 50 @@ -32,12 +41,11 @@ BEGIN INPUT S0 F_DESCR DISPLAY "Codice " CODTAB DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE CODTAB + OUTPUT F_CODICE1 CODTAB[1,3] + OUTPUT F_CODICE2 CODTAB[4,5] OUTPUT F_DESCR S0 CHECKTYPE REQUIRED - END - GROUPBOX DLG_NULL 70 7 BEGIN @@ -45,8 +53,6 @@ BEGIN FLAG "R" END - - ENDPAGE ENDMASK diff --git a/ve/batbums.h b/ve/batbums.h new file mode 100755 index 000000000..4bb76bf53 --- /dev/null +++ b/ve/batbums.h @@ -0,0 +1,4 @@ +#define F_UM 101 +#define F_DESCR 102 +#define F_UMR 103 +#define F_FC 104 diff --git a/ve/batbums.uml b/ve/batbums.uml new file mode 100755 index 000000000..0d68bce0a --- /dev/null +++ b/ve/batbums.uml @@ -0,0 +1,60 @@ +#include "BATBUM.h" + +TOOLBAR "" 0 20 60 2 + #include +ENDPAGE + +PAGE "Unit… di misura " 11 60 14 + +STRING F_UM 2 +BEGIN + PROMPT 4 4 "Unit… di misura " + FIELD %UM->CODTAB + KEY 1 + FLAG "U" + USE %UM + FLAG "U" + INPUT CODTAB F_UM + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UM CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN + PROMPT 4 6 "Descrizione " + FIELD %UM->S0 + KEY 2 + USE %UM KEY 2 + INPUT S0 F_DESCR + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UM CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_UMR 2 +BEGIN + PROMPT 4 10 "Unit… di riferimento " + FIELD %UM->S7 + FLAG "U" +END + +NUMBER F_FC 15 5 +BEGIN + PROMPT 4 12 "Fattore conv. al rif. " + FIELD %UM->R0 +END + +GROUPBOX DLG_NULL 70 7 +BEGIN + PROMPT 3 2 "" + FLAG "R" +END + +ENDPAGE + +ENDMASK