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

Patch level :10.0

Browse Source 
Files correlati     :lv3
Ricompilazione Demo : [ ]
Commento            :
0001092: Calcolo conguaglio - 2
Descrizione 	La gestione del conguaglio viene fatta anche nel caso della gestione manuale delle bolle se il conguaglio iniziale è diverso da zero


git-svn-id: svn://10.65.10.50/trunk@18136 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-01-28 10:21:50 +00:00
parent 67b1351f1a
commit 200719f692
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lv/lv3100.cpp
View File

@ -226,6 +226,7 @@ class TGestione_bolle_msk : public TDocumento_mask
long _stcodcf;
long _stcodcont;
int _autoselect;
TToken_string _rigaoriginale;
protected:
static void arrotonda(const TMask& msk, real& quantita);
@ -536,6 +537,37 @@ bool TGestione_bolle_msk::lv_codart_handler(TMask_field& f, KEY k)
}
msk.set(FR_CODAGG1, causale);
if (k == K_ENTER && rcont.get_bool(LVRCONDV_ARROT))
{
TSheet_field* sheet = msk.get_sheet();
TRiga_documento rdoc = dmsk.doc()[sheet->selected()+1];
const real ritor = rdoc.get_real(RDOC_QTAGG4);
const real conor = rdoc.get_real(RDOC_QTAGG3);
const real ritat = msk.get_real(FR_QTAGG1);
const real conat = msk.get_real(FR_QTA);
if (ritor != ritat || conor != conat)
{
const real congor = rcont.get_real(LVRCONDV_QTACONG);
const real congat = conat - ritat + congor;
rdoc.put(RDOC_QTAGG5, congat); //conguaglio dopo modifica manuale
TLocalisamfile rcondv(LF_LVRCONDV);
rcondv.put(LVRCONDV_CODCF,codcf);
rcondv.put(LVRCONDV_CODCONT,cont.get_int(LVCONDV_CODCONT));
rcondv.put(LVRCONDV_CODART,codart);
if (rcondv.read() == NOERR)
{
rcondv.put(LVRCONDV_QTACONG,congat);
rcondv.rewrite();
}
}
}
//controllo se si vuole aggiungere un eventuale nuovo articolo al contratto
if (rcont.empty() &&
yesno_box(TR("L'articolo in esame non fa parte della dotazione standard di questo cliente."