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

Tolta la ditta dalla maschera

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1064 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-03-02 09:45:31 +00:00
parent 5618a10ed2
commit abd7acd6af
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ba/batbinl.uml
View File

@ -121,7 +121,7 @@ BEGIN
PROMPT 1 8 "Codice registro " PROMPT 1 8 "Codice registro "
FIELD CODREG FIELD CODREG
FLAGS "UZ" FLAGS "UZ"
USE REG SELECT CODTAB[1,4]=#F_ANNO USE REG
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODREG INPUT CODTAB[5,7] F_CODREG
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
@ -129,14 +129,13 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODREG CODTAB[5,7] OUTPUT F_CODREG CODTAB[5,7]
OUTPUT F_DESCREG S0 OUTPUT F_DESCREG S0
VALIDATE NOT_EMPTY_CHECK_FIELD
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_DESCREG 50 STRING F_DESCREG 50
BEGIN BEGIN
PROMPT 1 9 "Descrizione " PROMPT 1 9 "Descrizione "
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO USE REG KEY 2
INPUT S0 F_DESCREG INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice registro" CODLIB DISPLAY "Codice registro" CODLIB
@ -193,8 +192,10 @@ BOOLEAN F_PANN_LU
BEGIN BEGIN
PROMPT 36 16 "Pagine libro unico annullate" PROMPT 36 16 "Pagine libro unico annullate"
FIELD ANNULLATE FIELD ANNULLATE
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG
MESSAGE TRUE CLEAR,F_DITTA|DISABLE,F_RAGSOC
MESSAGE TRUE CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG
END END
ENDPAGE ENDPAGE