From 85fc022fbf7b681dd2bc806ade5f63479a3d0ba2 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 25 Jun 2009 15:38:57 +0000 Subject: [PATCH] Patch level : 10.0 358 Files correlati : ba3.exe Ricompilazione Demo : [ ] Commento MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Bug 0001350 cg5.exe -1 - Paramtri di contabilità Lanciando il pgm Parametri ditta e poi premendo "FINE" evidenzia qs errore: "Non esiste probabilmente nessun libro giornale per l'anno 2009" . La base dati in oggetto è:FRATELLIALDROVANDI; è stata posta nell'area FTP nella cartella Ilaria. In riferimento a qs errore, verificando i registri inseriti, scorro con i pulsanti avanti e indietro l'anno 2009, mi si blocca sul registro degli acquisti, anno 2009, premendo FINE evidenzia l'errore "Attività non prevista per questa ditta". L'attività pero' esiste..... git-svn-id: svn://10.65.10.50/trunk@19079 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg5100.cpp | 34 +++++++++++++++++----------------- cg/cgtbreg.uml | 2 +- 2 files changed, 18 insertions(+), 18 deletions(-) diff --git a/cg/cg5100.cpp b/cg/cg5100.cpp index 59262c3f0..9cc22ecc2 100755 --- a/cg/cg5100.cpp +++ b/cg/cg5100.cpp @@ -4,6 +4,7 @@ #include #include #include +#include #include @@ -58,36 +59,35 @@ void TParametri_ditta::check_registers(int year) const byte R_ALL = R_ACQ | R_VEN; TRelation relreg("REG"); TRectype & reg = relreg.curr(); - bool is_giornale = FALSE; + bool is_giornale = false; for (int i = 0; i < _atts.items(); i++) { byte flags = 0x00; const TString& att = (TString&)_atts[i]; - TString filter; reg.put("CODTAB", year); - filter.format("(S8==\"\")||(S8==\"%s\")", (const char *) att); - TCursor cur(&relreg, filter, 1, ®, ®); + TCursor cur(&relreg, "I0==5", 1, ®, ®); + + is_giornale = cur.items() > 0; + + const TString80 filter(format("(S8==\"\")||(S8==\"%s\")", (const char *) att)); + + cur.setfilter(filter); const TRecnotype items = cur.items(); - cur.freeze(); + for (cur = 0L; (flags != R_ALL || !is_giornale) && (cur.pos() < items); ++cur) { - if (reg.get_int("I0") == 5) - is_giornale = TRUE; - else + switch (reg.get_int("I0")) { - switch (reg.get_int("I0")) - { - case 1: // vendite - flags |= R_VEN; break; - case 2: // acquisti - flags |= R_ACQ; break; - default: - break; - } + case 1: // vendite + flags |= R_VEN; break; + case 2: // acquisti + flags |= R_ACQ; break; + default: + break; } } if (flags < R_ALL) diff --git a/cg/cgtbreg.uml b/cg/cgtbreg.uml index abd68a77c..acb4e574f 100755 --- a/cg/cgtbreg.uml +++ b/cg/cgtbreg.uml @@ -159,7 +159,7 @@ STRING F_ATTIVITA 5 BEGIN PROMPT 1 8 "Codice attivita' " FIELD S8 - FLAGS "URZ" + FLAGS "UZ" GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI USE LF_ATTIV INPUT CODDITTA F_CODDITTA SELECT