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_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

61
lv/lv0300a.uml
View File

@ -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