From b2808db6b591ca9ee668a4342c9077b3cf849f8d Mon Sep 17 00:00:00 2001 From: sperego Date: Tue, 5 Aug 2008 16:34:23 +0000 Subject: [PATCH] Patch level :10.0 Files correlati : Ricompilazione Demo : [ ] Commento : Prima Versione Tabella Periodi di Sospensione git-svn-id: svn://10.65.10.50/trunk@17013 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv0600.cpp | 104 +++++++++++++++++++++++++++ lv/lv0600a.h | 23 ++++++ lv/lv0600a.uml | 189 +++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 316 insertions(+) create mode 100755 lv/lv0600.cpp create mode 100755 lv/lv0600a.h create mode 100755 lv/lv0600a.uml diff --git a/lv/lv0600.cpp b/lv/lv0600.cpp new file mode 100755 index 000000000..e00ef14a1 --- /dev/null +++ b/lv/lv0600.cpp @@ -0,0 +1,104 @@ +#include +#include +#include +#include + +#include "lv0.h" +#include "lv0600a.h" + +/* Applicazione Gestione Periodi di Sospensione + */ + + +//------------------------------------------------------------------- +// MASCHERA +//------------------------------------------------------------------- +class TPeriodi_sosp_mask : public TAutomask +{ +protected: + virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + +public: + TPeriodi_sosp_mask(); +}; + +bool TPeriodi_sosp_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) +{ + return true; +} +TPeriodi_sosp_mask::TPeriodi_sosp_mask() : TAutomask("lv0600a") +{ + +} + +//-------------------------------------------------------------- +// APPLICAZIONE +//-------------------------------------------------------------- +class TPeriodi_sosp : public TRelation_application +{ + TPeriodi_sosp_mask* _mask; + TRelation* _rel; +private: + int controlli(const TMask& mask); +protected: + bool user_create(); + 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;} +}; + + +/* +int TPeriodi_sosp::write(const TMask& mask) +{ + // controlli prima della fase di scrittura + return controlli(mask); +} + +int TPeriodi_sosp::rewrite(const TMask& mask) +{ + // controlli prima della fase di aggiornamento + return controlli(mask); +} + +int TPeriodi_sosp::controlli(const TMask& mask) +{ + /* + if (mask.get(F_ID_PERI_SOSP).empty()) + { + TDate oggi = botime; + } + + if (mask.get(F_TIPO_CF).empty()) + { + ((TMask&)mask).set(F_TIPO_CF, "F"); + } + + return NOERR; +}*/ + + +bool TPeriodi_sosp::user_create() +{ + _rel = new TRelation(LF_LVTIPISOSP); + _mask = new TPeriodi_sosp_mask; + return true; +} + +bool TPeriodi_sosp::user_destroy() +{ + delete _mask; + return true; +} + +int lv0600(int argc, char* argv[]) +{ + TPeriodi_sosp a; + a.run(argc, argv, TR("Periodi di Sospensione")); + return 0; +} diff --git a/lv/lv0600a.h b/lv/lv0600a.h new file mode 100755 index 000000000..38273f069 --- /dev/null +++ b/lv/lv0600a.h @@ -0,0 +1,23 @@ +//campi maschera lv0600a.uml (Archivio Periodi di Sospensione) +# define F_COD_DITTA 101 +# define F_RAGSOC_DITTA 102 +# define F_ID_PERI_SOSP 103 +# define F_TIPO_CF 104 +# define F_COD_CF 105 +# define F_RAGSOC_CLI 106 +# define F_ID_CONTR 107 +# define F_DES_ID_CONTR 108 +# define F_DATAINI 109 +# define F_DATAFIN 110 +# define F_COD_TIPO_SOSP 111 +# define F_DES_TIPO_SOSP 112 +# define F_FLAG_FATT 113 +# define F_IMP_FATT 114 +# define F_PERC_FATT 115 +# define F_NOTE 116 +# define F_DATAINS 117 +# define F_ORAINS 118 +# define F_USERINS 119 +# define F_DATAAGG 120 +# define F_ORAAGG 121 +# define F_USERAGG 122 diff --git a/lv/lv0600a.uml b/lv/lv0600a.uml new file mode 100755 index 000000000..22a716ee6 --- /dev/null +++ b/lv/lv0600a.uml @@ -0,0 +1,189 @@ +# include + +TOOLBAR "" 0 0 0 2 +# include +ENDPAGE + +PAGE "Periodi di Sospensione" 0 2 0 0 + +GROUPBOX DLG_NULL 85 3 +BEGIN + PROMPT 1 0 "@bDitta" +END + +NUMBER F_COD_DITTA 5 +BEGIN + PROMPT 2 1 "Codice " + FLAGS "FD" + USE LF_NDITTE + CHECKTYPE NORMAL + INPUT CODDITTA F_COD_DITTA + OUTPUT F_RAGSOC_DITTA RAGSOC +END + +STRING F_RAGSOC_DITTA 50 +BEGIN + PROMPT 30 1 "" + FLAGS "D" +END + +GROUPBOX DLG_NULL 85 5 +BEGIN + PROMPT 1 3 "@b Periodi di Sospensione" +END + +NUMBER F_ID_PERI_SOSP 17 +BEGIN + PROMPT 2 4 "ID Periodo " + FIELD IDPERISOSP + KEY 1 + + USE LVPERISOSP KEY 1 + JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF=TIPOCF CODCF=CODCF + INPUT IDPERISOSP F_ID_PERI_SOSP + DISPLAY "ID @17" IDPERISOSP + DISPLAY "CONTRATTO" ID CONTR + DISPLAY "CLIENTE" CODCF + DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC + OUTPUT F_ID_PERI_SOSP IDPERISOSP + OUTPUT F_COD_CF CODCF + OUTPUT F_ID_CONTR IDCONTR + + CHECKTYPE REQUIRED +END + +LIST F_TIPO_CF 1 +BEGIN + ITEM "C|C" + FLAGS "H" +END + +NUMBER F_COD_CF 6 +BEGIN + PROMPT 2 5 "Codice " + FIELD CODCF + FLAGS "BU" + KEY 1 + USE LF_CLIFO SELECT TIPOCF = "C" + INPUT CODCF F_COD_CF + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + OUTPUT F_COD_CF CODCF + OUTPUT F_RAGSOC_CLI RAGSOC + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC_CLI 50 +BEGIN + PROMPT 30 5 "" + FLAGS "D" +END + +STRING F_ID_CONTR 3 +BEGIN + PROMPT 2 6 "Contratto N. " + FLAGS "BU" + FIELD IDCONTR + KEY 1 + + CHECKTYPE REQUIRED +END + +STRING F_DES_ID_CONTR 50 +BEGIN + PROMPT 30 6 "" + FLAGS "D" +END + + +GROUPBOX DLG_NULL 85 14 +BEGIN + PROMPT 1 8 "@b Dati di Sospensione" +END + +DATE F_DATAINI +BEGIN + PROMPT 2 9 "Data Inizio " + FIELD DATAINI + +END + +DATE F_DATAFIN +BEGIN + PROMPT 55 9 "Data Fine " + FIELD DATAFIN +END + +STRING F_COD_TIPO_SOSP 2 +BEGIN + PROMPT 2 10 "Tipo Sospensione" + FIELD CODTIPSOSP + + USE &TSP SELECT COD = "TSP" + INPUT CODTAB F_COD_TIPO_SOSP + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@35" S0 + OUTPUT F_COD_TIPO_SOSP CODTAB + OUTPUT F_DES_TIPO_SOSP S0 + +END + +STRING F_DES_TIPO_SOSP 35 +BEGIN + PROMPT 30 10 "" + FLAGS "D" +END + +BOOLEAN F_FLAG_FATT +BEGIN + PROMPT 2 11 "Fatturare" + FIELD FLAGFATT +END + +NUMBER F_IMP_FATT 18 +BEGIN + PROMPT 20 11 "Importo " + FIELD IMPFATT +END + +NUMBER F_PERC_FATT 18 +BEGIN + PROMPT 55 11 "Percentuale" + FIELD PERCFATT +END + +MEMO F_NOTE 83 -2 +BEGIN + PROMPT 2 11 "" + FIELD NOTE +END + +GROUPBOX DLG_NULL 85 3 +BEGIN + PROMPT 1 21 "" +END + +DATE F_DATAAGG +BEGIN + PROMPT 2 22 "Data Agg." + FLAGS "ADP" + FIELD DATAAGG +END + +NUMBER F_ORAAGG 4 +BEGIN + PROMPT 25 22 "Ora Agg." + FIELD ORAAGG + FLAGS "D" +END + +STRING F_USERAGG 16 +BEGIN + PROMPT 40 22 "Utente Agg." + FLAGS "D" + FIELD USERAGG +END + +ENDPAGE + +ENDMASK \ No newline at end of file