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 // istanza e inizializza chiave file schede
TLocalisamfile scperc(LF_SCPERC); TLocalisamfile scperc(LF_SCPERC);
scperc.zero();
scperc.put("CODDITTA", codditta); scperc.put("CODDITTA", codditta);
scperc.put("TIPOA", tipoa); scperc.put("TIPOA", tipoa);
scperc.put("CODANAGR", codanagr); scperc.put("CODANAGR", codanagr);
@ -194,23 +193,51 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
// cerca ultimo progressivo usato // cerca ultimo progressivo usato
// e per tipo collegamento variazione // e per tipo collegamento variazione
// individuo eventuale scheda coincidente // individuo eventuale scheda coincidente
bool trovato = FALSE; bool trovato = false;
for (scperc.read(_isgteq); scperc.good() && scperc.curr() == rec && !trovato; scperc.next()) const long numreg = app().coll_numreg();
{ if (numreg > 0L)
nprog = scperc.get_long("NPROG"); {
if (variazione) scperc.setkey(3);
{ scperc.put(SPR_CODDITTA, prefix().get_codditta());
TString16 numdoc,datadoc; scperc.put(SPR_NUMREG, numreg);
numdoc = scperc.get("NUMDOC");
numdoc.trim(); if (scperc.read(_isgteq) == NOERR && scperc.get_long(SPR_NUMREG) == numreg)
datadoc = scperc.get("DATADOC"); {
trovato = ((numdoc == app()._coll._numdoc) && (datadoc == app()._coll._datadoc)); 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); 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) 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_IVA, _coll._imposte.string());
m.set(F_SPESE, _coll._spese.string()); m.set(F_SPESE, _coll._spese.string());
m.set(F_COMPENS, _coll._compenso.string()); m.set(F_COMPENS, _coll._compenso.string());
m.set(F_NUMREG, _coll._numreg);
switch (tipo_coll()) switch (tipo_coll())
{ {