Corretto errore MI1069.
git-svn-id: svn://10.65.10.50/trunk@2863 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
0dce6abfa5
commit
d9425ffdaa
@ -2,6 +2,7 @@
|
|||||||
//* Rinumerazione numero protocollo *
|
//* Rinumerazione numero protocollo *
|
||||||
//***********************************
|
//***********************************
|
||||||
#include <mov.h>
|
#include <mov.h>
|
||||||
|
#include <partite.h>
|
||||||
#include "cg1300.h"
|
#include "cg1300.h"
|
||||||
#include "cg1303.h"
|
#include "cg1303.h"
|
||||||
|
|
||||||
@ -64,8 +65,14 @@ bool TAgg_nprot::menu(MENU_TAG m)
|
|||||||
|
|
||||||
int TAgg_nprot::rinumera_prot()
|
int TAgg_nprot::rinumera_prot()
|
||||||
{
|
{
|
||||||
|
TConfig cnf(CONFIG_DITTA,"cg");
|
||||||
|
const bool sc_enabled = cnf.get_bool("GesSal");
|
||||||
|
|
||||||
TRelation rel (LF_MOV);
|
TRelation rel (LF_MOV);
|
||||||
|
rel.add(LF_PARTITE,"NREG=NUMREG",2);
|
||||||
|
|
||||||
TLocalisamfile& mov = rel.lfile();
|
TLocalisamfile& mov = rel.lfile();
|
||||||
|
TLocalisamfile& part= rel.lfile(LF_PARTITE);
|
||||||
|
|
||||||
//TString80 filter;
|
//TString80 filter;
|
||||||
//filter.format("ANNOIVA=%04d && REG=\"%s\"", _anno, (const char*)_reg);
|
//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_PROTIVA, nprot);
|
||||||
mov.put(MOV_UPROTIVA, uprot);
|
mov.put(MOV_UPROTIVA, uprot);
|
||||||
mov.rewrite();
|
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");
|
TTable reg("REG");
|
||||||
|
Loading…
x
Reference in New Issue
Block a user