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 <clifo.h>
#include <cfven.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; static TCondizione_vendita *_condv =NULL;
bool retry=true;
if (_condv == NULL) if (_condv == NULL)
_condv = new TCondizione_vendita(new TConfig (CONFIG_DITTA)); _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); _condv->put_condv(tipocv,cod,codcatven, tipocf, strcodcf);
if (_condv->ricerca(codice, qta)) if (_condv->ricerca(codice, qta))
{
price = _condv->get_prezzo(); price = _condv->get_prezzo();
retry = false;
}
} }
break; break;
default: default:
break; break;
} }
if (retry) if (price == ZERO)
{ price = cache().get(LF_ANAMAG,codice).get_real(ANAMAG_ULTCOS1);
TToken_string key(codice); if (price == ZERO)
key.add(1); price = cache().get(LF_ANAMAG,codice).get_real(ANAMAG_ULTCOS2);
price = cache().get(LF_UMART,key).get_real(UMART_PREZZO);
}
} }
void TProduzione::init() void TProduzione::init()