campo-sirio/ba/ba4400a.uml

#include "ba4400.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Unita' locali 1/2" -1 -1 77 18

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 0 "Unita' locale"
	FLAGS "R"
END

NUMBER FLD_UL1_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta  "
  FIELD LF_UNLOC->CODDITTA
  FLAGS "RG"
  KEY 1
  USE LF_NDITTE
  INPUT CODDITTA FLD_UL1_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT FLD_UL1_CODDITTA CODDITTA
  OUTPUT FLD_UL1_CODDITTA_NDITTE_RAGSOC RAGSOC
  HELP "Codice della ditta di riferimento"
  MESSAGE COPY,2@
  CHECKTYPE FORCED
  WARNING "Ditta assente"
  ADD MASK ba4300a
END

STRING FLD_UL1_CODDITTA_NDITTE_RAGSOC 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "DG"
  KEY 1
  USE LF_NDITTE KEY 2
  INPUT RAGSOC FLD_UL1_CODDITTA_NDITTE_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT FLD_UL1_CODDITTA
  HELP "Ragione sociale della ditta di riferimento"
  MESSAGE COPY,3@
  ADD MASK BA4300A
END

NUMBER FLD_UL1_CODULC 3
BEGIN
  PROMPT 1 2 "Codice "
  FIELD LF_UNLOC->CODULC
  FLAGS "RG"
  KEY 1
  USE LF_UNLOC KEY 1
  JOIN LF_NDITTE TO LF_UNLOC KEY 1 INTO CODDITTA=CODDITTA
  JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
  INPUT CODDITTA FLD_UL1_CODDITTA SELECT
  INPUT CODULC FLD_UL1_CODULC
  // DISPLAY "Codice" CODDITTA
  DISPLAY "Un.Loc" CODULC
  DISPLAY "Localita'@50" LF_COMUNI->DENCOM
  DISPLAY "Indirizzo@35" INDULC
  DISPLAY "N.ro civico@35" CIVULC
  OUTPUT FLD_UL1_CODDITTA CODDITTA
  OUTPUT FLD_UL1_CODULC CODULC
  HELP "Codice dell'unita' locale"
  MESSAGE COPY,4@
  CHECKTYPE REQUIRED
  VALIDATE NOT_EMPTY_FUNC
END

STRING FLD_UL1_INDULC 35
BEGIN
  PROMPT 19 2 "Via "
  FIELD LF_UNLOC->INDULC
  HELP "Indirizzo dell'unita' locale"
  MESSAGE COPY,5@
  WARNING "Completare l'indirizzo dell'unita' locale"
  VALIDATE REQIF_FUNC 1 FLD_UL1_COMULC
END

STRING FLD_UL1_CIVULC 10
BEGIN
  PROMPT 61 2 "N."
  FIELD LF_UNLOC->CIVULC
  HELP "Numero civico dll'unita' locale"
  MESSAGE COPY,6@
END

STRING FLD_UL1_COMULC 4
BEGIN
  PROMPT 1 3 "Comune "
  FIELD LF_UNLOC->COMULC
  FLAGS "U"
  USE LF_COMUNI KEY 1
	INPUT STATO ""
  INPUT COM FLD_UL1_COMULC
#include <comdcod.h>
  OUTPUT FLD_UL1_COMULC COM
  OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
  OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
  OUTPUT FLD_UL1_CAPULC CAPCOM
  HELP "Codice del comune dell'unita' locale"
  MESSAGE COPY,7@
  CHECKTYPE REQUIRED
  WARNING "Comune assente"
	ADD MASK ba4100a
END

STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2
BEGIN
  PROMPT 46 3 "Provincia "
  FLAGS "DU"
  MESSAGE COPY,8@
END

STRING FLD_UL1_CAPULC 5
BEGIN
  PROMPT 61 3 "CAP    "
  FIELD LF_UNLOC->CAPULC
  FLAGS "RZ"
  HELP "CAP dell'unita' locale"
  MESSAGE COPY,9@
END

STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
BEGIN
	PROMPT 1 4 "Nome   "
        HELP "Nome del comune dell'unita' locale"
	USE LF_COMUNI KEY 2 SELECT STATO=""
	INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
#include <comdden.h>
	OUTPUT FLD_UL1_COMULC COM
	OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
	OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
	OUTPUT FLD_UL1_CAPULC CAPCOM
	MESSAGE COPY,10@
	ADD MASK ba4100a
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 6 "CCIAA"
END

STRING FLD_UL1_NUMCCIAA 7
BEGIN
  PROMPT 1 7 "Numero "
  FIELD LF_UNLOC->NUMCCIAA
  FLAGS "R"
        HELP "Numero autorizzazione alla camera di commercio"
END

DATE FLD_UL1_DATAICCIAA
BEGIN
  PROMPT 40 7 "Data iscrizione        "
  FIELD LF_UNLOC->DATAICCIAA
  HELP "Data di iscrizione alla camera di commercio"
END

STRING FLD_UL1_NUMMECC 7
BEGIN
  PROMPT 1 8 "N.Mecc."
  FIELD LF_UNLOC->NUMMECC
  FLAGS "R"
  HELP "Numero meccanografico dell'iscrizione"
END

DATE FLD_UL1_DATAVCCIAA
BEGIN
	PROMPT 40 8 "Data ultima variazione "
	FIELD LF_UNLOC->DATAVCCIAA
        HELP "Data dell'ultima variazione alla camera di commercio"
	WARNING "Data non corretta"
	VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
END

STRING FLD_UL1_COMCCIAA 4
BEGIN
	PROMPT 1 9 "Comune "
	FIELD LF_UNLOC->COMCCIAA
	FLAGS "U"
	GROUP 1
	COPY USE FLD_UL1_COMULC
	INPUT STATO ""
	INPUT COM FLD_UL1_COMCCIAA
	COPY DISPLAY FLD_UL1_COMULC
	OUTPUT FLD_UL1_COMCCIAA COM
	OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
        HELP "Codice del comune della camera di commercio"
	CHECKTYPE NORMAL
	WARNING "Comune assente"
	VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
END

STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
BEGIN
	PROMPT 1 10 "Nome   "
        HELP "Nome del comune delle camera di commercio"
	COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
	INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
	COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
	OUTPUT FLD_UL1_COMCCIAA COM
	OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
	ADD MASK ba4100a
END

GROUPBOX DLG_NULL 76 4
BEGIN
	PROMPT 0 12 "Autorizzazioni"
END

STRING FLD_UL1_NUMREC 7
BEGIN
  PROMPT 1 13 "Numero R.E.C.  "
  FIELD LF_UNLOC->NUMREC
  FLAGS "R"
  HELP "Numero R.E.C."
END

STRING FLD_UL1_AUTCOM 5
BEGIN
	PROMPT 50 13 "N. comunale       "
	FIELD LF_UNLOC->AUTCOM
  FLAGS "R"
        HELP "Numero dell'autorizzazione comunale all'esercizio"
END

STRING FLD_UL1_AUTPS 7
BEGIN
  PROMPT 1 14 "Numero PS      "
  FIELD LF_UNLOC->AUTPS
  FLAGS "R"
  HELP "Numero dell'autorizzazione della Pubblica Sicurezza"
END

NUMBER FLD_UL1_ALTAUT 1
BEGIN
  PROMPT 50 14 "Altre autorizzazioni  "
  FIELD LF_UNLOC->ALTAUT
  HELP "Numero di eventuali altre autorizzazioni"
END

ENDPAGE

PAGE "Unita' locali 2/2" -1 -1 77 18

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 0 0 "Unita' locale"
	FLAGS "R"
END

NUMBER DLG_NULL 5
BEGIN
  PROMPT 1 1 "Ditta  "
  FLAGS "RD"
  GROUP 2
END

STRING DLG_NULL 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
  GROUP 3
END

NUMBER DLG_NULL 3
BEGIN
  PROMPT 1 2 "Codice "
  FLAGS "RD"
  GROUP 4
END

STRING DLG_NULL 35
BEGIN
  PROMPT 19 2 "Via "
  FLAGS "D"
  GROUP 5
END

STRING DLG_NULL 10
BEGIN
  PROMPT 61 2 "N."
  FLAGS "D"
  GROUP 6
END

STRING DLG_NULL 4
BEGIN
	PROMPT 1 3 "Comune "
  FLAGS "D"
  GROUP 7
END

STRING DLG_NULL 2
BEGIN
  PROMPT 46 3 "Provincia "
  FLAGS "DU"
  GROUP 8
END

STRING DLG_NULL 5
BEGIN
  PROMPT 61 3 "CAP    "
  FLAGS "RZD"
  GROUP 9
END

STRING DLG_NULL 50
BEGIN
  PROMPT 1 4 "Nome   "
  FLAGS "D"
  GROUP 10
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 0 6 "Posizioni"
END

STRING FLD_UL2_POSINPS 13
BEGIN
  PROMPT 1 7 "INPS   "
  FIELD LF_UNLOC->POSINPS
  FLAGS "R"
  HELP "Numero della posizione INPS"
END

STRING FLD_UL2_POSINAIL 11
BEGIN
  PROMPT 55 7 "INAIL "
  FIELD LF_UNLOC->POSINAIL
  FLAGS "R"
  HELP "Numero della posizione INAIL"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 0 9 "Tribunale"
END

STRING FLD_UL2_REGTRIB 9
BEGIN
  PROMPT 1 10 "Regist."
  FIELD LF_UNLOC->REGTRIB
  HELP "Numero di registro del tribunale in cui e' iscritta la ditta"
END

STRING FLD_UL2_VOLTRIB 7
BEGIN
  PROMPT 30 10 "Volume "
  FIELD LF_UNLOC->VOLTRIB
  FLAGS "R"
  HELP "Numero del volume del tribunale in cui e' iscritta la ditta"
END

STRING FLD_UL2_FSCTRIB 5
BEGIN
  PROMPT 57 10 "Fascicolo "
  FIELD LF_UNLOC->FASCTRIB
  FLAGS "R"
  HELP "Numero del fascicolo del tribunale in cui e' iscritta la ditta"
END

STRING FLD_UL2_COMTRIB 4
BEGIN
  PROMPT 1 11 "Comune "
  FIELD LF_UNLOC->COMTRIB
  FLAGS "U"
  GROUP 1
  COPY USE FLD_UL1_COMULC
  INPUT STATO ""
  INPUT COM FLD_UL2_COMTRIB
  COPY DISPLAY FLD_UL1_COMULC
  OUTPUT FLD_UL2_COMTRIB COM
  OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
  OUTPUT FLD_UL2_CAPTRIB CAPCOM
  HELP "Codice del comune del tribunale"
  CHECKTYPE NORMAL    
  VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
  WARNING "Comune assente"
END

STRING FLD_UL2_CAPTRIB 5
BEGIN
  PROMPT 57 11 "CAP        "
  FIELD LF_UNLOC->CAPTRIB
  FLAGS "RZ"
  HELP "CAP del comune del tribunale"
END

STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
BEGIN
  PROMPT 1 12 "Nome   "
  HELP "Nome del comune del tribunale"
  COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
  INPUT DENCOM FLD_UL2_COMTRIB_COMUNI_DENCOM
  COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
  OUTPUT FLD_UL2_COMTRIB COM
  OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
  OUTPUT FLD_UL2_CAPTRIB CAPCOM
  ADD MASK ba4100a
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 0 14 "Locali destinati all' attivita'"
END

NUMBER FLD_UL2_MQULC 6
BEGIN
  PROMPT 1 15 "Mq. Locali        "
  FIELD LF_UNLOC->MQULC
  FLAGS "R"
  HELP "Numero di metri quadri dei locali"
	NUM_EXPR {#THIS_FIELD >= 0}
  WARNING "N.ro mq. errati"
END

NUMBER FDL_UL2_MQULCMAG 6
BEGIN
  PROMPT 45 15 "Di cui a magazzino    "
  FIELD LF_UNLOC->MQULCMAG
  FLAGS "R"
  HELP "Numero di metri quadri del locale adibiti a magazzino"
  WARNING "N.ro mq. errati"
	NUM_EXPR {#THIS_FIELD >= 0}
END

ENDPAGE

ENDMASK