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

Reso forced il campo valuta

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1885 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-09-25 11:23:22 +00:00
parent 5f9b68430c
commit d6facca03b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ba/batbcam.uml
View File

@ -11,7 +11,7 @@ PAGE "Cambi giornalieri" -1 -1 78 12
STRING FLD_TABCAM_CODVAL 3
BEGIN
PROMPT 3 1 "Cod. valuta "
FLAGS "UZ"
FLAGS "UZ"
KEY 1
FIELD CAM->CODTAB[1,3]
USE %VAL KEY 1
@ -21,24 +21,24 @@ BEGIN
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@50" S0
HELP "Codice della valuta"
CHECKTYPE REQUIRED
WARNING "Manca il codice valuta"
CHECKTYPE FORCED
WARNING "Valuta assente"
END
DATE 200
BEGIN
DATE 200
BEGIN
PROMPT 30 1 ""
FLAGS "D"
FLAGS "D"
FIELD CAM->D0
END
END
DATE FLD_TABCAM_D0
BEGIN
PROMPT 25 1 "Data "
FLAGS "GR"
FLAGS "GR"
KEY 1
USE CAM KEY 1
FIELD CODTAB[4,11]
USE CAM
FIELD CODTAB[4,11]
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL
INPUT CODTAB[4,11] FLD_TABCAM_D0
DISPLAY "Valuta" CODTAB[1,3]
@ -48,7 +48,7 @@ BEGIN
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_D0 D0
OUTPUT 200 D0
CHECKTYPE REQUIRED
CHECKTYPE REQUIRED
MESSAGE COPY,200
WARNING "Data mancante"
HELP "Data dell'ultimo cambio"