Trasformata tabella indici libro unico in file LF_INDLIB
git-svn-id: svn://10.65.10.50/trunk@991 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
abfb189183
commit
d84c99c5ec
@ -11,13 +11,14 @@ PAGE "Tabella Indici Libro Unico" -1 -1 71 20
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Anno esercizio "
|
||||
FLAGS "AZ"
|
||||
FIELD CODTAB[1,4]
|
||||
FLAGS "A"
|
||||
FIELD ANNO
|
||||
USE %LBU
|
||||
INPUT CODTAB[1,4] F_ANNO
|
||||
INPUT CODTAB[5,7] F_CODLIB
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice libro unico" CODTAB[5,7]
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Libro" CODLIB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNO CODTAB[1,4]
|
||||
OUTPUT F_CODLIB CODTAB[5,7]
|
||||
CHECKTYPE REQUIRED
|
||||
@ -28,7 +29,7 @@ STRING F_CODLIB 3
|
||||
BEGIN
|
||||
PROMPT 28 1 "Libro "
|
||||
FLAGS "UZ"
|
||||
FIELD CODTAB[5,7]
|
||||
FIELD CODLIB
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
@ -37,15 +38,17 @@ END
|
||||
NUMBER F_INDEX 7
|
||||
BEGIN
|
||||
PROMPT 42 1 "Num. registrazione "
|
||||
FLAGS "Z"
|
||||
FIELD CODTAB[8,14]
|
||||
USE %INL
|
||||
COPY INPUT F_ANNO
|
||||
INPUT CODTAB[8,14] F_INDEX
|
||||
FLAGS "U"
|
||||
FIELD NUMREG
|
||||
USE LF_INDLIB
|
||||
INPUT ANNO F_ANNO
|
||||
INPUT CODLIB F_CODLIB
|
||||
INPUT NUMREG F_INDEX
|
||||
COPY DISPLAY F_ANNO
|
||||
DISPLAY "Indice@7" CODTAB[8,14]
|
||||
COPY OUTPUT F_ANNO
|
||||
OUTPUT F_INDEX CODTAB[8,14]
|
||||
DISPLAY "Indice@7" NUMREG
|
||||
OUTPUT F_ANNO ANNO
|
||||
OUTPUT F_CODLIB CODLIB
|
||||
OUTPUT F_INDEX NUMREG
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
END
|
||||
@ -53,21 +56,22 @@ END
|
||||
NUMBER F_ANNOREG 4
|
||||
BEGIN
|
||||
PROMPT 1 2 "Anno registrazione "
|
||||
FIELD I0
|
||||
FIELD ANNOREG
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_MESE 2 10
|
||||
LIST F_MESE 2 12
|
||||
BEGIN
|
||||
PROMPT 42 2 "Mese registrazione "
|
||||
FIELD I1
|
||||
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 I2
|
||||
FIELD PAGINI
|
||||
FLAGS "UR"
|
||||
MESSAGE DIRTY,F_PFIN_LU
|
||||
CHECKTYPE REQUIRED
|
||||
@ -76,7 +80,7 @@ END
|
||||
NUMBER F_PFIN_LU 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "Numero pagina finale registro unico "
|
||||
FIELD I3
|
||||
FIELD PAGFIN
|
||||
FLAGS "UR"
|
||||
NUM_EXPR {#THIS_FIELD>=#F_PINI_LU}
|
||||
CHECKTYPE REQUIRED
|
||||
@ -86,7 +90,7 @@ END
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Codice ditta "
|
||||
FIELD I4
|
||||
FIELD CODDITTA
|
||||
FLAGS "R"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
@ -94,7 +98,7 @@ BEGIN
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REUIRED
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "E' necessario specificare un codice ditta valido"
|
||||
END
|
||||
|
||||
@ -112,13 +116,13 @@ END
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Codice registro "
|
||||
FIELD S0
|
||||
FIELD CODREG
|
||||
USE REG
|
||||
FLAGS "UZ"
|
||||
INPUT CODTAB[1,4] F_ANNOREG
|
||||
INPUT CODTAB[5,7] F_CODREG
|
||||
DISPLAY "Anno" CODTAB[1,4]
|
||||
DISPLAY "Codice" CODTAB[5,7]
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Codice" CODLIB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ANNOREG CODTAB[1,4]
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
@ -130,10 +134,10 @@ END
|
||||
STRING F_DESCREG 50
|
||||
BEGIN
|
||||
PROMPT 1 9 "Descrizione "
|
||||
USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
|
||||
USE REG KEY 2 SELECT ANNO=#F_ANNO
|
||||
INPUT S0 F_DESCREG
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice registro" CODTAB[5,7]
|
||||
DISPLAY "Codice registro" CODLIB
|
||||
COPY OUTPUT F_CODREG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
@ -141,33 +145,33 @@ END
|
||||
NUMBER F_PINI_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "Numero iniziale pagina registro utente "
|
||||
FIELD I5
|
||||
FIELD PAGINIUT
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_PFIN_RU 5
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero finale pagina registro utente "
|
||||
FIELD I6
|
||||
FIELD PAGFINUT
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_CODVID 3
|
||||
BEGIN
|
||||
PROMPT 1 14 "Codice vidimazione "
|
||||
FIELD S1
|
||||
FIELD CODVID
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 1 16 "Stampato su bollato "
|
||||
FIELD B0
|
||||
FIELD STAMPATO
|
||||
END
|
||||
|
||||
BOOLEAN F_PANN_LU
|
||||
BEGIN
|
||||
PROMPT 36 16 "Pagine libro unico annullate"
|
||||
FIELD B1
|
||||
FIELD ANNULLATE
|
||||
MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG
|
||||
MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG
|
||||
END
|
||||
|
@ -129,7 +129,7 @@
|
||||
13|Servizio|16|7
|
||||
14|Gestione libro unico|2|7
|
||||
14|Tabella libro unico|ba3 -0 %lbu
|
||||
14|Tabella indici libro unico|ba3 -0 %inl
|
||||
14|Tabella indici libro unico|ba3 -3 batbinl 15
|
||||
14|Tabella vidimazioni|ba3 -0 %vid
|
||||
14|Stampa indici libro unico|ba3 -5
|
||||
15|Manutenzione|4
|
||||
|
Loading…
x
Reference in New Issue
Block a user