Ripristinati i filtri
git-svn-id: svn://10.65.10.50/trunk@347 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
03379dd57f
commit
1bb24030ca
852
ba/ba4400a.uml
852
ba/ba4400a.uml
@ -1,426 +1,426 @@
|
||||
#include "ba4400.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Unit… locali 1/2" -1 -1 77 18
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 "Unit… 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 "Inserire il 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 "Inserire la 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
|
||||
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 "Inserire il 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 "Indicare l'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 "Indicare il 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 "Inserire il 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 "Inserire il CAP dell'unita' locale"
|
||||
MESSAGE COPY,9@
|
||||
END
|
||||
|
||||
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome "
|
||||
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 "Inserire il numero dell'autorizzazione alla camera di commercio"
|
||||
END
|
||||
|
||||
DATE FLD_UL1_DATAICCIAA
|
||||
BEGIN
|
||||
PROMPT 40 7 "Data iscrizione "
|
||||
FIELD LF_UNLOC->DATAICCIAA
|
||||
HELP "Inserire la data di iscrizione alla CCIAA"
|
||||
END
|
||||
|
||||
STRING FLD_UL1_NUMMECC 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "N.Mecc."
|
||||
FIELD LF_UNLOC->NUMMECC
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero meccanografico dell'iscrizione"
|
||||
END
|
||||
|
||||
DATE FLD_UL1_DATAVCCIAA
|
||||
BEGIN
|
||||
PROMPT 40 8 "Data ultima variazione "
|
||||
FIELD LF_UNLOC->DATAVCCIAA
|
||||
HELP "Inserire la data dell'ultima variazione alla CCIAA"
|
||||
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 "Inserire il codice del comune della CCIAA"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
||||
END
|
||||
|
||||
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Nome "
|
||||
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 "Inserire il numero R.E.C."
|
||||
END
|
||||
|
||||
STRING FLD_UL1_AUTCOM 5
|
||||
BEGIN
|
||||
PROMPT 50 13 "N. comunale "
|
||||
FIELD LF_UNLOC->AUTCOM
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 "Inserire il numero PS"
|
||||
END
|
||||
|
||||
NUMBER FLD_UL1_ALTAUT 1
|
||||
BEGIN
|
||||
PROMPT 50 14 "Altre autorizzazioni "
|
||||
FIELD LF_UNLOC->ALTAUT
|
||||
HELP "Inserire il numero di altre autorizzazioni"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Unit… locali 2/2" -1 -1 77 18
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 "Unit… 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 14
|
||||
BEGIN
|
||||
PROMPT 1 7 "INPS "
|
||||
FIELD LF_UNLOC->POSINPS
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero della posizione INPS"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_POSINAIL 12
|
||||
BEGIN
|
||||
PROMPT 55 7 "INAIL "
|
||||
FIELD LF_UNLOC->POSINAIL
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero della posizione INAIL"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 0 9 "Tribunale"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_REGTRIB 10
|
||||
BEGIN
|
||||
PROMPT 1 10 "Regist."
|
||||
FIELD LF_UNLOC->REGTRIB
|
||||
HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_VOLTRIB 8
|
||||
BEGIN
|
||||
PROMPT 30 10 "Volume "
|
||||
FIELD LF_UNLOC->VOLTRIB
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_FSCTRIB 6
|
||||
BEGIN
|
||||
PROMPT 57 10 "Fascicolo "
|
||||
FIELD LF_UNLOC->FASCTRIB
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 "Inserire il 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 "Inserire il CAP del comune del tribunale"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Nome "
|
||||
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
|
||||
|
||||
NUMBER FLD_UL2_MQULC 6
|
||||
BEGIN
|
||||
PROMPT 1 14 "Mq. Locali "
|
||||
FIELD LF_UNLOC->MQULC
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 14 "Di cui a magazzino "
|
||||
FIELD LF_UNLOC->MQULCMAG
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero di metri quadri del locale adibiti a magazzino"
|
||||
WARNING "N.ro mq. errati"
|
||||
NUM_EXPR {#THIS_FIELD >= 0}
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "ba4400.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Unit… locali 1/2" -1 -1 77 18
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 "Unit… 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 "Inserire il 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 "Inserire la 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 "Inserire il 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 "Indicare l'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 "Indicare il 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 "Inserire il 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 "Inserire il CAP dell'unita' locale"
|
||||
MESSAGE COPY,9@
|
||||
END
|
||||
|
||||
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 4 "Nome "
|
||||
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 "Inserire il numero dell'autorizzazione alla camera di commercio"
|
||||
END
|
||||
|
||||
DATE FLD_UL1_DATAICCIAA
|
||||
BEGIN
|
||||
PROMPT 40 7 "Data iscrizione "
|
||||
FIELD LF_UNLOC->DATAICCIAA
|
||||
HELP "Inserire la data di iscrizione alla CCIAA"
|
||||
END
|
||||
|
||||
STRING FLD_UL1_NUMMECC 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "N.Mecc."
|
||||
FIELD LF_UNLOC->NUMMECC
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero meccanografico dell'iscrizione"
|
||||
END
|
||||
|
||||
DATE FLD_UL1_DATAVCCIAA
|
||||
BEGIN
|
||||
PROMPT 40 8 "Data ultima variazione "
|
||||
FIELD LF_UNLOC->DATAVCCIAA
|
||||
HELP "Inserire la data dell'ultima variazione alla CCIAA"
|
||||
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 "Inserire il codice del comune della CCIAA"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Comune assente"
|
||||
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
||||
END
|
||||
|
||||
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 10 "Nome "
|
||||
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 "Inserire il numero R.E.C."
|
||||
END
|
||||
|
||||
STRING FLD_UL1_AUTCOM 5
|
||||
BEGIN
|
||||
PROMPT 50 13 "N. comunale "
|
||||
FIELD LF_UNLOC->AUTCOM
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 "Inserire il numero PS"
|
||||
END
|
||||
|
||||
NUMBER FLD_UL1_ALTAUT 1
|
||||
BEGIN
|
||||
PROMPT 50 14 "Altre autorizzazioni "
|
||||
FIELD LF_UNLOC->ALTAUT
|
||||
HELP "Inserire il numero di altre autorizzazioni"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Unit… locali 2/2" -1 -1 77 18
|
||||
|
||||
GROUPBOX DLG_NULL 76 6
|
||||
BEGIN
|
||||
PROMPT 0 0 "Unit… 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 14
|
||||
BEGIN
|
||||
PROMPT 1 7 "INPS "
|
||||
FIELD LF_UNLOC->POSINPS
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero della posizione INPS"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_POSINAIL 12
|
||||
BEGIN
|
||||
PROMPT 55 7 "INAIL "
|
||||
FIELD LF_UNLOC->POSINAIL
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero della posizione INAIL"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 0 9 "Tribunale"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_REGTRIB 10
|
||||
BEGIN
|
||||
PROMPT 1 10 "Regist."
|
||||
FIELD LF_UNLOC->REGTRIB
|
||||
HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_VOLTRIB 8
|
||||
BEGIN
|
||||
PROMPT 30 10 "Volume "
|
||||
FIELD LF_UNLOC->VOLTRIB
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_FSCTRIB 6
|
||||
BEGIN
|
||||
PROMPT 57 10 "Fascicolo "
|
||||
FIELD LF_UNLOC->FASCTRIB
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 "Inserire il 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 "Inserire il CAP del comune del tribunale"
|
||||
END
|
||||
|
||||
STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
|
||||
BEGIN
|
||||
PROMPT 1 12 "Nome "
|
||||
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
|
||||
|
||||
NUMBER FLD_UL2_MQULC 6
|
||||
BEGIN
|
||||
PROMPT 1 14 "Mq. Locali "
|
||||
FIELD LF_UNLOC->MQULC
|
||||
FLAGS "R"
|
||||
HELP "Inserire il 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 14 "Di cui a magazzino "
|
||||
FIELD LF_UNLOC->MQULCMAG
|
||||
FLAGS "R"
|
||||
HELP "Inserire il numero di metri quadri del locale adibiti a magazzino"
|
||||
WARNING "N.ro mq. errati"
|
||||
NUM_EXPR {#THIS_FIELD >= 0}
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user