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:
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:
|
||||
|
Loading…
x
Reference in New Issue
Block a user