From 4376d3d92d0621137e46e3d5a6d0290cebe37ef4 Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 4 Aug 2008 14:33:35 +0000 Subject: [PATCH] Patch level : Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@16996 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv2100.cpp | 130 ++++++++++++---------- lv/lv2100a.h | 37 ++----- lv/lv2100a.uml | 284 +++++++++++-------------------------------------- lv/lvtbiti.h | 1 - lv/lvtbiti.uml | 98 ++++++++--------- 5 files changed, 189 insertions(+), 361 deletions(-) diff --git a/lv/lv2100.cpp b/lv/lv2100.cpp index e46414fcf..ec337f972 100755 --- a/lv/lv2100.cpp +++ b/lv/lv2100.cpp @@ -1,88 +1,102 @@ +#include #include -#include -#include -#include +#include +#include +#include +#include -#include "lv0.h" -#include "lv0700a.h" +#include +#include -//------------------------------------------------------------------- -// MASCHERA (lv0700a) -//------------------------------------------------------------------- -class TPlan_cons_mask : public TAutomask -{ -protected: +#include "../cg/cgsaldac.h" + +#include "lv2.h" +#include "lv2100a.h" + +/////////////////////////////////////////////////////////// +// TGenera_planning maschera +/////////////////////////////////////////////////////////// + +class TGenera_planning_mask : public TAutomask +{ +public: virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); - + TGenera_planning_mask (const char* name) : TAutomask(name) {} +}; + +bool TGenera_planning_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) +{ + return true; +} +/* +///////////////////////////////////////////////////////////// +// TGenera_planning recordset +///////////////////////////////////////////////////////////// + +class TGenera_planning_recordset : public TCSV_recordset +{ public: - TPlan_cons_mask(); + TEsporta_ps0713_recordset(); }; - -bool TPlan_cons_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) -{ -/* switch (o.dlg()) - { - case F_ANNO: - break; - default: - break; - } */ - return true; -} - -TPlan_cons_mask::TPlan_cons_mask() : TAutomask("lv0700a") +TGenera_planning_recordset::TEsporta_ps0713_recordset() + : TCSV_recordset("CSV(\"\t\")") { } +*/ +/////////////////////////////////////////////////////////// +// TGenera_planning applicazione +/////////////////////////////////////////////////////////// -//-------------------------------------------------------------- -// APPLICAZIONE -//-------------------------------------------------------------- -class TPlan_cons : public TRelation_application -{ - TPlan_cons_mask* _mask; - TRelation* _rel; +class TGenera_planning_app : public TSkeleton_application +{ + + TGenera_planning_mask* _msk; protected: - bool user_create(); - bool user_destroy(); - virtual TMask* get_mask(int mode) { return _mask; } - virtual bool changing_mask(int mode) { return false; } - virtual void init_modify_mode(TMask& m); + virtual bool create(); + virtual bool destroy(); public: - // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata - virtual bool check_autorization() const {return true;} - - virtual TRelation* get_relation() const {return (TRelation*)_rel;} + bool transfer(); + virtual void main_loop(); + /*void esporta_righe_iva(const TMask& msk) const; + void set_inviva(TISAM_recordset& rmoviva) const;*/ + }; - - -void TPlan_cons::init_modify_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO +bool TGenera_planning_app::create() { + /*xvt_fsys_removefile(nomeini); + _configfile = new TConfig(nomeini);*/ + _msk = new TGenera_planning_mask("lv2100a"); + + return TSkeleton_application::create(); } +bool TGenera_planning_app::destroy() +{ + delete _msk; + //delete _configfile; + return TApplication::destroy(); +} -bool TPlan_cons::user_create() -{ - _rel = new TRelation(LF_LVCONSPLAN); - _mask = new TPlan_cons_mask; +bool TGenera_planning_app::transfer() +{ return true; } - -bool TPlan_cons::user_destroy() -{ - delete _mask; - return true; +void TGenera_planning_app::main_loop() +{ + while (_msk->run() == K_ENTER) + transfer(); } -int lv0700(int argc, char* argv[]) +int lv2100(int argc, char* argv[]) { - TPlan_cons a; - a.run(argc, argv, TR("Generazione planning")); + TGenera_planning_app app; + app.run(argc, argv, TR("Generazione automatica planning")); return 0; } diff --git a/lv/lv2100a.h b/lv/lv2100a.h index b098540ba..cadcacf62 100755 --- a/lv/lv2100a.h +++ b/lv/lv2100a.h @@ -1,28 +1,11 @@ -// lettere d'intento -// definizione campi per maschera lv0700a +// generazione automatica planning +// definizione campi per maschera lv2100a -#define F_ANNO 101 -#define F_NUMPROT 102 -#define F_DATAREG 103 -#define F_VSPROT 104 -#define F_VSDATA 105 -#define F_CODCLI 106 -#define F_RAGSOC 107 -#define F_TIPOOP 108 -#define F_IMPORTO 109 -#define F_DAL 110 -#define F_AL 111 -#define F_STAMPATO 112 -#define F_INDCF 113 -#define F_CIVCF 114 -#define F_STATOCF 115 -#define F_DESTACF 116 -#define F_COMCF 117 -#define F_DENCOMCF 118 -#define F_LOCALITACF 119 -#define F_CAPCF 120 -#define F_PROVCF 121 -#define F_PAIV 122 -#define F_UFFIVA 123 -#define F_DENUFFIVA 124 -#define F_NOTE 125 +#define F_CODDITTA 101 +#define F_RAGSOC 102 +#define F_DADATA 103 +#define F_ADATA 104 +#define F_CODITI 105 +#define F_DESCRITI 106 +#define F_CODCLI 107 +#define F_RAGSOCCLI 108 diff --git a/lv/lv2100a.uml b/lv/lv2100a.uml index 21a97e338..6088bdffa 100755 --- a/lv/lv2100a.uml +++ b/lv/lv2100a.uml @@ -1,255 +1,99 @@ -#include "lv0700a.h" +#include "lv2100a.h" -TOOLBAR "Relapbar" 0 0 0 2 -#include +TOOLBAR "cazzone" 0 0 0 2 +#include ENDPAGE -PAGE "Dichiarazioni d'intento" -1 -1 78 20 +PAGE "Generazione planning" -1 -1 78 20 -GROUPBOX DLG_NULL 75 3 +GROUPBOX DLG_NULL 76 3 BEGIN - PROMPT 0 1 "@bNostri riferimenti" + PROMPT 1 1 "@bDitta corrente" END -NUMBER F_ANNO 4 +NUMBER F_CODDITTA 5 BEGIN - PROMPT 1 2 "Anno " - FLAGS "AU" - USE LF_LETINT - JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI - INPUT ANNO F_ANNO - INPUT NUMPROT F_NUMPROT - DISPLAY "Anno" ANNO - DISPLAY "N.Protocollo" NUMPROT - DISPLAY "Data Reg.@10" DATAREG - DISPLAY "Cliente" CODCLI - DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC - OUTPUT F_ANNO ANNO - OUTPUT F_NUMPROT NUMPROT - CHECKTYPE REQUIRED - FIELD ANNO - KEY 1 -END - -NUMBER F_NUMPROT 6 -BEGIN - PROMPT 15 2 "Numero protocollo " - FLAGS "U" - COPY ALL F_ANNO - CHECKTYPE REQUIRED - FIELD NUMPROT - KEY 1 -END - -DATE F_DATAREG -BEGIN - PROMPT 43 2 "Data registrazione " - FIELD DATAREG + PROMPT 2 2 "Codice " + FLAGS "FD" + USE LF_NDITTE + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC CHECKTYPE REQUIRED END -GROUPBOX DLG_NULL 75 11 +STRING F_RAGSOC 50 BEGIN - PROMPT 0 4 "@bRiferimenti cliente" + PROMPT 23 2 "" + FLAGS "D" +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + PROMPT 1 4 "@bDati per la generazione del planning" +END + +DATE F_DADATA +BEGIN + PROMPT 2 5 "Genera il planning dal " + FIELD DADATA + CHECKTYPE REQUIRED +END + +DATE F_ADATA +BEGIN + PROMPT 45 5 "al " + FIELD ADATA + CHECKTYPE REQUIRED +END + +STRING F_CODITI 3 +BEGIN + PROMPT 2 6 "Itinerario " + FLAGS "UZ" + USE &ITI + INPUT CODTAB F_CODITI + DISPLAY "Codice " CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODITI CODTAB + OUTPUT F_DESCRITI S0 + CHECKTYPE NORMAL +END + +STRING F_DESCRITI 50 +BEGIN + PROMPT 23 6 "" + USE &ITI KEY 2 + INPUT S0 F_DESCRITI + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice " CODTAB + COPY OUTPUT F_CODITI + CHECKTYPE NORMAL END NUMBER F_CODCLI 6 BEGIN - PROMPT 1 5 "Cod. " + PROMPT 2 7 "Cliente " FLAGS "U" USE LF_CLIFO KEY 1 INPUT TIPOCF "C" INPUT CODCF F_CODCLI DISPLAY "Codice " CODCF DISPLAY "Ragione sociale@50" RAGSOC - DISPLAY "Partita IVA@11" PAIV OUTPUT F_CODCLI CODCF - OUTPUT F_RAGSOC RAGSOC - OUTPUT F_INDCF INDCF - OUTPUT F_CIVCF CIVCF - OUTPUT F_STATOCF STATOCF - OUTPUT F_COMCF COMCF - OUTPUT F_CAPCF CAPCF - OUTPUT F_LOCALITACF LOCALITACF - OUTPUT F_PAIV PAIV - OUTPUT F_UFFIVA PAIV[8,10] - CHECKTYPE REQUIRED - FIELD CODCLI - ADD RUN cg0 -1 + OUTPUT F_RAGSOCCLI RAGSOC + CHECKTYPE NORMAL END -STRING F_RAGSOC 50 +STRING F_RAGSOCCLI 50 BEGIN - PROMPT 19 5 "" + PROMPT 23 7 "" USE LF_CLIFO KEY 2 INPUT TIPOCF "C" - INPUT RAGSOC F_RAGSOC + INPUT RAGSOC F_RAGSOCCLI DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Codice " CODCF COPY OUTPUT F_CODCLI CHECKTYPE NORMAL - ADD RUN cg0 -1 -END - -STRING F_INDCF 35 -BEGIN - PROMPT 1 6 "Indirizzo " - FLAGS "D" -END - -STRING F_CIVCF 10 -BEGIN - PROMPT 59 6 "N. " - FLAGS "D" -END - -NUMBER F_STATOCF 3 -BEGIN - PROMPT 9 7 "Stato " - USE %STA - INPUT CODTAB F_STATOCF - OUTPUT F_DESTACF S0 - FLAGS "ZD" - CHECKTYPE NORMAL -END - -STRING F_DESTACF 50 -BEGIN - PROMPT 22 7 "" - FLAGS "D" -END - -STRING F_COMCF 4 -BEGIN - PROMPT 8 8 "Comune " - USE LF_COMUNI - INPUT STATO F_STATOCF - INPUT COM F_COMCF - OUTPUT F_DENCOMCF DENCOM - OUTPUT F_PROVCF PROVCOM - FLAGS "D" - CHECKTYPE NORMAL -END - -STRING F_DENCOMCF 50 -BEGIN - PROMPT 22 8 "" - FLAGS "D" -END - -STRING F_LOCALITACF 35 -BEGIN - PROMPT 1 9 "Localita' " - FLAGS "D" -END - -STRING F_CAPCF 5 -BEGIN - PROMPT 52 9 "CAP " - FLAGS "D" -END - -STRING F_PROVCF 5 -BEGIN - PROMPT 63 9 "Prov" - FLAGS "D" -END - -STRING F_PAIV 12 -BEGIN - PROMPT 1 10 "Partita IVA " - FLAGS "D" -END - -NUMBER F_UFFIVA 3 -BEGIN - PROMPT 1 11 "Ufficio IVA " - USE %UIV - INPUT CODTAB F_UFFIVA - DISPLAY "Ufficio" CODTAB - DISPLAY "Denominazione@50" S0 - OUTPUT F_UFFIVA CODTAB - OUTPUT F_DENUFFIVA S0 - CHECKTYPE NORMAL - WARNING "Ufficio IVA assente" - FLAGS "Z" - FIELD UFFIVA -END - -STRING F_DENUFFIVA 50 -BEGIN - PROMPT 22 11 "" - FLAGS "D" -END - -STRING F_VSPROT 7 -BEGIN - PROMPT 1 12 "Numero di protocollo " - FIELD VSPROT -END - -DATE F_VSDATA -BEGIN - PROMPT 1 13 "Data di emissione " - FIELD VSDATA -END - -GROUPBOX DLG_NULL 75 6 -BEGIN - PROMPT 0 15 "@bOperazione" -END - -LIST F_TIPOOP 1 15 -BEGIN - PROMPT 1 16 "Tipo operazione " - ITEM "1|Singola" - MESSAGE ENABLE,F_IMPORTO|CLEAR,1@ - ITEM "2|A concorrenza" - MESSAGE ENABLE,F_IMPORTO|CLEAR,1@ - ITEM "3|Nel periodo" - MESSAGE ENABLE,1@|CLEAR,F_IMPORTO - FIELD TIPOOP -END - -CURRENCY F_IMPORTO 18 -BEGIN - PROMPT 1 17 "Importo " - FIELD IMPORTO - CHECKTYPE REQUIRED -END - -DATE F_DAL -BEGIN - PROMPT 1 18 "Data inizio periodo " - GROUP 1 - FIELD DAL - CHECKTYPE REQUIRED -END - -DATE F_AL -BEGIN - PROMPT 1 19 "Data fine periodo " - GROUP 1 - FIELD AL - CHECKTYPE REQUIRED - VALIDATE DATE_CMP_FUNC >= F_DAL - WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'" -END - -BOOLEAN F_STAMPATO -BEGIN - PROMPT 2 20 "" - FIELD STAMPATO - FLAGS "HD" -END - -ENDPAGE -PAGE "Note" -1 -1 78 20 - -MEMO F_NOTE 78 19 -BEGIN - PROMPT 1 1 "" - FIELD NOTE END ENDPAGE diff --git a/lv/lvtbiti.h b/lv/lvtbiti.h index f20132d76..208c11e5f 100755 --- a/lv/lvtbiti.h +++ b/lv/lvtbiti.h @@ -1,4 +1,3 @@ -#define F_COD 101 #define F_COD_ITINERARIO 102 #define F_DES_ITINERARIO 103 #define F_COD_AUTISTA 104 diff --git a/lv/lvtbiti.uml b/lv/lvtbiti.uml index aedf8ed37..2a77db2bc 100755 --- a/lv/lvtbiti.uml +++ b/lv/lvtbiti.uml @@ -6,98 +6,86 @@ ENDPAGE PAGE "Itinerari" 0 2 0 0 -GROUPBOX DLG_NULL 75 9 -BEGIN - PROMPT 1 1 "@b Itinerari" -END - -LIST F_COD 3 -BEGIN - PROMPT 2 3 "" - ITEM "ITI|ITI" - FLAGS "H" - FIELD COD - KEY 1 -END - STRING F_COD_ITINERARIO 3 BEGIN - PROMPT 2 5 "Codice Itinerario " - FLAGS "BU" - FIELD CODTAB - - USE ITI + PROMPT 1 2 "Itinerario " + FLAGS "U" + USE &ITI INPUT CODTAB F_COD_ITINERARIO - INPUT S1 F_COD_AUTISTA - INPUT S2 F_COD_MEZZO DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@35" S0 - DISPLAY "Cod.Autista" S1 - DISPLAY "Cod.Mezzo" S2 + DISPLAY "Descrizione@50" S0 + DISPLAY "Autista" S1 + DISPLAY "Mezzo" S2 OUTPUT F_COD_ITINERARIO CODTAB OUTPUT F_DES_ITINERARIO S0 OUTPUT F_COD_AUTISTA S1 - OUTPUT F_COD_MEZZO S2 - + OUTPUT F_COD_MEZZO S2 CHECKTYPE REQUIRED + FIELD CODTAB KEY 1 END -STRING F_DES_ITINERARIO 35 +STRING F_DES_ITINERARIO 50 BEGIN - PROMPT 2 7 "Descrizione Itinerario" + PROMPT 18 2 "" + USE &ITI KEY 2 + INPUT S0 F_DES_ITINERARIO + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Autista" S1 + DISPLAY "Mezzo" S2 + COPY OUTPUT F_COD_ITINERARIO FIELD S0 KEY 2 - CHECKTYPE REQUIRED -END - -GROUPBOX DLG_NULL 75 7 -BEGIN - PROMPT 1 10 "@b Dettaglio Itinerari" END STRING F_COD_AUTISTA 2 BEGIN - PROMPT 2 12 "Codice Autista " - FLAGS "BU" - FIELD S1 - - USE AUT + PROMPT 1 4 "Autista " + FLAGS "U" + USE VET INPUT CODTAB F_COD_AUTISTA DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@35" S0 + DISPLAY "Descrizione@50" S0 OUTPUT F_COD_AUTISTA CODTAB OUTPUT F_DES_AUTISTA S0 - CHECKTIPE NORMAL + FIELD S1 + CHECKTIPE REQUIRED END -STRING F_DES_AUTISTA 35 +STRING F_DES_AUTISTA 50 BEGIN - PROMPT 30 12 "" - FLAGS "D" + PROMPT 18 4 "" + USE VET KEY 2 + INPUT S0 F_DES_AUTISTA + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_AUTISTA END STRING F_COD_MEZZO 2 BEGIN - PROMPT 2 14 "Codice Mezzo " - FLAGS "BU" - FIELD S2 - - USE MEZ + PROMPT 1 5 "Mezzo " + FLAGS "U" + USE &MEZ INPUT CODTAB F_COD_MEZZO DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@35" S0 + DISPLAY "Descrizione@50" S0 OUTPUT F_COD_MEZZO CODTAB OUTPUT F_DES_MEZZO S0 - CHECKTIPE NORMAL + FIELD S2 + CHECKTIPE REQUIRED END -STRING F_DES_MEZZO 35 +STRING F_DES_MEZZO 50 BEGIN - PROMPT 30 14 "" - FLAGS "D" + PROMPT 18 5 "" + USE &MEZ KEY 2 + INPUT S0 F_DES_MEZZO + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_MEZZO END - ENDPAGE ENDMASK \ No newline at end of file