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 // Scrivi nprog solo se il percipiente ESISTE sull'arkivio
if (!app().esiste_perc(m, codanagr)) if (!app().esiste_perc(m, codanagr))
return TRUE; return true;
// istanza e inizializza chiave file schede // istanza e inizializza chiave file schede
TLocalisamfile scperc(LF_SCPERC); 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) 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; trovato = true;
} }
scperc.setkey(1);
} }
if (trovato) if (!trovato)
m.set(F_NPROG, nprog + 1);
else
{ {
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);
@ -224,10 +224,12 @@ bool TSchedaPercipienti::setta_nprog(TMask& m, const bool variazione, const char
trovato = ((numdoc == app()._coll._numdoc) && (datadoc == app()._coll._datadoc)); 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) bool TSchedaPercipienti::codditta_handler(TMask_field& f, KEY k)