b3cd9c64a9
Files correlati : no patch Ricompilazione Demo : [ ] Commento : Riportata la versione 01.05 patch 888 sul main trunk git-svn-id: svn://10.65.10.50/trunk@9217 c028cbd2-c16b-5b4b-a496-9718f37d4682
162 lines
2.5 KiB
Plaintext
Executable File
162 lines
2.5 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
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri di generazione" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 "Ditta "
|
|
FLAGS "RDP"
|
|
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 17 1 "Ragione "
|
|
FLAGS "DP"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 11
|
|
BEGIN
|
|
PROMPT 0 5 "Dati relativi ai versamenti con codice 1015"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 13 "Numero serie "
|
|
GROUP G_DISTINTA G_SERIE
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 13 "Codice ABI "
|
|
GROUP G_ABICAB
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 46 13 "Numero quietanza "
|
|
GROUP G_DISTINTA
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 46 13 "Numero quietanza "
|
|
GROUP G_CC
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
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|F24"
|
|
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@
|
|
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 G_SERIE
|
|
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
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|