campo-sirio/ba/ba5000.uml

#include "ba4600.h"

PAGE "Ricerca soci" -1 -1 50 9

RADIOBUTTON LST_SC1_TIPOASOC 12
BEGIN
  PROMPT 1 1 "Persona"
  FIELD LF_SOCI->TIPOASOC
  HELP "Tipo anagrafico del socio"
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

LIST FLD_SC1_ANNO 12
BEGIN
  PROMPT 20 2 "Attuali/Prec.  "
  FIELD LF_SOCI->ATTPREC
  ITEM " |Tutti"
  ITEM "A|Attuali"
  ITEM "P|Precedenti"
END

STRING FLD_SC1_CODCAR 2
BEGIN
  PROMPT 20 3 "Codice carica  "
  FIELD LF_SOCI->CODCAR
  FLAGS "RZ"
  USE %CRS
  INPUT CODTAB FLD_SC1_CODCAR
  DISPLAY "Codice" CODTAB
  DISPLAY "Carica@30" S0
  OUTPUT FLD_SC1_CODCAR CODTAB
  HELP "Codice della carica del socio"
  CHECKTYPE NORMAL
  WARNING "Carica assente"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "Richiesta qualifica"
END

LIST LST_SC1_RICQUAL 2 24
BEGIN
  PROMPT 1 6 ""
  FIELD LF_SOCI->CODCAR
  HELP "Qualifica del socio"
  ITEM " |Nessuna"
  ITEM "A|Amministratore(A)"
  ITEM "B|Amministratore(B)"
  ITEM "B1|Amministratore(B1)"
  ITEM "B2|Amministratore(B2)"
  ITEM "C|Organo di controllo"
  ITEM "R|Revisore"
  ITEM "S|Sindaco"
  ITEM "SO|Soggetto operativo"
END

LIST LST_SC2_Q740 1 12
BEGIN
  PROMPT 1 7 "Modello 740 "
  FIELD LF_SOCI->Q740
  HELP "Quadro in cui compare il socio sul modello 740"
  ITEM " |Nessuno"
  ITEM "A|Quadro A"
  ITEM "F|Quadro F"
  ITEM "G|Quadro G"
  ITEM "H|Quadro H"
END

LIST LST_SC2_QUATTPREV 2 12
BEGIN
  PROMPT 1 8 "Quadro  750 "
  FIELD LF_SOCI->QUATTPREV
  HELP "Quadro in cui comapare il socio sul quadro 750"
  ITEM " |Nessuno"
  ITEM "A|Quadro A"
  ITEM "B|Quadro B"
  ITEM "D|Quadro D"
  ITEM "D1|Quadro D1"
END

BUTTON DLG_FINDREC 9 2
BEGIN
  PROMPT 30 5 "Ri~cerca"
  MESSAGE EXIT,K_F9
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT 30 7 "Fine"
END

ENDPAGE

ENDMASK