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

Aggiunto filtro sul codice valuta

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2169 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-11-18 11:07:55 +00:00
parent 89f14cb943
commit 0e625361e3
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ba/batbcam.uml
View File

@ -16,11 +16,12 @@ BEGIN
FIELD CODTAB[1,3]
USE %VAL
INPUT CODTAB FLD_TABCAM_CODVAL
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_S0 S0
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@50" S0
CHECKTYPE FORCED
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_S0 S0
// CHECKTYPE FORCED
CHECKTYPE REQUIRED
WARNING "Valuta assente"
END
@ -34,12 +35,12 @@ END
DATE FLD_TABCAM_D0
BEGIN
PROMPT 25 1 "Data "
FLAGS "GR"
FIELD CODTAB[4,11]
FLAGS "R"
KEY 1
USE CAM
FIELD CODTAB[4,11]
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL
INPUT CODTAB[4,11] FLD_TABCAM_D0
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT
INPUT CODTAB[4,11] FLD_TABCAM_D0
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0
DISPLAY "Descrizione@25" S0
@ -49,7 +50,7 @@ BEGIN
OUTPUT 200 D0
CHECKTYPE REQUIRED
MESSAGE COPY,200
WARNING "Data mancante"
WARNING "Data assente"
END
@ -64,7 +65,6 @@ BEGIN
PROMPT 3 5 "Cambio "
FIELD R10
PICTURE ".5"
FLAGS "R"
END