fab5abc300
Files correlati : tutta la base ed anche l'ipotenusa Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@16462 c028cbd2-c16b-5b4b-a496-9718f37d4682
439 lines
8.8 KiB
Plaintext
Executable File
439 lines
8.8 KiB
Plaintext
Executable File
#include "ba4600.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Pag.1" -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
|
|
|
|
LIST FLD_SC1_ANNO 12
|
|
BEGIN
|
|
PROMPT 1 3 "Attuale/Prec. "
|
|
FIELD LF_SOCI->ATTPREC
|
|
KEY 1
|
|
ITEM "A|Attuale"
|
|
ITEM "P|Precedente"
|
|
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 32 4 "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 ATTPREC FLD_SC1_ANNO SELECT
|
|
INPUT TIPOASOC LST_SC1_TIPOASOC
|
|
INPUT CODANAGRSO FLD_SC1_CODANAGRSO
|
|
DISPLAY "Tipo" TIPOASOC
|
|
DISPLAY "Codice" CODANAGRSO
|
|
DISPLAY "Ragione sociale@50" LF_ANAG->RAGSOC
|
|
DISPLAY "Atuale/Precedente" ATTPREC
|
|
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 ATTPREC
|
|
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 32 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 2
|
|
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@50" 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 "N. quote "
|
|
FIELD LF_SOCI->NQUOTEAZ
|
|
FLAGS "R"
|
|
HELP "Numero di azioni possedute dal socio"
|
|
END
|
|
|
|
NUMBER FLD_SC1_PERCQUAZ 7 3
|
|
BEGIN
|
|
PROMPT 26 10 "%Proprieta' "
|
|
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 3
|
|
BEGIN
|
|
PROMPT 50 10 "%Reddito "
|
|
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 3
|
|
BEGIN
|
|
PROMPT 50 11 "%Perdita "
|
|
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 28
|
|
BEGIN
|
|
PROMPT 1 13 "R.qualifica "
|
|
FIELD LF_SOCI->RICQUAL
|
|
HELP "Qualifica del socio"
|
|
ITEM " |Nessuna"
|
|
ITEM "A|A) Amministratore socio"
|
|
ITEM "B1|B1) Accomandante"
|
|
ITEM "B|B) Amministratore non socio"
|
|
ITEM "C|C) Altro organo"
|
|
END
|
|
|
|
NUMBER FLD_SC1_EMOLUMENTO 15
|
|
BEGIN
|
|
PROMPT 47 13 "Emolumento "
|
|
FIELD LF_SOCI->EMOLUMENTO
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Ammontare dell'emolumento dovuto al socio"
|
|
END
|
|
|
|
LIST LST_SC1_PROP 1 24
|
|
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 47 14 "Tipo azioni "
|
|
FIELD LF_SOCI->TIPOAZ
|
|
ITEM "O|Ordinarie"
|
|
ITEM "P|Privilegiate"
|
|
ITEM "R|Risparmio"
|
|
HELP "Tipo di azioni posseduta dal socio"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 0 15 "Ultimo aggiornamento"
|
|
END
|
|
|
|
DATE FLD_SC1_DATAGG
|
|
BEGIN
|
|
PROMPT 1 16 "Data "
|
|
FIELD LF_SOCI->DATAAGG
|
|
FLAGS "DA"
|
|
END
|
|
|
|
STRING F_UTENTE 10
|
|
BEGIN
|
|
PROMPT 45 16 "Utente "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pag. 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 12
|
|
BEGIN
|
|
PROMPT 1 4 "Socio : Tipo "
|
|
FLAGS "D"
|
|
ITEM "F|Fisica"
|
|
ITEM "G|Giuridica"
|
|
GROUP 4
|
|
END
|
|
|
|
LIST DLG_NULL 12
|
|
BEGIN
|
|
PROMPT 1 3 "Attuale/Prec. "
|
|
FLAGS "D"
|
|
ITEM "A|Attuale"
|
|
ITEM "P|Precedente"
|
|
GROUP 7
|
|
END
|
|
|
|
NUMBER DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 32 4 "Codice "
|
|
FLAGS "RD"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 9 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
|
|
|
|
LIST LST_SC2_QUATTPREV 10
|
|
BEGIN
|
|
PROMPT 1 9 "Quadro 750 "
|
|
FIELD LF_SOCI->QUATTPREV
|
|
HELP "Quadro in cui compare il socio sul 750"
|
|
ITEM " |Nessuno"
|
|
ITEM "A|Quadro A"
|
|
ITEM "B|Quadro B"
|
|
ITEM "C|Quadro C"
|
|
END
|
|
|
|
LIST LST_SC2_Q740 10
|
|
BEGIN
|
|
PROMPT 1 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
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 12 "Codice del dichiarante nel caso in cui il socio sia codichiarante"
|
|
END
|
|
|
|
NUMBER FLD_SC2_CODANAGCON 5
|
|
BEGIN
|
|
PROMPT 10 14 "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 10 15 "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 17 "Note "
|
|
FIELD LF_SOCI->NOTE
|
|
HELP "Eventuali note riferite al socio"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|