#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
  CHECKTYPE REQUIRED
  WARNING "Inserire l'anno"
  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
  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 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,5@|COPY,8@
  CHECKTYPE FORCED
  WARNING "Anagrafica assente o nulla"
  MESSAGE COPY,FLD_SC1_CODANAGRSOH
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 "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

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 "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 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 "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"
  ITEM "D1|Quadro D1"
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 "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 "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                                        " 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                                        " 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
