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

Patch level :10.0 370

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001391: CG + GC - conversione
Descrizione  Avendo i moduli CG + GC la conversione dovrebbe cancellare dal file TAB i record relativi alla tabella CMS .
Rif.base dati - BORGOA8
Rif. contatto - Luca Torregiani


git-svn-id: svn://10.65.10.50/trunk@19109 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-07-14 10:19:47 +00:00
parent 5ffcd49770
commit bb5a0acaee
1 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ca/cacnv.cpp
View File

@ -45,6 +45,23 @@ bool TConversione_anal_msk::on_field_event(TOperable_field& o, TField_event e, l
{
switch (o.dlg())
{
case F_TABELLE:
//al caricamento della maschera, se il file delle commesse analitiche (LF_COMMESSE) è vuoto, prespunta il flag..
//..e impedisce il trasferimento definitivo dei movimenti, che si troverebbero ad avere delle commesse sulle righe..
//..senza alcun riferimento!
if (e == fe_init)
{
TLocalisamfile commesse(LF_COMMESSE);
const long items = commesse.items();
if (items == 0)
{
o.set("X");
disable(F_TIPOCONV);
}
else
enable(F_TIPOCONV);
}
break;
case F_DATAINI:
if (e == fe_init)
{
@ -112,6 +129,7 @@ public:
bool convert_phases();
bool set_anal();
void kill_temp_movana(TConversione_anal_msk& mask);
void kill_old_tabs(const TString& tab);
bool convert_movs(TConversione_anal_msk& mask);
TConversione_cm2ca() {}
@ -693,6 +711,20 @@ void TConversione_cm2ca::kill_temp_movana(TConversione_anal_msk& mask)
}
}
void TConversione_cm2ca::kill_old_tabs(const TString& tab)
{
//cancella la tabella commesse
TRelation rel_cms(tab);
TCursor cur_cms(&rel_cms);
const long items_cms = cur_cms.items();
if (items_cms > 0)
{
cur_cms.freeze();
for (cur_cms = 0; cur_cms.pos() < items_cms; ++cur_cms)
cur_cms.file().remove();
}
}
bool TConversione_cm2ca::convert_movs(TConversione_anal_msk& mask)
{
//ammazza tutti i movimenti di tipo "trasferito" provenienti da precedenti trasferimenti provvisori, tenendo..
@ -763,6 +795,14 @@ bool TConversione_cm2ca::convert_movs(TConversione_anal_msk& mask)
}
}
} //end if(rmov_items>0)
//alla fine della fiera, in caso di trasferimento definitivo, elimina le commesse dalla vecchia tabella CMS e ..
//..le fasi dalla tabella FSC
if (definitiva)
{
kill_old_tabs("FSC");
kill_old_tabs("CMS");
}
return true;
}