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

Corretta ins.dei depositi:wq

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4076 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-01-14 14:51:36 +00:00
parent c99ad845d3
commit 70e923b00a
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ve/batbmag.uml
View File

@ -43,8 +43,13 @@ BEGIN
FIELD CODTAB[4,5] FIELD CODTAB[4,5]
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
// abilit. CODDEP sempre:
USE MAG USE MAG
INPUT CODTAB[1,3] F_CODICE INPUT CODTAB[1,3] F_CODICE
// abilit. CODDEP solo per i magazzini che lo consentono:
// ATTENZIONE! da' stack overflow
//USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
INPUT CODTAB[4,5] F_CODDEP INPUT CODTAB[4,5] F_CODDEP
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
@ -55,8 +60,9 @@ BEGIN
MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA
MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
CHECKTYPE NORMAL CHECKTYPE NORMAL
//VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP // controllo abilit. CODDEP (utilizzabile sempre)
//GROUP GR_SEARCH STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
WARNING "Il magazzino deve essere abilitato alla gestione dei depositi"
END END
//Abilitazione/disabil. dei campi relativi al deposito //Abilitazione/disabil. dei campi relativi al deposito
@ -64,11 +70,13 @@ BOOLEAN H_GESTGIA
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
FLAGS "GH" FLAGS "GH"
MESSAGE TRUE ENABLE,F_CODDEP//|ENABLE,F_DESDEP // abilit. CODDEP sempre:
MESSAGE FALSE DISABLE,F_CODDEP // --rimuovere i campi MESSAGE--
// abilit. CODDEP solo per i magazzini che lo consentono:
MESSAGE TRUE SHOW,F_CODDEP//|ENABLE,F_DESDEP
MESSAGE FALSE HIDE,F_CODDEP
END END
STRING H_DESCR 50 STRING H_DESCR 50
BEGIN BEGIN
PROMPT 2 3 "Denominazione mag. " PROMPT 2 3 "Denominazione mag. "
@ -254,6 +262,7 @@ END
STRING F_CODMAGSTA 3 STRING F_CODMAGSTA 3
BEGIN BEGIN
PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti " PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
FLAGS "U"
FIELD S6 FIELD S6
USE MAG SELECT CODTAB[4,5] == "" USE MAG SELECT CODTAB[4,5] == ""
INPUT CODTAB[1,3] F_CODMAGSTA INPUT CODTAB[1,3] F_CODMAGSTA
@ -268,6 +277,7 @@ END
STRING F_CODLGIOR 3 STRING F_CODLGIOR 3
BEGIN BEGIN
PROMPT 2 3 "Codice libro giornale " PROMPT 2 3 "Codice libro giornale "
FLAGS "U"
FIELD S8 FIELD S8
USE REG USE REG
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO