ced5bcadbc
Files correlati : Ricompilazione Demo : [ ] Commento : ammodernate maschere git-svn-id: svn://10.65.10.50/trunk@18501 c028cbd2-c16b-5b4b-a496-9718f37d4682
120 lines
1.7 KiB
Plaintext
Executable File
120 lines
1.7 KiB
Plaintext
Executable File
#include "veconf.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione calcolo fido clienti" -1 -1 78 10
|
|
|
|
NUMBER F_RISKDAYS 2
|
|
BEGIN
|
|
PROMPT 1 2 "Giorni di rischio "
|
|
FLAGS "U"
|
|
FIELD FIDO_RISKDAYS
|
|
END
|
|
|
|
NUMBER F_PERCTOLL 6 2
|
|
BEGIN
|
|
PROMPT 1 3 "% di tolleranza "
|
|
FLAGS "U"
|
|
FIELD FIDO_PERCTOLL
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 5 "@bNumerazioni/Tipi documenti da considerare"
|
|
END
|
|
|
|
SPREADSHEET F_DOCS -1 -1
|
|
BEGIN
|
|
PROMPT 1 6 ""
|
|
ITEM "Numerazione"
|
|
ITEM "Descrizione@50"
|
|
ITEM "Tipo"
|
|
ITEM "Da stato"
|
|
ITEM "A stato"
|
|
ITEM "Doc. a residuo"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Numerazioni/Tipi documenti da considerare" -1 -1 78 8
|
|
|
|
STRING SN_CODNUM 4
|
|
BEGIN
|
|
PROMPT 1 1 "Codice numerazione "
|
|
USE %NUM
|
|
INPUT CODTAB SN_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SN_CODNUM CODTAB
|
|
OUTPUT SN_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UZ"
|
|
FIELD FIDO_NUM
|
|
END
|
|
|
|
STRING SN_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
USE %NUM KEY 2
|
|
INPUT S0 SN_DESCR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT SN_CODNUM
|
|
END
|
|
|
|
STRING SN_TIPO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Tipo "
|
|
USE %TIP
|
|
INPUT CODTAB SN_TIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SN_TIPO CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
FIELD FIDO_TIP
|
|
END
|
|
|
|
NUMBER SN_DASTATO 1
|
|
BEGIN
|
|
PROMPT 1 4 "Da stato "
|
|
CHECKTYPE NORMAL
|
|
FIELD FIDO_DASTA
|
|
END
|
|
|
|
NUMBER SN_ASTATO 1
|
|
BEGIN
|
|
PROMPT 1 5 "A stato "
|
|
CHECKTYPE NORMAL
|
|
FIELD FIDO_ASTA
|
|
END
|
|
|
|
BOOLEAN SN_RESIDUO
|
|
BEGIN
|
|
PROMPT 1 6 "Documento a residuo "
|
|
FIELD FIDO_RES
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|