Patch level : 10.0 patch 639
Files correlati : lv3 verig 24 Ricompilazione Demo : [ ] Commento : Corretto calcolo conguaglio git-svn-id: svn://10.65.10.50/trunk@20113 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
0c2c76d65a
commit
0631df7108
@ -1218,7 +1218,6 @@ void TGestione_bolle_app::salva_conguaglio( const TMask& m)
|
|||||||
const real conat = rdoc.get_real(RDOC_QTA);
|
const real conat = rdoc.get_real(RDOC_QTA);
|
||||||
rdoc.put(RDOC_QTAGG4, ritat);
|
rdoc.put(RDOC_QTAGG4, ritat);
|
||||||
rdoc.put(RDOC_QTAGG3, conat);
|
rdoc.put(RDOC_QTAGG3, conat);
|
||||||
|
|
||||||
}
|
}
|
||||||
rcondv.rewrite();
|
rcondv.rewrite();
|
||||||
}
|
}
|
||||||
|
@ -735,9 +735,8 @@ bool TGestione_buoni_msk::pre_codart_handler(TMask_field& f, KEY k)
|
|||||||
{
|
{
|
||||||
const real congor = rcont.get_real(LVRCONDV_QTACONG);
|
const real congor = rcont.get_real(LVRCONDV_QTACONG);
|
||||||
|
|
||||||
const real congat = conat - ritat + congor;
|
const real congat = conat - conor - ritat + ritor + congor;
|
||||||
|
msk.set(FR_QTAGG5, congat);
|
||||||
rdoc.put(RDOC_QTAGG5, congat); //conguaglio dopo modifica manuale
|
|
||||||
|
|
||||||
TLocalisamfile rcondv(LF_LVRCONDV);
|
TLocalisamfile rcondv(LF_LVRCONDV);
|
||||||
rcondv.put(LVRCONDV_CODCF,codcf);
|
rcondv.put(LVRCONDV_CODCF,codcf);
|
||||||
@ -1177,6 +1176,8 @@ void TGestione_buoni_app::elimina_vuote( const TMask& m)
|
|||||||
}
|
}
|
||||||
|
|
||||||
void TGestione_buoni_app::salva_conguaglio( const TMask& m)
|
void TGestione_buoni_app::salva_conguaglio( const TMask& m)
|
||||||
|
{
|
||||||
|
if (ini_get_bool(CONFIG_DITTA, "lv", "Aggcong"))
|
||||||
{
|
{
|
||||||
TDocumento_mask& mask = (TDocumento_mask&) m;
|
TDocumento_mask& mask = (TDocumento_mask&) m;
|
||||||
TDocumento& d = mask.doc();
|
TDocumento& d = mask.doc();
|
||||||
@ -1199,9 +1200,14 @@ void TGestione_buoni_app::salva_conguaglio( const TMask& m)
|
|||||||
rcondv.put(LVRCONDV_CODART, rdoc.get(RDOC_CODART));
|
rcondv.put(LVRCONDV_CODART, rdoc.get(RDOC_CODART));
|
||||||
if (rcondv.read() == NOERR)
|
if (rcondv.read() == NOERR)
|
||||||
rcondv.put(LVRCONDV_QTACONG, rdoc.get_real(RDOC_QTAGG5));
|
rcondv.put(LVRCONDV_QTACONG, rdoc.get_real(RDOC_QTAGG5));
|
||||||
|
const real ritat = rdoc.get_real(RDOC_QTAGG1);
|
||||||
|
const real conat = rdoc.get_real(RDOC_QTA);
|
||||||
|
rdoc.put(RDOC_QTAGG4, ritat);
|
||||||
|
rdoc.put(RDOC_QTAGG3, conat);
|
||||||
}
|
}
|
||||||
rcondv.rewrite();
|
rcondv.rewrite();
|
||||||
}
|
}
|
||||||
|
}
|
||||||
|
|
||||||
//ridefinisco il metodo write delle TMotore_application
|
//ridefinisco il metodo write delle TMotore_application
|
||||||
int TGestione_buoni_app::write( const TMask& m )
|
int TGestione_buoni_app::write( const TMask& m )
|
||||||
|
@ -461,6 +461,13 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
NUMBER FR_QTAGG5 6 0
|
||||||
|
BEGIN
|
||||||
|
PROMPT 60 20 "Cong. "
|
||||||
|
FLAGS "H"
|
||||||
|
FIELD QTAGG5
|
||||||
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Analitica" 0 2 0 0
|
PAGE "Analitica" 0 2 0 0
|
||||||
|
Loading…
x
Reference in New Issue
Block a user