root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 358

Browse Source 
Files correlati     : ba3.exe
Ricompilazione Demo : [ ]
Commento

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
This commit is contained in:
alex 2009-06-25 15:38:57 +00:00
parent c9da0b30fd
commit 85fc022fbf
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
cg/cg5100.cpp
View File

@ -4,6 +4,7 @@
#include <prefix.h>
#include <relation.h>
#include <tabutil.h>
#include <utility.h>
#include <attiv.h>
@ -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, &reg, &reg);
TCursor cur(&relreg, "I0==5", 1, &reg, &reg);
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)

2
cg/cgtbreg.uml
View File

@ -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