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

Patch level : 10.0 patch 639

Browse Source 
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:
luca83 2010-02-13 08:25:40 +00:00
parent 0c2c76d65a
commit 0631df7108
3 changed files with 36 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lv/lv3100.cpp
View File

@ -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();
} }

12
lv/lv3300.cpp
View File

@ -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 )

7
lv/verig24.uml
View File

@ -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