Ripristinati i filtri sulle anagrafiche
git-svn-id: svn://10.65.10.50/trunk@348 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
1bb24030ca
commit
81390bdd26
938
ba/ba4500a.uml
938
ba/ba4500a.uml
@ -1,473 +1,473 @@
|
||||
#include "ba4500.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Attivita' 1/2" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
#include "ba4500.h"
|
||||
|
||||
STRING FLD_AT1_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FIELD LF_ATTIV->CODDITTA
|
||||
FLAGS "RG"
|
||||
KEY 1
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ditta@50" RAGSOC
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
|
||||
HELP "Inserire il codice della ditta"
|
||||
MESSAGE COPY,1@|COPY,FLD_AT1_CODDITTAH
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODDITTAH 5
|
||||
BEGIN
|
||||
FLAGS "HD"
|
||||
USE LF_ATTIV KEY 1
|
||||
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
|
||||
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Attivita' 1/2" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FIELD LF_ATTIV->CODDITTA
|
||||
FLAGS "RG"
|
||||
KEY 1
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA
|
||||
INPUT CODATT FLD_AT1_CODATT
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ditta@50" LF_NDITTE->RAGSOC
|
||||
DISPLAY "Attivita'" CODATT
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ditta@50" RAGSOC
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
|
||||
HELP "Inserire il codice della ditta"
|
||||
MESSAGE COPY,1@|COPY,FLD_AT1_CODDITTAH
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Ditta assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODDITTAH 5
|
||||
BEGIN
|
||||
FLAGS "HD"
|
||||
USE LF_ATTIV KEY 1
|
||||
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
|
||||
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA
|
||||
INPUT CODATT FLD_AT1_CODATT
|
||||
// DISPLAY "Codice" CODDITTA
|
||||
// DISPLAY "Ditta@50" LF_NDITTE->RAGSOC
|
||||
DISPLAY "Attivita'" CODATT
|
||||
DISPLAY " @50" %AIS->S0
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_CODATT CODATT
|
||||
END
|
||||
|
||||
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC FLD_AT1_PROGD_NDITTE_RAGSOC
|
||||
DISPLAY "Ditta@50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
|
||||
MESSAGE COPY,2@
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATTH 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FIELD LF_ATTIV->CODATT
|
||||
FLAGS "URZ"
|
||||
KEY 1
|
||||
COPY USE FLD_AT1_CODDITTAH
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA
|
||||
INPUT CODATT FLD_AT1_CODATTH
|
||||
COPY DISPLAY FLD_AT1_CODDITTAH
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_CODATT CODATT
|
||||
OUTPUT FLD_AT1_CODATTH CODATT
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3
|
||||
MESSAGE COPY,FLD_AT1_CODATT|COPY,FLD_AT1_CODATTH
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATT 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FIELD LF_ATTIV->CODATT
|
||||
FLAGS "URZG"
|
||||
KEY 1
|
||||
USE %AIS
|
||||
INPUT CODTAB FLD_AT1_CODATT
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_AT1_CODATT CODTAB
|
||||
OUTPUT FLD_AT1_CODATTH CODTAB
|
||||
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR S0
|
||||
HELP "Inserire il codice dell'attivita'"
|
||||
MESSAGE COPY,3@
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Attivita' assente"
|
||||
MESSAGE COPY,FLD_AT1_CODATTH
|
||||
END
|
||||
|
||||
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome Attivita' "
|
||||
FIELD LF_ATTIV->DESCR
|
||||
MESSAGE COPY,4@
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT1_OLDCODATT 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Vecchio codice "
|
||||
FIELD LF_ATTIV->OLDCODATT
|
||||
FLAGS "RZ"
|
||||
USE %OIS
|
||||
INPUT CODTAB[1,4] FLD_AT1_OLDCODATT
|
||||
INPUT CODTAB[5,] FLD_AT1_SUBCOD
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Attivita'@50" S0
|
||||
OUTPUT FLD_AT1_OLDCODATT CODTAB[1,4]
|
||||
OUTPUT FLD_AT1_SUBCOD CODTAB[5,]
|
||||
OUTPUT FLD_AT1_OLDCODATT_OLDATT_DESCR S0
|
||||
HELP "Inserire il vecchio codice attivita'"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Attivita' assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_SUBCOD 1
|
||||
BEGIN
|
||||
PROMPT 25 6 "Subcodice "
|
||||
FIELD LF_ATTIV->SUBCOD
|
||||
FLAGS "U"
|
||||
COPY ALL FLD_AT1_OLDCODATT
|
||||
HELP "Inserire il subcodice del vecchio codice"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Attivita' assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_OLDCODATT_OLDATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE FLD_AT1_DATAISCIVA
|
||||
BEGIN
|
||||
PROMPT 1 8 "Inizio Attivita'"
|
||||
FIELD LF_ATTIV->DATAISCIVA
|
||||
HELP "Inserire la data di inizio attivita'"
|
||||
END
|
||||
|
||||
DATE FLD_AT1_DATAVARIVA
|
||||
BEGIN
|
||||
PROMPT 44 8 "Variazione "
|
||||
FIELD LF_ATTIV->DATAVARIVA
|
||||
HELP "Inserire la data di variazione IVA"
|
||||
WARNING "Data non corretta"
|
||||
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
||||
END
|
||||
|
||||
DATE FLD_ATT_DCESSATT
|
||||
BEGIN
|
||||
PROMPT 1 9 "Termine "
|
||||
FIELD LF_ATTIV->DCESSATT
|
||||
HELP "Inserire la data di termine attivita'"
|
||||
WARNING "Data non corretta"
|
||||
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODULIVA11 3
|
||||
BEGIN
|
||||
PROMPT 44 9 "Unita' Locale IVA 11 "
|
||||
FIELD LF_ATTIV->CODULIVA11
|
||||
FLAGS "R"
|
||||
USE LF_UNLOC KEY 1
|
||||
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
|
||||
INPUT CODULC FLD_AT1_CODULIVA11
|
||||
DISPLAY "Un.Loc" CODULC
|
||||
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
||||
DISPLAY "Indirizzo@35" INDULC
|
||||
DISPLAY "N.ro civico@10" CIVULC
|
||||
OUTPUT FLD_AT1_CODULIVA11 CODULC
|
||||
HELP "Inserire il codice dell'unita' locale"
|
||||
ADD MASK ba4400a
|
||||
END
|
||||
|
||||
LIST LST_AT1_TIPOATT 26
|
||||
BEGIN
|
||||
PROMPT 1 10 "Tipo Attivita' "
|
||||
FIELD LF_ATTIV->TIPOATT
|
||||
HELP ""
|
||||
ITEM " |Altre"
|
||||
ITEM "M|Mista"
|
||||
ITEM "E|Mista evidenziata"
|
||||
ITEM "S|Servizio o mista generica"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_MEDCONV
|
||||
BEGIN
|
||||
PROMPT 1 11 "Medici convenzionati ??"
|
||||
FIELD LF_ATTIV->MEDCONV
|
||||
HELP "Indicare se esistono medici convenzionati"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTLAVDIP
|
||||
BEGIN
|
||||
PROMPT 44 11 "Attivita' lavoro dipendente"
|
||||
FIELD LF_ATTIV->ATTLAVDIP
|
||||
HELP "Indicare se si tratta di attivita' da lavoro dipendente"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_REGAGR
|
||||
BEGIN
|
||||
PROMPT 1 12 "Regime agricolo"
|
||||
FIELD LF_ATTIV->REGAGR
|
||||
HELP "Indicare se l'attivita' e' sottoposta al regime agricolo"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTSCORTER
|
||||
BEGIN
|
||||
PROMPT 44 12 "Senza Corr.Terr.??"
|
||||
FIELD LF_ATTIV->ATTSCORTER
|
||||
HELP "Indicare se si tratta di attivita' senza correttivo territoriale"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_REG74TER
|
||||
BEGIN
|
||||
PROMPT 1 13 "Regime agenzie di viaggio"
|
||||
FIELD LF_ATTIV->REG74TER
|
||||
HELP "Indicare se l'attivita' e sottoposta al regime delle agenzie di viaggio"
|
||||
END
|
||||
|
||||
BOOLEAN FLD_AT1_ART74_4
|
||||
BEGIN
|
||||
PROMPT 44 13 "Gestione Art.74/4"
|
||||
FIELD LF_ATTIV->ART74/4
|
||||
HELP "Indicare se si tratta di gestione secondo art 74 comma 4"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTSTAG
|
||||
BEGIN
|
||||
PROMPT 1 14 "Attivita' stagionale"
|
||||
FIELD LF_ATTIV->ATTSTAG
|
||||
HELP "Indicare se si tratta di attivita' stagionale"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ESLUOGHID
|
||||
BEGIN
|
||||
PROMPT 44 14 "Pi£ luoghi"
|
||||
FIELD LF_ATTIV->ESLUOGHID
|
||||
HELP "Indicare se l'attivita' si svolge su piu' luoghi"
|
||||
END
|
||||
|
||||
NUMBER FLD_AT1_NSOCILDIP 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "N.soci lavoro dipendente "
|
||||
FIELD LF_ATTIV->NSOCILDIP
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di soci lavoratori dipendenti"
|
||||
END
|
||||
|
||||
NUMBER FLD_AT1_GIATTANN 3
|
||||
BEGIN
|
||||
PROMPT 44 15 "gg.attivita' annuali "
|
||||
FIELD LF_ATTIV->GIATTANN
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di giorni di attivita' all'anno"
|
||||
WARNING "N.ro di giorni non valido "
|
||||
END
|
||||
|
||||
STRING FLD_AT1_GILAVASTAG 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "gg.lav.attivita' stagionale "
|
||||
FIELD LF_ATTIV->GILAVASTAG
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di giorni per l'attivita' stagionale"
|
||||
WARNING "N.ro di giorni non valido"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Attivita' 2/2" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "RD"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATTH 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FLAGS "URZD"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome Attivita' "
|
||||
FLAGS "D"
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 12
|
||||
BEGIN
|
||||
PROMPT 0 6 "Tenuta Registri Contabili"
|
||||
END
|
||||
|
||||
LIST LST_AT2_TIPOADS 9
|
||||
BEGIN
|
||||
PROMPT 1 7 "Depositario : Tipo "
|
||||
FIELD LF_ATTIV->TIPOADS
|
||||
HELP ""
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CODANGRDS 5
|
||||
BEGIN
|
||||
PROMPT 37 7 "Codice "
|
||||
FIELD LF_ATTIV->CODANGRDS
|
||||
FLAGS "R"
|
||||
USE LF_ANAG KEY 1
|
||||
// JOIN LF_COMUNI TO LF_ANAG KEY 1 INTO COM=COMRF
|
||||
INPUT TIPOA LST_AT2_TIPOADS
|
||||
INPUT CODANAGR FLD_AT2_CODANGRDS
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Nome " RAGSOC
|
||||
OUTPUT LST_AT2_TIPOADS TIPOA
|
||||
OUTPUT FLD_AT2_CODANGRDS CODANAGR
|
||||
OUTPUT FLD_AT2_CODANGRDS_ANAGR_RAGSOC RAGSOC
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_IND INDRES
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_CIV CIVRES
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_CAP CAPRES
|
||||
// OUTPUT FLD_AT2_DEP_ANAGR_COMUNI_DESCR LF_COMUNI->DENCOM
|
||||
HELP "Inserire il codice del depositario dei registri"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Anagrafica assente"
|
||||
ADD RUN ba4 -1
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CODANGRDS_ANAGR_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 13 8 ": Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_IND 35
|
||||
BEGIN
|
||||
PROMPT 1 9 "Via "
|
||||
FLAGS "D"
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_CIV 10
|
||||
BEGIN
|
||||
PROMPT 49 9 "N."
|
||||
FLAGS "D"
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_CAP 5
|
||||
BEGIN
|
||||
PROMPT 64 9 "CAP "
|
||||
FLAGS "DRZ"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_DEP_ANAGR_COMUNI_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Comune "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_DEP_ANAGR_COMUNI_PROV 5
|
||||
BEGIN
|
||||
PROMPT 64 10 "Pr. "
|
||||
FLAGS "DU"
|
||||
END
|
||||
|
||||
STRING FLD_ATT2_INDCS 35
|
||||
BEGIN
|
||||
PROMPT 1 12 "Via "
|
||||
FIELD LF_ATTIV->INDCS
|
||||
HELP "Indicare l'indirizzo in cui sono conservati i registri"
|
||||
WARNING "Completare l'indirizzo in cui sono conservati i registri"
|
||||
VALIDATE REQIF_FUNC 1 FLD_AT2_COMCS
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CIVCS 10
|
||||
BEGIN
|
||||
PROMPT 49 12 "N."
|
||||
FIELD LF_ATTIV->CIVCS
|
||||
HELP "Inserire il numero civico in cui sono tenuti i registri"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMCS 4
|
||||
BEGIN
|
||||
PROMPT 1 13 "Comune "
|
||||
FIELD LF_ATTIV->COMCS
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM FLD_AT2_COMCS
|
||||
#include <comdcod.h>
|
||||
OUTPUT FLD_AT2_COMCS COM
|
||||
OUTPUT FLD_AT2_COMUNI_DESCR DENCOM
|
||||
OUTPUT FLD_AT2_COMUNI_PROVCOM PROVCOM
|
||||
OUTPUT FLD_AT2_CAPCS CAPCOM
|
||||
HELP "Inserire il codice del comune in cui sono tenuti i registri"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMUNI_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 31 13 "Provincia "
|
||||
FLAGS "DU"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CAPCS 5
|
||||
BEGIN
|
||||
PROMPT 64 13 "CAP "
|
||||
FIELD LF_ATTIV->CAPCS
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il CAP del comune"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMUNI_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 14 "Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_PTELCS 10
|
||||
BEGIN
|
||||
PROMPT 1 15 "Prefisso "
|
||||
FIELD LF_ATTIV->PTELCS
|
||||
HELP "Inserire il prefisso telefonico"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_TELCS 32
|
||||
BEGIN
|
||||
PROMPT 31 15 "Telefono "
|
||||
FIELD LF_ATTIV->TELCS
|
||||
HELP "Inserire il numero di telefono"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT2_TSCRPARZ
|
||||
BEGIN
|
||||
PROMPT 1 16 "Tenuta Scritture Parziali"
|
||||
FIELD LF_ATTIV->TSCRPARZ
|
||||
HELP "Indicare se vengono tenuti scritture parziali"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
END
|
||||
|
||||
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC FLD_AT1_PROGD_NDITTE_RAGSOC
|
||||
DISPLAY "Ditta@50" RAGSOC
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_PROGD_NDITTE_RAGSOC RAGSOC
|
||||
MESSAGE COPY,2@
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATTH 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FIELD LF_ATTIV->CODATT
|
||||
FLAGS "URZ"
|
||||
KEY 1
|
||||
COPY USE FLD_AT1_CODDITTAH
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
|
||||
INPUT CODATT FLD_AT1_CODATTH
|
||||
COPY DISPLAY FLD_AT1_CODDITTAH
|
||||
OUTPUT FLD_AT1_CODDITTA CODDITTA
|
||||
OUTPUT FLD_AT1_CODATT CODATT
|
||||
OUTPUT FLD_AT1_CODATTH CODATT
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3
|
||||
MESSAGE COPY,FLD_AT1_CODATT|COPY,FLD_AT1_CODATTH
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATT 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FIELD LF_ATTIV->CODATT
|
||||
FLAGS "URZG"
|
||||
KEY 1
|
||||
USE %AIS
|
||||
INPUT CODTAB FLD_AT1_CODATT
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT FLD_AT1_CODATT CODTAB
|
||||
OUTPUT FLD_AT1_CODATTH CODTAB
|
||||
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR S0
|
||||
HELP "Inserire il codice dell'attivita'"
|
||||
MESSAGE COPY,3@
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Attivita' assente"
|
||||
MESSAGE COPY,FLD_AT1_CODATTH
|
||||
END
|
||||
|
||||
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome Attivita' "
|
||||
FIELD LF_ATTIV->DESCR
|
||||
MESSAGE COPY,4@
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT1_OLDCODATT 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Vecchio codice "
|
||||
FIELD LF_ATTIV->OLDCODATT
|
||||
FLAGS "RZ"
|
||||
USE %OIS
|
||||
INPUT CODTAB[1,4] FLD_AT1_OLDCODATT
|
||||
INPUT CODTAB[5,] FLD_AT1_SUBCOD
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Attivita'@50" S0
|
||||
OUTPUT FLD_AT1_OLDCODATT CODTAB[1,4]
|
||||
OUTPUT FLD_AT1_SUBCOD CODTAB[5,]
|
||||
OUTPUT FLD_AT1_OLDCODATT_OLDATT_DESCR S0
|
||||
HELP "Inserire il vecchio codice attivita'"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Attivita' assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_SUBCOD 1
|
||||
BEGIN
|
||||
PROMPT 25 6 "Subcodice "
|
||||
FIELD LF_ATTIV->SUBCOD
|
||||
FLAGS "U"
|
||||
COPY ALL FLD_AT1_OLDCODATT
|
||||
HELP "Inserire il subcodice del vecchio codice"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Attivita' assente"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_OLDCODATT_OLDATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE FLD_AT1_DATAISCIVA
|
||||
BEGIN
|
||||
PROMPT 1 8 "Inizio Attivita'"
|
||||
FIELD LF_ATTIV->DATAISCIVA
|
||||
HELP "Inserire la data di inizio attivita'"
|
||||
END
|
||||
|
||||
DATE FLD_AT1_DATAVARIVA
|
||||
BEGIN
|
||||
PROMPT 44 8 "Variazione "
|
||||
FIELD LF_ATTIV->DATAVARIVA
|
||||
HELP "Inserire la data di variazione IVA"
|
||||
WARNING "Data non corretta"
|
||||
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
||||
END
|
||||
|
||||
DATE FLD_ATT_DCESSATT
|
||||
BEGIN
|
||||
PROMPT 1 9 "Termine "
|
||||
FIELD LF_ATTIV->DCESSATT
|
||||
HELP "Inserire la data di termine attivita'"
|
||||
WARNING "Data non corretta"
|
||||
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODULIVA11 3
|
||||
BEGIN
|
||||
PROMPT 44 9 "Unita' Locale IVA 11 "
|
||||
FIELD LF_ATTIV->CODULIVA11
|
||||
FLAGS "R"
|
||||
USE LF_UNLOC KEY 1
|
||||
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
||||
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
|
||||
INPUT CODULC FLD_AT1_CODULIVA11
|
||||
DISPLAY "Un.Loc" CODULC
|
||||
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
||||
DISPLAY "Indirizzo@35" INDULC
|
||||
DISPLAY "N.ro civico@10" CIVULC
|
||||
OUTPUT FLD_AT1_CODULIVA11 CODULC
|
||||
HELP "Inserire il codice dell'unita' locale"
|
||||
ADD MASK ba4400a
|
||||
END
|
||||
|
||||
LIST LST_AT1_TIPOATT 26
|
||||
BEGIN
|
||||
PROMPT 1 10 "Tipo Attivita' "
|
||||
FIELD LF_ATTIV->TIPOATT
|
||||
HELP ""
|
||||
ITEM " |Altre"
|
||||
ITEM "M|Mista"
|
||||
ITEM "E|Mista evidenziata"
|
||||
ITEM "S|Servizio o mista generica"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_MEDCONV
|
||||
BEGIN
|
||||
PROMPT 1 11 "Medici convenzionati ??"
|
||||
FIELD LF_ATTIV->MEDCONV
|
||||
HELP "Indicare se esistono medici convenzionati"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTLAVDIP
|
||||
BEGIN
|
||||
PROMPT 44 11 "Attivita' lavoro dipendente"
|
||||
FIELD LF_ATTIV->ATTLAVDIP
|
||||
HELP "Indicare se si tratta di attivita' da lavoro dipendente"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_REGAGR
|
||||
BEGIN
|
||||
PROMPT 1 12 "Regime agricolo"
|
||||
FIELD LF_ATTIV->REGAGR
|
||||
HELP "Indicare se l'attivita' e' sottoposta al regime agricolo"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTSCORTER
|
||||
BEGIN
|
||||
PROMPT 44 12 "Senza Corr.Terr.??"
|
||||
FIELD LF_ATTIV->ATTSCORTER
|
||||
HELP "Indicare se si tratta di attivita' senza correttivo territoriale"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_REG74TER
|
||||
BEGIN
|
||||
PROMPT 1 13 "Regime agenzie di viaggio"
|
||||
FIELD LF_ATTIV->REG74TER
|
||||
HELP "Indicare se l'attivita' e sottoposta al regime delle agenzie di viaggio"
|
||||
END
|
||||
|
||||
BOOLEAN FLD_AT1_ART74_4
|
||||
BEGIN
|
||||
PROMPT 44 13 "Gestione Art.74/4"
|
||||
FIELD LF_ATTIV->ART74/4
|
||||
HELP "Indicare se si tratta di gestione secondo art 74 comma 4"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ATTSTAG
|
||||
BEGIN
|
||||
PROMPT 1 14 "Attivita' stagionale"
|
||||
FIELD LF_ATTIV->ATTSTAG
|
||||
HELP "Indicare se si tratta di attivita' stagionale"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT1_ESLUOGHID
|
||||
BEGIN
|
||||
PROMPT 44 14 "Pi£ luoghi"
|
||||
FIELD LF_ATTIV->ESLUOGHID
|
||||
HELP "Indicare se l'attivita' si svolge su piu' luoghi"
|
||||
END
|
||||
|
||||
NUMBER FLD_AT1_NSOCILDIP 3
|
||||
BEGIN
|
||||
PROMPT 1 15 "N.soci lavoro dipendente "
|
||||
FIELD LF_ATTIV->NSOCILDIP
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di soci lavoratori dipendenti"
|
||||
END
|
||||
|
||||
NUMBER FLD_AT1_GIATTANN 3
|
||||
BEGIN
|
||||
PROMPT 44 15 "gg.attivita' annuali "
|
||||
FIELD LF_ATTIV->GIATTANN
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di giorni di attivita' all'anno"
|
||||
WARNING "N.ro di giorni non valido "
|
||||
END
|
||||
|
||||
STRING FLD_AT1_GILAVASTAG 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "gg.lav.attivita' stagionale "
|
||||
FIELD LF_ATTIV->GILAVASTAG
|
||||
FLAGS "R"
|
||||
HELP "Indicare il numero di giorni per l'attivita' stagionale"
|
||||
WARNING "N.ro di giorni non valido"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Attivita' 2/2" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 ""
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "RD"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING FLD_AT1_CODATTH 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Codice Attivita'"
|
||||
FLAGS "URZD"
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome Attivita' "
|
||||
FLAGS "D"
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 12
|
||||
BEGIN
|
||||
PROMPT 0 6 "Tenuta Registri Contabili"
|
||||
END
|
||||
|
||||
LIST LST_AT2_TIPOADS 9
|
||||
BEGIN
|
||||
PROMPT 1 7 "Depositario : Tipo "
|
||||
FIELD LF_ATTIV->TIPOADS
|
||||
HELP ""
|
||||
ITEM "F|Fisica"
|
||||
ITEM "G|Giuridica"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CODANGRDS 5
|
||||
BEGIN
|
||||
PROMPT 37 7 "Codice "
|
||||
FIELD LF_ATTIV->CODANGRDS
|
||||
FLAGS "R"
|
||||
USE LF_ANAG KEY 1
|
||||
// JOIN LF_COMUNI TO LF_ANAG KEY 1 INTO COM=COMRF
|
||||
INPUT TIPOA LST_AT2_TIPOADS
|
||||
INPUT CODANAGR FLD_AT2_CODANGRDS
|
||||
DISPLAY "Tipo" TIPOA
|
||||
DISPLAY "Codice" CODANAGR
|
||||
DISPLAY "Nome " RAGSOC
|
||||
OUTPUT LST_AT2_TIPOADS TIPOA
|
||||
OUTPUT FLD_AT2_CODANGRDS CODANAGR
|
||||
OUTPUT FLD_AT2_CODANGRDS_ANAGR_RAGSOC RAGSOC
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_IND INDRES
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_CIV CIVRES
|
||||
OUTPUT FLD_AT2_ANAGR_DEP_CAP CAPRES
|
||||
// OUTPUT FLD_AT2_DEP_ANAGR_COMUNI_DESCR LF_COMUNI->DENCOM
|
||||
HELP "Inserire il codice del depositario dei registri"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Anagrafica assente"
|
||||
ADD RUN ba4 -1
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CODANGRDS_ANAGR_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 13 8 ": Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_IND 35
|
||||
BEGIN
|
||||
PROMPT 1 9 "Via "
|
||||
FLAGS "D"
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_CIV 10
|
||||
BEGIN
|
||||
PROMPT 49 9 "N."
|
||||
FLAGS "D"
|
||||
HELP ""
|
||||
END
|
||||
|
||||
STRING FLD_AT2_ANAGR_DEP_CAP 5
|
||||
BEGIN
|
||||
PROMPT 64 9 "CAP "
|
||||
FLAGS "DRZ"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_DEP_ANAGR_COMUNI_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Comune "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_DEP_ANAGR_COMUNI_PROV 5
|
||||
BEGIN
|
||||
PROMPT 64 10 "Pr. "
|
||||
FLAGS "DU"
|
||||
END
|
||||
|
||||
STRING FLD_ATT2_INDCS 35
|
||||
BEGIN
|
||||
PROMPT 1 12 "Via "
|
||||
FIELD LF_ATTIV->INDCS
|
||||
HELP "Indicare l'indirizzo in cui sono conservati i registri"
|
||||
WARNING "Completare l'indirizzo in cui sono conservati i registri"
|
||||
VALIDATE REQIF_FUNC 1 FLD_AT2_COMCS
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CIVCS 10
|
||||
BEGIN
|
||||
PROMPT 49 12 "N."
|
||||
FIELD LF_ATTIV->CIVCS
|
||||
HELP "Inserire il numero civico in cui sono tenuti i registri"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMCS 4
|
||||
BEGIN
|
||||
PROMPT 1 13 "Comune "
|
||||
FIELD LF_ATTIV->COMCS
|
||||
FLAGS "U"
|
||||
USE LF_COMUNI
|
||||
INPUT STATO ""
|
||||
INPUT COM FLD_AT2_COMCS
|
||||
#include <comdcod.h>
|
||||
OUTPUT FLD_AT2_COMCS COM
|
||||
OUTPUT FLD_AT2_COMUNI_DESCR DENCOM
|
||||
OUTPUT FLD_AT2_COMUNI_PROVCOM PROVCOM
|
||||
OUTPUT FLD_AT2_CAPCS CAPCOM
|
||||
HELP "Inserire il codice del comune in cui sono tenuti i registri"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
ADD MASK ba4100a
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMUNI_PROVCOM 5
|
||||
BEGIN
|
||||
PROMPT 31 13 "Provincia "
|
||||
FLAGS "DU"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_CAPCS 5
|
||||
BEGIN
|
||||
PROMPT 64 13 "CAP "
|
||||
FIELD LF_ATTIV->CAPCS
|
||||
FLAGS "RZ"
|
||||
HELP "Inserire il CAP del comune"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_COMUNI_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 1 14 "Nome "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_PTELCS 10
|
||||
BEGIN
|
||||
PROMPT 1 15 "Prefisso "
|
||||
FIELD LF_ATTIV->PTELCS
|
||||
HELP "Inserire il prefisso telefonico"
|
||||
END
|
||||
|
||||
STRING FLD_AT2_TELCS 32
|
||||
BEGIN
|
||||
PROMPT 31 15 "Telefono "
|
||||
FIELD LF_ATTIV->TELCS
|
||||
HELP "Inserire il numero di telefono"
|
||||
END
|
||||
|
||||
BOOLEAN CHK_AT2_TSCRPARZ
|
||||
BEGIN
|
||||
PROMPT 1 16 "Tenuta Scritture Parziali"
|
||||
FIELD LF_ATTIV->TSCRPARZ
|
||||
HELP "Indicare se vengono tenuti scritture parziali"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
916
ba/ba4600a.uml
916
ba/ba4600a.uml
@ -1,461 +1,461 @@
|
||||
#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
|
||||
#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
|
||||
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
|
||||
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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user