Corrette ricerche e aggiunte descrizioni

git-svn-id: svn://10.65.10.50/trunk@1058 c028cbd2-c16b-5b4b-a496-9718f37d4682

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               "
+  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
 
 STRING F_CODLIB 3
 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
 
 NUMBER F_INDEX 7
 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 "Codice Libro Unico" 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
 
 NUMBER F_ANNOREG 4
 BEGIN
-PROMPT 1 2 "Anno registrazione "
+  PROMPT 1 2 "Anno registrazione "
-FIELD ANNOREG
+  FIELD ANNOREG
-FLAGS "D"
+  FLAGS "D"
 END
 
 LIST F_MESE 2 12
 BEGIN
-PROMPT 40 2 "Mese registrazione "
+  PROMPT 40 2 "Mese registrazione "
-FIELD MESEREG
+  FIELD MESEREG
-FLAGS "M"
+  FLAGS "M"
 END
 
 NUMBER F_PINI_LU 5
 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
 
 NUMBER F_PFIN_LU 5
 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
 
 NUMBER F_DITTA 5
 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
 
 STRING F_RAGSOC 50
 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
 
 STRING F_CODREG 3
 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_ANNO
+  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
 
 STRING F_DESCREG 50
 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
 
 NUMBER F_PINI_RU 5
 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
 
 NUMBER F_PFIN_RU 5
 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
 
 STRING F_CODVID 3
 BEGIN
-PROMPT 1 14 "Codice vidimazione "
+  PROMPT 1 14 "Codice vidimazione "
-FIELD CODVID
+  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 "
+  PROMPT 1 16 "Stampato su bollato "
-FIELD STAMPATO
+  FIELD STAMPATO
 END
 
 BOOLEAN F_PANN_LU
 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
 
 ENDPAGE

ba/batblbu.uml

@@ -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
 

ba/batbreg.uml

@@ -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