152 lines
2.4 KiB
Plaintext
Executable File
152 lines
2.4 KiB
Plaintext
Executable File
#include "776500.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
MESSAGE EXIT,K_ESC
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Prospetto dati generali" -1 -1 78 18
|
|
|
|
#define ABICAB 1
|
|
#define GSERIE 2
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 1 "Ditta "
|
|
FLAGS "RD"
|
|
USE LF_NDITTE KEY 1
|
|
FIELD LF_BASE->CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 2 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT 96
|
|
BEGIN
|
|
PROMPT 2 13 "Numero serie "
|
|
GROUP GSERIE
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 2 13 "Codice ABI "
|
|
GROUP ABICAB
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 46 13 "Numero quietanza "
|
|
GROUP GSERIE
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 46 13 "Codice CAB "
|
|
GROUP ABICAB
|
|
END
|
|
|
|
DATE F_DATAVERS
|
|
BEGIN
|
|
PROMPT 2 7 "Data versamento "
|
|
FIELD LF_BASE->DATAVERS
|
|
FLAGS "A"
|
|
END
|
|
|
|
RADIOBUTTON F_LUOVERS 25
|
|
BEGIN
|
|
PROMPT 2 8 "Luogo versamento "
|
|
ITEM "C|Concessione"
|
|
ITEM "T|Tesoreria"
|
|
FIELD LF_BASE->LUOVERS
|
|
END
|
|
|
|
RADIOBUTTON F_TIPOVERS 26
|
|
BEGIN
|
|
PROMPT 46 7 "Tipo versamento "
|
|
ITEM "B|Delega bancaria"
|
|
MESSAGE SHOW,ABICAB@|SHOW,97|SHOW,99|HIDE,96|HIDE,98|HIDE,F_SERIE|HIDE,F_NUMERO
|
|
ITEM "D|Distinta"
|
|
MESSAGE HIDE,ABICAB@|ENABLE,F_SERIE|SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|
|
|
ITEM "C|C/C Postale"
|
|
MESSAGE HIDE,ABICAB@|SHOW,96|SHOW,98|SHOW,F_SERIE|SHOW,F_NUMERO|HIDE,97|HIDE,99|CLEAR,F_SERIE|DISABLE,F_SERIE
|
|
FIELD LF_BASE->TIPOVERS
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 18 13 ""
|
|
FIELD LF_BASE->SERIE
|
|
FLAGS "Z"
|
|
GROUP ABICAB
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
FIELD LF_BASE->NUMERO[1,5]
|
|
FLAGS "Z"
|
|
GROUP ABICAB
|
|
END
|
|
|
|
NUMBER F_PROGBANCA 6
|
|
BEGIN
|
|
PROMPT 69 13 ""
|
|
FLAGS "Z"
|
|
FIELD LF_BASE->NUMERO[6,11]
|
|
GROUP ABICAB
|
|
END
|
|
|
|
STRING F_SERIE 5
|
|
BEGIN
|
|
PROMPT 18 13 ""
|
|
FIELD LF_BASE->SERIE
|
|
GROUP GSERIE
|
|
END
|
|
|
|
STRING F_NUMERO 11
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
FIELD LF_BASE->NUMERO
|
|
GROUP GSERIE
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |