campo-sirio/at/at7200a.uml

#include "at7200a.h"

TOOLBAR "" 0 20 0 2

BUTTON F_ELENCO 9 2
BEGIN
   PROMPT -14 -11 "~Elenco"
   MESSAGE EXIT,F_ELENCO
END

BUTTON F_TESSERE 9 2
BEGIN
   PROMPT -24 -11 "~Tessere"
   MESSAGE EXIT,F_TESSERE
END

BUTTON F_AZZERA 9 2
BEGIN
   PROMPT -34 -11 "A~zzera"
   MESSAGE EXIT,F_AZZERA
END


BUTTON DLG_QUIT 9 2
BEGIN
   PROMPT -44 -11 ""
END

ENDPAGE

PAGE "Selezione manuale"  -1 -1 78 20

BOOLEAN F_AGGIORNA
BEGIN
   PROMPT 2 2 "Aggiornare archivio soggetti"
   GROUP 1
END

SPREADSHEET F_SOGGETTI
BEGIN
   PROMPT 2 4 "Soggetti"
   ITEM "Codice@8"
   ITEM "Cognome@25"
   ITEM "Nome@25"
   ITEM "Nato il@10"
   ITEM "Sez."
   ITEM "Sot."
   ITEM "Cat."
   ITEM "Tessera"
   GROUP 1
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
  DISPLAY "Gr.AB0" GRUPPOAB0
  DISPLAY "Rh " RHANTID
  DISPLAY "Int.SI" INTSI
  OUTPUT F_S_CODICE CODICE
  OUTPUT F_S_COGNOME COGNOME
  OUTPUT F_S_NOME NOME
  OUTPUT F_S_DATANASC DATANASC
  OUTPUT F_S_CODSEZ CODSEZ
  OUTPUT F_S_CODSOT CODSOT
  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
  INPUT DATANASC F_S_DATANASC
  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
  DISPLAY "Gr.AB0" GRUPPOAB0
  DISPLAY "Rh " RHANTID
  DISPLAY "Int.SI" INTSI
  OUTPUT F_S_CODICE CODICE
  OUTPUT F_S_COGNOME COGNOME
  OUTPUT F_S_NOME NOME
  OUTPUT F_S_DATANASC DATANASC
  OUTPUT F_S_CODSEZ CODSEZ
  OUTPUT F_S_CODSOT CODSOT
  OUTPUT F_S_CATDON CATDON
  OUTPUT F_S_TESSAVIS TESSAVIS
  HELP "Cognome del soggetto"
  ADD RUN at0 -0
END

STRING F_S_NOME 25
BEGIN
  PROMPT 46 2 ""
  COPY ALL F_S_COGNOME
  HELP "Nome del soggetto"
//  CHECKTYPE NORMAL
  ADD RUN at0 -0
END

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

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 5 "Dati associativi"
END

STRING F_S_CODSEZ 2
BEGIN
  PROMPT 2 6 "Sez. "
  FLAGS "D"
END

STRING F_S_DENSEZ 25
BEGIN
  PROMPT 12 6 ""
  FLAGS "D"
END

STRING F_S_CODSOT 2
BEGIN
  PROMPT 40 6 "Sot. "
  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
BEGIN
  PROMPT 50 6 ""
  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