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@23742 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2017-04-18 13:46:31 +00:00
parent c9458c893f
commit 21f9211db8
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mg/mglib.h
View File

@ -263,8 +263,8 @@ public:
void put_ultimo_costo(const real& costo, const TDate& data);
void put_costo_standard(const real& costo);
real giacenza_anno(const char* codmag, const char* livello, int anno) const;
real scorta_minima(const char* codmag, const char* livello, int anno=0, bool liv_riordino=FALSE) const;
real giacenza_anno(const char* codmag, const char* livello, int anno, bool giac_eff = false) const;
real scorta_minima(const char* codmag, const char* livello, int anno=0, bool liv_riordino = false) const;
long lead_time(const char* codmag, const char* livello, int anno=0) const;
TArticolo_giacenza(const char* codice = NULL);

8
src/mg/mglib02.cpp
View File

@ -1482,7 +1482,7 @@ real TArticolo_giacenza::giacenza_corretta(const TRectype& rec, bool giac_eff, b
return giacenza;
}
real TArticolo_giacenza::giacenza_anno(const char* codmag, const char* livello, int anno) const
real TArticolo_giacenza::giacenza_anno(const char* codmag, const char* livello, int anno, bool giac_eff) const
{
TString4 annoes;
if (anno > 0)
@ -1494,8 +1494,14 @@ real TArticolo_giacenza::giacenza_anno(const char* codmag, const char* livello,
i = find_mag(annoes, codmag, livello, i))
{
const TRectype& rec = rmag.row(i);
if (!rec.get(MAG_CODMAG).empty())
giac += rec.get_real(MAG_GIAC);
if (giac_eff)
{
giac -= rec.get_real(MAG_INCL);
giac += rec.get_real(MAG_ACL);
}
}
return giac;
}