Sistemate maschere libro unico e relativi indici

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

ba/ba0.url

@@ -9,6 +9,7 @@ MENU TASK_MENUBAR
   884 bitmap DISCARDABLE f:\p.due\bmp\menubmp\ba01.bmp
   885 bitmap DISCARDABLE f:\p.due\bmp\menubmp\ba02.bmp
   886 bitmap DISCARDABLE f:\p.due\bmp\menubmp\ba03.bmp
+  887 bitmap DISCARDABLE f:\p.due\bmp\menubmp\ba04.bmp
 $$$
 #endif
 

ba/ba2.cpp

@@ -4,7 +4,7 @@
 
 #include "ba2.h"
 
-#define usage "Error - usage : %s -{0|2}"
+#define usage "Error - usage : %s -[0,1,2]"
 
 int main(int argc, char** argv)
 {
@@ -15,6 +15,8 @@ int main(int argc, char** argv)
   {
   case 0:
     rt = ba2100(argc, argv); break;
+  case 1:  
+    rt = ba2200(argc, argv); break;
   case 2:
     rt = ba2300(argc, argv) ; break;
   default:

ba/ba2.h

@@ -2,6 +2,7 @@
 #define __BA2_H
 
 int ba2100(int argc, char* argv[]);
+int ba2200(int argc, char* argv[]);
 int ba2300(int argc, char* argv[]);
 
 #endif // __BA2_H

ba/ba2.url

@@ -44,26 +44,16 @@ MENU BAR_ITEM(4)
   ITEM MENU_ITEM(44) "~Ultimo"
 
 
-MENUBAR TASK_MENUBAR + 1
+MENUBAR MENU_BAR(1)
 
-MENU TASK_MENUBAR + 1
+MENU TASK_MENUBAR+1
-
+  SUBMENU MENU_FILE "~File"  
-MENUBAR TASK_MENUBAR + 2
-
-MENU TASK_MENUBAR + 2
-
-MENUBAR TASK_MENUBAR + 3
-
-MENU TASK_MENUBAR + 3
-  SUBMENU MENU_FILE_ALT "~File"
-
-MENUBAR TASK_MENUBAR + 4
-
-MENU TASK_MENUBAR + 4
-  SUBMENU MENU_FILE_ALT "~File"
 
 
+MENUBAR MENU_BAR(2)
 
+MENU MENU_BAR(2)
+  SUBMENU MENU_FILE "~File"
                              
 
 

ba/batbinl.uml

@@ -26,7 +26,7 @@ END
 
 STRING F_CODLIB 3
 BEGIN
-  PROMPT 31 1 "Codice libro "
+  PROMPT 28 1 "Libro "
   FLAGS "UZ"
   FIELD CODTAB[5,7]
   COPY ALL F_ANNO
@@ -36,7 +36,7 @@ END
 
 NUMBER F_INDEX 7
 BEGIN
-  PROMPT 54 1 "Indice "
+  PROMPT 42 1 "Num. registrazione "
   FLAGS "Z"
   FIELD CODTAB[8,14]
   USE %INL
@@ -61,22 +61,26 @@ LIST F_MESE 2 10
 BEGIN
   PROMPT 42 2 "Mese registrazione "
   FIELD I1
-  ITEMS " |Nessuno"
   FLAGS "M"
 END
 
-STRING F_PINI_LU 5 5
+NUMBER F_PINI_LU 5 5
 BEGIN
-  PROMPT 1 3 "Numero iniziale pagina registro unico  "
+  PROMPT 1 3 "Numero pagina iniziale registro unico  "
   FIELD I2
-  FLAGS "R"
+  FLAGS "UR"
+  MESSAGE DIRTY,F_PFIN_LU
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_PFIN_LU 5
 BEGIN
-  PROMPT 1 4 "Numero finale pagina registro unico    "
+  PROMPT 1 4 "Numero pagina finale registro unico    "
   FIELD I3
-  FLAGS "R"
+  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
@@ -90,7 +94,8 @@ BEGIN
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_DITTA CODDITTA
   OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
+  WARNING "E' necessario specificare un codice ditta valido"
 END
 
 STRING F_RAGSOC 50
@@ -101,7 +106,7 @@ BEGIN
   DISPLAY "Ragione sociale@50" RAGSOC
   DISPLAY "Codice ditta" CODDITTA
   COPY OUTPUT F_DITTA
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 STRING F_CODREG 3

ba/batbivd.h

@@ -1,4 +1,4 @@
-// campi maschera batb%ivd.msk
+// campi maschera batbivd.msk
 
 #define F_SEZ                           101
 #define F_LETT                          102

ba/batblbu.h

@@ -19,4 +19,5 @@
 #define F_MODULO 119
 #define F_STAMPA 120
 #define F_DESCRLBU 121
+#define F_CODANAGR 122
 

ba/batblbu.uml

@@ -60,7 +60,7 @@ END
 
 NUMBER F_ULT_PAG 5
 BEGIN
-  PROMPT 45 3 "Ultima pagina      "
+  PROMPT 55 3 "Ultima pagina "
   FIELD I1
 END
 
@@ -72,18 +72,33 @@ BEGIN
   ITEM "G|Giuridica"
 END
 
+NUMBER F_CODANAGR 5
+BEGIN
+  PROMPT 55 4 "Codice        "
+  FIELD I4
+  USE LF_ANAG
+  INPUT TIPOA F_TIPOA SELECT
+  INPUT CODANAGR F_CODANAGR
+  DISPLAY "Tipo" TIPOA
+  DISPLAY "Codice" CODANAGR
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_TIPOA TIPOA
+  OUTPUT F_CODANAGR CODANAGR
+  OUTPUT F_TIPOANAGR RAGSOC
+  CHECKTYPE REQUIRED
+END
+
 STRING F_TIPOANAGR 50
 BEGIN
   PROMPT 3 5 "Tipo anagrafico      "
-  FIELD S1
   USE LF_ANAG KEY 2
-  INPUT TIPOA F_TIPOA
+  INPUT TIPOA F_TIPOA SELECT
   INPUT RAGSOC F_TIPOANAGR
   DISPLAY "Tipo" TIPOA
   DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT F_TIPOA TIPOA
+  DISPLAY "Codice" CODANAGR
-  OUTPUT F_TIPOANAGR RAGSOC
+  COPY OUTPUT F_CODANAGR
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_CODTABLIB 2
@@ -97,13 +112,18 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODTABLIB CODTAB
   OUTPUT F_DESCR S0
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 STRING F_DESCR 50
 BEGIN
   PROMPT 3 7 "Descrizione          "
-  FLAGS "D"
+  USE %ITL KEY 2
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTABLIB
+  CHECKTYPE REQUIRED
 END
 
 STRING F_CONSPRESSO 40

ba/batbvid.uml

@@ -30,7 +30,8 @@ END
 STRING F_INTESTA 50
 BEGIN
   PROMPT 4 3 "Intestatario        "
-  HELP "Inserire l' intestatario del codice di vidimazione"
+  HELP "Inserire l'intestatario del codice di vidimazione"
+  WARNING "E' necessario specificare l'intestatario"
   FIELD VID->S0
   CHECKTYPE REQUIRED  
 END
@@ -40,12 +41,14 @@ BEGIN
   PROMPT 4 5 "Data vidimazione    "
   FIELD VID->D0
   FLAGS "A"
+  WARNING "E' necessario specificare la data di vidimazione"
   CHECKTYPE REQUIRED 
 END
 
 STRING F_UFFVID 50
 BEGIN
   PROMPT 4 7 "Ufficio vidimazione "
+  WARNING "E' necessario specificare il nome dell'ufficio"
   FIELD VID->S1
   CHECKTYPE REQUIRED 
 END 
@@ -53,6 +56,7 @@ END
 NUMBER F_NUMFOGLI 5
 BEGIN
   PROMPT 4 9 "Numero fogli libro  "
+  WARNING "E' necessario specificare il numero dei fogli"
   FIELD VID->I0
   FLAGS "R"
   CHECKTYPE REQUIRED
@@ -61,6 +65,7 @@ END
 NUMBER F_PAGDA 5
 BEGIN
   PROMPT 4 11 "Dalla pagina "
+  WARNING "E' necessario specificare un numero di pagina iniziale"
   FIELD VID->I1
   FLAGS "R"
   CHECKTYPE REQUIRED
@@ -72,6 +77,7 @@ BEGIN
   FIELD VID->I2
   FLAGS "R"
   CHECKTYPE REQUIRED  
+  WARNING "Specificare un numero di pagina superiore a quella iniziale"
   NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)}
 END
 

ba/prassi.mnu

@@ -72,7 +72,7 @@
 6|Lingue|ba3 -1 %lng
 7|Tabelle ditta|2|7
 7|Parametri ditta|cg5 -1
-7|Registri|ba3 -0 reg
+7|Registri IVA|ba3 -0 reg
 7|Piano dei conti|cg0 -0
 7|Causali|cg0 -4
 7|Clienti/Fornitori|cg0 -1
@@ -131,7 +131,7 @@
 14|Tabella indici libro unico|ba3 -0 %inl
 14|Tabella vidimazioni|ba3 -0 %vid
 14|Stampa indici libro unico|ba3 -5
-15|Manutenzione|1
+15|Manutenzione|4
 15|Archivi|ba1
 15|Utenti|ba1 -3
 15|Attivazione|ba1 -4