149 lines
2.6 KiB
Plaintext
Executable File
149 lines
2.6 KiB
Plaintext
Executable File
#include "at3600a.h"
|
|
#include "lf.h"
|
|
PAGE "Definizione Stampe" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 7
|
|
BEGIN
|
|
PROMPT 1 0 "Opzioni per la convocazione"
|
|
END
|
|
|
|
DATE F_DATACONV
|
|
BEGIN
|
|
PROMPT 2 1 "Data convocazione "
|
|
END
|
|
|
|
|
|
STRING F_PUNTO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Punto di raccolta "
|
|
FLAGS "U"
|
|
USE LDN
|
|
INPUT CODTAB F_PUNTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_PUNTO CODTAB
|
|
OUTPUT F_D_PUNTO S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice non presente"
|
|
HELP "Punto di raccolta per la convocazione"
|
|
END
|
|
|
|
STRING F_D_PUNTO 25
|
|
BEGIN
|
|
PROMPT 27 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPODON 2
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo donazione "
|
|
FLAGS "U"
|
|
USE TDN
|
|
INPUT CODTAB F_D_TIPODON
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_TIPODON CODTAB
|
|
OUTPUT F_D_TIPODON S0
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo donazione"
|
|
END
|
|
|
|
STRING F_D_TIPODON 25
|
|
BEGIN
|
|
PROMPT 27 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODSEZ 2
|
|
BEGIN
|
|
PROMPT 2 4 "Sezione "
|
|
FLAGS "U"
|
|
USE LF_SEZIONI
|
|
INPUT CODSEZ F_CODSEZ
|
|
INPUT CODSOT F_CODSOT
|
|
DISPLAY "Cod.sez" CODSEZ
|
|
DISPLAY "Cod.sot." CODSOT
|
|
DISPLAY "Sezione@25" DENSEZ
|
|
DISPLAY "Sottogruppo@25" DENSOT
|
|
OUTPUT F_CODSEZ CODSEZ
|
|
OUTPUT F_DENSEZ DENSEZ
|
|
OUTPUT F_CODSOT CODSOT
|
|
OUTPUT F_DENSOT DENSOT
|
|
CHECKTYPE SEARCH
|
|
HELP "Codice sezione da convocare"
|
|
//ADD MASK at0700a
|
|
END
|
|
|
|
STRING F_DENSEZ 25
|
|
BEGIN
|
|
PROMPT 27 4 ""
|
|
FLAGS "U"
|
|
USE LF_SEZIONI KEY 2
|
|
INPUT DENSEZ F_DENSEZ
|
|
DISPLAY "Sezione@25" DENSEZ
|
|
DISPLAY "Sottogruppo@25" DENSOT
|
|
DISPLAY "Cod.sez" CODSEZ
|
|
DISPLAY "Cod.sot." CODSOT
|
|
COPY OUTPUT F_CODSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Denominazione sezione da convocare"
|
|
//ADD MASK at0700a
|
|
END
|
|
|
|
STRING F_CODSOT 2
|
|
BEGIN
|
|
PROMPT 2 5 "Sottogruppo "
|
|
FIELD CODSOT
|
|
COPY ALL F_CODSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Codice sottogruppo da convocare"
|
|
//ADD MASK at0700a
|
|
END
|
|
|
|
STRING F_DENSOT 25
|
|
BEGIN
|
|
PROMPT 27 5 ""
|
|
FLAGS "U"
|
|
COPY USE F_DENSEZ
|
|
INPUT DENSEZ F_DENSEZ
|
|
INPUT DENSOT F_DENSOT
|
|
COPY DISPLAY F_DENSEZ
|
|
COPY OUTPUT F_DENSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Sottogruppo da convocare"
|
|
//ADD MASK at0700a
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 17 "Stampa"
|
|
END
|
|
|
|
BUTTON F_ELENCO 9 2
|
|
BEGIN
|
|
PROMPT -14 18 "Elenco"
|
|
MESSAGE EXIT,F_ELENCO
|
|
END
|
|
|
|
BUTTON F_ETICHETTE 9 2
|
|
BEGIN
|
|
PROMPT -24 18 "Etichette"
|
|
MESSAGE EXIT,F_ETICHETTE
|
|
END
|
|
|
|
BUTTON F_CARTOLINE 9 2
|
|
BEGIN
|
|
PROMPT -34 18 "Cartoline"
|
|
MESSAGE EXIT,F_CARTOLINE
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -44 18 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|