campo-sirio/at/at0400a.uml

#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 13
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
   GROUP 3
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
   GROUP 3
END

STRING F_D_PUNTO 50
BEGIN
  PROMPT 27 3 ""
  FLAGS "D"
END

STRING F_TIPO 2
BEGIN
   PROMPT 2 5 "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"
   GROUP 3
END

STRING F_D_TIPO 25
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 6 "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
  MESSAGE COPY,F_CODSEZH
  GROUP 1 3
END

STRING F_CODSEZH 2
BEGIN
  PROMPT 2 6 "Sezione           "
  FIELD CODSEZ
  FLAGS "U"
  USE LF_CONVOC KEY 3
  INPUT CODSEZ F_CODSEZ
  INPUT CODSOT F_CODSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  DISPLAY "Data@10" DATA
  DISPLAY "Punto" PUNTO
  OUTPUT F_NUMERO NUMERO
  OUTPUT F_CODSEZ CODSEZ
  OUTPUT F_CODSOT CODSOT
  OUTPUT F_DATA DATA
  OUTPUT F_PUNTO PUNTO
  CHECKTYPE NORMAL
  GROUP 2 3
  MESSAGE COPY,F_CODSEZH
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 25 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
  GROUP 3
END

STRING F_CODSOT 2
BEGIN
  PROMPT 2 7 "Sottogruppo       "
  FIELD CODSOT
  COPY ALL F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Codice sottogruppo da convocare"
  ADD MASK batbsez
  GROUP 1 3
  MESSAGE COPY,F_CODSOTH
END

STRING F_CODSOTH 2
BEGIN
  PROMPT 2 7 "Sottogruppo       "
  FIELD CODSOT
  FLAGS "U"
  COPY ALL F_CODSEZH
  CHECKTYPE NORMAL
  GROUP 2 3
  MESSAGE COPY,F_CODSOTH
END

STRING F_DENSOT 25
BEGIN        	
  PROMPT 25 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
  GROUP 3
END

DATE F_DATAINI
BEGIN
   PROMPT 2 8 "Data inizio conv. "
   FIELD DATAINI
   GROUP 3
END

STRING F_DATAINIGIO 10
BEGIN
   PROMPT 35 8 ""
   FLAGS "D"
END

BOOLEAN F_RITARDA
BEGIN
   PROMPT 2 9 "Ritardatari"
   FIELD RITARDA
   GROUP 3
END

NUMBER F_MAXRIT 3
BEGIN
   PROMPT 20 9 "Massimo ritardo in giorni "
   FIELD MAXRIT
   GROUP 3
END

STRING F_NOTE 100 50
BEGIN
   PROMPT 2 10 "Note              "
   FIELD NOTE
END

NUMBER F_NUMCONV 4
BEGIN
   PROMPT 2 11 "Numero convocati  "
   FIELD NUMCONV
   FLAGS "D"
END

NUMBER F_NUMSOLL 4
BEGIN
   PROMPT 27 11  "sollecitati "
   FIELD NUMSOLL
   FLAGS "D"
END

NUMBER F_NUMRIT 4
BEGIN
   PROMPT 50 11 "ritardatari "
   FIELD NUMRIT
   FLAGS "D"
END

BUTTON F_ESEGUI 20 2
BEGIN
  PROMPT -11 -1 "Esegui convocazione"
  GROUP 3
END

ENDPAGE

PAGE "Soggetti" -1 -1 78 20

SPREADSHEET F_CONVOCATI
BEGIN
   PROMPT 1 1 "Convocati"
   ITEM "Codice@10"
   ITEM "Cognome@25"
   ITEM "Nome@25"
   ITEM "Data conv."
   ITEM "Tipo"
   ITEM "St."
   ITEM "An."
   ITEM "Nato il@10"
   ITEM "Cat."
   ITEM "Tessera"
   ITEM "Se"
   ITEM "So"
END

ENDPAGE

ENDMASK

PAGE "Soggetto " -1 -1 78 20

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 0 "Dati identificativi soggetto"
  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
  OUTPUT F_S_CODSEZ CODSEZ
  OUTPUT F_S_CODSOT CODSOT
  //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 ""
  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
  HELP "Nome del soggetto"
//  CHECKTYPE NORMAL
  ADD RUN at0 -0
END

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 7 "Dati convocazione"
  FLAGS "R"
END

DATE F_S_DATACONV
BEGIN
   PROMPT 2 8 "Convocato il "
END

LISTBOX F_S_CHIAMATA 15
BEGIN
   PROMPT 30 8 "Tipo convocazione "
   FLAGS "U"
   ITEM "C|Convocato"
   ITEM "S|Sollecitato"
   ITEM "R|Ritardatario"
END

BOOLEAN F_S_STAMPATO
BEGIN
   PROMPT 2 9 "Convocazione stampata"
END

BOOLEAN F_S_ANNULLATO
BEGIN
   PROMPT 2 10 "Convocazione annullata"
END

DATE F_S_DATANASC
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
END

STRING F_S_CATDON 2
BEGIN
  PROMPT 60 3 "Categoria "
  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 33 3 "Tessera AVIS "
  FLAGS "D"
END

STRING F_S_CODSEZ 2
BEGIN
  PROMPT 2 4 "Sez./Sottog.   "
  FLAGS "D"
END

STRING F_S_CODSOT 2
BEGIN
  PROMPT 46 4 ""
  FLAGS "D"
  USE LF_SEZIONI
  INPUT CODSEZ F_S_CODSEZ
  INPUT CODSOT F_S_CODSOT
  OUTPUT F_S_DENSEZ DENSEZ
  OUTPUT F_S_DENSOT DENSOT
  CHECKTYPE NORMAL
END

STRING F_S_DENSOT 25 23
BEGIN        	
  PROMPT 49 4 ""
  FLAGS "D"
END

STRING F_S_DENSEZ 25 23
BEGIN
  PROMPT 20 4 ""
  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