2646b2c099
e allargata la maschera. git-svn-id: svn://10.65.10.50/trunk@3018 c028cbd2-c16b-5b4b-a496-9718f37d4682
97 lines
1.7 KiB
Plaintext
Executable File
97 lines
1.7 KiB
Plaintext
Executable File
#include "ba4600.h"
|
|
|
|
PAGE "Ricerca soci" -1 -1 54 9
|
|
|
|
RADIOBUTTON LST_SC1_TIPOASOC 20
|
|
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 24 2 "Attuali/Prec. "
|
|
FIELD LF_SOCI->ATTPREC
|
|
ITEM " |Tutti"
|
|
ITEM "A|Attuali"
|
|
ITEM "P|Precedenti"
|
|
END
|
|
|
|
STRING FLD_SC1_CODCAR 2
|
|
BEGIN
|
|
PROMPT 24 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 38 5 "Ri~cerca"
|
|
MESSAGE EXIT,K_F9
|
|
END
|
|
|
|
BUTTON DLG_QUIT 9 2
|
|
BEGIN
|
|
PROMPT 38 7 "Fine"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|