505 lines
10 KiB
Plaintext
Executable File
505 lines
10 KiB
Plaintext
Executable File
#include "ba4500.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Attivita' 1/2" -1 -1 77 20
|
|
|
|
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 "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
|
|
KEY 1
|
|
INPUT CODDITTA FLD_AT1_CODDITTA SELECT
|
|
INPUT CODATT FLD_AT1_CODATT
|
|
DISPLAY "Attivita'" CODATT
|
|
DISPLAY "Prevalente" ATTPREV
|
|
DISPLAY " @50" DESCR
|
|
OUTPUT FLD_AT1_CODDITTAH CODDITTA
|
|
OUTPUT FLD_AT1_CODATT CODATT
|
|
OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR DESCR
|
|
VALIDATE CHECK_FIELD FLD_AT1_CODDITTA
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
HELP "Ragione sociale della ditta"
|
|
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 "UZ"
|
|
KEY 1
|
|
COPY ALL FLD_AT1_CODDITTAH
|
|
GROUP 3
|
|
VALIDATE CHECK_FIELD FLD_AT1_CODATT
|
|
MESSAGE COPY,FLD_AT1_CODATT
|
|
WARNING "Attivita' assente"
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN BA3 -0 %AIS
|
|
END
|
|
|
|
STRING FLD_AT1_CODATT 5
|
|
BEGIN
|
|
PROMPT 1 3 "Codice Attivita'"
|
|
FIELD LF_ATTIV->CODATT
|
|
FLAGS "UZG"
|
|
KEY 1
|
|
USE %AIS
|
|
INPUT CODTAB FLD_AT1_CODATT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FLD_AT1_CODATT CODTAB
|
|
MESSAGE COPY,3@
|
|
CHECKTYPE FORCED
|
|
HELP "Codice dell'attivita'"
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
BOOLEAN F_ATTPREV
|
|
BEGIN
|
|
PROMPT 55 3 "Prevalente"
|
|
FIELD LF_ATTIV->ATTPREV
|
|
FLAGS "DG"
|
|
MESSAGE TRUE COPY,5@
|
|
MESSAGE FALSE COPY,5@
|
|
END
|
|
|
|
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 4 "Nome Attivita' "
|
|
FIELD LF_ATTIV->DESCR
|
|
MESSAGE COPY,4@
|
|
KEY 2
|
|
HELP "Nome dell'attivita'"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
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[1,4]
|
|
DISPLAY "Subcodice" CODTAB[5,]
|
|
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 "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 "Subcodice del vecchio codice attivita'"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
STRING FLD_AT1_OLDCODATT_OLDATT_DESCR 50
|
|
BEGIN
|
|
PROMPT 1 7 "Nome "
|
|
USE %OIS KEY 2
|
|
INPUT S0 FLD_AT1_OLDCODATT_OLDATT_DESCR
|
|
DISPLAY "Attivita'@50" S0
|
|
DISPLAY "Codice" CODTAB[1,4]
|
|
DISPLAY "Subcodice" CODTAB[5,]
|
|
COPY OUTPUT FLD_AT1_OLDCODATT
|
|
HELP "Vecchio codice attivita'"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
DATE FLD_AT1_DATAISCIVA
|
|
BEGIN
|
|
PROMPT 1 8 "Inizio Attivita'"
|
|
FIELD LF_ATTIV->DATAISCIVA
|
|
HELP "Data di inizio attivita'"
|
|
END
|
|
|
|
DATE FLD_AT1_DATAVARIVA
|
|
BEGIN
|
|
PROMPT 30 8 "Variazione "
|
|
FIELD LF_ATTIV->DATAVARIVA
|
|
HELP "Data di variazione dati IVA"
|
|
WARNING "Data non corretta"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
|
END
|
|
|
|
DATE FLD_ATT_DCESSATT
|
|
BEGIN
|
|
PROMPT 56 8 "Termine "
|
|
FIELD LF_ATTIV->DCESSATT
|
|
HELP "Data del termine previsto attivita'"
|
|
WARNING "Data non corretta"
|
|
VALIDATE DATE_CMP_FUNC >= FLD_AT1_DATAISCIVA
|
|
END
|
|
|
|
STRING FLD_AT1_CODULIVA11 3
|
|
BEGIN
|
|
PROMPT 1 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 "Codice dell'unita' locale"
|
|
END
|
|
|
|
LIST LST_AT1_TIPOATT 26
|
|
BEGIN
|
|
PROMPT 1 10 "Tipo Attivita' "
|
|
FIELD LF_ATTIV->TIPOATT
|
|
HELP "Tipo di attivita'"
|
|
ITEM " |Altre"
|
|
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 nell'attivita'"
|
|
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 correttivi territoriali"
|
|
FIELD LF_ATTIV->ATTSCORTER
|
|
HELP "Indicare se si tratta di attivita' senza correttivi territoriali"
|
|
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 exo 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 "Piu' 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 "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 "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 "Numero di giorni per l'attivita' stagionale"
|
|
WARNING "N.ro di giorni non valido"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Attivita' 2/2" -1 -1 77 20
|
|
|
|
STRING DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "RD"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING DLG_NULL 5
|
|
BEGIN
|
|
PROMPT 1 3 "Codice Attivita'"
|
|
FLAGS "URZD"
|
|
GROUP 3
|
|
END
|
|
|
|
BOOLEAN DLG_NULL
|
|
BEGIN
|
|
PROMPT 55 3 "Prevalente"
|
|
FLAGS "D"
|
|
GROUP 5
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 1 4 "Nome Attivita' "
|
|
FLAGS "D"
|
|
GROUP 4
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "Indirizzo (Solo se diverso)"
|
|
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 "Tipo anagrafico del depositario dei registri"
|
|
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
|
|
INPUT TIPOA LST_AT2_TIPOADS SELECT
|
|
INPUT CODANAGR FLD_AT2_CODANGRDS
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Nome/Cognome o Ragione sociale @50" RAGSOC
|
|
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
|
|
HELP "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 "
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA LST_AT2_TIPOADS SELECT
|
|
INPUT RAGSOC FLD_AT2_CODANGRDS_ANAGR_RAGSOC
|
|
DISPLAY "Nome/Cognome o Ragione sociale @50" RAGSOC
|
|
DISPLAY "Tipo" TIPOA
|
|
DISPLAY "Codice" CODANAGR
|
|
COPY OUTPUT FLD_AT2_CODANGRDS
|
|
HELP "Nome del depositario dei registri"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Anagrafica assente"
|
|
ADD RUN ba4 -1
|
|
END
|
|
|
|
STRING FLD_AT2_ANAGR_DEP_IND 35
|
|
BEGIN
|
|
PROMPT 1 9 "Via "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FLD_AT2_ANAGR_DEP_CIV 10
|
|
BEGIN
|
|
PROMPT 49 9 "N."
|
|
FLAGS "D"
|
|
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 "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 "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 "Codice del comune in cui sono tenuti i registri"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
ADD RUN ba4 -0
|
|
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 "CAP del comune in cui sono tenuti i registri"
|
|
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 "Prefisso telefonico del luogo in cui sono tenuti i registri"
|
|
END
|
|
|
|
STRING FLD_AT2_TELCS 32
|
|
BEGIN
|
|
PROMPT 31 15 "Telefono "
|
|
FIELD LF_ATTIV->TELCS
|
|
HELP "Numero telefonico del luogo in cui sono tenuti i regitri"
|
|
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
|