162 lines
2.7 KiB
Plaintext
Executable File
162 lines
2.7 KiB
Plaintext
Executable File
#include "776500.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
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 G_ABICAB 1
|
|
#define G_DISTINTA 2
|
|
#define G_CC 3
|
|
|
|
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 G_DISTINTA
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 2 13 "Codice ABI "
|
|
GROUP G_ABICAB
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 46 13 "Numero quietanza "
|
|
GROUP G_DISTINTA G_CC
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 46 13 "Codice CAB "
|
|
GROUP G_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 RESET,G_DISTINTA@|CLEAR,F_CCQUIETANZA|HIDE,G_DISTINTA@|HIDE,G_CC@|SHOW,G_ABICAB@
|
|
ITEM "D|Distinta"
|
|
MESSAGE RESET,G_ABICAB@|CLEAR,F_CCQUIETANZA|HIDE,G_ABICAB@|HIDE,G_CC@|SHOW,G_DISTINTA@
|
|
ITEM "C|C/C Postale"
|
|
MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@|ENABLE,G_CC@
|
|
FIELD LF_BASE->TIPOVERS
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 18 13 ""
|
|
FIELD LF_BASE->SERIE
|
|
FLAGS "Z"
|
|
GROUP G_ABICAB
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
FIELD LF_BASE->NUMERO[1,5]
|
|
FLAGS "Z"
|
|
GROUP G_ABICAB
|
|
END
|
|
|
|
NUMBER F_PROGBANCA 6
|
|
BEGIN
|
|
PROMPT 69 13 ""
|
|
FLAGS "Z"
|
|
FIELD LF_BASE->NUMERO[6,11]
|
|
GROUP G_ABICAB
|
|
END
|
|
|
|
STRING F_SERIE 5
|
|
BEGIN
|
|
PROMPT 18 13 ""
|
|
FIELD LF_BASE->SERIE
|
|
GROUP G_DISTINTA
|
|
END
|
|
|
|
STRING F_NUMERO 11
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
FIELD LF_BASE->NUMERO
|
|
GROUP G_DISTINTA
|
|
END
|
|
|
|
STRING F_CCQUIETANZA 11
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
FIELD LF_BASE->NUMERO
|
|
GROUP G_CC
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |