Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


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

lv/lv0500.cpp

@@ -10,60 +10,68 @@
 //-------------------------------------------------------------------
 //  MASCHERA 
 //-------------------------------------------------------------------
-class TLavanderie_mask : public TAutomask
+class TPass_plan_contr_mask : public TAutomask
 {      
 protected:
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
  
 public:
-  TLavanderie_mask();
+  TPass_plan_contr_mask();
 };
 
-bool TLavanderie_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
+bool TPass_plan_contr_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
   return true;
 }
-TLavanderie_mask::TLavanderie_mask() : TAutomask("") 
+
-{
+TPass_plan_contr_mask::TPass_plan_contr_mask() : TAutomask("lv0500a") {}
-  
+
-}
 
 //--------------------------------------------------------------
 //  APPLICAZIONE
 //--------------------------------------------------------------
-class TLavanderie : public TRelation_application
+class TPass_plan_contr : public TRelation_application
 { 
-  TLavanderie_mask* _mask;
+  TPass_plan_contr_mask* _mask;
   TRelation* _rel;
 
 protected:
-  bool user_create();
+  virtual bool user_create();
-  bool user_destroy();
+  virtual bool user_destroy();
   virtual TMask* get_mask(int mode) { return _mask; }
   virtual bool changing_mask(int mode) { return false; }
+  //virtual int write(const TMask& mask);
+  //virtual int rewrite(const TMask& mask);
 	
 public:
   virtual TRelation* get_relation() const {return (TRelation*)_rel;}
 };
 
 
-bool TLavanderie::user_create()
+bool TPass_plan_contr::user_create()
 { 
-  const TString8 name = get_relation()->file(0).name();
+  _rel = new TRelation(LF_LVPASPLAN);
-  _rel = new TRelation(LF_LETINT);
+  _mask = new TPass_plan_contr_mask;
-  _mask = new TLavanderie_mask;
   return true;
 }
 
-bool TLavanderie::user_destroy()
+bool TPass_plan_contr::user_destroy()
 {             
   delete _mask;
   return true;
 }
 
+/*int TPass_plan_contr::rewrite(const TMask& mask)
+{ 
+  TLocalisamfile lvpasplan_DB(LF_LVPASPLAN);
+
+  lvpasplan_DB
+  return NOERR; 
+}*/
+
 int lv0500(int argc, char* argv[])
 {
-  TLavanderie a;
+  TPass_plan_contr a;
   a.run(argc, argv, TR("Archivi Lavanderie"));
   return 0;
 }

lv/lv0500a.h

@@ -1,18 +1,24 @@
-#define PROVV
+#define F_CODDITTA    101
-/*ANNO
+#define F_RAGSOCDITTA 102
-CODNUM
+#define F_PROVV       103
-NDOC
+#define F_CODNUM      104
-GGCONS
+#define F_DESNUM      105
-CODITI
+#define F_ANNO        108
-USERINS|1|16|0|Utente d'inserimento
+#define F_NDOC        109
-DATAINS|5|8|0|Data d'inserimento
+#define F_GGCONS      110
-USERAGG|1|16|0|Utente ultimo aggiornamento
+#define F_CODITI      111
-DATAAGG|5|8|0|Data ultimo aggiornamento
+#define F_DES_ITI     112
-TIPOCF|1|1|0|Tipo <C>liente <F>ornitore (C)
+#define F_USERINS     113
-CODCF|3|6|0|Codice Cliente/Fornitore
+#define F_DATAINS     114
-ORDFERM|2|3|0|Indica l'ordine di fermata dell'autista
+#define F_USERAGG     115
-CODFRQCONS|1|2|0|Codice per il calcolo delle consegne
+#define F_DATAAGG     116
-MODPASS|1|1|0|Indica la modalità di passaggio
+#define F_TIPOCF      117
-FLAGSTAG|8|1|0|Flag di stagionalità
+#define F_CODCF       118
-ORAARR|1|4|0|Ora di arrivo
+#define F_ORDFERM     119
-NOTE|11|10|0|Note */
+#define F_CODFRQCONS  120
+#define F_DES_FRQCONS 121
+#define F_MODPASS     122
+#define F_FLAGSTAG    123
+#define F_ORAARR      124
+#define F_NOTE        125
+

lv/lv0500a.uml

@@ -0,0 +1,255 @@
+#include "lv0500a.h"
+
+TOOLBAR "" 0 0 0 2
+#include "Relapbar.h"
+ENDPAGE
+
+PAGE "Passaggi Planning per Contratto" 0 2 0 0
+
+GROUPBOX DLG_NULL 80 3
+BEGIN
+  PROMPT 1 1 "@bDitta"
+END
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 3 2 "Codice "
+  FLAGS "FD"
+  USE LF_NDITTE
+  CHECKTYPE NORMAL
+  INPUT CODDITTA F_CODDITTA
+  OUTPUT F_RAGSOCDITTA RAGSOC
+END
+
+STRING F_RAGSOCDITTA 50
+BEGIN
+  PROMPT 17 2 "Ragione "
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 80 7
+BEGIN
+	PROMPT 1 4 ""
+END
+
+LISTBOX F_PROVV 14
+BEGIN
+  FIELD PROVV
+  PROMPT 46 7 "Tipo "
+  ITEM "D|Definitiva "
+  ITEM "P|Provvisoria"
+  KEY 1
+  FLAGS "DPG"
+  FIELD PROVV
+END
+
+STRING F_CODNUM 4
+BEGIN
+  PROMPT 2 6 "Numerazione   "
+  FIELD CODNUM
+  FLAGS "U"
+  KEY 1
+  HELP "Codice numerazione"
+  USE %NUM
+  INPUT CODTAB F_CODNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODNUM CODTAB
+  OUTPUT F_DESNUM S0
+  CHECKTYPE FORCED
+  WARNING "Numerazione assente"
+END
+
+STRING F_DESNUM 50
+BEGIN
+  PROMPT 24 6 ""
+  HELP "Descrizione numerazione"
+  USE %NUM KEY 2
+  INPUT S0 F_DESNUM
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODNUM
+  FLAGS ""
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 2 7 "Esercizio     "
+  FIELD ANNO
+  CHECKTYPE REQUIRED
+  NUM_EXPR #F_ANNO>0
+  FLAGS "AP"
+  KEY 1
+  WARNING "Inserire un anno valido"
+END
+
+NUMBER F_NDOC 6
+BEGIN
+  PROMPT 24 7 "Numero      "
+  FIELD NDOC
+  FLAGS "R"
+  KEY 1
+  USE LF_DOC           
+  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
+  INPUT PROVV F_PROVV SELECT
+  INPUT ANNO F_ANNO SELECT
+  INPUT CODNUM F_CODNUM SELECT
+  INPUT NDOC F_NDOC
+  DISPLAY "Num." CODNUM
+  DISPLAY "Anno" ANNO
+  DISPLAY "Provv" PROVV
+  DISPLAY "Tipo" TIPODOC
+  DISPLAY "N.Doc. " NDOC
+  DISPLAY "Stato@R" STATO
+  DISPLAY "Data\ndocumento" DATADOC
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
+  OUTPUT F_CODNUM CODNUM
+  OUTPUT F_NDOC NDOC
+	OUTPUT F_PROVV PROVV
+	OUTPUT F_CODCF CODCF
+	OUTPUT F_TIPOCF TIPOCF
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_GGCONS 1 
+BEGIN
+  PROMPT 2 8 "Giorno di consegna"
+  FIELD GGCONS
+  KEY 1
+  CHECKTYPE REQUIRED
+END
+
+
+STRING F_CODITI 3 
+BEGIN
+  PROMPT 22 8 "Cod.Itinerario"
+  FIELD CODITI
+  FLAGS "U"
+  KEY 1
+  USE ITI
+  INPUT CODTAB F_CODITI
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@35" S0
+  OUTPUT F_CODITI CODTAB
+  OUTPUT F_DES_ITI S0
+  CHECKTYPE REQUIRED
+END 
+
+STRING F_DES_ITI 35
+BEGIN
+  PROMPT 42 8 ""
+  FLAGS "D"
+END
+
+LIST F_TIPOCF 1 12
+BEGIN
+  PROMPT 2 11 "Tipo " 
+  ITEM "C|Cliente"
+  ITEM "F|Fornitore"
+  FIELD TIPOCF
+  FLAGS "D"
+END
+
+NUMBER F_CODCF 6
+BEGIN
+  PROMPT 24 11 "Codice " 
+  FIELD CODCF
+  FLAGS "D"
+  USE LF_DOC SELECT (CODNUM==#F_CODNUM) && (PROVV==#F_PROVV) && (ANNO==#F_ANNO) 
+  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT CODCF F_CODCF
+  INPUT PROVV F_PROVV
+  INPUT ANNO F_ANNO
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
+	DISPLAY "Partita IVA@12" LF_CLIFO->PAIV
+  DISPLAY "Num." CODNUM
+  DISPLAY "Anno" ANNO
+  DISPLAY "Provv" PROVV
+  DISPLAY "Tipo" TIPODOC
+  DISPLAY "N.Doc. " NDOC
+  DISPLAY "Data\ndocumento" DATADOC
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Totale\ndocumento@18V" G1:TOTDOC
+  COPY OUTPUT F_NDOC
+  OUTPUT F_CODCF CODCF
+  CHECKTYPE NORMAL  
+END
+
+GROUPBOX DLG_NULL 80 5
+BEGIN
+  PROMPT 1 12 ""
+END
+
+NUMBER F_ORDFERM 3
+BEGIN
+  PROMPT 2 14 "Ordine Fermata"
+  FIELD ORDFERM
+END
+
+STRING F_CODFRQCONS 2
+BEGIN
+  PROMPT 21 14 "Frequenza Consegne"
+  FIELD CODFRQCONS
+  FLAGS "U"
+  USE FRQ
+  INPUT CODTAB F_CODFRQCONS
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@35" S0
+  OUTPUT F_CODFRQCONS CODTAB
+  OUTPUT F_DES_FRQCONS S0
+END
+
+STRING F_DES_FRQCONS 35
+BEGIN
+  PROMPT 44 14 ""
+  FLAGS "D"
+END
+
+LIST F_MODPASS 1 20
+BEGIN
+  PROMPT 2 15 "Modalità Passaggio"
+  ITEM "C|Consegna"
+  ITEM "R|Ritiro"
+  ITEM "T|Consegna + Ritiro" 
+  FIELD MODPASS
+END
+
+BOOLEAN F_FLAGSTAG
+BEGIN
+  PROMPT 45 15 "Stagionalità"
+  FIELD FLAGSTAG
+END
+
+
+NUMBER F_ORAARR 4
+BEGIN
+  PROMPT 56 15 "Ora di arrivo"
+  FIELD ORAARR
+END
+
+GROUPBOX DLG_NULL 80 3
+BEGIN
+  PROMPT 1 19 ""
+END
+
+DATE F_DATAAGG
+BEGIN
+  PROMPT 2 20 "Data Agg."
+  FLAGS "ADP"
+  FIELD DATAAGG
+END
+
+STRING F_USERAGG 16
+BEGIN
+   PROMPT 40 20 "Utente Agg."
+   FLAGS "D"
+   FIELD USERAGG
+END
+
+
+ENDPAGE
+ENDMASK