Patch level : 10.0 NO PATCH

Files correlati     : lv3
Ricompilazione Demo : [ ]
Commento            :
Aggiunto il programma di riepilogo magazzino - maschera e costruttore


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

lv/lv3.cpp

@@ -11,6 +11,7 @@ int main(int argc, char** argv)
   case  1: lv3200(argc, argv); break; // evasione buoni di prelievo            lv3200
   case  2: lv3300(argc, argv); break; // gestione manuale buoni di prelievo    lv3300
   case  3: lv3400(argc, argv); break; // gestione manuale buoni di prelievo    lv3400
+  case  4: lv3500(argc, argv); break; // sitauzione a mag. di un art.          lv3500
   default: lv3100(argc, argv); break; // gestione manuale bolle                lv3100
   }
   return 0;

lv/lv3.h

@@ -5,5 +5,6 @@ int lv3100(int argc, char* argv[]);
 int lv3200(int argc, char* argv[]);
 int lv3300(int argc, char* argv[]);
 int lv3400(int argc, char* argv[]);
+int lv3500(int argc, char* argv[]);
 
 #endif // __LV3_H

lv/lv3500.cpp

@@ -0,0 +1,101 @@
+#include <applicat.h>
+#include <automask.h>
+#include <defmask.h>
+#include <execp.h>
+#include <reputils.h>
+#include <reprint.h>
+#include <utility.h>
+
+#include "lvlib.h"
+#include "../mg/clifogiac.h"
+#include "../ve/velib.h"
+
+#include "clifo.h"
+#include "lvcondv.h"
+#include "lvrcondv.h"
+#include "lvrconsplan.h"
+
+#include  "lv3500a.h"
+
+                                 ///////////////////////////
+                                 ////    TSITMAG_MSK    ////
+                                 ///////////////////////////
+
+//classe TSitmag_msk
+class TSitmag_msk: public TAutomask
+{
+protected:
+  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+
+public:
+  TSitmag_msk();
+};
+
+
+//ON_FIELD_EVENT: metodo che gestisce gli eventi sui campi della maschera
+bool TSitmag_msk::on_field_event(TOperable_field& f, TField_event e, long jolly)
+{
+  return true;
+}
+
+//metodo costruttore che precarica i campi di interesse sulla maschera
+TSitmag_msk::TSitmag_msk():TAutomask("lv3500a") 
+{
+  //precarico i campi fissi
+  const TDate oggi(TODAY);
+  set(F_ANNO, esercizi().date2esc(oggi));
+  set(F_CODMAG, ini_get_string(CONFIG_DITTA, "lv", "CODMAG"));
+
+  hide(F_RIGHE);
+}
+
+                                 /////////////////////////////
+                                 ////    TSitmag_app    ////
+                                 /////////////////////////////
+
+//classe TSitmag_app
+class TSitmag_app : public TSkeleton_application
+{
+  TSitmag_msk* _msk;
+protected:
+  virtual bool create();
+  virtual bool destroy();
+
+public:
+  bool transfer();
+  virtual void main_loop();  
+};
+
+//CREATE: metodo costruttore
+bool TSitmag_app::create()
+{
+  _msk = new TSitmag_msk; 
+  return TSkeleton_application::create();
+}
+
+//DESTROY: metodo distruttore
+bool TSitmag_app::destroy()
+{	
+  delete _msk;
+  return TApplication::destroy();
+}
+
+//TRANSFER: metodo che scorre i campi nome e, se sono pieni, richiama il metodo
+//ELABORA_FILE(), che effettivamente fa l'elaborazione
+bool TSitmag_app::transfer()
+{   
+  return true;
+}
+
+void TSitmag_app::main_loop()
+{
+  while (_msk->run() == K_ENTER)
+	  transfer();
+ }
+
+int lv3500(int argc, char *argv[])
+{
+  TSitmag_app a;
+  a.run (argc, argv, "Situazione magazzino");
+  return TRUE;
+}

lv/lv3500a.h

@@ -0,0 +1,15 @@
+//Acquisizione da contapezzi
+//Campi Maschera lv3500a
+#define F_CODART        201
+#define F_DESART        202
+#define F_ANNO          203
+#define F_CODMAG        204
+#define F_DESMAG        205
+#define F_RIGHE         206
+
+#define S_CODDEP        101
+#define S_DESDEP        102
+#define S_GIAC          103
+#define S_ORDFOR        104
+#define S_ORDCLI        105
+#define S_DISP          106

lv/lv3500a.uml

@@ -0,0 +1,160 @@
+#include "lv3500a.h"
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_INFO 2 2
+BEGIN
+  PROMPT 1 1 "Info"
+  MESSAGE EXIT,K_F2
+  PICTURE TOOL_INFO
+END
+
+BUTTON DLG_HELP 2 2
+BEGIN
+  PROMPT 2 1 "Help"
+  MESSAGE EXIT,K_F1
+  PICTURE TOOL_HELP
+END
+
+BUTTON DLG_CANCEL 2 2
+BEGIN
+  PROMPT 3 1 "Annulla"
+  MESSAGE EXIT,K_ESC
+  PICTURE TOOL_CANCEL
+END
+
+BUTTON DLG_QUIT 2 2
+BEGIN
+  PROMPT 4 1 "Fine"
+  MESSAGE EXIT,K_QUIT
+  PICTURE TOOL_QUIT
+END
+
+ENDPAGE
+
+PAGE "Riepilogo depositi" -1 -1 80 10
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "@bParametri Ricerca"
+END
+
+STRING F_CODART 20
+BEGIN
+  PROMPT 2 2 "Articolo  "
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART F_CODART
+  DISPLAY "Articolo@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CODART CODART
+  OUTPUT F_DESART DESCR  
+  FIELD CODART
+  CHECKTYPE REQUIRED
+  ADD RUN ve2 -3
+END
+
+STRING F_DESART 50 40
+BEGIN
+	PROMPT 35 2 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR F_DESART
+  DISPLAY "Descrizone@50" DESCR
+  DISPLAY "Articolo@20" CODART
+  COPY OUTPUT F_CODART
+  CHECKTYPE REQUIRED  
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 2 3 "Esercizio "
+  FLAGS "D"
+END
+
+STRING F_CODMAG 4
+BEGIN
+  PROMPT 2 5 "Magazzino "
+  USE MAG SELECT CODTAB[4,5]==""
+  FLAG "U"
+  INPUT CODTAB  F_CODMAG  
+  OUTPUT F_CODMAG CODTAB[1,3]
+  OUTPUT F_DESMAG S0
+  CHECKTYPE REQUIRED
+  FLAGS "D"  
+END
+
+STRING F_DESMAG 50
+BEGIN
+  PROMPT 23 5 ""
+  FLAGS "D"
+END
+
+SPREADSHEET F_RIGHE
+BEGIN
+  PROMPT 2 6 "Righe"
+  ITEM "Cod.\nDep."
+  ITEM "Deposito"
+  ITEM "Giacenza"
+  ITEM "Ord.\nFor."
+  ITEM "Ord.\nCli."
+  ITEM "Disponibilità"
+  FLAGS "D"
+END
+
+ENDPAGE
+ENDMASK
+
+TOOLBAR "" 0 0 0 2
+
+BUTTON DLG_OK 2 2
+BEGIN
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_CANCEL 2 2
+BEGIN
+  PROMPT 4 1 ""
+END
+
+ENDPAGE
+
+PAGE "Riga" -1 -1 80 10
+
+STRING S_CODDEP 3
+BEGIN
+  PROMPT 1 1 "Cod. dep.  "
+  FLAGS "D"
+END
+
+STRING S_DESDEP 50
+BEGIN
+  PROMPT 23 1 ""  
+  FLAGS "D" 
+END
+
+NUMBER S_GIAC 6
+BEGIN
+  PROMPT 1 2 "Giacenza      "
+  FLAGS "D"
+END
+
+NUMBER S_ORDCLI 6
+BEGIN
+  PROMPT 1 3 "Ord. Clienti  "
+  FLAGS "D"
+END
+
+NUMBER S_ORDFOR 6
+BEGIN
+  PROMPT 26 3 "Ord. Fornitori"
+  FLAGS "D"
+END
+
+NUMBER S_DISP 6
+BEGIN
+  PROMPT 1 4 "Disponibilità "
+  FLAGS "D"
+END
+
+ENDPAGE
+ENDMASK