campo-sirio/ba/ba4500a.uml

#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

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
  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_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<50> 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