Corrette ricerche e aggiunte descrizioni
git-svn-id: svn://10.65.10.50/trunk@1058 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
ba75ce1b8c
commit
370f3972ce
231
ba/batbinl.uml
231
ba/batbinl.uml
@ -10,172 +10,191 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Anno "
|
||||
FLAGS "A"
|
||||
FIELD ANNO
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Libro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,F_ANNOREG
|
||||
KEY 1
|
||||
PROMPT 1 1 "Anno "
|
||||
FLAGS "A"
|
||||
FIELD ANNO
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Libro" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
CHECKTYPE REQUIRED
|
||||
MESSAGE COPY,F_ANNOREG
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 28 1 "Libro "
|
||||
FLAGS "UZ"
|
||||
FIELD CODLIB
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
PROMPT 28 1 "Libro "
|
||||
FLAGS "UZ"
|
||||
FIELD CODLIB
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_INDEX 7
|
||||
BEGIN
|
||||
PROMPT 42 1 "Num. registrazione "
|
||||
FLAGS "U"
|
||||
FIELD NUMREG
|
||||
USE LF_INDLIB
|
||||
JOIN %LBU INTO CODTAB=ANNO+CODLIB
|
||||
INPUT ANNO F_ANNO
|
||||
INPUT CODLIB F_CODLIB
|
||||
INPUT NUMREG F_INDEX
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Codice Libro Unico" CODLIB
|
||||
DISPLAY "Indice@7" NUMREG
|
||||
DISPLAY "Descrizione@50" %LBU->S0
|
||||
OUTPUT F_ANNO ANNO
|
||||
OUTPUT F_CODLIB CODLIB
|
||||
OUTPUT F_INDEX NUMREG
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
PROMPT 42 1 "Num. registrazione "
|
||||
FLAGS "U"
|
||||
FIELD NUMREG
|
||||
USE LF_INDLIB
|
||||
JOIN %LBU INTO CODTAB=ANNO+CODLIB
|
||||
INPUT ANNO F_ANNO
|
||||
INPUT CODLIB F_CODLIB
|
||||
INPUT NUMREG F_INDEX
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Codice Libro Unico" CODLIB
|
||||
DISPLAY "Indice@7" NUMREG
|
||||
DISPLAY "Descrizione@50" %LBU->S0
|
||||
OUTPUT F_ANNO ANNO
|
||||
OUTPUT F_CODLIB CODLIB
|
||||
OUTPUT F_INDEX NUMREG
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_ANNOREG 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Anno registrazione "
|
||||
FIELD ANNOREG
|
||||
FLAGS "D"
|
||||
PROMPT 1 2 "Anno registrazione "
|
||||
FIELD ANNOREG
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_MESE 2 12
|
||||
BEGIN
|
||||
PROMPT 40 2 "Mese registrazione "
|
||||
FIELD MESEREG
|
||||
FLAGS "M"
|
||||
PROMPT 40 2 "Mese registrazione "
|
||||
FIELD MESEREG
|
||||
FLAGS "M"
|
||||
END
|
||||
|
||||
NUMBER F_PINI_LU 5
|
||||
BEGIN
|
||||
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
||||
FIELD PAGINI
|
||||
FLAGS "UR"
|
||||
MESSAGE DIRTY,F_PFIN_LU
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 1 3 "Numero pagina iniziale registro unico "
|
||||
FIELD PAGINI
|
||||
FLAGS "UR"
|
||||
MESSAGE DIRTY,F_PFIN_LU
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_LU 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero pagina finale registro unico "
|
||||
FIELD PAGFIN
|
||||
FLAGS "UR"
|
||||
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
||||
PROMPT 1 4 "Numero pagina finale registro unico "
|
||||
FIELD PAGFIN
|
||||
FLAGS "UR"
|
||||
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Inserire un numero di pagina superiore a quella iniziale"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD CODDITTA
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un codice ditta valido"
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD CODDITTA
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un codice ditta valido"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
COPY OUTPUT F_DITTA
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 1 7 "Ragione sociale "
|
||||
USE LF_NDITTE KEY 2
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice ditta" CODDITTA
|
||||
COPY OUTPUT F_DITTA
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD CODREG
|
||||
FLAGS "UZ"
|
||||
USE REG SELECT CODTAB[1,4]=#F_ANNO
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT F_DESCREG S0
|
||||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD CODREG
|
||||
FLAGS "UZ"
|
||||
USE REG SELECT CODTAB[1,4]=#F_ANNO
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
OUTPUT F_DESCREG S0
|
||||
VALIDATE NOT_EMPTY_CHECK_FIELD
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCREG 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||
INPUT S0 F_DESCREG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice registro" CODLIB
|
||||
COPY OUTPUT F_CODREG
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 1 9 "Descrizione "
|
||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||
INPUT S0 F_DESCREG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice registro" CODLIB
|
||||
COPY OUTPUT F_CODREG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_PINI_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD PAGINIUT
|
||||
FLAGS "R"
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD PAGINIUT
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD PAGFINUT
|
||||
FLAGS "R"
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD PAGFINUT
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODVID 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD CODVID
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD CODVID
|
||||
FLAGS "UZ"
|
||||
USE %VID
|
||||
INPUT CODTAB F_CODVID
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Intestatario@50" S0
|
||||
OUTPUT F_CODVID CODTAB
|
||||
OUTPUT F_DESVID S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESVID 50
|
||||
BEGIN
|
||||
PROMPT 1 15 "Intestatario "
|
||||
USE %VID KEY 2
|
||||
INPUT S0 F_DESVID
|
||||
DISPLAY "Intestatario@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODVID
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD STAMPATO
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD STAMPATO
|
||||
END
|
||||
|
||||
BOOLEAN F_PANN_LU
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD ANNULLATE
|
||||
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
||||
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD ANNULLATE
|
||||
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
||||
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -126,17 +126,36 @@ BEGIN
|
||||
PROMPT 3 9 "Codice vidimazione "
|
||||
FLAGS "UZ"
|
||||
FIELD S4
|
||||
USE %VID
|
||||
INPUT CODTAB F_CODVID
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Intestatario@50" S0
|
||||
OUTPUT F_CODVID CODTAB
|
||||
OUTPUT F_DESVID S0
|
||||
OUTPUT F_DATAVID D0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESVID 50
|
||||
BEGIN
|
||||
PROMPT 3 10 "Intestatario "
|
||||
USE %VID KEY 2
|
||||
INPUT S0 F_DESVID
|
||||
DISPLAY "Intestatario@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODVID
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
DATE F_DATAVID
|
||||
BEGIN
|
||||
PROMPT 3 10 "Data vidimazione "
|
||||
PROMPT 3 11 "Data vidimazione "
|
||||
FIELD D0
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 45 10 "Data scadenza "
|
||||
PROMPT 45 11 "Data scadenza "
|
||||
FIELD D1
|
||||
END
|
||||
|
||||
|
||||
@ -128,7 +128,7 @@ BEGIN
|
||||
MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,6@|HIDE,7@|HIDE,8@|HIDE,9@|SHOW,10@
|
||||
END
|
||||
|
||||
STRING F_CONSPRESSO 40
|
||||
STRING F_CONSPRESSO 50
|
||||
BEGIN
|
||||
PROMPT 1 7 "Conservato presso "
|
||||
HELP "Luogo dove verra' conservato il registro"
|
||||
@ -151,6 +151,7 @@ BEGIN
|
||||
HELP "Codice dell'attivita' della ditta"
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Attivita' non prevista per questa ditta"
|
||||
ADD RUN ba4 -4
|
||||
END
|
||||
|
||||
NUMBER F_CODULC 3
|
||||
@ -172,6 +173,7 @@ BEGIN
|
||||
HELP "Codice dell'unita' locale della ditta"
|
||||
WARNING "Unita' locale non prevista per questa ditta"
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN ba4 -3
|
||||
END
|
||||
|
||||
NUMBER F_PAGSTAMP 5
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user