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

Tolti LF_*-> errati

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2080 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-11-03 10:35:11 +00:00
parent 16cec7fc31
commit 05029328bb
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ba/batbcam.uml
View File

@ -13,14 +13,13 @@ BEGIN
PROMPT 3 1 "Cod. valuta " PROMPT 3 1 "Cod. valuta "
FLAGS "UZ" FLAGS "UZ"
KEY 1 KEY 1
FIELD CAM->CODTAB[1,3] FIELD CODTAB[1,3]
USE %VAL KEY 1 USE %VAL
INPUT CODTAB FLD_TABCAM_CODVAL INPUT CODTAB FLD_TABCAM_CODVAL
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3] OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_S0 S0 OUTPUT FLD_TABCAM_S0 S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Valuta@50" S0 DISPLAY "Valuta@50" S0
HELP "Codice della valuta"
CHECKTYPE FORCED CHECKTYPE FORCED
WARNING "Valuta assente" WARNING "Valuta assente"
END END
@ -29,7 +28,7 @@ DATE 200
BEGIN BEGIN
PROMPT 30 1 "" PROMPT 30 1 ""
FLAGS "D" FLAGS "D"
FIELD CAM->D0 FIELD D0
END END
DATE FLD_TABCAM_D0 DATE FLD_TABCAM_D0
@ -51,7 +50,6 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,200 MESSAGE COPY,200
WARNING "Data mancante" WARNING "Data mancante"
HELP "Data dell'ultimo cambio"
END END
@ -59,13 +57,12 @@ STRING FLD_TABCAM_S0 50
BEGIN BEGIN
PROMPT 3 3 "Descrizione " PROMPT 3 3 "Descrizione "
FLAGS "D" FLAGS "D"
HELP "Descrizione valuta"
END END
NUMBER FLD_TABCAM_R0 15 5 NUMBER FLD_TABCAM_R0 15 5
BEGIN BEGIN
PROMPT 3 5 "Cambio " PROMPT 3 5 "Cambio "
FIELD LF_TABCOM->R10 FIELD R10
PICTURE ".5" PICTURE ".5"
FLAGS "R" FLAGS "R"
END END