0598a18452
Files correlati : Ricompilazione Demo : [ ] Commento :tabelle BA in new style git-svn-id: svn://10.65.10.50/trunk@16514 c028cbd2-c16b-5b4b-a496-9718f37d4682
112 lines
2.0 KiB
Plaintext
Executable File
112 lines
2.0 KiB
Plaintext
Executable File
#include "batbcam.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Cambi giornalieri" -1 -1 78 12
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 1 "@bValuta"
|
|
END
|
|
|
|
STRING FLD_TABCAM_CODVAL 3
|
|
BEGIN
|
|
PROMPT 2 3 "Codice "
|
|
FLAGS "UZ"
|
|
KEY 1
|
|
FIELD CODTAB[1,3]
|
|
USE %VAL
|
|
INPUT CODTAB FLD_TABCAM_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Contro EURO" B1
|
|
DISPLAY "Valuta@50" S0
|
|
OUTPUT FLD_TABCAM_CODVAL CODTAB
|
|
OUTPUT FLD_TABCAM_S0 S0
|
|
OUTPUT FLD_TABCAM_I2 I2
|
|
OUTPUT FLD_TABCAM_B1 B1
|
|
CHECKTYPE FORCED
|
|
WARNING "Valuta assente"
|
|
END
|
|
|
|
DATE FLD_DATACAM_COPY
|
|
BEGIN
|
|
PROMPT 9 5 ""
|
|
FLAGS "D"
|
|
FIELD D0
|
|
END
|
|
|
|
DATE FLD_TABCAM_D0
|
|
BEGIN
|
|
PROMPT 2 5 "Data "
|
|
FIELD CODTAB[4,11]
|
|
FLAGS "R"
|
|
KEY 1
|
|
// USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*")
|
|
// JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3]
|
|
USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL
|
|
JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3]))
|
|
INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT
|
|
INPUT CODTAB[4,11] FLD_TABCAM_D0
|
|
DISPLAY "Valuta" CODTAB[1,3]
|
|
DISPLAY "Data@10" D0
|
|
DISPLAY "Descrizione@50" 50@->S0
|
|
OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
|
|
OUTPUT FLD_TABCAM_D0 D0
|
|
OUTPUT FLD_DATACAM_COPY D0
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,FLD_DATACAM_COPY
|
|
WARNING "Data assente"
|
|
END
|
|
|
|
STRING FLD_TABCAM_S0 50
|
|
BEGIN
|
|
PROMPT 20 3 ""
|
|
USE %VAL KEY 2
|
|
INPUT S0 FLD_TABCAM_S0
|
|
DISPLAY "Valuta@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Contro EURO" B1
|
|
COPY OUTPUT FLD_TABCAM_CODVAL
|
|
CHECKTYPE REQUIRED
|
|
KEY 1 // Serve a farlo disabilitare in modifica
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 8 "@bCambio"
|
|
END
|
|
|
|
NUMBER FLD_TABCAM_I2 1
|
|
BEGIN
|
|
PROMPT 2 10 "Decimali "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FLD_TABCAM_S4 15 5
|
|
BEGIN
|
|
PROMPT 20 10 "Cambio "
|
|
FIELD S4
|
|
PICTURE ".5"
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER FLD_TABCAM_R10 15 5
|
|
BEGIN
|
|
PROMPT 20 30 "Cambio "
|
|
FIELD R10
|
|
PICTURE ".5"
|
|
FLAGS "DU"
|
|
END
|
|
|
|
BOOLEAN FLD_TABCAM_B1
|
|
BEGIN
|
|
PROMPT 50 10 "Contro EURO"
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|