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

Tabellazza cambi giornalieri OK

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1711 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-08-18 09:18:20 +00:00
parent 68e4716f9d
commit 94a28b8632
2 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba3100.cpp
View File

@ -173,7 +173,7 @@ bool TGeneric_table_app::user_create()
}
if (name == "%DEL")
mask.set_handler(F_IMPORTO, impdel_handler);
if (name == "%CAM")
if (name == "CAM")
set_search_field(FLD_TABCAM_D0);
return TRUE;

23
ba/batbcam.uml
View File

@ -13,12 +13,13 @@ BEGIN
PROMPT 3 1 "Cod. valuta "
FLAGS "UZ"
KEY 1
FIELD %CAM->CODTAB[1,3]
FIELD CAM->CODTAB[1,3]
USE %VAL KEY 1
INPUT CODTAB FLD_TABCAM_CODVAL
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_S0 S0
DISPLAY "Codice" CODTAB
DISPLAY "Valuta@25" S0
DISPLAY "Valuta@50" S0
HELP "Codice della valuta"
CHECKTYPE REQUIRED
WARNING "Manca il codice valuta"
@ -28,7 +29,7 @@ DATE 200
BEGIN
PROMPT 30 1 ""
FLAGS "D"
FIELD %CAM->D0
FIELD CAM->D0
END
DATE FLD_TABCAM_D0
@ -36,7 +37,7 @@ BEGIN
PROMPT 25 1 "Data "
FLAGS "GR"
KEY 1
USE %CAM KEY 1
USE CAM KEY 1
FIELD CODTAB[4,11]
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL
INPUT CODTAB[4,11] FLD_TABCAM_D0
@ -57,19 +58,9 @@ END
STRING FLD_TABCAM_S0 50
BEGIN
PROMPT 3 3 "Descrizione "
KEY 2
USE %CAM KEY 2
FLAGS "DG"
FIELD S0
INPUT S0 FLD_TABCAM_S0
DISPLAY "Valuta" CODTAB[1,3]
DISPLAY "Data@10" D0
DISPLAY "Descrizione@25" S0
DISPLAY "Cambio@15" R10
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
OUTPUT FLD_TABCAM_D0 CODTAB[4,11]
OUTPUT FLD_TABCAM_S0 S0
OUTPUT 200 CODTAB[4,11]
HELP "Descrizione del cambio"
HELP "Descrizione valuta"
END
NUMBER FLD_TABCAM_R0 15 5