root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 patch 238

Browse Source 
Files correlati     : lv0300a.msk
Ricompilazione Demo : [ ]
Commento            :
aggiunta gestione depositi nel magazzino


git-svn-id: svn://10.65.10.50/trunk@18248 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-02-11 16:58:11 +00:00
parent 93903b19b7
commit f13db7efb2
2 changed files with 62 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lv/lv0300a.h
View File

@ -38,25 +38,27 @@
#define F_CAUSLAV 223 #define F_CAUSLAV 223
#define F_CAUSLAVDESC 224 #define F_CAUSLAVDESC 224
#define F_CODMAGN 225 #define F_CODMAG 225
#define F_DESMAGN 226 #define F_DESMAG 226
#define F_CODMAGC 227 #define F_CODMAGN 227
#define F_DESMAGC 228 #define F_DESMAGN 228
#define F_CODMAGC 229
#define F_DESMAGC 230
#define F_PATH_CON 229 #define F_PATH_CON 231
#define F_PATH_MAN 230 #define F_PATH_MAN 232
#define F_PATH_LAVA 231 #define F_PATH_LAVA 233
#define F_UNICONT 232 #define F_UNICONT 234
#define F_AUTGIRI 233 #define F_AUTGIRI 235
#define F_DATAFISSA 234 #define F_DATAFISSA 236
#define F_AGGCONG 235 #define F_AGGCONG 237
#define F_PERARR 236 #define F_PERARR 238
#define F_RIFOR 237 #define F_RIFOR 239
#define F_ARTCANFIS 238 #define F_ARTCANFIS 240
#define F_GESTSACA 239 #define F_GESTSACA 241
#define F_ALMANAC 240 #define F_ALMANAC 242
#define F_USEINDSP 241 #define F_USEINDSP 243
#define S_CODNUM_RIT 101 #define S_CODNUM_RIT 101
#define S_TIPODOC_RIT 102 #define S_TIPODOC_RIT 102

61
lv/lv0300a.uml
View File

@ -415,18 +415,41 @@ BEGIN
PROMPT 1 1 "@bMagazzini" PROMPT 1 1 "@bMagazzini"
END END
STRING F_CODMAGN 4 STRING F_CODMAG 4
BEGIN 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" HELP "Codice deposito del nuovo"
FIELD CODMAGN FIELD CODMAGN
KEY 1 KEY 1
USE MAG SELECT CODTAB[4,5]=="" USE MAG
FLAG "U" INPUT CODTAB[1,3] F_CODMAG SELECT
INPUT CODTAB F_CODMAGN INPUT CODTAB[4,5] F_CODMAGN
DISPLAY "Codice " CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0 DISPLAY "Cod. deposito" CODTAB[4,5]
OUTPUT F_CODMAGN CODTAB[1,3] DISPLAY "Denominazione dep.@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_CODMAGN CODTAB[4,5]
OUTPUT F_DESMAGN S0 OUTPUT F_DESMAGN S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "UPA" FLAGS "UPA"
@ -434,23 +457,25 @@ END
STRING F_DESMAGN 50 STRING F_DESMAGN 50
BEGIN BEGIN
PROMPT 2 3 " " PROMPT 20 3 ""
HELP "Descrizione Magazzino" HELP "Descrizione Magazzino"
FLAGS "D" FLAGS "D"
END END
STRING F_CODMAGC 4 STRING F_CODMAGC 3
BEGIN BEGIN
PROMPT 2 4 "Magazzino del circolante " PROMPT 2 4 "Dep. circ. "
HELP "Codice deposito del circolante" HELP "Codice deposito del circolante"
FIELD CODMAGC FIELD CODMAGC
KEY 1 KEY 1
USE MAG SELECT CODTAB[4,5]=="" USE MAG
FLAG "U" INPUT CODTAB[1,3] F_CODMAG SELECT
INPUT CODTAB F_CODMAGC INPUT CODTAB[4,5] F_CODMAGC
DISPLAY "Codice " CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0 DISPLAY "Cod. deposito" CODTAB[4,5]
OUTPUT F_CODMAGC CODTAB[1,3] DISPLAY "Denominazione dep.@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_CODMAGC CODTAB[4,5]
OUTPUT F_DESMAGC S0 OUTPUT F_DESMAGC S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "UPA" FLAGS "UPA"
@ -458,7 +483,7 @@ END
STRING F_DESMAGC 50 STRING F_DESMAGC 50
BEGIN BEGIN
PROMPT 2 5 " " PROMPT 20 4 ""
HELP "Descrizione Magazzino" HELP "Descrizione Magazzino"
FLAGS "D" FLAGS "D"
END END