Risolti conflitti
git-svn-id: svn://10.65.10.50/trunk@1039 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
9d4eaf8ca4
commit
8e8b843154
212
ba/batbinl.uml
212
ba/batbinl.uml
@ -10,172 +10,172 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
|||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Anno "
|
PROMPT 1 1 "Anno "
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
FIELD ANNO
|
FIELD ANNO
|
||||||
USE %LBU
|
USE %LBU
|
||||||
INPUT CODTAB[1,4] F_ANNO
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_CODLIB
|
INPUT CODTAB[5,7] F_CODLIB
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Libro" CODTAB[5,7]
|
DISPLAY "Libro" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_ANNO CODTAB[1,4]
|
OUTPUT F_ANNO CODTAB[1,4]
|
||||||
OUTPUT F_CODLIB CODTAB[5,7]
|
OUTPUT F_CODLIB CODTAB[5,7]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE COPY,F_ANNOREG
|
MESSAGE COPY,F_ANNOREG
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODLIB 3
|
STRING F_CODLIB 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 28 1 "Libro "
|
PROMPT 28 1 "Libro "
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
FIELD CODLIB
|
FIELD CODLIB
|
||||||
COPY ALL F_ANNO
|
COPY ALL F_ANNO
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_INDEX 7
|
NUMBER F_INDEX 7
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 1 "Num. registrazione "
|
PROMPT 42 1 "Num. registrazione "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
FIELD NUMREG
|
FIELD NUMREG
|
||||||
USE LF_INDLIB
|
USE LF_INDLIB
|
||||||
JOIN %LBU INTO CODTAB=ANNO+CODLIB
|
JOIN %LBU INTO CODTAB=ANNO+CODLIB
|
||||||
INPUT ANNO F_ANNO
|
INPUT ANNO F_ANNO
|
||||||
INPUT CODLIB F_CODLIB
|
INPUT CODLIB F_CODLIB
|
||||||
INPUT NUMREG F_INDEX
|
INPUT NUMREG F_INDEX
|
||||||
DISPLAY "Anno" ANNO
|
DISPLAY "Anno" ANNO
|
||||||
DISPLAY "Libro" CODLIB
|
DISPLAY "Codice Libro Unico" CODLIB
|
||||||
DISPLAY "Indice@7" NUMREG
|
DISPLAY "Indice@7" NUMREG
|
||||||
DISPLAY "Descrizione@50" %LBU->S0
|
DISPLAY "Descrizione@50" %LBU->S0
|
||||||
OUTPUT F_ANNO ANNO
|
OUTPUT F_ANNO ANNO
|
||||||
OUTPUT F_CODLIB CODLIB
|
OUTPUT F_CODLIB CODLIB
|
||||||
OUTPUT F_INDEX NUMREG
|
OUTPUT F_INDEX NUMREG
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
KEY 1
|
KEY 1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNOREG 4
|
NUMBER F_ANNOREG 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 2 "Anno registrazione "
|
PROMPT 1 2 "Anno registrazione "
|
||||||
FIELD ANNOREG
|
FIELD ANNOREG
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_MESE 2 12
|
LIST F_MESE 2 12
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 40 2 "Mese registrazione "
|
PROMPT 40 2 "Mese registrazione "
|
||||||
FIELD MESEREG
|
FIELD MESEREG
|
||||||
FLAGS "M"
|
FLAGS "M"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PINI_LU 5
|
NUMBER F_PINI_LU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
||||||
FIELD PAGINI
|
FIELD PAGINI
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
MESSAGE DIRTY,F_PFIN_LU
|
MESSAGE DIRTY,F_PFIN_LU
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PFIN_LU 5
|
NUMBER F_PFIN_LU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 4 "Numero pagina finale registro unico "
|
PROMPT 1 4 "Numero pagina finale registro unico "
|
||||||
FIELD PAGFIN
|
FIELD PAGFIN
|
||||||
FLAGS "UR"
|
FLAGS "UR"
|
||||||
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_DITTA 5
|
NUMBER F_DITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 6 "Codice ditta "
|
PROMPT 1 6 "Codice ditta "
|
||||||
FIELD CODDITTA
|
FIELD CODDITTA
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
USE LF_NDITTE
|
USE LF_NDITTE
|
||||||
INPUT CODDITTA F_DITTA
|
INPUT CODDITTA F_DITTA
|
||||||
DISPLAY "Codice ditta" CODDITTA
|
DISPLAY "Codice ditta" CODDITTA
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_DITTA CODDITTA
|
OUTPUT F_DITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "E' necessario specificare un codice ditta valido"
|
WARNING "E' necessario specificare un codice ditta valido"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Ragione sociale "
|
PROMPT 1 7 "Ragione sociale "
|
||||||
USE LF_NDITTE KEY 2
|
USE LF_NDITTE KEY 2
|
||||||
INPUT RAGSOC F_RAGSOC
|
INPUT RAGSOC F_RAGSOC
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
DISPLAY "Codice ditta" CODDITTA
|
DISPLAY "Codice ditta" CODDITTA
|
||||||
COPY OUTPUT F_DITTA
|
COPY OUTPUT F_DITTA
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODREG 3
|
STRING F_CODREG 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 8 "Codice registro "
|
PROMPT 1 8 "Codice registro "
|
||||||
FIELD CODREG
|
FIELD CODREG
|
||||||
FLAGS "UZ"
|
FLAGS "UZ"
|
||||||
USE REG SELECT CODTAB[1,4]=#F_ANNO
|
USE REG SELECT CODTAB[1,4]=#F_ANNO
|
||||||
INPUT CODTAB[1,4] F_ANNOREG
|
INPUT CODTAB[1,4] F_ANNO
|
||||||
INPUT CODTAB[5,7] F_CODREG
|
INPUT CODTAB[5,7] F_CODREG
|
||||||
DISPLAY "Anno" CODTAB[1,4]
|
DISPLAY "Anno" CODTAB[1,4]
|
||||||
DISPLAY "Codice" CODTAB[5,7]
|
DISPLAY "Codice" CODTAB[5,7]
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
OUTPUT F_CODREG CODTAB[5,7]
|
OUTPUT F_CODREG CODTAB[5,7]
|
||||||
OUTPUT F_DESCREG S0
|
OUTPUT F_DESCREG S0
|
||||||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCREG 50
|
STRING F_DESCREG 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 9 "Descrizione "
|
PROMPT 1 9 "Descrizione "
|
||||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||||
INPUT S0 F_DESCREG
|
INPUT S0 F_DESCREG
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
DISPLAY "Codice registro" CODLIB
|
DISPLAY "Codice registro" CODLIB
|
||||||
COPY OUTPUT F_CODREG
|
COPY OUTPUT F_CODREG
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PINI_RU 5
|
NUMBER F_PINI_RU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||||
FIELD PAGINIUT
|
FIELD PAGINIUT
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_PFIN_RU 5
|
NUMBER F_PFIN_RU 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||||
FIELD PAGFINUT
|
FIELD PAGFINUT
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODVID 3
|
STRING F_CODVID 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Codice vidimazione "
|
PROMPT 1 14 "Codice vidimazione "
|
||||||
FIELD CODVID
|
FIELD CODVID
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_STAMPATO
|
BOOLEAN F_STAMPATO
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 16 "Stampato su bollato "
|
PROMPT 1 16 "Stampato su bollato "
|
||||||
FIELD STAMPATO
|
FIELD STAMPATO
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_PANN_LU
|
BOOLEAN F_PANN_LU
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 36 16 "Pagine libro unico annullate"
|
PROMPT 36 16 "Pagine libro unico annullate"
|
||||||
FIELD ANNULLATE
|
FIELD ANNULLATE
|
||||||
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
||||||
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user