From 509af52b0f8010345bba6eab0adc4515c0e005ac Mon Sep 17 00:00:00 2001 From: lvietri Date: Fri, 1 Aug 2008 08:18:34 +0000 Subject: [PATCH] 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 | 42 ++++---- lv/lv0500a.h | 42 ++++---- lv/lv0500a.uml | 255 +++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 304 insertions(+), 35 deletions(-) create mode 100755 lv/lv0500a.uml diff --git a/lv/lv0500.cpp b/lv/lv0500.cpp index 06ac483d0..e3ee792b5 100755 --- a/lv/lv0500.cpp +++ b/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(); - bool user_destroy(); + virtual bool user_create(); + 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_LETINT); - _mask = new TLavanderie_mask; + _rel = new TRelation(LF_LVPASPLAN); + _mask = new TPass_plan_contr_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; } diff --git a/lv/lv0500a.h b/lv/lv0500a.h index 85820b16d..c637ce3f0 100755 --- a/lv/lv0500a.h +++ b/lv/lv0500a.h @@ -1,18 +1,24 @@ -#define PROVV -/*ANNO -CODNUM -NDOC -GGCONS -CODITI -USERINS|1|16|0|Utente d'inserimento -DATAINS|5|8|0|Data d'inserimento -USERAGG|1|16|0|Utente ultimo aggiornamento -DATAAGG|5|8|0|Data ultimo aggiornamento -TIPOCF|1|1|0|Tipo liente ornitore (C) -CODCF|3|6|0|Codice Cliente/Fornitore -ORDFERM|2|3|0|Indica l'ordine di fermata dell'autista -CODFRQCONS|1|2|0|Codice per il calcolo delle consegne -MODPASS|1|1|0|Indica la modalità di passaggio -FLAGSTAG|8|1|0|Flag di stagionalità -ORAARR|1|4|0|Ora di arrivo -NOTE|11|10|0|Note */ \ No newline at end of file +#define F_CODDITTA 101 +#define F_RAGSOCDITTA 102 +#define F_PROVV 103 +#define F_CODNUM 104 +#define F_DESNUM 105 +#define F_ANNO 108 +#define F_NDOC 109 +#define F_GGCONS 110 +#define F_CODITI 111 +#define F_DES_ITI 112 +#define F_USERINS 113 +#define F_DATAINS 114 +#define F_USERAGG 115 +#define F_DATAAGG 116 +#define F_TIPOCF 117 +#define F_CODCF 118 +#define F_ORDFERM 119 +#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 + diff --git a/lv/lv0500a.uml b/lv/lv0500a.uml new file mode 100755 index 000000000..6c64486a7 --- /dev/null +++ b/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 \ No newline at end of file