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

Patch level : 12.0 380

Browse Source 
Files correlati     : mr0.exe mr0400a.umlmr1.exe mr2.exe

Corretta la ricerca dei prezzi per gli ordini a fornitore.
resa opzionale l'uso della giacenza reale (corretta).

git-svn-id: svn://10.65.10.50/branches/R_10_00@23746 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-04-18 22:10:18 +00:00
parent 3cd1844180
commit 8dfedc0dd2
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/mr/mrplib.cpp
View File

@ -12,6 +12,7 @@
#include <clifo.h>
#include <cfven.h>
#include "..\mg\anamag.h"
//***********************************
@ -1423,7 +1424,6 @@ void find_price(const TString &tipocv, const TString &codcv, const TString &codc
{
static TCondizione_vendita *_condv =NULL;
bool retry=true;
if (_condv == NULL)
_condv = new TCondizione_vendita(new TConfig (CONFIG_DITTA));
@ -1450,21 +1450,16 @@ void find_price(const TString &tipocv, const TString &codcv, const TString &codc
}
_condv->put_condv(tipocv,cod,codcatven, tipocf, strcodcf);
if (_condv->ricerca(codice, qta))
{
price = _condv->get_prezzo();
retry = false;
}
}
break;
default:
break;
}
if (retry)
{
TToken_string key(codice);
key.add(1);
price = cache().get(LF_UMART,key).get_real(UMART_PREZZO);
}
if (price == ZERO)
price = cache().get(LF_ANAMAG,codice).get_real(ANAMAG_ULTCOS1);
if (price == ZERO)
price = cache().get(LF_ANAMAG,codice).get_real(ANAMAG_ULTCOS2);
}
void TProduzione::init()