Modificate maschere libro unico

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

ba/ba0.cpp

@@ -88,7 +88,7 @@ void TPicture_mask::handler(WINDOW win, EVENT* ep)
   {
 #if XVT_OS == XVT_OS_WIN
     if (_picture)
-      cpb_win_picture_draw_at(win, _picture, 1, 8);
+      cpb_win_picture_draw_at(win, _picture, 1, 1);
     else
 #endif
     {

ba/ba3100.cpp

@@ -1,10 +1,5 @@
-#include <relapp.h>
-#include <stdtypes.h>
-#include <tabutil.h>
-#include <execp.h>
-#include <utility.h>
-
 #include <tabapp.h>
+#include <tabutil.h>
 
 #include "batbreg.h"
 
@@ -12,15 +7,12 @@
 
 class BA3100_application : public Tab_application
 {
-  TMask*     _msk;
-  TRelation* _rel;
-  TString    _tabname;
   long       _oldditta;
   int        _oldanno;
   bool       _exist_journal;
 
+protected:
   virtual bool user_create() ;                         
-  virtual bool user_destroy() ;                        
 
 public:
   virtual void init_insert_mode(TMask& m) ;
@@ -37,7 +29,7 @@ HIDDEN inline BA3100_application& app() { return (BA3100_application&) main_app(
 
 void BA3100_application::init_insert_mode(TMask& m) 
 {
-  if (_tabname != "REG") return;
+  if (get_tabname() != "REG") return;
 
   long ditta = get_firm();
   int anno = atoi(m.get(F_ANNO));
@@ -47,7 +39,7 @@ void BA3100_application::init_insert_mode(TMask& m)
     _oldditta = ditta;
     _oldanno = anno;
 
-    TTable reg(_tabname);
+    TTable reg(get_tabname());
     
     reg.zero();
     reg.put("CODTAB", m.get(F_ANNO));
@@ -65,17 +57,18 @@ bool BA3100_application::protected_record(TRectype& rec)
   bool prot = rec.get_bool(FPC);
   if (!prot)
   {
-    if (_tabname == "%IVD")      // Impedisce la cancellazione di una classe se ha sottoclassi
+    if (get_tabname() == "%IVD")      // Impedisce la cancellazione di una classe se ha sottoclassi
     {               
-      const TRecnotype pos = _rel->lfile().recno();
+      TLocalisamfile& f = get_relation()->lfile();               
-      const TString cod(rec.get("CODTAB"));
+      const TRecnotype pos = f.recno();
-      const int err = _rel->lfile().next();
+      const TString16 cod(rec.get("CODTAB"));
+      const int err = f.next();
       if (err == NOERR)
       {
-        TString next(_rel->lfile().get("CODTAB")); next.cut(cod.len());
+        TString16 next(f.get("CODTAB")); next.cut(cod.len());
         prot = cod == next;
       }  
-      _rel->lfile().readat(pos);
+      f.readat(pos);
     }
   }
   return prot;
@@ -94,16 +87,8 @@ HIDDEN bool tiporeg_handler(TMask_field& f, KEY k)
 bool BA3100_application::user_create()
 {
   Tab_application::user_create();
-  _msk     = get_mask();
+  if (get_tabname() == "REG") 
-  _tabname = get_tabname();
+    get_mask()->set_handler(F_TIPO, tiporeg_handler);
-  if (_tabname == "REG") _msk->set_handler(F_TIPO, tiporeg_handler);
-  return TRUE;
-}
-
-bool BA3100_application::user_destroy() 
-{
-  if (_msk) delete  _msk;
-  if (_rel) delete  _rel;
   return TRUE;
 }
 

ba/ba3500.cpp

@@ -15,6 +15,10 @@
 
 #define ALIAS 1         
 
+#define TAB_LBU "%LBU"
+#define TAB_INL "%INL"
+#define TAB_REG "REG"
+
 class Riga_tabinl : public TToken_string
 {
 public:

ba/ba3500.h

@@ -1,5 +1,4 @@
-// Campi maschera tabella batb%lbu.msk
+// Campi maschera tabella batblbu.msk
-
 
 #define TAB_LBU "%LBU"
 #define TAB_INL "%INL"

ba/batblbu.h

@@ -1,6 +1,22 @@
-// Campi maschera tabella batb%lbu.msk
+// Campi maschera tabella batblbu.msk
 
-#define F_CODLIB 101     
+#define F_ANNO 101
-#define F_ANNO 102
+#define F_CODLIB 102
-#define F_SHEET_LBU 104
+#define F_ULT_MESE_STAMP 103
+#define F_ULT_PAG 104
+#define F_SHEET_LBU 105
+#define F_TIPOA 106
+#define F_TIPOANAGR 107
+#define F_CODTABLIB 108
+#define F_DESCR 109
+#define F_CONSPRESSO 110
+#define F_CODVID 111
+#define F_DATAVID 112
+#define F_DATASCAD 113
+#define F_NUMPAG 114
+#define F_STAMPAINT 117
+#define F_STAMPAINDCOMP 118
+#define F_MODULO 119
+#define F_STAMPA 120
+#define F_DESCRLBU 121
 

ba/batblbu.uml

@@ -8,138 +8,153 @@ ENDPAGE
 
 PAGE "Tabella libro unico" -1 -1 78 18
 
-NUMBER F_CODLIB 1
-BEGIN
-  PROMPT 4 1 "Codice libro unico "
-  HELP "Codice libro unico da gestire"
-  FIELD %LBU->CODTAB
-  KEY 1
-  USE %LBU
-END
-
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 53 1 "Anno esercizio "
+  PROMPT 4 1 "Anno esercizio     "
-  HELP "Anno d'esercizio a cui si riferisce il libro"
+  FIELD %LBU->CODTAB[1,4]
+  USE %LBU KEY 1 ALIAS 50
+  CHECKTYPE REQUIRED
+  INPUT CODTAB[1,4] F_ANNO
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice libro unico" CODTAB[5,7]
+  OUTPUT F_ANNO CODTAB[1,4]
+  OUTPUT F_CODLIB CODTAB[5,7]
+  KEY 1
+END
+
+STRING F_CODLIB 3
+BEGIN
+  PROMPT 4 2 "Codice libro unico "
+  FLAGS "U"
+  FIELD %LBU->CODTAB[5,7]
+  COPY USE F_ANNO
+  INPUT CODTAB[5,7] F_CODLIB
+  COPY DISPLAY F_ANNO
+  COPY OUTPUT F_ANNO
+  CHECKTYPE REQUIRED
+  KEY 1
+END
+
+LIST F_ULT_MESE_STAMP 2 10
+BEGIN
+  PROMPT 45 1 "Ultimo mese stampa "
   FIELD %LBU->I0
+  ITEM " |Nessuno"
+  FLAGS "M"
 END
 
-SPREADSHEET F_SHEET_LBU
+NUMBER F_ULT_PAG 5
 BEGIN
-  PROMPT 2 5 ""
+  PROMPT 45 2 "Ultima pagina      "
-  ITEM "Numero iniziale reg.unico "
-  ITEM "Numero finale reg.unico"
-  ITEM "Codice ditta"
-  ITEM "Ragione sociale@50"
-  ITEM "Codice registro"
-  ITEM "Descrizione@50"
-  ITEM "Numero iniziale reg.utente"
-  ITEM "Numero finale reg.utente"
-END
-
-ENDPAGE
-
-PAGE "" -1 -1 78 18
-
-BOOLEAN F_FLG_STAMPA_BOLLATO
-BEGIN
-  PROMPT 4 1 "Flag di stampa su bollato "
-  HELP "Indicare se viene stampato su bollato"
-  FIELD %LBU->B0
-END
-
-ENDMASK
-
-PAGE "" -1 -1 71 15
-
-STRING 101 5
-BEGIN
-  PROMPT 1 1 "Numero iniziale pagina registro unico  "
-  HELP "Numero della pagina iniziale del libro unico"
   FIELD %LBU->I1
 END
 
-NUMBER 102 5
+STRING F_DESCRLBU 50
 BEGIN
-  PROMPT 1 2 "Numero finale pagina registro unico    "
+  PROMPT 4 3 "Descrizione        "
-  HELP "Numero della pagina finale del libro unico"
-  FIELD %LBU->I2
-END
-
-NUMBER 103 5
-BEGIN
-  PROMPT 1 4 "Codice ditta    "
-  HELP "Codice ditta a cui si riferisce il libro unico"
-  FIELD %LBU->I3
-  USE LF_NDITTE KEY 1
-  INPUT CODDITTA 103 
-  DISPLAY "Codice ditta" CODDITTA
-  DISPLAY "Ragione sociale@50" RAGSOC
-  OUTPUT 103 CODDITTA
-  OUTPUT 104 RAGSOC
-END
-
-STRING 104 50
-BEGIN
-  PROMPT 1 5 "Ragione sociale "
-  HELP "Ragione sociale ditta a cui si riferisce il libro unico"
   FIELD %LBU->S0
 END
   
-NUMBER 105 3
+LIST F_TIPOA 10
 BEGIN
-  PROMPT 1 7 "Codice registro "
+  PROMPT 3 4 "Tipo persona         "
-  HELP "Codice resgistro ?????"
+  FIELD %LBU->S2
-  FIELD %LBU->I4
+  ITEM "F|Fisica"
-  USE REG
+  ITEM "G|Giuridica"
-  INPUT CODTAB[5,7] 105
-  DISPLAY "Codice registro" CODTAB[5,7]
-  DISPLAY "Descrizione@50" S0
-  OUTPUT 105 CODTAB[5,7]
-  OUTPUT 106 S0
 END
 
-STRING 106 50
+STRING F_TIPOANAGR 50
 BEGIN
-  PROMPT 1 8 "Descrizione     "
+  PROMPT 3 5 "Tipo anagrafico      "
-  HELP "Descrizione ???????"
   FIELD %LBU->S1
-  COPY USE 105
+  USE LF_ANAG KEY 2
-  INPUT S0 106
+  INPUT TIPOA F_TIPOA
-  COPY DISPLAY 105
+  INPUT RAGSOC F_TIPOANAGR
-  COPY OUTPUT 105
+  DISPLAY "Tipo" TIPOA
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_TIPOA TIPOA
+  OUTPUT F_TIPOANAGR RAGSOC
+  CHECKTYPE NORMAL
 END
 
-NUMBER 107 5
+NUMBER F_CODTABLIB 2
 BEGIN
-  PROMPT 1 10 "Numero iniziale pagina registro utente "
+  PROMPT 3 6 "Codice libro         "
-  HELP "????"
+  FIELD %LBU->I3
-  FIELD %LBU->I5
+  FLAGS "Z"
+  USE %ITL
+  INPUT CODTAB F_CODTABLIB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTABLIB CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE NORMAL
+  HELP "Inserire il codice del libro"
 END
 
-NUMBER 108 5
+STRING F_DESCR 50
 BEGIN
-  PROMPT 1 11 "Numero finale pagina registro utente   "
+  PROMPT 3 7 "Descrizione          "
-  HELP "??????"
+  FLAGS "D"
-  FIELD %LBU->I6
 END
 
-BUTTON DLG_OK 9 2
+STRING F_CONSPRESSO 40
 BEGIN
-	PROMPT -13 -1 ""
+  PROMPT 3 8 "Conservato presso    "
+  FIELD %LBU->S3
 END
 
-BUTTON DLG_CANCEL 9 2
+STRING F_CODVID 3
 BEGIN
-	PROMPT -23 -1 ""
+  PROMPT 3 9 "Codice vidimazione   "
+  FIELD %LBU->S4
 END
 
-BUTTON DLG_NULL 9 2
+DATE F_DATAVID
 BEGIN
-	PROMPT -33 -1 "Azzera"
+  PROMPT 3 10 "Data vidimazione     "
-	MESSAGE RESET,1@      
+  FIELD %LBU->D0
+END
+
+DATE F_DATASCAD
+BEGIN
+  PROMPT 45 10 "Data scadenza      "
+  FIELD %LBU->D1
+END
+
+NUMBER F_NUMPAG 5
+BEGIN
+  PROMPT 3 12 "Num.pag. libro unico "
+  FIELD %LBU->I2
+END
+
+BOOLEAN F_STAMPAINT
+BEGIN
+  PROMPT 3 14 "Stampa intestazione studio su libro unico"
+  FIELD %LBU->B0
+END
+
+BOOLEAN F_STAMPAINDCOMP
+BEGIN
+  PROMPT 3 15 "Stampa l' indirizzo completo della ditta"
+  FIELD %LBU->B1
+END
+
+RADIOBUTTON F_MODULO 27
+BEGIN
+  PROMPT 3 17 "Formato modulo di stampa   "
+  ITEM "66|11 pollici (27,94 cm)"
+  ITEM "72|12 pollici (30,48 cm)"
+END
+
+RADIOBUTTON F_STAMPA 27
+BEGIN
+  PROMPT 46 17 "Numero caratteri           "
+  ITEM "1|132 crt."
+  ITEM "2|198 crt."
 END
 
 ENDPAGE
 
 ENDMASK
+

ba/batbucc.uml

@@ -12,7 +12,7 @@ NUMBER FLD_TABUCC_CODTAB 3
 BEGIN
   PROMPT 3 1 "Codice         "
   FIELD %UCC->CODTAB
-  FLAGS "RZ"
+  FLAGS "Z"
   KEY 1
   USE %UCC
   INPUT CODTAB FLD_TABUCC_CODTAB

ba/prassi.mnu

@@ -126,7 +126,8 @@
 13|Prima nota|9|7
 13|Servizio|16|7
 14|Gestione libro unico|7
-14|Tabella libro unico|ba3 -4
+14|Tabella libro unico|ba3 -0 %lbu
+14|Tabella indici libro unico|ba3 -0 %inl
 14|Tabella vidimazioni|ba3 -0 %vid
 14|Stampa indici libro unico|ba3 -5
 15|Manutenzione|1