99 lines
1.7 KiB
Plaintext
Executable File
99 lines
1.7 KiB
Plaintext
Executable File
#include "ba4600.h"
|
|
|
|
PAGE "Ricerca soci" -1 -1 42 9
|
|
|
|
RADIOBUTTON LST_SC1_TIPOASOC 12
|
|
BEGIN
|
|
PROMPT 1 1 "Persona"
|
|
FIELD LF_SOCI->TIPOASOC
|
|
HELP "Indicare se si tratta di persona fisica o giuridica"
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
END
|
|
|
|
NUMBER FLD_SC1_ANNO 4
|
|
BEGIN
|
|
PROMPT 20 2 "Anno "
|
|
FIELD LF_SOCI->ANNO
|
|
FLAGS "A"
|
|
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 "Inserire il 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 "Inserire la 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 "Inserire il rigo 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 "Inserire il rigo 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
|
|
|
|
|
|
|
|
|