Patch level : 10.0 226
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@18290 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
de7504bdc7
commit
fb4dd2eac4
@ -183,7 +183,6 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
|
||||
|
||||
// istanza e inizializza chiave file schede
|
||||
TLocalisamfile scperc(LF_SCPERC);
|
||||
scperc.zero();
|
||||
scperc.put("CODDITTA", codditta);
|
||||
scperc.put("TIPOA", tipoa);
|
||||
scperc.put("CODANAGR", codanagr);
|
||||
@ -194,23 +193,51 @@ 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");
|
||||
if (variazione)
|
||||
{
|
||||
TString16 numdoc,datadoc;
|
||||
numdoc = scperc.get("NUMDOC");
|
||||
numdoc.trim();
|
||||
datadoc = scperc.get("DATADOC");
|
||||
trovato = ((numdoc == app()._coll._numdoc) && (datadoc == app()._coll._datadoc));
|
||||
}
|
||||
}
|
||||
bool trovato = false;
|
||||
const long numreg = app().coll_numreg();
|
||||
if (numreg > 0L)
|
||||
{
|
||||
scperc.setkey(3);
|
||||
scperc.put(SPR_CODDITTA, prefix().get_codditta());
|
||||
scperc.put(SPR_NUMREG, numreg);
|
||||
|
||||
if (scperc.read(_isgteq) == NOERR && scperc.get_long(SPR_NUMREG) == numreg)
|
||||
{
|
||||
m.set(F_NPROG, scperc.get_int(SPR_NPROG));
|
||||
trovato = true;
|
||||
}
|
||||
}
|
||||
if (!trovato)
|
||||
{
|
||||
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;
|
||||
for (scperc.read(_isgteq); scperc.good() && scperc.curr() == rec && !trovato; scperc.next())
|
||||
{
|
||||
nprog = scperc.get_long("NPROG");
|
||||
if (variazione)
|
||||
{
|
||||
TString16 numdoc,datadoc;
|
||||
numdoc = scperc.get("NUMDOC");
|
||||
numdoc.trim();
|
||||
datadoc = scperc.get("DATADOC");
|
||||
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;
|
||||
return variazione ? trovato : TRUEtrue;
|
||||
}
|
||||
|
||||
bool TSchedaPercipienti::codditta_handler(TMask_field& f, KEY k)
|
||||
@ -613,6 +640,8 @@ void TSchedaPercipienti::compila_testata(TMask& m)
|
||||
m.set(F_IVA, _coll._imposte.string());
|
||||
m.set(F_SPESE, _coll._spese.string());
|
||||
m.set(F_COMPENS, _coll._compenso.string());
|
||||
m.set(F_NUMREG, _coll._numreg);
|
||||
|
||||
|
||||
switch (tipo_coll())
|
||||
{
|
||||
|
Loading…
x
Reference in New Issue
Block a user