150 lines
2.4 KiB
Plaintext
Executable File
150 lines
2.4 KiB
Plaintext
Executable File
#include "at0500a.h"
|
|
|
|
PAGE "Spostamento convocazioni" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 8
|
|
BEGIN
|
|
PROMPT 1 1 "Convocazioni da spostare"
|
|
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
|
|
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
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 10 "Periodo su cui distribuire le convocazioni"
|
|
END
|
|
|
|
DATE F_SPOSTADAL
|
|
BEGIN
|
|
PROMPT 2 11 "Data iniziale "
|
|
END
|
|
|
|
DATE F_SPOSTAAL
|
|
BEGIN
|
|
PROMPT 2 12 "Data finale "
|
|
END
|
|
|
|
NUMBER F_SPOSTATI 4
|
|
BEGIN
|
|
PROMPT 50 11 "Numero spostati "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 16 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT -22 16 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|