campo-sirio/ba/ba4400a.uml

#include "ba4400.h"

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

PAGE "Pag. 1" -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"
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@
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 RUN ba4 -0
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 "Denominazione  "
  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 RUN ba4 -0
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
  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 "Denominazione  "
  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 RUN ba4 -0
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 "Pag. 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 "Denominazione  "
  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 "Denominazione "
  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 RUN ba4 -0
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 "UR"   
  PICTURE "."
  HELP "Numero di metri quadri dei locali"
  WARNING "N.ro mq. errati"
END

NUMBER FDL_UL2_MQULCMAG 6
BEGIN
  PROMPT 45 15 "Di cui a magazzino    "
  FIELD LF_UNLOC->MQULCMAG
  FLAGS "UR"
  PICTURE "."
  HELP "Numero di metri quadri del locale adibiti a magazzino"
  WARNING "N.ro mq. errati"
END

ENDPAGE

ENDMASK