Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21727 c028cbd2-c16b-5b4b-a496-9718f37d4682

ha/ha0100.cpp

@@ -5,6 +5,7 @@
 #include <tabutil.h>
 
 #include "hatbcau.h"
+#include "hatbcel.h"
 
 ///////////////////////////////////////////////////////////
 // Maschera generica di gestione tabelle hardy
@@ -32,39 +33,29 @@ bool THA_table_mask::on_field_event(TOperable_field &o, TField_event e, long jol
 class THA_table_app : public TTable_module_application
 {
 protected:  // TRelation_application 
-  virtual TMask* user_create_mask();
+  virtual void init_query_mode(TMask& m);
-  virtual int write(const TMask& m);
+	virtual void init_query_insert_mode(TMask& m);
-  virtual int rewrite(const TMask& m);
-  
-public:
 };
 
-// Ridefinire questo metodo per le eventuali maschere speciali
+void THA_table_app::init_query_mode(TMask& m)
-// che abbiano controlli speciali da effettuare nella on_field_event
-TMask* THA_table_app::user_create_mask()
 {
   const TString4 name = get_relation()->file(0).name();
-  if (name == "???")
+  if (name == "CEL")
-    return new THA_table_mask("???");
+  {
-  // Le maschere normali sono gia' gestite dalla TTable_module_application
+		m.hide(F_CODCLI1);
-  return TTable_module_application::user_create_mask();
+		m.show(F_CODCLI);
+	}
 }
 
-
+void THA_table_app::init_query_insert_mode(TMask& m)
-// Ridefinizione del metodo write
-int THA_table_app::write(const TMask& m)
 {
   const TString4 name = get_relation()->file(0).name();
-  return TTable_module_application::write(m);      
+  if (name == "CEL")
-}
-
-// Ridefinizione del metodo rewrite
-int THA_table_app::rewrite(const TMask& m)
   {
-  const TString4 name = get_relation()->file(0).name();
+    m.hide(F_CODCLI);
-  return TTable_module_application::rewrite(m);      
+    m.show(F_CODCLI1);
+  }
 }
-
 
 int ha0100(int argc, char* argv[])
 {

ha/ha0200a.h

@@ -54,3 +54,12 @@
 #define S_ALIQUOTA_IVA      101
 #define S_CAMPO_CODIVA      102
 #define S_CAMPO_CODIVA_DES  103
+
+// configurazione Procedura Esselunga
+#define F_E_PATH						301
+#define F_E_PIVA_HARDY			302
+#define F_E_PIVA_ESSELUNGA	303
+#define F_E_COD_HARDY				304
+#define F_E_COD_ESSELUNGA		305
+#define F_E_TIPOEMISSIONE		306
+#define F_E_DATACONF				307

ha/ha0200a.uml

@@ -519,6 +519,62 @@ END
 
 ENDPAGE
 
+PAGE "Configurazione Esselunga" -1 -1 78 23
+
+STRING F_E_PATH 255 39
+BEGIN
+  PROMPT 2 2 "Percorso files da spedire "
+  DSELECT
+  FLAGS "M"
+  CHECKTYPE REQUIRED
+  WARNING "Selezionare una cartella valida!"
+  FIELD Esselunga_Path
+END
+
+STRING F_E_PIVA_HARDY 12
+BEGIN
+  PROMPT 2 4 "Partita IVA Hardy     "
+  HELP "Partita IVA Hardy"
+  FIELD Esselunga_PIvaHardy
+END
+
+STRING F_E_PIVA_ESSELUNGA 12
+BEGIN
+  PROMPT 2 5 "Partita IVA Esselunga "
+  HELP "Partita IVA Esselunga"
+  FIELD Esselunga_PIvaEsselunga
+END
+
+NUMBER F_E_COD_HARDY 6
+BEGIN
+  PROMPT 2 6 "Cod. fornitore "
+  HELP "Codice fornitore Hardy presso Esselunga"
+  FIELD Esselunga_CodHardy
+END	
+
+NUMBER F_E_COD_ESSELUNGA 6
+BEGIN
+  PROMPT 2 6 "Cod. cliente "
+  HELP "Codice cliente Esselunga"
+  FIELD Esselunga_CodEsselunga
+END	
+
+STRING F_E_TIPOEMISSIONE 2
+BEGIN
+  PROMPT 2 7 "Tipo Emissione"
+  HELP "Tipo emissione"
+  FIELD Esselunga_TipoEmissione
+END
+
+DATE F_E_DATACONF
+BEGIN
+  PROMPT 2 8 "Data di configurazione "
+  HELP "Data di configurazione "
+  FIELD Esselunga_DatConf
+END
+
+ENDPAGE
+
 ENDMASK
 
 //---------------------------------------------------

ha/hamenu.men

@@ -6,7 +6,8 @@ Flags   = "F"
 Item_01 = "Gestione listini", [HAMENU_002]
 Item_02 = "Gestione contratti premio", [HAMENU_003]
 Item_03 = "Collegamento terminalini", [HAMENU_004]
-Item_04 = "Servizi", [HAMENU_005]
+Item_04 = "Procedura Esselunga", [HAMENU_006]
+Item_05 = "Servizi", [HAMENU_005]
 
 [HAMENU_002]
 Caption = "Listini"
@@ -45,3 +46,12 @@ Item_01 = "Configurazione modulo", "ha0 -1", ""
 Item_02 = "Conversione anagrafiche", "hacnv -0 /uADMIN", "F"
 Item_03 = "Conversione movimenti", "hacnv -1 /uADMIN", "F"
 Item_04 = "Conversione scadenze", "hacnv -2 /uADMIN", "F"
+
+[HAMENU_006]
+Caption = "Procedura Esselunga"
+Picture = <ha01>
+Module  = 46
+Flags   = "F"
+Item_01 = "Gestione file Privat", "ha2 -0", "F"
+Item_02 = "Gestione file Fattura", "ha2 -1", "F"
+Item_03 = "Tabella clienti Esselunga", "ha0 -0 &CEL", ""

ha/hatbcel.h

@@ -0,0 +1,7 @@
+//campi tabella &CEL del modulo HA
+#define F_CODCLI					    201
+#define F_CODCLI1					    202
+#define F_RAGSOC							203
+#define F_INVIO						    204
+#define F_CODESSELUNGA        205
+#define F_DIPENDENZA		      206

ha/hatbcel.uml

@@ -0,0 +1,77 @@
+#include "hatbcel.h"
+
+PAGE "Configurazione Clienti Esselunga" -1 -1 78 10
+
+GROUPBOX DLG_NULL 76 3
+BEGIN
+  PROMPT 1 1 "@bCliente"
+END
+
+STRING F_CODCLI 6
+BEGIN
+  PROMPT 2 2 "Cliente "
+  USE &CEL
+  JOIN LF_CLIFO INTO TIPOCF=="C" CODCF==CODTAB
+  FIELD CODTAB
+  KEY 1
+  INPUT CODTAB F_CODCLI
+  DISPLAY "Cliente" CODTAB
+  DISPLAY "Ragione sociale" LF_CLIFO->RAGSOC
+  DISPLAY "Invio" B0
+  DISPLAY "Cod.Esselunga" I0
+  DISPLAY "Dipendenza" S1
+  OUTPUT F_CODCLI CODTAB
+  OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODCLI1 6
+BEGIN
+  PROMPT 2 2 "Cliente " 
+  FIELD CODTAB
+  FLAGS "H"
+  KEY 1
+  USE LF_CLIFO
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODCLI1
+  DISPLAY "Cliente" CODCF
+  DISPLAY "Ragione sociale" RAGSOC
+  OUTPUT F_CODCLI1 CODCF
+  OUTPUT F_RAGSOC RAGSOC
+  CHECKTYPE REQUIRED
+  MESSAGE COPY,F_CODCLI
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 25 2 ""
+  FLAGS "D"
+END
+
+BOOLEAN F_INVIO 
+BEGIN
+	PROMPT 2 5 "Invio abilitato"
+	FIELD B0
+END
+
+NUMBER F_CODESSELUNGA 3
+BEGIN
+	PROMPT 2 6 "Cod. esselunga " 
+	FIELD I0
+END
+
+LISTBOX F_DIPENDENZA 10
+BEGIN
+	PROMPT 2 7 "Dipendenza"
+	ITEM "D|Milano"
+	ITEM "U|Firenze"
+	FIELD S1
+END
+
+ENDPAGE
+
+TOOLBAR "" 0 0 0 2
+#include "relapbar.h"
+ENDPAGE
+
+ENDMASK