From d84c99c5ec25653382671260089467e518ad4f54 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 13 Feb 1995 17:18:17 +0000
Subject: [PATCH] Trasformata tabella indici libro unico in file LF_INDLIB

git-svn-id: svn://10.65.10.50/trunk@991 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/batbinl.uml | 66 ++++++++++++++++++++++++++------------------------
 ba/prassi.mnu  |  2 +-
 2 files changed, 36 insertions(+), 32 deletions(-)

diff --git a/ba/batbinl.uml b/ba/batbinl.uml
index b282c29da..329dabe4b 100755
--- a/ba/batbinl.uml
+++ b/ba/batbinl.uml
@@ -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
diff --git a/ba/prassi.mnu b/ba/prassi.mnu
index 4db4053a0..92f4d3dc9 100755
--- a/ba/prassi.mnu
+++ b/ba/prassi.mnu
@@ -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