Patch level : 10.0

Files correlati     : lv0.exe lv0100a.msk
Ricompilazione Demo : [ ]
Commento            :
Prima versione Gestione Mezzi


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

lv/lv0100.cpp

@@ -1,74 +1,68 @@
 // gestione tabelle di magazzino
 
+#include <automask.h>
 #include <modaut.h>
-#include <tabapp.h>
+#include <relapp.h>
-#include <tabutil.h>
+
+class TMask_app_lav : public TAutomask
+{
+protected:
+	virtual bool on_field_event(TOperable_field &o, TField_event e, long jolly);
+public:
+	TMask_app_lav() : TAutomask("lv0100a") {}
+};
+
+bool TMask_app_lav::on_field_event(TOperable_field &o, TField_event e, long jolly)
+{
+	switch(o.dlg())
+	{
+	//case F_CAMPO1:
+	//	break;
+	default:
+		break;
+	}
+	return true;
+}
 
 // applicazione per la gestione delle tabelle di lavanderia
-class Tab_app_lav : public TTable_application
+class Tab_app_lav : public TRelation_application
 {
+  TRelation* _rel;
+  TMask_app_lav* _msk;
+
+ protected:  // TRelation_application 
+  virtual bool user_create();
   
-protected:  // TRelation_application
+  virtual bool user_destroy();
-  virtual bool user_destroy() ;          
+  virtual TRelation* get_relation() const {return _rel;}
-  virtual bool user_create() ;
+  virtual TMask* get_mask(int mode) {return _msk;}
-  
-  virtual TMask * set_mask(TMask * _m=NULL);
   
 public:
-	Tab_app_lav() {}
+	
-  virtual ~Tab_app_lav() {}
 };
 
 HIDDEN inline Tab_app_lav& app() { return (Tab_app_lav&)main_app(); }
 
 
-// costruttore
-// alloca/cambia la maschera dell'applicazione
-TMask * Tab_app_lav::set_mask(TMask * _m)
-{
-  if (_m != NULL)
-    return Tab_application::set_mask(_m);
-  else 
-  {
-    const TString& tabname = get_tabname();
-    TString maskname; get_mask_name(maskname);
-    return Tab_application::set_mask(new TMask_tabmag(maskname, tabname));
-  }
-}
-
 bool Tab_app_lav::user_create()
 {
-  /*
+  _rel = new TRelation("MEZ");
-    la Tab_application::user_create() apre la maschera TMask in modo automatico
+  _msk = new TMask_app_lav;
-    basandosi sul parametro passato sulla linea di comando e sulla convenzione
+    
-    nome = "BATB"+parametro;
+  return true;
-    ORA:
-      - questa convenzione cambierà per separare i programmi (e le maschere)
-          dei vari pacchetti
-          In tal caso ridefinire il metodo virtual mask_name()
-      - secondo il nuovo stile, gli handler vanno posti in maschere derivate
-        dalla TMask (TMask_tabmag, TMask_tabcau, ecc), pertanto occorre che 
-        la maschera aperta sia del tipo corretto 
-        per questo motivo la maschera viene creata dalla user_create()
-  */
-
-  bool ok = Tab_application::user_create();
-  
-  if (ok) 
-    TMask& mask = *set_mask();
-  
-  return ok;
 }
 
 bool Tab_app_lav::user_destroy()
 {
-  return Tab_application::user_destroy();
+  delete _msk;
+  delete _rel;
+  return true;
 }
 
 int lv0100(int argc, char* argv[])
 {
   Tab_app_lav a;
-  a.run(argc, argv, TR("Tabella"));
+  a.run(argc, argv, TR("Mezzi di Trasporto"));
   return 0;
 }
 

lv/lv0100a.h

@@ -0,0 +1,5 @@
+//campi maschera lv0100a.uml (Tabella Mezzi di Trasporto)
+#define F_COD               150
+#define F_COD_MEZZO         151
+#define F_DES_MEZZO         152
+#define F_TARGA             153

lv/lv0100a.uml

@@ -0,0 +1,52 @@
+#include "lv0100a.h"
+
+TOOLBAR "" 0 0 0 2
+#include "Relapbar.h"
+ENDPAGE
+
+PAGE "Mezzi di Trasporto" -1 -1 78 10
+
+LIST F_COD 3
+BEGIN
+  PROMPT 1 1 ""
+  ITEM "MEZ|MEZ"
+  FLAGS "H"
+  KEY 1
+END
+
+STRING F_COD_MEZZO 2
+BEGIN
+  PROMPT 1 2 "Codice Mezzo"
+  FLAGS "BU"
+  HELP "Inserire il codice del mezzo."
+  FIELD CODTAB
+  USE MEZ
+  INPUT CODTAB F_COD_MEZZO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@35" S0
+  OUTPUT F_COD_MEZZO CODTAB
+  OUTPUT F_DES_MEZZO S0
+  CHECKTYPE REQUIRED 
+  KEY 1 
+END
+
+STRING F_DES_MEZZO 35
+BEGIN
+  PROMPT 1 3 "Descrizione Mezzo"
+  HELP "Inserire la descrizione del mezzo."
+  FIELD S0
+  CHECKTYPE REQUIRED
+  KEY 2
+END
+
+STRING F_TARGA 12
+BEGIN
+  PROMPT 1 4 "Targa"
+  HELP "Inserire la Targa del mezzo."
+  FIELD S1
+  CHECKTYPE REQUIRED
+END  
+
+ENDPAGE
+
+ENDMASK

lv/lvmenu.men

@@ -0,0 +1,15 @@
+[LVMENU_001]
+Caption = "Lavanderie"
+Picture = <ve01>
+Module  = 0
+Flags   = "F"
+Item_01 = "Gestione Tabelle", [LVMENU_002]
+Item_02 = "Planning", "ci0 -3", "F"
+
+[LVMENU_002]
+Caption = "Gestione Tabelle"
+Picture = <cg01>
+Module  = 8
+Flags   = "F"
+Item_01 = "Mezzi di Trasporto", "ci0 -2", "F"
+