campo-sirio/ba/ba4500a.uml

#include "ba4500.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Pag. 1" -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
  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@
  CHECKTYPE FORCED
  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 3
  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
  USE LF_ATTIV KEY 1
  INPUT CODDITTA FLD_AT1_CODDITTA SELECT
  INPUT CODATT FLD_AT1_CODATTH
  DISPLAY "Attivita'" CODATT
  DISPLAY "Prevalente" ATTPREV
  DISPLAY " @48" DESCR
  OUTPUT FLD_AT1_CODATTH CODATT
  OUTPUT FLD_AT1_CODATT CODATT
  OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR DESCR
  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
  OUTPUT FLD_AT1_ATTCODATT_TABATT_DESCR S0
  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 40
BEGIN
  PROMPT 1 4 "Nome Attivita'  "
  FIELD LF_ATTIV->DESCR
  MESSAGE COPY,4@
  KEY 2
  HELP "Nome dell'attivita'"
END

STRING F_CODATECO 6
BEGIN
  PROMPT 1 6 "Codice attivit<69> ATECO "
  FIELD LF_ATTIV->CODATECO
  FLAGS "RZ"
  CHECKTYPE REQUIRED
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 "Pag. 2" -1 -1 77 20

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

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 40
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 10
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
  HELP "Codice del depositario dei registri"
  CHECKTYPE REQUIRED
  WARNING "Anagrafica assente"
  ADD RUN ba4 -1 #LST_AT2_TIPOADS
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 #LST_AT2_TIPOADS
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

TEXT DLG_NULL
BEGIN
  PROMPT 1 11 "Indirizzo (Solo se diverso)"
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

NUMBER FLD_AT1_OLDCODATT 4
BEGIN
  PROMPT 1 18 "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 18 "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 19 "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

ENDPAGE

ENDMASK