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") if (name == "%DEL")
mask.set_handler(F_IMPORTO, impdel_handler); mask.set_handler(F_IMPORTO, impdel_handler);
if (name == "%CAM") if (name == "CAM")
set_search_field(FLD_TABCAM_D0); set_search_field(FLD_TABCAM_D0);
return TRUE; return TRUE;

23
ba/batbcam.uml
View File

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