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

Patch level : 10.0 226

Browse Source 
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:
alex 2009-02-18 00:11:51 +00:00
parent de7504bdc7
commit fb4dd2eac4
1 changed files with 44 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
m770/770100.cpp
View File

@ -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())
{