campo-sirio/at/at9500a.uml

#include "at9500a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_PRINT 9 2
BEGIN
   PROMPT -12 -11 ""
END

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

ENDPAGE

PAGE "Stampa moduli intestati" -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

// SCELTA REPORT
STRING F_S_REPORT 32
BEGIN
  PROMPT 2 9 "Modulo "  
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING F_S_TESTO1 70
BEGIN
  PROMPT 2 11 ""
END

STRING F_S_TESTO2 70
BEGIN
  PROMPT 2 12 ""
END

STRING F_S_TESTO3 70
BEGIN
  PROMPT 2 13 ""
END

STRING F_S_TESTO4 70
BEGIN
  PROMPT 2 14 ""
END

STRING F_S_TESTO5 70
BEGIN
  PROMPT 2 15 ""
END

ENDPAGE

ENDMASK