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

Corretto errore MI1069.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2863 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-05-20 13:47:51 +00:00
parent 0dce6abfa5
commit d9425ffdaa
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg1303.cpp
View File

@ -2,6 +2,7 @@
//* Rinumerazione numero protocollo *
//***********************************
#include <mov.h>
#include <partite.h>
#include "cg1300.h"
#include "cg1303.h"
@ -64,8 +65,14 @@ bool TAgg_nprot::menu(MENU_TAG m)
int TAgg_nprot::rinumera_prot()
{
TConfig cnf(CONFIG_DITTA,"cg");
const bool sc_enabled = cnf.get_bool("GesSal");
TRelation rel (LF_MOV);
rel.add(LF_PARTITE,"NREG=NUMREG",2);
TLocalisamfile& mov = rel.lfile();
TLocalisamfile& part= rel.lfile(LF_PARTITE);
//TString80 filter;
//filter.format("ANNOIVA=%04d && REG=\"%s\"", _anno, (const char*)_reg);
@ -126,6 +133,13 @@ int TAgg_nprot::rinumera_prot()
mov.put(MOV_PROTIVA, nprot);
mov.put(MOV_UPROTIVA, uprot);
mov.rewrite();
// Aggiorna il nr di prot. iva sul file partite
if (sc_enabled && rel.is_first_match(LF_PARTITE))
do
{
part.put(PART_PROTIVA,nprot);
part.rewrite();
} while (rel.next_match(LF_PARTITE));
}
TTable reg("REG");