161 lines
2.6 KiB
Plaintext
Executable File
161 lines
2.6 KiB
Plaintext
Executable File
#include "at4400a.h"
|
|
|
|
PAGE "Stampa convocazioni per punto di prelievo" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 12
|
|
BEGIN
|
|
PROMPT 1 1 "Opzioni per la stampa convocazioni"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 2 "Data iniziale "
|
|
END
|
|
|
|
DATE F_DATAFIN
|
|
BEGIN
|
|
PROMPT 2 3 "Data finale "
|
|
END
|
|
|
|
STRING F_PUNTO 4
|
|
BEGIN
|
|
PROMPT 2 4 "Punto prelievo "
|
|
FLAGS "U"
|
|
USE LDN
|
|
INPUT CODTAB F_PUNTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_PUNTO CODTAB
|
|
OUTPUT F_D_PUNTO S0
|
|
CHECTYPE NORMAL
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
STRING F_D_PUNTO 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPO 2
|
|
BEGIN
|
|
PROMPT 2 5 "Tipo donazione "
|
|
FLAGS "U"
|
|
USE TDN
|
|
INPUT CODTAB F_TIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_TIPO CODTAB
|
|
OUTPUT F_D_TIPO S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_TIPO 25
|
|
BEGIN
|
|
PROMPT 23 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODSEZ 2
|
|
BEGIN
|
|
PROMPT 2 6 "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 23 6 ""
|
|
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 7 "Sottogruppo "
|
|
COPY ALL F_CODSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Codice sottogruppo da convocare"
|
|
ADD MASK at0700a
|
|
END
|
|
|
|
STRING F_DENSOT 25
|
|
BEGIN
|
|
PROMPT 23 7 ""
|
|
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
|
|
|
|
BOOLEAN F_AGGIORNA
|
|
BEGIN
|
|
PROMPT 2 9 "Aggiorna campo convocazione stampata"
|
|
END
|
|
|
|
LISTBOX F_ORDINA 12
|
|
BEGIN
|
|
PROMPT 2 11 "Ordinamento "
|
|
FLAGS "U"
|
|
ITEM "A|Alfabetico"
|
|
ITEM "C|CAP"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 15 "Stampa"
|
|
END
|
|
|
|
BUTTON F_ELENCO 9 2
|
|
BEGIN
|
|
PROMPT -14 16 "Elenco"
|
|
MESSAGE EXIT,F_ELENCO
|
|
END
|
|
|
|
BUTTON F_ETICHETTE 9 2
|
|
BEGIN
|
|
PROMPT -24 16 "Etichette"
|
|
MESSAGE EXIT,F_ETICHETTE
|
|
END
|
|
|
|
BUTTON F_CARTOLINE 9 2
|
|
BEGIN
|
|
PROMPT -34 16 "Cartoline"
|
|
MESSAGE EXIT,F_CARTOLINE
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -44 16 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|