421 lines
6.7 KiB
Plaintext
Executable File
421 lines
6.7 KiB
Plaintext
Executable File
#include "at0400a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -16 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT -26 -1 "~Nuovo"
|
|
MESSAGE EXIT,K_INS
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -36 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
PICTURE BMP_DELRECDN
|
|
END
|
|
|
|
BUTTON DLG_FINDREC 10 2
|
|
BEGIN
|
|
PROMPT -46 -1 "Ri~cerca"
|
|
MESSAGE EXIT,K_F9
|
|
PICTURE 126
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -56 -1 "~Annulla"
|
|
MESSAGE EXIT,K_ESC
|
|
PICTURE 102
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -66 -1 "~Fine"
|
|
MESSAGE EXIT,K_QUIT
|
|
PICTURE BMP_QUIT
|
|
PICTURE BMP_QUITDN
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Testata" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 12
|
|
BEGIN
|
|
PROMPT 1 0 "Opzioni per la convocazione"
|
|
END
|
|
|
|
NUMBER F_NUMERO 5
|
|
BEGIN
|
|
PROMPT 2 1 "Numero "
|
|
FIELD NUMERO
|
|
FLAGS "RG"
|
|
KEY 1
|
|
USE LF_CONVOC
|
|
INPUT NUMERO F_NUMERO
|
|
DISPLAY "Numero" NUMERO
|
|
DISPLAY "Data@10" DATA
|
|
DISPLAY "Punto" PUNTO
|
|
DISPLAY "Tipo" TIPO
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
OUTPUT F_NUMERO NUMERO
|
|
OUTPUT F_DATA DATA
|
|
OUTPUT F_PUNTO PUNTO
|
|
OUTPUT F_TIPO TIPO
|
|
OUTPUT F_CODSEZ CODSEZ
|
|
OUTPUT F_CODSOT CODSOT
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
FIELD DATA
|
|
KEY 2
|
|
USE LF_CONVOC KEY 2
|
|
INPUT DATA F_DATA
|
|
INPUT PUNTO F_PUNTO
|
|
INPUT TIPO F_TIPO
|
|
INPUT CODSEZ F_CODSEZ
|
|
INPUT CODSOT F_CODSOT
|
|
COPY DISPLAY F_NUMERO
|
|
COPY OUTPUT F_NUMERO
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
STRING F_DATAGIO 10
|
|
BEGIN
|
|
PROMPT 35 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PUNTO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Punto di prelievo "
|
|
FIELD PUNTO
|
|
FLAGS "U"
|
|
USE LDN
|
|
INPUT CODTAB F_PUNTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_PUNTO CODTAB
|
|
OUTPUT F_D_PUNTO S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Codice non presente"
|
|
HELP "Punto di prelievo per la convocazione"
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
END
|
|
|
|
STRING F_D_PUNTO 50
|
|
BEGIN
|
|
PROMPT 27 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPO 2
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo donazione "
|
|
FIELD TIPO
|
|
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 REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo donazione"
|
|
END
|
|
|
|
STRING F_D_TIPO 25
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODSEZ 2
|
|
BEGIN
|
|
PROMPT 2 5 "Sezione "
|
|
FIELD CODSEZ
|
|
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 25 5 ""
|
|
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 6 "Sottogruppo "
|
|
FIELD CODSOT
|
|
COPY ALL F_CODSEZ
|
|
CHECKTYPE NORMAL
|
|
HELP "Codice sottogruppo da convocare"
|
|
ADD MASK batbsez
|
|
END
|
|
|
|
STRING F_DENSOT 25
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
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
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 2 7 "Data inizio conv. "
|
|
FIELD DATAINI
|
|
END
|
|
|
|
STRING F_DATAINIGIO 10
|
|
BEGIN
|
|
PROMPT 35 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_RITARDA
|
|
BEGIN
|
|
PROMPT 2 8 "Ritardatari"
|
|
FIELD RITARDA
|
|
END
|
|
|
|
NUMBER F_MAXRIT 3
|
|
BEGIN
|
|
PROMPT 20 8 "Massimo ritardo in giorni "
|
|
FIELD MAXRIT
|
|
END
|
|
|
|
STRING F_NOTE 100 50
|
|
BEGIN
|
|
PROMPT 2 9 "Note "
|
|
FIELD NOTE
|
|
END
|
|
|
|
NUMBER F_NUMCONV 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numero convocati "
|
|
FIELD NUMCONV
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMSOLL 4
|
|
BEGIN
|
|
PROMPT 27 10 "sollecitati "
|
|
FIELD NUMSOLL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMRIT 4
|
|
BEGIN
|
|
PROMPT 50 10 "ritardatari "
|
|
FIELD NUMRIT
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON F_ESEGUI 20 2
|
|
BEGIN
|
|
PROMPT -11 -1 "Esegui convocazione"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Soggetti" -1 -1 78 20
|
|
|
|
SPREADSHEET F_CONVOCATI
|
|
BEGIN
|
|
PROMPT 1 1 "Convocati"
|
|
ITEM "Codice@6"
|
|
ITEM "Cognome@25"
|
|
ITEM "Nome@25"
|
|
ITEM "Data conv."
|
|
ITEM "Tipo"
|
|
ITEM "St."
|
|
ITEM "An."
|
|
ITEM "Nato il@10"
|
|
ITEM "Cat."
|
|
ITEM "Tessera"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Soggetto " -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_S_CODICE 8
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "RG"
|
|
USE LF_SOGGETTI KEY 1
|
|
INPUT CODICE F_S_CODICE
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Nato il@10" DATANASC
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
OUTPUT F_S_CODICE CODICE
|
|
OUTPUT F_S_COGNOME COGNOME
|
|
OUTPUT F_S_NOME NOME
|
|
OUTPUT F_S_DATANASC DATANASC
|
|
OUTPUT F_S_CATDON CATDON
|
|
OUTPUT F_S_TESSAVIS TESSAVIS
|
|
CHECKTYPE NORMAL
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
STRING F_S_COGNOME 25
|
|
BEGIN
|
|
PROMPT 2 2 "Cognome e nome "
|
|
USE LF_SOGGETTI KEY 2
|
|
INPUT COGNOME F_S_COGNOME
|
|
INPUT NOME F_S_NOME
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Nato il@10" DATANASC
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
COPY OUTPUT F_S_CODICE
|
|
CHECKTYPE SEARCH
|
|
HELP "Cognome del soggetto"
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
STRING F_S_NOME 25
|
|
BEGIN
|
|
PROMPT 46 2 ""
|
|
COPY ALL F_S_COGNOME
|
|
COPY OUTPUT F_S_CODICE
|
|
CHECKTYPE SEARCH
|
|
HELP "Nome del soggetto"
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
DATE F_S_DATACONV
|
|
BEGIN
|
|
PROMPT 2 5 "Convocato il "
|
|
END
|
|
|
|
STRING F_S_CHIAMATA 1
|
|
BEGIN
|
|
PROMPT 30 5 "Chiamata "
|
|
END
|
|
|
|
BOOLEAN F_S_STAMPATO
|
|
BEGIN
|
|
PROMPT 2 6 "Convocazione stampata"
|
|
END
|
|
|
|
BOOLEAN F_S_ANNULLATO
|
|
BEGIN
|
|
PROMPT 2 7 "Convocazione annullata"
|
|
END
|
|
|
|
DATE F_S_DATANASC
|
|
BEGIN
|
|
PROMPT 2 3 "Nato il "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_CATDON 2
|
|
BEGIN
|
|
PROMPT 2 8 "Cat. "
|
|
FLAGS "D"
|
|
USE CTD
|
|
INPUT CODTAB F_S_CATDON
|
|
OUTPUT F_S_DESC_CATDON S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_TESSAVIS 10
|
|
BEGIN
|
|
PROMPT 52 8 "Tessera AVIS "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_CATDON 25
|
|
BEGIN
|
|
PROMPT 12 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
MESSAGE EXIT, K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|