From 11b36f4bf2b7d79e5b987ddfd3faf0ca0a79422a Mon Sep 17 00:00:00 2001 From: guy Date: Fri, 9 May 2003 14:18:04 +0000 Subject: [PATCH] Patch level : 2.0 470 Files correlati : cg0.exe cg2.exe cg3.exe cg3700a.msk Ricompilazione Demo : [ ] Commento : CM20023 Se apro la ricerca sul tipo costo ricavo della riga Iva e poi dall'help richiamo le informazioni e do conferma, riaprendo la ricerca sul campo tipo costo ricavo l'applicazione va in errore. CM20024 Se i campi delle date sono di compilazione obbligatoria devono avere il colore giallo. CM20025 Richiamando gruppo conto appartenete ai costi appare il campo della sola descrizione del codice iva di compensazione. Ricordo che il campo del codice e della descrizione per la compensazione devono apparire solo nel caso in cui venga richiamato un sottoconto di tipo ricavo. CM20027 I totali attuali in presenza di movimenti provvisori non sono corretti in quanto non vengono inclusi. I movimenti appartengono tutti all'anno 2002. git-svn-id: svn://10.65.10.50/trunk@11112 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg0100.cpp | 26 +++++++++++--------------- cg/cg2102.cpp | 8 ++++---- cg/cg3600.cpp | 15 ++++++++++----- cg/cg3700.cpp | 19 ++++--------------- cg/cg3700a.uml | 4 ++++ 5 files changed, 33 insertions(+), 39 deletions(-) diff --git a/cg/cg0100.cpp b/cg/cg0100.cpp index 6c6916265..f509633bd 100755 --- a/cg/cg0100.cpp +++ b/cg/cg0100.cpp @@ -207,22 +207,16 @@ void TCausali_app::init_insert_mode(TMask& m) else m.hide(-3); - TLocalisamfile& pconti = _rel->lfile(); TString s, s2, s5; TString8 s3, s4; int s1 = 0; - - pconti.setkey(1) ; - int indbil = 0; if (sottoc != 0) { - pconti.zero(); - pconti.put(PCN_GRUPPO, gruppo); - pconti.put(PCN_CONTO, conto); - pconti.read(); - if (pconti.good()) + TToken_string key; key.add(gruppo); key.add(conto); + const TRectype& pconti = cache().get(LF_PCON, key); + if (!pconti.empty()) { s = pconti.get(PCN_CODCBL); s1 = pconti.get_int(PCN_SEZIVD); @@ -237,13 +231,13 @@ void TCausali_app::init_insert_mode(TMask& m) if (!s4.empty()) s4.right_just(2,'0'); - TString8 key; key.format("%1d%1s%s%s", s1, (const char*) s2,(const char*) s3, (const char*) s4); s5 = cache().get("%IVD", key, "S0"); // indbil = pconti.get_int(PCN_INDBIL); } ivd_enable = (s1 == 0) && s2.empty() && s3.empty() && s4.empty(); m.show(FLD_CM1_IVACOMP, indbil == RICAVI); + m.show(FLD_CM1_DESCIVACOMP, indbil == RICAVI); } m.show(FLD_CM1_RICSER, indbil == PASSIVITA || indbil == RICAVI); if (conto != 0) @@ -270,11 +264,13 @@ void TCausali_app::init_insert_mode(TMask& m) m.show(FLD_CM1_NUMRIVDH, !ivd_enable); m.show(FLD_CM1_NUMIVDH, !ivd_enable); m.show(FLD_CM1_DESCIVDH, !ivd_enable); // - pconti.zero(); - pconti.put(PCN_GRUPPO, gruppo); - pconti.read(); - if (pconti.good()) - if (s.empty()) s = pconti.get(PCN_CODCBL); + + if (s.empty()) + { + TToken_string key; key.add(gruppo); + const TRectype& pconti = cache().get(LF_PCON, key); + s = pconti.get(PCN_CODCBL); + } } if (s.not_empty()) { diff --git a/cg/cg2102.cpp b/cg/cg2102.cpp index ca0c7e452..b637e8f82 100755 --- a/cg/cg2102.cpp +++ b/cg/cg2102.cpp @@ -1819,8 +1819,8 @@ bool TPrimanota_application::iva_sottoconto_handler(TMask_field& f, KEY key) TString80 cms, fas; if (zio.default_cdc(cms, fas)) { - m.set(111, cms, TRUE); - m.set(112, fas, TRUE); + m.set(111, cms, 0x2); + m.set(112, fas, 0x2); } } TToken_string k = zio.string(); @@ -1854,8 +1854,8 @@ bool TPrimanota_application::cg_sottoconto_handler(TMask_field& f, KEY k) const TRectype& pc = cache().get(LF_PCON, key); if (k == K_TAB) { - m.set(CG_COMMESSA, pc.get(PCN_CODCMS), TRUE); - m.set(CG_FASE, pc.get(PCN_FASCMS), TRUE); + m.set(CG_COMMESSA, pc.get(PCN_CODCMS), 0x2); + m.set(CG_FASE, pc.get(PCN_FASCMS), 0x2); } if (k == K_ENTER && cdc.empty() && pc.get_bool(PCN_CMSNEEDED)) { diff --git a/cg/cg3600.cpp b/cg/cg3600.cpp index e23adee3c..8377c8e68 100755 --- a/cg/cg3600.cpp +++ b/cg/cg3600.cpp @@ -447,6 +447,11 @@ void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provv TImporto si, sf, pd, pa, prd, pra; find(b, esercizio, si, pd, pa, sf, prd, pra); + if (provvis) + { + pd += prd; + pa += pra; + } _saldo_ini = si; _progr_dare = pd; _progr_avere = pa; @@ -461,15 +466,15 @@ void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provv const int precedente = esercizi.pred(esercizio); if (precedente > 0 && find(b, precedente, si, pd, pa, sf, prd, pra)) { + if (provvis) + { + pd += prd; + pa += pra; + } _saldo_ini = si; _saldo_ini += pd; _saldo_ini += pa; _saldo_ini += sf; - if (provvis) - { - _saldo_ini += prd; - _saldo_ini += pra; - } } } } diff --git a/cg/cg3700.cpp b/cg/cg3700.cpp index c63739c77..48385f505 100755 --- a/cg/cg3700.cpp +++ b/cg/cg3700.cpp @@ -5,7 +5,6 @@ // CG3 -6 N ==> Lista fatture intracomunitarie // #include -#include #include #include #include @@ -116,8 +115,7 @@ inline TLista_fatture& app() { return (TLista_fatture&) main_app(); } int TLista_fatture::tiporeg(const TString& reg) { - TString16 s; s.format("%4d%-3s",_date_from.year(),(const char*)reg); - + TString8 s; s.format("%4d%-3s",_date_from.year(),(const char*)reg); return atoi(cache().get("REG", s).get("I0")); } @@ -130,7 +128,7 @@ bool TLista_fatture::filter_func1(const TRelation *r) if (data < a._date_from || data > a._date_to) return FALSE; - const TString16 rg = mov.get(MOV_REG); + const TString& rg = mov.get(MOV_REG); if (rg < a._from_reg || rg > a._to_reg) return FALSE; @@ -175,20 +173,11 @@ bool TLista_fatture::filter_func2(const TRelation *r) bool TLista_fatture::date_handler(TMask_field& f, KEY key) { - if (key == K_ENTER && f.empty()) - { - if (f.dlg() == FLD_DATE_FROM) - return f.error_box(TR("La data di inizio e' obbligatoria.")); - else - return f.error_box(TR("La data di fine e' obbligatoria.")); - } - if ((key == K_TAB && f.focusdirty()) || key == K_ENTER) { TMask& m = f.mask(); - TDate da(m.get_date(FLD_DATE_FROM)); - TDate a(m.get_date(FLD_DATE_TO)); - + const TDate da(m.get_date(FLD_DATE_FROM)); + const TDate a(m.get_date(FLD_DATE_TO)); if (a.ok() && da.ok()) // Solo se sono entrambi compilati { if (da > a) diff --git a/cg/cg3700a.uml b/cg/cg3700a.uml index cad532626..303157a81 100755 --- a/cg/cg3700a.uml +++ b/cg/cg3700a.uml @@ -5,11 +5,15 @@ PAGE "Lista fatture per IVA indetraibile" -1 -1 68 10 DATE FLD_DATE_FROM BEGIN PROMPT 1 2 "Dalla data " + CHECKTYPE REQUIRED + WARNING "La data iniziale e' obbligatoria." END DATE FLD_DATE_TO BEGIN PROMPT 1 3 "Alla data " + CHECKTYPE REQUIRED + WARNING "La data finale e' obbligatoria." END GROUPBOX DLG_NULL 40 5