campo-sirio/at/at0400a.uml

#include "at0400a.h"
#include "lf.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Testata" -1 -1 78 20

GROUPBOX DLG_NULL 77 9
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_PUNTO 4
BEGIN
   PROMPT 2 3 "Punto di raccolta "
   FIELD PUNTO
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_PUNTO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_PUNTO CODTAB
   OUTPUT F_D_PUNTO S0
   CHECKTYPE REQUIRED
   WARNING "Codice non presente"
   HELP "Punto di raccolta per la convocazione"
   VALIDATE NOT_EMPTY_FUNC
END

STRING F_D_PUNTO 25
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 27 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 at0700a
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 27 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 at0700a
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 at0700a
END

STRING F_DENSOT 25
BEGIN        	
  PROMPT 27 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 at0700a
END

STRING F_NOTE 100 60
BEGIN
   PROMPT 2 7 "Note "
   FIELD NOTE
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 0 1 ""
   ITEM "Codice@6"
   ITEM "Cognome@25"
   ITEM "Nome@25"
   ITEM "St."
   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 6
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "RG"
  USE LF_SOGGETTI KEY 1
  INPUT CODICE F_S_CODICE
  DISPLAY "Codice@6" 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@6" 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

BOOLEAN F_S_STAMPATO
BEGIN
   PROMPT 46 3 "Convoc. stampata"
END

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

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

STRING F_S_DESC_CATDON 25
BEGIN
  PROMPT 12 7 ""
  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