#include "ba4600.h"

TOOLBAR "" 0 -2 0 2
#include <toolbar.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