87 lines
1.6 KiB
Plaintext
Executable File
87 lines
1.6 KiB
Plaintext
Executable File
#include "batbtdn.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tipi di donazione" -1 -1 78 7
|
|
|
|
STRING F_TABTDN_CODTAB 2
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD CODTAB
|
|
HELP "Inserire il codice del tipo di donazione"
|
|
USE TDN
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB F_TABTDN_CODTAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_TABTDN_CODTAB CODTAB
|
|
OUTPUT F_TABTDN_DESCR S0
|
|
KEY 1
|
|
FLAGS "URZ"
|
|
END
|
|
|
|
STRING F_TABTDN_DESCR 30
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FIELD S0
|
|
HELP "Inserire la descrizione del tipo di donazione"
|
|
USE TDN KEY 2
|
|
CHECKTYPE REQUIRED
|
|
INPUT S0 F_TABTDN_DESCR
|
|
DISPLAY "Descrizione@30" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TABTDN_CODTAB
|
|
KEY 2
|
|
END
|
|
|
|
LISTBOX F_TABTDN_PROCDON 17
|
|
BEGIN
|
|
PROMPT 2 5 "Procedura di donazione "
|
|
FIELD S6
|
|
#include "procdon.h"
|
|
HELP "Indicare la procedura di donazione"
|
|
END
|
|
|
|
STRING F_TABTDN_IDON1 2
|
|
BEGIN
|
|
PROMPT 2 7 "Idoneità necessarie: 1 "
|
|
FIELD S7
|
|
USE IDO SELECT S6==#F_TABTDN_PROCDON
|
|
INPUT CODTAB F_TABTDN_IDON1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_TABTDN_IDON1 CODTAB
|
|
OUTPUT F_DESC_I1 S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESC_I1 30
|
|
BEGIN
|
|
PROMPT 31 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TABTDN_IDON2 2
|
|
BEGIN
|
|
PROMPT 2 9 " 2 "
|
|
FIELD S8
|
|
USE IDO SELECT S6==#F_TABTDN_PROCDON
|
|
INPUT CODTAB F_TABTDN_IDON2
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_TABTDN_IDON2 CODTAB
|
|
OUTPUT F_DESC_I2 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESC_I2 30
|
|
BEGIN
|
|
PROMPT 31 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|