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"
|
#include "ba4400.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 20 0 2
|
TOOLBAR "" 0 20 0 2
|
||||||
#include <toolbar.h>
|
#include <toolbar.h>
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Unit… locali 1/2" -1 -1 77 18
|
PAGE "Unit… locali 1/2" -1 -1 77 18
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 6
|
GROUPBOX DLG_NULL 76 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 0 "Unit… locale"
|
PROMPT 0 0 "Unit… locale"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_UL1_CODDITTA 5
|
NUMBER FLD_UL1_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Ditta "
|
PROMPT 1 1 "Ditta "
|
||||||
FIELD LF_UNLOC->CODDITTA
|
FIELD LF_UNLOC->CODDITTA
|
||||||
FLAGS "RG"
|
FLAGS "RG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_NDITTE
|
USE LF_NDITTE
|
||||||
INPUT CODDITTA FLD_UL1_CODDITTA
|
INPUT CODDITTA FLD_UL1_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
OUTPUT FLD_UL1_CODDITTA CODDITTA
|
OUTPUT FLD_UL1_CODDITTA CODDITTA
|
||||||
OUTPUT FLD_UL1_CODDITTA_NDITTE_RAGSOC RAGSOC
|
OUTPUT FLD_UL1_CODDITTA_NDITTE_RAGSOC RAGSOC
|
||||||
HELP "Inserire il codice della ditta di riferimento"
|
HELP "Inserire il codice della ditta di riferimento"
|
||||||
MESSAGE COPY,2@
|
MESSAGE COPY,2@
|
||||||
CHECKTYPE FORCED
|
CHECKTYPE FORCED
|
||||||
WARNING "Ditta assente"
|
WARNING "Ditta assente"
|
||||||
ADD MASK ba4300a
|
ADD MASK ba4300a
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_CODDITTA_NDITTE_RAGSOC 50
|
STRING FLD_UL1_CODDITTA_NDITTE_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 1 ""
|
PROMPT 23 1 ""
|
||||||
FLAGS "DG"
|
FLAGS "DG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_NDITTE KEY 2
|
USE LF_NDITTE KEY 2
|
||||||
INPUT RAGSOC FLD_UL1_CODDITTA_NDITTE_RAGSOC
|
INPUT RAGSOC FLD_UL1_CODDITTA_NDITTE_RAGSOC
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
COPY OUTPUT FLD_UL1_CODDITTA
|
COPY OUTPUT FLD_UL1_CODDITTA
|
||||||
HELP "Inserire la ragione sociale della ditta di riferimento"
|
HELP "Inserire la ragione sociale della ditta di riferimento"
|
||||||
MESSAGE COPY,3@
|
MESSAGE COPY,3@
|
||||||
ADD MASK BA4300A
|
ADD MASK BA4300A
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_UL1_CODULC 3
|
NUMBER FLD_UL1_CODULC 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Codice "
|
PROMPT 1 2 "Codice "
|
||||||
FIELD LF_UNLOC->CODULC
|
FIELD LF_UNLOC->CODULC
|
||||||
FLAGS "RG"
|
FLAGS "RG"
|
||||||
KEY 1
|
KEY 1
|
||||||
USE LF_UNLOC KEY 1
|
USE LF_UNLOC KEY 1
|
||||||
JOIN LF_NDITTE TO LF_UNLOC KEY 1 INTO CODDITTA=CODDITTA
|
JOIN LF_NDITTE TO LF_UNLOC KEY 1 INTO CODDITTA=CODDITTA
|
||||||
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
|
||||||
INPUT CODDITTA FLD_UL1_CODDITTA
|
INPUT CODDITTA FLD_UL1_CODDITTA SELECT
|
||||||
INPUT CODULC FLD_UL1_CODULC
|
INPUT CODULC FLD_UL1_CODULC
|
||||||
DISPLAY "Codice" CODDITTA
|
// DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Un.Loc" CODULC
|
DISPLAY "Un.Loc" CODULC
|
||||||
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
DISPLAY "Localita'@50" LF_COMUNI->DENCOM
|
||||||
DISPLAY "Indirizzo@35" INDULC
|
DISPLAY "Indirizzo@35" INDULC
|
||||||
DISPLAY "N.ro civico@35" CIVULC
|
DISPLAY "N.ro civico@35" CIVULC
|
||||||
OUTPUT FLD_UL1_CODDITTA CODDITTA
|
OUTPUT FLD_UL1_CODDITTA CODDITTA
|
||||||
OUTPUT FLD_UL1_CODULC CODULC
|
OUTPUT FLD_UL1_CODULC CODULC
|
||||||
HELP "Inserire il codice dell'unita' locale"
|
HELP "Inserire il codice dell'unita' locale"
|
||||||
MESSAGE COPY,4@
|
MESSAGE COPY,4@
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
VALIDATE NOT_EMPTY_FUNC
|
VALIDATE NOT_EMPTY_FUNC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_INDULC 35
|
STRING FLD_UL1_INDULC 35
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 2 "Via "
|
PROMPT 19 2 "Via "
|
||||||
FIELD LF_UNLOC->INDULC
|
FIELD LF_UNLOC->INDULC
|
||||||
HELP "Indicare l'indirizzo dell'unita' locale"
|
HELP "Indicare l'indirizzo dell'unita' locale"
|
||||||
MESSAGE COPY,5@
|
MESSAGE COPY,5@
|
||||||
WARNING "Completare l'indirizzo dell'unita' locale"
|
WARNING "Completare l'indirizzo dell'unita' locale"
|
||||||
VALIDATE REQIF_FUNC 1 FLD_UL1_COMULC
|
VALIDATE REQIF_FUNC 1 FLD_UL1_COMULC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_CIVULC 10
|
STRING FLD_UL1_CIVULC 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 61 2 "N."
|
PROMPT 61 2 "N."
|
||||||
FIELD LF_UNLOC->CIVULC
|
FIELD LF_UNLOC->CIVULC
|
||||||
HELP "Indicare il numero civico dll'unita' locale"
|
HELP "Indicare il numero civico dll'unita' locale"
|
||||||
MESSAGE COPY,6@
|
MESSAGE COPY,6@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_COMULC 4
|
STRING FLD_UL1_COMULC 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "Comune "
|
PROMPT 1 3 "Comune "
|
||||||
FIELD LF_UNLOC->COMULC
|
FIELD LF_UNLOC->COMULC
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE LF_COMUNI KEY 1
|
USE LF_COMUNI KEY 1
|
||||||
INPUT STATO ""
|
INPUT STATO ""
|
||||||
INPUT COM FLD_UL1_COMULC
|
INPUT COM FLD_UL1_COMULC
|
||||||
#include <comdcod.h>
|
#include <comdcod.h>
|
||||||
OUTPUT FLD_UL1_COMULC COM
|
OUTPUT FLD_UL1_COMULC COM
|
||||||
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
|
||||||
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
|
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
|
||||||
OUTPUT FLD_UL1_CAPULC CAPCOM
|
OUTPUT FLD_UL1_CAPULC CAPCOM
|
||||||
HELP "Inserire il codice del comune dell'unita' locale"
|
HELP "Inserire il codice del comune dell'unita' locale"
|
||||||
MESSAGE COPY,7@
|
MESSAGE COPY,7@
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Comune assente"
|
WARNING "Comune assente"
|
||||||
ADD MASK ba4100a
|
ADD MASK ba4100a
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2
|
STRING FLD_UL1_COMULC_COMUNI_PROVCOM 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 3 "Provincia "
|
PROMPT 46 3 "Provincia "
|
||||||
FLAGS "DU"
|
FLAGS "DU"
|
||||||
MESSAGE COPY,8@
|
MESSAGE COPY,8@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_CAPULC 5
|
STRING FLD_UL1_CAPULC 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 61 3 "CAP "
|
PROMPT 61 3 "CAP "
|
||||||
FIELD LF_UNLOC->CAPULC
|
FIELD LF_UNLOC->CAPULC
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il CAP dell'unita' locale"
|
HELP "Inserire il CAP dell'unita' locale"
|
||||||
MESSAGE COPY,9@
|
MESSAGE COPY,9@
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
|
STRING FLD_UL1_COMULC_COMUNI_DENCOM 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Nome "
|
PROMPT 1 4 "Nome "
|
||||||
USE LF_COMUNI KEY 2 SELECT STATO=""
|
USE LF_COMUNI KEY 2 SELECT STATO=""
|
||||||
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
|
INPUT DENCOM FLD_UL1_COMULC_COMUNI_DENCOM
|
||||||
#include <comdden.h>
|
#include <comdden.h>
|
||||||
OUTPUT FLD_UL1_COMULC COM
|
OUTPUT FLD_UL1_COMULC COM
|
||||||
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL1_COMULC_COMUNI_DENCOM DENCOM
|
||||||
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
|
OUTPUT FLD_UL1_COMULC_COMUNI_PROVCOM PROVCOM
|
||||||
OUTPUT FLD_UL1_CAPULC CAPCOM
|
OUTPUT FLD_UL1_CAPULC CAPCOM
|
||||||
MESSAGE COPY,10@
|
MESSAGE COPY,10@
|
||||||
ADD MASK ba4100a
|
ADD MASK ba4100a
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 6
|
GROUPBOX DLG_NULL 76 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 6 "CCIAA"
|
PROMPT 0 6 "CCIAA"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_NUMCCIAA 7
|
STRING FLD_UL1_NUMCCIAA 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Numero "
|
PROMPT 1 7 "Numero "
|
||||||
FIELD LF_UNLOC->NUMCCIAA
|
FIELD LF_UNLOC->NUMCCIAA
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero dell'autorizzazione alla camera di commercio"
|
HELP "Inserire il numero dell'autorizzazione alla camera di commercio"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE FLD_UL1_DATAICCIAA
|
DATE FLD_UL1_DATAICCIAA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 7 "Data iscrizione "
|
PROMPT 40 7 "Data iscrizione "
|
||||||
FIELD LF_UNLOC->DATAICCIAA
|
FIELD LF_UNLOC->DATAICCIAA
|
||||||
HELP "Inserire la data di iscrizione alla CCIAA"
|
HELP "Inserire la data di iscrizione alla CCIAA"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_NUMMECC 7
|
STRING FLD_UL1_NUMMECC 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 "N.Mecc."
|
PROMPT 1 8 "N.Mecc."
|
||||||
FIELD LF_UNLOC->NUMMECC
|
FIELD LF_UNLOC->NUMMECC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero meccanografico dell'iscrizione"
|
HELP "Inserire il numero meccanografico dell'iscrizione"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE FLD_UL1_DATAVCCIAA
|
DATE FLD_UL1_DATAVCCIAA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 8 "Data ultima variazione "
|
PROMPT 40 8 "Data ultima variazione "
|
||||||
FIELD LF_UNLOC->DATAVCCIAA
|
FIELD LF_UNLOC->DATAVCCIAA
|
||||||
HELP "Inserire la data dell'ultima variazione alla CCIAA"
|
HELP "Inserire la data dell'ultima variazione alla CCIAA"
|
||||||
WARNING "Data non corretta"
|
WARNING "Data non corretta"
|
||||||
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
|
VALIDATE DATE_CMP_FUNC >= FLD_UL1_DATAICCIAA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_COMCCIAA 4
|
STRING FLD_UL1_COMCCIAA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Comune "
|
PROMPT 1 9 "Comune "
|
||||||
FIELD LF_UNLOC->COMCCIAA
|
FIELD LF_UNLOC->COMCCIAA
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE FLD_UL1_COMULC
|
COPY USE FLD_UL1_COMULC
|
||||||
INPUT STATO ""
|
INPUT STATO ""
|
||||||
INPUT COM FLD_UL1_COMCCIAA
|
INPUT COM FLD_UL1_COMCCIAA
|
||||||
COPY DISPLAY FLD_UL1_COMULC
|
COPY DISPLAY FLD_UL1_COMULC
|
||||||
OUTPUT FLD_UL1_COMCCIAA COM
|
OUTPUT FLD_UL1_COMCCIAA COM
|
||||||
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
|
||||||
HELP "Inserire il codice del comune della CCIAA"
|
HELP "Inserire il codice del comune della CCIAA"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Comune assente"
|
WARNING "Comune assente"
|
||||||
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
|
STRING FLD_UL1_COMCCIAA_COMUNI_DENCOM 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "Nome "
|
PROMPT 1 10 "Nome "
|
||||||
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
|
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
|
||||||
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
|
INPUT DENCOM FLD_UL1_COMCCIAA_COMUNI_DENCOM
|
||||||
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
|
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
|
||||||
OUTPUT FLD_UL1_COMCCIAA COM
|
OUTPUT FLD_UL1_COMCCIAA COM
|
||||||
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL1_COMCCIAA_COMUNI_DENCOM DENCOM
|
||||||
ADD MASK ba4100a
|
ADD MASK ba4100a
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 4
|
GROUPBOX DLG_NULL 76 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 12 "Autorizzazioni"
|
PROMPT 0 12 "Autorizzazioni"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_NUMREC 7
|
STRING FLD_UL1_NUMREC 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 13 "Numero R.E.C. "
|
PROMPT 1 13 "Numero R.E.C. "
|
||||||
FIELD LF_UNLOC->NUMREC
|
FIELD LF_UNLOC->NUMREC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero R.E.C."
|
HELP "Inserire il numero R.E.C."
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_AUTCOM 5
|
STRING FLD_UL1_AUTCOM 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 50 13 "N. comunale "
|
PROMPT 50 13 "N. comunale "
|
||||||
FIELD LF_UNLOC->AUTCOM
|
FIELD LF_UNLOC->AUTCOM
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero dell'autorizzazione comunale all'esercizio"
|
HELP "Inserire il numero dell'autorizzazione comunale all'esercizio"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL1_AUTPS 7
|
STRING FLD_UL1_AUTPS 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Numero PS "
|
PROMPT 1 14 "Numero PS "
|
||||||
FIELD LF_UNLOC->AUTPS
|
FIELD LF_UNLOC->AUTPS
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero PS"
|
HELP "Inserire il numero PS"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_UL1_ALTAUT 1
|
NUMBER FLD_UL1_ALTAUT 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 50 14 "Altre autorizzazioni "
|
PROMPT 50 14 "Altre autorizzazioni "
|
||||||
FIELD LF_UNLOC->ALTAUT
|
FIELD LF_UNLOC->ALTAUT
|
||||||
HELP "Inserire il numero di altre autorizzazioni"
|
HELP "Inserire il numero di altre autorizzazioni"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Unit… locali 2/2" -1 -1 77 18
|
PAGE "Unit… locali 2/2" -1 -1 77 18
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 6
|
GROUPBOX DLG_NULL 76 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 0 "Unit… locale"
|
PROMPT 0 0 "Unit… locale"
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER DLG_NULL 5
|
NUMBER DLG_NULL 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Ditta "
|
PROMPT 1 1 "Ditta "
|
||||||
FLAGS "RD"
|
FLAGS "RD"
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 50
|
STRING DLG_NULL 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 1 ""
|
PROMPT 23 1 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER DLG_NULL 3
|
NUMBER DLG_NULL 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Codice "
|
PROMPT 1 2 "Codice "
|
||||||
FLAGS "RD"
|
FLAGS "RD"
|
||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 35
|
STRING DLG_NULL 35
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 19 2 "Via "
|
PROMPT 19 2 "Via "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 5
|
GROUP 5
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 10
|
STRING DLG_NULL 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 61 2 "N."
|
PROMPT 61 2 "N."
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 6
|
GROUP 6
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 4
|
STRING DLG_NULL 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "Comune "
|
PROMPT 1 3 "Comune "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 7
|
GROUP 7
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 2
|
STRING DLG_NULL 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 46 3 "Provincia "
|
PROMPT 46 3 "Provincia "
|
||||||
FLAGS "DU"
|
FLAGS "DU"
|
||||||
GROUP 8
|
GROUP 8
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 5
|
STRING DLG_NULL 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 61 3 "CAP "
|
PROMPT 61 3 "CAP "
|
||||||
FLAGS "RZD"
|
FLAGS "RZD"
|
||||||
GROUP 9
|
GROUP 9
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING DLG_NULL 50
|
STRING DLG_NULL 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Nome "
|
PROMPT 1 4 "Nome "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
GROUP 10
|
GROUP 10
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 3
|
GROUPBOX DLG_NULL 76 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 6 "Posizioni"
|
PROMPT 0 6 "Posizioni"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_POSINPS 14
|
STRING FLD_UL2_POSINPS 14
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "INPS "
|
PROMPT 1 7 "INPS "
|
||||||
FIELD LF_UNLOC->POSINPS
|
FIELD LF_UNLOC->POSINPS
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero della posizione INPS"
|
HELP "Inserire il numero della posizione INPS"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_POSINAIL 12
|
STRING FLD_UL2_POSINAIL 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 55 7 "INAIL "
|
PROMPT 55 7 "INAIL "
|
||||||
FIELD LF_UNLOC->POSINAIL
|
FIELD LF_UNLOC->POSINAIL
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero della posizione INAIL"
|
HELP "Inserire il numero della posizione INAIL"
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 76 5
|
GROUPBOX DLG_NULL 76 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 0 9 "Tribunale"
|
PROMPT 0 9 "Tribunale"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_REGTRIB 10
|
STRING FLD_UL2_REGTRIB 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 10 "Regist."
|
PROMPT 1 10 "Regist."
|
||||||
FIELD LF_UNLOC->REGTRIB
|
FIELD LF_UNLOC->REGTRIB
|
||||||
HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta"
|
HELP "Inserire il numero di registro del tribunale in cui e' iscritta la ditta"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_VOLTRIB 8
|
STRING FLD_UL2_VOLTRIB 8
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 30 10 "Volume "
|
PROMPT 30 10 "Volume "
|
||||||
FIELD LF_UNLOC->VOLTRIB
|
FIELD LF_UNLOC->VOLTRIB
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta"
|
HELP "Inserire il numero del volume del tribunale in cui e' iscritta la ditta"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_FSCTRIB 6
|
STRING FLD_UL2_FSCTRIB 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 57 10 "Fascicolo "
|
PROMPT 57 10 "Fascicolo "
|
||||||
FIELD LF_UNLOC->FASCTRIB
|
FIELD LF_UNLOC->FASCTRIB
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero del fascicolo del tribunale in cui e' iscritta la ditta"
|
HELP "Inserire il numero del fascicolo del tribunale in cui e' iscritta la ditta"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_COMTRIB 4
|
STRING FLD_UL2_COMTRIB 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 11 "Comune "
|
PROMPT 1 11 "Comune "
|
||||||
FIELD LF_UNLOC->COMTRIB
|
FIELD LF_UNLOC->COMTRIB
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE FLD_UL1_COMULC
|
COPY USE FLD_UL1_COMULC
|
||||||
INPUT STATO ""
|
INPUT STATO ""
|
||||||
INPUT COM FLD_UL2_COMTRIB
|
INPUT COM FLD_UL2_COMTRIB
|
||||||
COPY DISPLAY FLD_UL1_COMULC
|
COPY DISPLAY FLD_UL1_COMULC
|
||||||
OUTPUT FLD_UL2_COMTRIB COM
|
OUTPUT FLD_UL2_COMTRIB COM
|
||||||
OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
|
||||||
OUTPUT FLD_UL2_CAPTRIB CAPCOM
|
OUTPUT FLD_UL2_CAPTRIB CAPCOM
|
||||||
HELP "Inserire il codice del comune del tribunale"
|
HELP "Inserire il codice del comune del tribunale"
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
VALIDATE EMPTYCOPY_FUNC FLD_UL1_COMULC
|
||||||
WARNING "Comune assente"
|
WARNING "Comune assente"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_CAPTRIB 5
|
STRING FLD_UL2_CAPTRIB 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 57 11 "CAP "
|
PROMPT 57 11 "CAP "
|
||||||
FIELD LF_UNLOC->CAPTRIB
|
FIELD LF_UNLOC->CAPTRIB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
HELP "Inserire il CAP del comune del tribunale"
|
HELP "Inserire il CAP del comune del tribunale"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
|
STRING FLD_UL2_COMTRIB_COMUNI_DENCOM 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 12 "Nome "
|
PROMPT 1 12 "Nome "
|
||||||
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
|
COPY USE FLD_UL1_COMULC_COMUNI_DENCOM
|
||||||
INPUT DENCOM FLD_UL2_COMTRIB_COMUNI_DENCOM
|
INPUT DENCOM FLD_UL2_COMTRIB_COMUNI_DENCOM
|
||||||
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
|
COPY DISPLAY FLD_UL1_COMULC_COMUNI_DENCOM
|
||||||
OUTPUT FLD_UL2_COMTRIB COM
|
OUTPUT FLD_UL2_COMTRIB COM
|
||||||
OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
|
OUTPUT FLD_UL2_COMTRIB_COMUNI_DENCOM DENCOM
|
||||||
OUTPUT FLD_UL2_CAPTRIB CAPCOM
|
OUTPUT FLD_UL2_CAPTRIB CAPCOM
|
||||||
ADD MASK ba4100a
|
ADD MASK ba4100a
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FLD_UL2_MQULC 6
|
NUMBER FLD_UL2_MQULC 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Mq. Locali "
|
PROMPT 1 14 "Mq. Locali "
|
||||||
FIELD LF_UNLOC->MQULC
|
FIELD LF_UNLOC->MQULC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero di metri quadri dei locali"
|
HELP "Inserire il numero di metri quadri dei locali"
|
||||||
NUM_EXPR {#THIS_FIELD >= 0}
|
NUM_EXPR {#THIS_FIELD >= 0}
|
||||||
WARNING "N.ro mq. errati"
|
WARNING "N.ro mq. errati"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FDL_UL2_MQULCMAG 6
|
NUMBER FDL_UL2_MQULCMAG 6
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 14 "Di cui a magazzino "
|
PROMPT 45 14 "Di cui a magazzino "
|
||||||
FIELD LF_UNLOC->MQULCMAG
|
FIELD LF_UNLOC->MQULCMAG
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
HELP "Inserire il numero di metri quadri del locale adibiti a magazzino"
|
HELP "Inserire il numero di metri quadri del locale adibiti a magazzino"
|
||||||
WARNING "N.ro mq. errati"
|
WARNING "N.ro mq. errati"
|
||||||
NUM_EXPR {#THIS_FIELD >= 0}
|
NUM_EXPR {#THIS_FIELD >= 0}
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user