Patch level : 5.0 1226

Files correlati     : 770.exe
Ricompilazione Demo : [ ]
Commento            :

Aggiunto il numero movimento al collegamento contabile per le fatture


git-svn-id: svn://10.65.10.50/trunk@18298 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-02-19 11:03:54 +00:00
parent 6883f6a531
commit 0490cc240f

@ -183,16 +183,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
// istanza e inizializza chiave file schede
TLocalisamfile scperc(LF_SCPERC);
scperc.put("CODDITTA", codditta);
scperc.put("TIPOA", tipoa);
scperc.put("CODANAGR", codanagr);
// istanza record di confronto
TRectype rec(scperc.curr());
// cerca ultimo progressivo usato
// e per tipo collegamento variazione
// individuo eventuale scheda coincidente
bool trovato = false;
const long numreg = app().coll_numreg();
if (numreg > 0L)
@ -207,7 +198,9 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
trovato = true;
}
}
if (!trovato)
if (trovato)
m.set(F_NPROG, nprog + 1);
else
{
scperc.put("CODDITTA", codditta);
scperc.put("TIPOA", tipoa);
@ -219,7 +212,6 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
// cerca ultimo progressivo usato
// e per tipo collegamento variazione
// individuo eventuale scheda coincidente
bool trovato = FALSE;
for (scperc.read(_isgteq); scperc.good() && scperc.curr() == rec && !trovato; scperc.next())
{
nprog = scperc.get_long("NPROG");
@ -232,10 +224,8 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
trovato = ((numdoc == app()._coll._numdoc) && (datadoc == app()._coll._datadoc));
}
}
m.set(F_NPROG, nprog + 1);
}
m.set(F_NPROG, trovato ? nprog : nprog+1);
}
return variazione ? trovato : true;
}
@ -642,7 +632,6 @@ void TSchedaPercipienti::compila_testata(TMask& m)
m.set(F_COMPENS, _coll._compenso.string());
m.set(F_NUMREG, _coll._numreg);
switch (tipo_coll())
{
case occasionale: