462 lines
10 KiB
Plaintext
Executable File
462 lines
10 KiB
Plaintext
Executable File
#include "ba4600.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Soci 1/2" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER FLD_SC1_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FIELD LF_SOCI->CODDITTA
|
|
FLAGS "RG"
|
|
KEY 1
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA FLD_SC1_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT FLD_SC1_CODDITTA CODDITTA
|
|
OUTPUT FLD_SC1_CODDITTA_NDITTE_RAGSOC RAGSOC
|
|
HELP "Inserire il codice della ditta riferita al socio"
|
|
MESSAGE COPY,2@
|
|
CHECKTYPE FORCED
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
STRING FLD_SC1_CODDITTA_NDITTE_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "DG"
|
|
KEY 1
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC FLD_SC1_CODDITTA_NDITTE_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODDITTA
|
|
OUTPUT FLD_SC1_CODDITTA CODDITTA
|
|
OUTPUT FLD_SC1_CODDITTA_NDITTE_RAGSOC RAGSOC
|
|
MESSAGE COPY,3@
|
|
END
|
|
|
|
LIST LST_SC1_TIPOASOC 1 12
|
|
BEGIN
|
|
PROMPT 1 3 "Socio : Tipo "
|
|
FIELD LF_SOCI->TIPOASOC
|
|
KEY 1
|
|
FLAGS "G"
|
|
HELP "Indicare se si tratta di persona fisica o giuridica"
|
|
ITEM "F|Fisica"
|
|
MESSAGE ENABLE,1@|MESSAGE COPY,4@
|
|
ITEM "G|Giuridica"
|
|
MESSAGE DISABLE,1@|MESSAGE COPY,4@
|
|
END
|
|
|
|
NUMBER FLD_SC1_CODANAGRSOH 5
|
|
BEGIN
|
|
PROMPT 30 3 "Codice "
|
|
FIELD LF_SOCI->CODANAGRSO
|
|
FLAGS "R"
|
|
KEY 1
|
|
USE LF_SOCI KEY 1
|
|
JOIN LF_ANAG TO LF_SOCI KEY 1 INTO TIPOA=TIPOASOC CODANAGR=CODANAGRSO
|
|
INPUT CODDITTA FLD_SC1_CODDITTA SELECT
|
|
INPUT TIPOASOC LST_SC1_TIPOASOC
|
|
INPUT CODANAGRSO FLD_SC1_CODANAGRSO
|
|
INPUT ANNO FLD_SC1_ANNO
|
|
DISPLAY "Ditta " CODDITTA
|
|
DISPLAY "Tipo" TIPOASOC
|
|
DISPLAY "Codice" CODANAGRSO
|
|
DISPLAY "Ragione sociale@50" LF_ANAG->RAGSOC
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Quote@10" PERCQUAZ
|
|
OUTPUT FLD_SC1_CODDITTA CODDITTA
|
|
OUTPUT LST_SC1_TIPOASOC TIPOASOC
|
|
OUTPUT FLD_SC1_CODANAGRSOH CODANAGRSO
|
|
OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC LF_ANAG->RAGSOC
|
|
OUTPUT FLD_SC1_ANNO ANNO
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,FLD_SC1_CODANAGRSO|COPY,5@
|
|
GROUP 8
|
|
END
|
|
|
|
NUMBER FLD_SC1_CODANAGRSO 5
|
|
BEGIN
|
|
PROMPT 30 3 "Codice "
|
|
FIELD LF_SOCI->CODANAGRSO
|
|
FLAGS "RG"
|
|
KEY 1
|
|
USE LF_ANAG KEY 1
|
|
INPUT TIPOA LST_SC1_TIPOASOC
|
|
INPUT CODANAGR FLD_SC1_CODANAGRSO
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Denominazione@50" RAGSOC
|
|
OUTPUT LST_SC1_TIPOASOC TIPOA
|
|
OUTPUT FLD_SC1_CODANAGRSO CODANAGR
|
|
OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
|
HELP "Inserire il codice dell'anagrafica del socio"
|
|
MESSAGE COPY,5@|COPY,8@
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Anagrafica assente o nulla"
|
|
MESSAGE COPY,FLD_SC1_CODANAGRSOH
|
|
END
|
|
|
|
STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 7 4 ": Nome "
|
|
KEY 1
|
|
USE LF_ANAG KEY 2
|
|
FLAGS "G"
|
|
INPUT TIPOA LST_SC1_TIPOASOC
|
|
INPUT RAGSOC FLD_SC1_CODANAGR_ANAGR_RAGSOC
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT LST_SC1_TIPOASOC TIPOA
|
|
OUTPUT FLD_SC1_CODANAGRSO CODANAGR
|
|
OUTPUT FLD_SC1_CODANAGR_ANAGR_RAGSOC RAGSOC
|
|
MESSAGE COPY,6@
|
|
END
|
|
|
|
NUMBER FLD_SC1_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 5 "Anno "
|
|
FIELD LF_SOCI->ANNO
|
|
FLAGS "A"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire l'anno"
|
|
MESSAGE COPY,7@
|
|
END
|
|
|
|
STRING FLD_SC1_CODCAR 2
|
|
BEGIN
|
|
PROMPT 1 7 "Codice carica "
|
|
FIELD LF_SOCI->CODCAR
|
|
FLAGS "RZ"
|
|
USE %CRS
|
|
INPUT CODTAB FLD_SC1_CODCAR
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Carica " S0
|
|
OUTPUT FLD_SC1_CODCAR CODTAB
|
|
OUTPUT F_DENCAR S0
|
|
HELP "Inserire il codice della carica del socio"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Carica assente"
|
|
END
|
|
|
|
STRING F_DENCAR 50
|
|
BEGIN
|
|
PROMPT 23 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE FLD_SC1_SCADCAR
|
|
BEGIN
|
|
PROMPT 1 8 "Scadenza carica "
|
|
FIELD LF_SOCI->SCADCAR
|
|
HELP "Inserire la data di scadenza di tale carica"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 4
|
|
BEGIN
|
|
PROMPT 0 9 "Azioni"
|
|
END
|
|
|
|
NUMBER FLD_SC1_NQUOTEAZ 7
|
|
BEGIN
|
|
PROMPT 1 10 "Numero quote "
|
|
FIELD LF_SOCI->NQUOTEAZ
|
|
FLAGS "R"
|
|
HELP "Inserire il numero di azioni possedute dal socio"
|
|
END
|
|
|
|
NUMBER FLD_SC1_PERCQUAZ 7
|
|
BEGIN
|
|
PROMPT 29 10 "= "
|
|
FIELD LF_SOCI->PERCQUAZ
|
|
FLAGS "R"
|
|
HELP "Inserire la percentuale delle azioni possedute dal socio"
|
|
WARNING "Percentuale quote non corretta"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
|
|
END
|
|
|
|
NUMBER FLD_SC1_PERCAZREDD 7
|
|
BEGIN
|
|
PROMPT 41 10 "% Reddito da quota az. "
|
|
FIELD LF_SOCI->PERCAZREDD
|
|
FLAGS "R"
|
|
HELP "Inserire il reddito derivante da quote aziendali"
|
|
WARNING "Percentuale quote non corretta"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
|
|
END
|
|
|
|
NUMBER FLD_SC1_PERCAZPERD 7
|
|
BEGIN
|
|
PROMPT 45 11 "Perdita da quota az. "
|
|
FIELD LF_SOCI->PERCAZPERD
|
|
FLAGS "R"
|
|
HELP "Inserire la perdita derivante da quote aziendali"
|
|
WARNING "Percentuale quote non corretta"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=100)}
|
|
END
|
|
|
|
LIST LST_SC1_RICQUAL 18
|
|
BEGIN
|
|
PROMPT 1 13 "Richiesta qualifica "
|
|
FIELD LF_SOCI->RICQUAL
|
|
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
|
|
|
|
NUMBER FLD_SC1_EMOLUMENTO 17
|
|
BEGIN
|
|
PROMPT 45 13 "Emolumento "
|
|
FIELD LF_SOCI->EMOLUMENTO
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Inserire l'ammontare dell'emolumnento dovuto al socio"
|
|
END
|
|
|
|
LIST LST_SC1_PROP 1 23
|
|
BEGIN
|
|
PROMPT 1 14 "Titoli proprieta' "
|
|
FIELD LF_SOCI->TITPROP
|
|
ITEM "1|Intestatario"
|
|
ITEM "2|Riportatore"
|
|
ITEM "3|Venditore a termine"
|
|
ITEM "4|Riportato"
|
|
ITEM "5|Compratore a termine"
|
|
ITEM "U|Usufruttuario"
|
|
ITEM "T|Tit. di altro vincolo"
|
|
HELP "Inserire i titoli di proprieta' del socio"
|
|
END
|
|
|
|
LIST LST_SC1_TIPOAZ 1 16
|
|
BEGIN
|
|
PROMPT 45 14 "Tipo azioni "
|
|
FIELD LF_SOCI->TIPOAZ
|
|
ITEM "O|Ordinarie"
|
|
ITEM "P|Privilegiate"
|
|
ITEM "R|Risparmio"
|
|
HELP "Inserire il tipo di azione posseduta dal socio"
|
|
END
|
|
|
|
DATE FLD_SC1_DATAGG
|
|
BEGIN
|
|
PROMPT 1 16 "Data "
|
|
FIELD LF_SOCI->DATAAGG
|
|
FLAGS "DA"
|
|
HELP "Inserire la data dell'ultimo aggiornamento relativo al socio"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 0 15 "Ultimo aggiornamento"
|
|
END
|
|
|
|
STRING F_UTENTE 10
|
|
BEGIN
|
|
PROMPT 45 16 "Utente "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Soci 2/2" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 76 7
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "RD"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 3
|
|
END
|
|
|
|
LIST DLG_NULL 9
|
|
BEGIN
|
|
PROMPT 1 3 "Socio : Tipo "
|
|
FLAGS "D"
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 30 3 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 7 4 ": Nome "
|
|
FLAGS "D"
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER DLG_NULL 4
|
|
BEGIN
|
|
PROMPT 1 5 "Anno "
|
|
FLAGS "AD"
|
|
GROUP 7
|
|
END
|
|
|
|
BOOLEAN CHK_SC1_PARTASS
|
|
BEGIN
|
|
PROMPT 1 7 "Partecipazione assemblea"
|
|
FIELD LF_SOCI->PARTASS
|
|
HELP "Indicare se il socio partecipa alle assemblee sociali"
|
|
MESSAGE FALSE DISABLE,FLD_SC1_PARTECDAL|RESET,FLD_SC1_PARTECDAL
|
|
MESSAGE FALSE DISABLE,FLD_SC2_PARTECAL|RESET,FLD_SC2_PARTECAL
|
|
MESSAGE TRUE ENABLE,FLD_SC1_PARTECDAL
|
|
MESSAGE TRUE ENABLE,FLD_SC2_PARTECAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 26 4
|
|
BEGIN
|
|
PROMPT 0 8 ""
|
|
END
|
|
|
|
DATE FLD_SC1_PARTECDAL
|
|
BEGIN
|
|
PROMPT 1 9 "Data inizio "
|
|
FIELD LF_SOCI->PARTECDAL
|
|
HELP "Inserire la data di inizio partecipazione alle assemblee"
|
|
END
|
|
|
|
DATE FLD_SC2_PARTECAL
|
|
BEGIN
|
|
PROMPT 1 10 "Data fine "
|
|
FIELD LF_SOCI->PARTECAL
|
|
HELP "Inserire la data di fine partecipazione alle assemblee"
|
|
WARNING "Data non corretta"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_SC1_PARTECDAL
|
|
END
|
|
|
|
LIST LST_SC2_QUATTPREV 10
|
|
BEGIN
|
|
PROMPT 27 9 "Quadro 750 "
|
|
FIELD LF_SOCI->QUATTPREV
|
|
HELP "Inserire il rigo in cui compare il socio sul quadro 750"
|
|
ITEM " |Nessuno"
|
|
ITEM "A1|Quadro A1"
|
|
ITEM "B|Quadro B"
|
|
ITEM "D|Quadro D"
|
|
ITEM "D1|Quadro D1"
|
|
END
|
|
|
|
LIST LST_SC2_Q740 10
|
|
BEGIN
|
|
PROMPT 27 10 "Quadro 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
|
|
|
|
BOOLEAN CHK_SC2_ATTPREV
|
|
BEGIN
|
|
PROMPT 53 7 "Attivita' prevalente"
|
|
FIELD LF_SOCI->ATTPREV
|
|
HELP "Indicare se e' l'attivita' prevalente del socio"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 22 4
|
|
BEGIN
|
|
PROMPT 52 8 "Mesi lavorati"
|
|
END
|
|
|
|
NUMBER FLD_SC2_MLAV120C1 2
|
|
BEGIN
|
|
PROMPT 53 9 "Art 120 comma 1 "
|
|
FIELD LF_SOCI->MLAV120C1
|
|
FLAGS "R"
|
|
HELP "Inserire il numero di mesi lavorati secondo art.120 comma 1"
|
|
WARNING "N.ro di mesi non corretto"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
|
|
END
|
|
|
|
NUMBER FLD_SC2_MLAV120C2 2
|
|
BEGIN
|
|
PROMPT 53 10 "Art 120 comma 2 "
|
|
FIELD LF_SOCI->MLAV120C2
|
|
FLAGS "R"
|
|
HELP "Inserire il numero di mesi lavorati secondo art.120 comma 2"
|
|
WARNING "N.ro di mesi non corretto"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=12)}
|
|
END
|
|
|
|
NUMBER FLD_SC2_CODANAGCON 5
|
|
BEGIN
|
|
PROMPT 1 12 "Coniuge: Codice "
|
|
FIELD LF_SOCI->CODANAGCON
|
|
FLAGS "R"
|
|
GROUP 1
|
|
USE LF_ANAG
|
|
INPUT TIPOA "F"
|
|
INPUT CODANAGR FLD_SC2_CODANAGCON
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Nome " RAGSOC
|
|
OUTPUT FLD_SC2_CODANAGCON CODANAGR
|
|
OUTPUT FLD_SC2_CODANAGCON_ANAFIS_RAGSOC RAGSOC
|
|
HELP "Inserire il codice anagrafico del coniuge"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Anagrafica assente"
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING FLD_SC2_CODANAGCON_ANAFIS_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 8 13 ": Nome "
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA "F"
|
|
INPUT RAGSOC FLD_SC2_CODANAGCON_ANAFIS_RAGSOC
|
|
DISPLAY "Nome " RAGSOC
|
|
DISPLAY "Codice" CODANAGR
|
|
OUTPUT FLD_SC2_CODANAGCON CODANAGR
|
|
OUTPUT FLD_SC2_CODANAGCON_ANAFIS_RAGSOC RAGSOC
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING FLD_SC2_NOTE 60
|
|
BEGIN
|
|
PROMPT 1 15 "Note "
|
|
FIELD LF_SOCI->NOTE
|
|
HELP "Inserire eventuali note riferite al socio"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|