diff --git a/lv/lv0300a.h b/lv/lv0300a.h index c5f70dc9f..bc5ed1873 100755 --- a/lv/lv0300a.h +++ b/lv/lv0300a.h @@ -38,25 +38,27 @@ #define F_CAUSLAV 223 #define F_CAUSLAVDESC 224 -#define F_CODMAGN 225 -#define F_DESMAGN 226 -#define F_CODMAGC 227 -#define F_DESMAGC 228 +#define F_CODMAG 225 +#define F_DESMAG 226 +#define F_CODMAGN 227 +#define F_DESMAGN 228 +#define F_CODMAGC 229 +#define F_DESMAGC 230 -#define F_PATH_CON 229 -#define F_PATH_MAN 230 -#define F_PATH_LAVA 231 +#define F_PATH_CON 231 +#define F_PATH_MAN 232 +#define F_PATH_LAVA 233 -#define F_UNICONT 232 -#define F_AUTGIRI 233 -#define F_DATAFISSA 234 -#define F_AGGCONG 235 -#define F_PERARR 236 -#define F_RIFOR 237 -#define F_ARTCANFIS 238 -#define F_GESTSACA 239 -#define F_ALMANAC 240 -#define F_USEINDSP 241 +#define F_UNICONT 234 +#define F_AUTGIRI 235 +#define F_DATAFISSA 236 +#define F_AGGCONG 237 +#define F_PERARR 238 +#define F_RIFOR 239 +#define F_ARTCANFIS 240 +#define F_GESTSACA 241 +#define F_ALMANAC 242 +#define F_USEINDSP 243 #define S_CODNUM_RIT 101 #define S_TIPODOC_RIT 102 diff --git a/lv/lv0300a.uml b/lv/lv0300a.uml index f26fb57b8..99b46d8ce 100755 --- a/lv/lv0300a.uml +++ b/lv/lv0300a.uml @@ -415,18 +415,41 @@ BEGIN PROMPT 1 1 "@bMagazzini" END -STRING F_CODMAGN 4 +STRING F_CODMAG 4 BEGIN - PROMPT 2 2 "Magazzino del nuovo " + PROMPT 2 2 "Magazzino " + FIELD CODMAG + USE MAG SELECT CODTAB[4,5]=="" + FLAG "U" + INPUT CODTAB F_CODMAG + DISPLAY "Codice " CODTAB[1,3] + DISPLAY "Denominazione mag.@50 " S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_DESMAG S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAG 50 +BEGIN + PROMPT 20 2 "" + FLAGS "D" +END + +STRING F_CODMAGN 3 +BEGIN + PROMPT 2 3 "Dep. nuovo " HELP "Codice deposito del nuovo" FIELD CODMAGN KEY 1 - USE MAG SELECT CODTAB[4,5]=="" - FLAG "U" - INPUT CODTAB F_CODMAGN - DISPLAY "Codice " CODTAB[1,3] - DISPLAY "Denominazione mag.@50 " S0 - OUTPUT F_CODMAGN CODTAB[1,3] + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGN + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGN CODTAB[4,5] OUTPUT F_DESMAGN S0 CHECKTYPE REQUIRED FLAGS "UPA" @@ -434,23 +457,25 @@ END STRING F_DESMAGN 50 BEGIN - PROMPT 2 3 " " + PROMPT 20 3 "" HELP "Descrizione Magazzino" FLAGS "D" END -STRING F_CODMAGC 4 +STRING F_CODMAGC 3 BEGIN - PROMPT 2 4 "Magazzino del circolante " + PROMPT 2 4 "Dep. circ. " HELP "Codice deposito del circolante" FIELD CODMAGC KEY 1 - USE MAG SELECT CODTAB[4,5]=="" - FLAG "U" - INPUT CODTAB F_CODMAGC - DISPLAY "Codice " CODTAB[1,3] - DISPLAY "Denominazione mag.@50 " S0 - OUTPUT F_CODMAGC CODTAB[1,3] + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGC + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGC CODTAB[4,5] OUTPUT F_DESMAGC S0 CHECKTYPE REQUIRED FLAGS "UPA" @@ -458,7 +483,7 @@ END STRING F_DESMAGC 50 BEGIN - PROMPT 2 5 " " + PROMPT 20 4 "" HELP "Descrizione Magazzino" FLAGS "D" END