3f9094fdb5
Files correlati : ba3.exe ba4.exe batbcam.msk Ricompilazione Demo : [ ] Commento : GF20058 Nonostante la tabella dei cambi giornalieri abbia per la valuta x per il gg y la spunta di contro euro quando seleziono quella valuta la spunta di contro euro non c'è, cosa strana è che se dal documento vado in gestione del cambio giornaliero anche lì non appare mentre nei cambi giornalieri delle tabelle contabili si. PGxxxxx Creando una nuova ditta, la relativa attivita' prevalente e priva di descrizione git-svn-id: svn://10.65.10.50/trunk@11344 c028cbd2-c16b-5b4b-a496-9718f37d4682
114 lines
2.0 KiB
Plaintext
Executable File
114 lines
2.0 KiB
Plaintext
Executable File
#include "batbcam.h"
|
|
|
|
TOOLBAR "" 0 19 0 3
|
|
|
|
#include <toolbar.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
|