From 4fa383ebd2fc42b39f0aa2bd8229b98f04a0bfce Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 20 Sep 2010 14:58:57 +0000 Subject: [PATCH] Patch level :10.0 808 Files correlati : Ricompilazione Demo : [ ] Commento : Riporto dalla 11.0: _contabilizzazione contratti premio _tabcom necessarie per la contab...premio _collegamento del contratto contabilizzato alla prima nota _configurazione hardy abbastanza avanti git-svn-id: svn://10.65.10.50/branches/R_10_00@20883 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ha/ha0200a.uml | 16 +++++----- ha/ha0300.cpp | 79 +++++++++++++++++++++++++++++++++---------------- ha/ha0300a.h | 6 ++-- ha/ha0300a.uml | 25 ++++++++++++++-- ha/hamenu.men | 2 +- ha/hatabcom.txt | 7 +++-- 6 files changed, 95 insertions(+), 40 deletions(-) diff --git a/ha/ha0200a.uml b/ha/ha0200a.uml index 8b7ccbc21..933e1a361 100755 --- a/ha/ha0200a.uml +++ b/ha/ha0200a.uml @@ -167,24 +167,24 @@ END STRING F_CO_POST_NUM 4 BEGIN PROMPT 20 10 "Numerazione " - /*USE %NUM + USE %NUM INPUT CODTAB F_CO_POST_NUM DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_CO_POST_NUM CODTAB - CHECKTYPE REQUIRED*/ + CHECKTYPE REQUIRED FIELD CoPostNum END STRING F_CO_POST_TIP 4 BEGIN PROMPT 42 10 "Tipo " - /*USE %TIP + USE %TIP INPUT CODTAB F_CO_POST_TIP DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_CO_POST_TIP CODTAB - CHECKTYPE REQUIRED*/ + CHECKTYPE REQUIRED FIELD CoPostTip END @@ -244,24 +244,24 @@ END STRING F_CO_RIFA_NUM 4 BEGIN PROMPT 20 14 "Numerazione " - /*USE %NUM + USE %NUM INPUT CODTAB F_CO_RIFA_NUM DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_CO_RIFA_NUM CODTAB - CHECKTYPE REQUIRED*/ + CHECKTYPE REQUIRED FIELD CoRifaNum END STRING F_CO_RIFA_TIP 4 BEGIN PROMPT 42 14 "Tipo " - /*USE %TIP + USE %TIP INPUT CODTAB F_CO_RIFA_TIP DISPLAY "Codice@8" CODTAB DISPLAY "Descrizione@50" S0 OUTPUT F_CO_RIFA_TIP CODTAB - CHECKTYPE REQUIRED*/ + CHECKTYPE REQUIRED FIELD CoRifaTip END diff --git a/ha/ha0300.cpp b/ha/ha0300.cpp index 8385cd1fb..c6e787d01 100755 --- a/ha/ha0300.cpp +++ b/ha/ha0300.cpp @@ -2,6 +2,7 @@ #include #include +#include #include #include #include @@ -23,6 +24,7 @@ class TDocumenti_premio_msk : public TAutomask protected: bool find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const; virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + virtual bool on_key(KEY key); public: TDocumenti_premio_msk(); @@ -33,6 +35,17 @@ TDocumenti_premio_msk::TDocumenti_premio_msk() : TAutomask("ha0300a") { } +//metodo standard per far funzionare il shift+f12 in modo da poter cambiare lo stato +bool TDocumenti_premio_msk::on_key(KEY key) +{ + if (key == K_SHIFT + K_F12) + { + enable(F_STATO); + return true; + } + return TAutomask::on_key(key); +} + bool TDocumenti_premio_msk::find_prezzo_articolo(const TString& codart, real& prezzo, TString& um) const { //1) contratto @@ -156,6 +169,18 @@ bool TDocumenti_premio_msk::on_field_event(TOperable_field& o, TField_event e, l } } break; + case F_COLLEGA: + if (e == fe_button) + { + const long numreg_cg = get_long(F_NUMREG); + if (numreg_cg > 0) + { + TRectype mov(LF_MOV); + mov.put(MOV_NUMREG, numreg_cg); + mov.edit(); + } + } + break; default: break; }; @@ -320,35 +345,38 @@ void TDocumenti_premio::write_rows(const TMask& m) rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_MERCE); } //salva la riga di tipo somme anticipate/rimborsate (H02) che in realtà è in testata - const int righedoc_items = righedoc.rows(); - TRectype& last_rec = righedoc.row(righedoc_items + 1, true); - const real anticipato = m.get_real(F_ANTICIPATO); - const real maturato = m.get_real(F_RESTITUITO); - last_rec.put(RCA_2_ANTICIPATO, anticipato); - last_rec.put(RCA_2_RESTITUITO, maturato); - last_rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_SOMMA); - last_rec.put(RDOC_QTA, 1); - - //panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto) - TString80 codspp; + //questo vale solo per i contratti di Anticip/Rifatturazione TConfig config(CONFIG_DITTA, "ha"); const char tipo_contr = m.get(F_TIPOCONTR)[0]; - switch (tipo_contr) + if (tipo_contr == 'A' || tipo_contr == 'R') { - case 'A': codspp = config.get("CoAntSpe"); break; - case 'R': codspp = config.get("CoRifaSpe"); break; - default: break; + const int righedoc_items = righedoc.rows(); + TRectype& last_rec = righedoc.row(righedoc_items + 1, true); + const real anticipato = m.get_real(F_ANTICIPATO); + const real maturato = m.get_real(F_RESTITUITO); + last_rec.put(RCA_2_ANTICIPATO, anticipato); + last_rec.put(RCA_2_RESTITUITO, maturato); + last_rec.put(RDOC_TIPORIGA, HARDY_TIPORIGA_SOMMA); + last_rec.put(RDOC_QTA, 1); + + //panegirico sul codice iva (che ci va sennò col cavolo che si riesce a contabilizzare il contratto) + TString80 codspp; + switch (tipo_contr) + { + case 'A': codspp = config.get("CoAntSpe"); break; + case 'R': codspp = config.get("CoRifaSpe"); break; + default: break; + } + last_rec.put(RDOC_CODART, codspp); + + //cerca se il cliente ha un'iva speciale (1 cliente su 1E+6, ma tant'è...) + TCli_for clifo(m.get(F_TIPOCF)[0], m.get_long(F_CODCF)); + TString4 codiva(clifo.vendite().get(CFV_ASSFIS)); + //per i restanti 1E+6 - 1 clienti... + if (!codiva.full()) + codiva = cache().get("SPP", codspp, "S3"); + last_rec.put(RDOC_CODIVA, codiva); } - last_rec.put(RDOC_CODART, codspp); - - //cerca se il cliente ha un'iva speciale (1 cliente su 1E+6, ma tant'è...) - TCli_for clifo(m.get(F_TIPOCF)[0], m.get_long(F_CODCF)); - TString4 codiva(clifo.vendite().get(CFV_ASSFIS)); - //per i restanti 1E+6 - 1 clienti... - if (!codiva.full()) - codiva = cache().get("SPP", codspp, "S3"); - last_rec.put(RDOC_CODIVA, codiva); - //e alla fine della fiera scrive tutto ufficialmente righedoc.rewrite(); } @@ -356,6 +384,7 @@ void TDocumenti_premio::write_rows(const TMask& m) void TDocumenti_premio::init_query_mode(TMask& m) { + m.disable(F_STATO); } void TDocumenti_premio::init_insert_mode(TMask& m) diff --git a/ha/ha0300a.h b/ha/ha0300a.h index 9ac2baf41..f5ec91c73 100755 --- a/ha/ha0300a.h +++ b/ha/ha0300a.h @@ -25,8 +25,10 @@ #define F_TIPOCONTR 224 #define F_DATACOMP 225 #define F_DATAFCOMP 226 -#define F_ANTICIPATO 227 -#define F_RESTITUITO 228 +#define F_NUMREG 227 +#define F_COLLEGA 228 +#define F_ANTICIPATO 229 +#define F_RESTITUITO 230 #define F_RIGHE 500 //questo va messo 500 sennò ve0 si incazza e non funziona più diff --git a/ha/ha0300a.uml b/ha/ha0300a.uml index 69f73f5db..6b9757fc5 100755 --- a/ha/ha0300a.uml +++ b/ha/ha0300a.uml @@ -257,19 +257,40 @@ BEGIN ADD RUN ba3 -6 END +TEXT DLG_NULL +BEGIN + PROMPT 2 9 "Validita':" +END + DATE F_DATACOMP BEGIN - PROMPT 2 9 "Inizio validita' " + PROMPT 13 9 "Inizio " FIELD DATACOMP CHECKTYPE REQUIRED END DATE F_DATAFCOMP BEGIN - PROMPT 35 9 "Fine validita' " + PROMPT 33 9 "Fine " FIELD DATAFCOMP END +NUMBER F_NUMREG 7 +BEGIN + PROMPT 54 9 "N.reg.CG " + FIELD NUMREG + FLAGS "DUG" + MESSAGE EMPTY DISABLE,F_COLLEGA + MESSAGE ENABLE,F_COLLEGA +END + +BUTTON F_COLLEGA 2 1 +BEGIN + PROMPT 74 9 "CG mov." + PICTURE BMP_DARROWR + FLAGS "D" +END + GROUPBOX DLG_NULL 76 3 BEGIN PROMPT 2 10 "@bSomme anticipate/restituite" diff --git a/ha/hamenu.men b/ha/hamenu.men index a789c6bcc..54c2f68fd 100755 --- a/ha/hamenu.men +++ b/ha/hamenu.men @@ -5,6 +5,6 @@ Module = 46 Flags = "F" Item_01 = "Configurazione Hardy", "ha0 -1", "" Item_02 = "Gestione contratti premio", "ha0 -2", "" -Item_03 = "Contabilizzazione contratti premio", "ha0 -3", "" +Item_03 = "Contabilizzazione contratti premio", "ve6 -1", "F" Item_04 = "Generazione NAC", "ha0 -4", "" Item_05 = "Gestione listini", "ve2 -4", "" diff --git a/ha/hatabcom.txt b/ha/hatabcom.txt index ba373ca59..bffdc583b 100755 --- a/ha/hatabcom.txt +++ b/ha/hatabcom.txt @@ -12,7 +12,10 @@ Fields=B6,1|B7,1|B8,1|B9,1|B10,1|B11,1|B12,1|B13,1|B14,1|B15,1 Fields=FPC,1 [Data] -NUM|HCO|Contratto||HCA HCP||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X||||||||||||||| -TIP|HCO|Contratto Hardy||1259||hacontr|hacontr|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| +ELD|HACON|Contabilizzazione contratti premio Hardy||HCA HCR||5|HCO|HCO|22|HCA|5|||3||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| +NUM|HCO|Contratto premio||HCA HCP HCR||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||X|||X|| || | | | | | | +TIP|HCA|Contratto premio cliente ANTICIPATO||1255 1 1 1||pippo|hacontr|PAN||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| +TIP|HCR|Contratto premio cliente RIFATTURAZIONE||1255 1 1 1||pippo|hacontr|PAN||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| +TIP|HCP|Contratto premio cliente POSTICIPATO||||pippo|hacontr|PPO||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| TRI|H01|Merce|||||||M|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| TRI|H02|Somma anticipata|||||||S||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||