Page 1 of 1

finditem something in bank

Posted: 27.11.2013 11:49
by mixers

Code: Select all

Program New;
 const
   book = $2252;
begin
 //Body of Script   
//findtypeex(book,$0000,banklayer,false);
findtype(book,banklayer);
countex(book,$0000,banklayer);
addtosystemjournal(inttostr(FindQuantity));
end.
findquantity value is 0

Re: finditem something in bank

Posted: 27.11.2013 17:20
by drabadan
mixers wrote:

Code: Select all

Program New;
 const
   book = $2252;
begin
 //Body of Script   
//findtypeex(book,$0000,banklayer,false);
findtype(book,banklayer);
countex(book,$0000,banklayer);
addtosystemjournal(inttostr(FindQuantity));
end.
findquantity value is 0

Code: Select all

findtype(book,ObjAtLayer(banklayer));

Re: finditem something in bank

Posted: 27.11.2013 17:27
by Vizit0r
ObjAtLayer(banklayer) not always return real bank container. Sometimes (really, not often) it can differ.

Re: finditem something in bank

Posted: 29.11.2013 16:04
by Crome696
Take Info from Item in Bank and Check Parent may help ( untested ) Then you have ID of BankContainer..

Re: finditem something in bank

Posted: 30.11.2013 16:23
by Vizit0r
Crome696 wrote:Take Info from Item in Bank and Check Parent may help ( untested ) Then you have ID of BankContainer..
yes, that is much better way.

Code: Select all

if GetParent(ItemID) > 0 then
  BankBox := GetParent(ItemID;