cb6165f09b
2475 2521 2493 2494 2559 2558 2556 2495 2487 2491 2470 2461 2568 2492 2587 2457 2458 2459 2460 2574 2582 2525 2526 2524 2523 2522 2531 2530 2529 2528 2527 2534 2533 2536 2537 2538 2510 2515 2585 2539 2570 2555 2584 2503 2500 2499 2543 2547 2569 2472 ???? git-svn-id: svn://10.65.10.50/trunk@702 c028cbd2-c16b-5b4b-a496-9718f37d4682
459 lines
9.2 KiB
Plaintext
Executable File
459 lines
9.2 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 "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 "
|
|
HELP "Ragione sociale della ditta riferita al socio"
|
|
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
|
|
|
|
NUMBER FLD_SC1_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
FIELD LF_SOCI->ANNO
|
|
FLAGS "A"
|
|
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 "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
|
|
WARNING "Socio assente"
|
|
MESSAGE COPY,7@
|
|
END
|
|
|
|
LIST LST_SC1_TIPOASOC 1 12
|
|
BEGIN
|
|
PROMPT 1 4 "Socio : Tipo "
|
|
FIELD LF_SOCI->TIPOASOC
|
|
KEY 1
|
|
FLAGS "G"
|
|
HELP "Tipo anagrafico del socio"
|
|
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 4 "Codice "
|
|
FIELD LF_SOCI->CODANAGRSO
|
|
FLAGS "R"
|
|
KEY 1
|
|
COPY ALL FLD_SC1_ANNO
|
|
VALIDATE CHECK_FIELD FLD_SC1_CODANAGRSO
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,FLD_SC1_CODANAGRSO|COPY,5@
|
|
WARNING "Socio assente"
|
|
END
|
|
|
|
NUMBER FLD_SC1_CODANAGRSO 5
|
|
BEGIN
|
|
PROMPT 30 4 "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 "Codice dell'anagrafica del socio"
|
|
MESSAGE COPY,FLD_SC1_CODANAGRSOH|COPY,5@
|
|
CHECKTYPE FORCED
|
|
WARNING "Anagrafica assente"
|
|
END
|
|
|
|
STRING FLD_SC1_CODANAGR_ANAGR_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 7 5 ": Nome "
|
|
HELP "Nome dell'anagrafica del socio"
|
|
KEY 1
|
|
USE LF_ANAG KEY 2
|
|
FLAGS "GP"
|
|
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
|
|
|
|
STRING FLD_SC1_CODCAR 2
|
|
BEGIN
|
|
PROMPT 1 7 "Codice carica "
|
|
FIELD LF_SOCI->CODCAR
|
|
FLAGS "Z"
|
|
USE %CRS
|
|
INPUT CODTAB FLD_SC1_CODCAR
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Carica " S0
|
|
OUTPUT FLD_SC1_CODCAR CODTAB
|
|
OUTPUT F_DENCAR S0
|
|
HELP "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 "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 "Numero di azioni possedute dal socio"
|
|
END
|
|
|
|
NUMBER FLD_SC1_PERCQUAZ 7
|
|
BEGIN
|
|
PROMPT 29 10 "= "
|
|
FIELD LF_SOCI->PERCQUAZ
|
|
FLAGS "R"
|
|
HELP "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 "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 "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 "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 "Ammontare dell'emolumento 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 "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 "Tipo di azioni posseduta dal socio"
|
|
END
|
|
|
|
DATE FLD_SC1_DATAGG
|
|
BEGIN
|
|
PROMPT 1 16 "Data "
|
|
FIELD LF_SOCI->DATAAGG
|
|
FLAGS "DA"
|
|
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 4 "Socio : Tipo "
|
|
FLAGS "D"
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER DLG_NULL 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
FLAGS "AD"
|
|
GROUP 7
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 30 4 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 7 5 ": Nome "
|
|
FLAGS "D"
|
|
GROUP 6
|
|
END
|
|
|
|
BOOLEAN CHK_SC1_PARTASS
|
|
BEGIN
|
|
PROMPT 1 7 "Partecipazione assemblea"
|
|
FIELD LF_SOCI->PARTASS
|
|
HELP "Indicare se il socio partecipa alle assemblee sociali"
|
|
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 "Data di inizio partecipazione alle assemblee"
|
|
END
|
|
|
|
DATE FLD_SC2_PARTECAL
|
|
BEGIN
|
|
PROMPT 1 10 "Data fine "
|
|
FIELD LF_SOCI->PARTECAL
|
|
HELP "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 "Quadro in cui compare il socio sul 750"
|
|
ITEM " |Nessuno"
|
|
ITEM "A1|Quadro A1"
|
|
ITEM "B|Quadro B"
|
|
ITEM "D|Quadro D"
|
|
END
|
|
|
|
LIST LST_SC2_Q740 10
|
|
BEGIN
|
|
PROMPT 27 10 "Quadro 740 "
|
|
FIELD LF_SOCI->Q740
|
|
HELP "Quadro in cui compare il socio sul modello 740"
|
|
ITEM " |Nessuno"
|
|
ITEM "A1|Quadro A1"
|
|
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 "Numero di mesi lavorati ex 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 "Numero di mesi lavorati ex 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@50" RAGSOC
|
|
OUTPUT FLD_SC2_CODANAGCON CODANAGR
|
|
OUTPUT FLD_SC2_CODANAGCON_ANAFIS_RAGSOC RAGSOC
|
|
HELP "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 "
|
|
HELP "Nome del coniuge del socio"
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA "F"
|
|
INPUT RAGSOC FLD_SC2_CODANAGCON_ANAFIS_RAGSOC
|
|
DISPLAY "Nome@50" 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 "Eventuali note riferite al socio"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|