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

Patch level : 10.0 278

Browse Source 
Files correlati     : m770.exe
Ricompilazione Demo : [ ]
Commento            :

Corretto collegamento al 770


git-svn-id: svn://10.65.10.50/trunk@18661 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-04-02 23:29:34 +00:00
parent ef0d3f189b
commit ad9ffaad02
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
m770/770100.cpp
View File

@ -179,7 +179,7 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
// Scrivi nprog solo se il percipiente ESISTE sull'arkivio
if (!app().esiste_perc(m, codanagr))
return TRUE;
return true;
// istanza e inizializza chiave file schede
TLocalisamfile scperc(LF_SCPERC);
@ -194,14 +194,14 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
if (scperc.read(_isgteq) == NOERR && scperc.get_long(SPR_NUMREG) == numreg)
{
m.set(F_NPROG, scperc.get_int(SPR_NPROG));
nprog = scperc.get_int(SPR_NPROG);
trovato = true;
}
scperc.setkey(1);
}
if (trovato)
m.set(F_NPROG, nprog + 1);
else
if (!trovato)
{
scperc.zero();
scperc.put("CODDITTA", codditta);
scperc.put("TIPOA", tipoa);
scperc.put("CODANAGR", codanagr);
@ -224,10 +224,12 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
trovato = ((numdoc == app()._coll._numdoc) && (datadoc == app()._coll._datadoc));
}
}
m.set(F_NPROG, trovato ? nprog : nprog+1);
}
if (!trovato)
nprog = nprog++;
m.set(F_NPROG, nprog);
return variazione ? trovato : true;
return trovato;
}
bool TSchedaPercipienti::codditta_handler(TMask_field& f, KEY k)