campo-sirio/at/at4500a.uml

#include "at4500a.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Testata" 0 2 0 0

GROUPBOX DLG_NULL 77 15
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_TUTTI
BEGIN
   PROMPT 2 10 "Convoca anche donatori di altre sezioni con questo punto prelievo"
   FIELD TUTTI
END

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

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

LISTBOX F_MODCONV 13
BEGIN
  PROMPT 2 12 "Modalita' convoc. "
  FIELD MODCONV
#include "modalita.h"
  GROUP 3
END

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

GROUPBOX DLG_NULL 77 3
BEGIN
   PROMPT 1 15 "Risultato della convocazione"
END

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

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

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

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

BUTTON F_SISTAMPA 20 2
BEGIN
  PROMPT -23 -1 "Tutto stampato"
END

BUTTON F_NOSTAMPA 20 2
BEGIN
  PROMPT -33 -1 "Annulla stampa"
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"
   ITEM "Data u.d."
   ITEM "Data pr."
END

ENDPAGE

ENDMASK

PAGE "Soggetto " -1 -1 78 20

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 0 "Dati identificativi soggetto"
  FLAGS "R"
END

NUMBER F_S_CODICE 8
BEGIN
  PROMPT 2 1 "Codice         "
  FLAGS "D"
  //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 "
  FLAGS "D"
  //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 ""
  FLAGS "D"
  //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 "UD"
   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

DATE F_S_DATAULTDON
BEGIN
   PROMPT 2 5 "Data ult. don."
   FLAGS "D"
END

DATE F_S_DATAPROSSI
BEGIN
   PROMPT 35 5 "Data pross. don."
   FLAGS "D"
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

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 9 2
BEGIN
   PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT 2 1 ""
END

//BUTTON DLG_DELREC 9 2
//BEGIN
//   PROMPT 3 1 ""
//   MESSAGE EXIT, K_DEL
//END

ENDPAGE

ENDMASK