ff2bdbe38e
Files correlati : Ricompilazione Demo : [ ] Commento : Corretto intestazione; possibilità di selezionare se stampare o no un foglio per ogni sezione git-svn-id: svn://10.65.10.50/trunk@6928 c028cbd2-c16b-5b4b-a496-9718f37d4682
166 lines
2.8 KiB
Plaintext
Executable File
166 lines
2.8 KiB
Plaintext
Executable File
#include "at4400a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON F_ELENCO 9 2
|
|
BEGIN
|
|
PROMPT -14 -11 "E~lenco"
|
|
MESSAGE EXIT,F_ELENCO
|
|
END
|
|
|
|
BUTTON F_ETICHETTE 9 2
|
|
BEGIN
|
|
PROMPT -24 -11 "~Etichette"
|
|
MESSAGE EXIT,F_ETICHETTE
|
|
END
|
|
|
|
BUTTON F_CARTOLINE 9 2
|
|
BEGIN
|
|
PROMPT -34 -11 "C~artoline"
|
|
MESSAGE EXIT,F_CARTOLINE
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -44 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
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 batbsez
|
|
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 batbsez
|
|
END
|
|
|
|
STRING F_CODSOT 2
|
|
BEGIN
|
|
PROMPT 2 7 "Sottogruppo "
|
|
COPY ALL F_CODSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Codice sottogruppo da convocare"
|
|
ADD MASK batbsez
|
|
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 batbsez
|
|
END
|
|
|
|
BOOLEAN F_AGGIORNA
|
|
BEGIN
|
|
PROMPT 2 9 "Aggiorna campo convocazione stampata"
|
|
END
|
|
|
|
BOOLEAN F_PERSEZIONE
|
|
BEGIN
|
|
PROMPT 2 10 "Stampa suddivisa per sezione"
|
|
HELP "Indicare se si vuole la stampa suddivisa per sezione di appartenenza"
|
|
END
|
|
|
|
LISTBOX F_ORDINA 12
|
|
BEGIN
|
|
PROMPT 2 11 "Ordinamento "
|
|
FLAGS "U"
|
|
ITEM "A|Alfabetico"
|
|
ITEM "C|CAP"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|