|
|
| Get the value for the specific Item in specific Location |
 |
| ItemCode |
Item code |
| Location |
Item location |
| ISr |
Item status record that will receive the information about the item |
|
global
procedure CreatePORn(record RcVc RepSpec)
BEGIN
record PIVc PIr;
record INVc INr;
record ItemStatusVc ISr;
record ITVc ITp;
Boolean itemout,testf;
Boolean pifound,TrHs,pifound1;
Integer rw,keys;
val t,t1,t2;
string 255 tstr;
string 5 vatc;
string 255 fromart,toart;
string 255 frcc,tocc;
string 255 lastgroup;
string 255 ckey;
string 255 namestr;
val minlevel;
// -- //
GetStockValue(INr.Code,RepSpec.FirstAcc,ISr);
t2 = ISr.Instock - ISr.OrddOut + ISr.POUnOKQty - ISr.ProdOrd;
// -- //
««