| Boolean GetItemPriceDiscount3 |
( |
| string item_code,val qtp,var record INVc INr,string crncycode,val frrate, |
| val torate1,val torate2,val basrate1,val basrate2,string langcode, |
| string custcat,string pricelist,string rebcode,var val price,var string descstr, |
| var val discount,var string vatcode,var val basepricep,var string salesacc,integer aexport, |
| var boolean calcpricef,date tdp,string custcode,boolean forcepropervar) |
|
|
|
| Finds the price for an item. |
 |
| item_code |
|
| qtp |
|
| INr |
|
| crncycode |
|
| frrate |
|
| torate1 |
|
| torate2 |
|
| basrate1 |
|
| basrate2 |
|
| langcode |
|
| custcat |
|
| pricelist |
|
| rebcode |
|
| price |
|
| descstr |
|
| discount |
|
| vatcode |
|
| basepricep |
|
| salesacc |
|
| aexport |
|
| calcpricef |
|
| tdp |
|
| custcode |
|
| forcepropervar |
|
|
if (GetItemPriceDiscount3(IN2r.Code,1,IN2r,CUr.CurncyCode,0,0,0,0,0,
CUr.LangCode,CUr.CustCat,CUr.PLCode,CUr.RebCode,
price,curitemname,reb,vatcode,cost,salesacc,
CUr.ExportFlag,calcprice,CurrentDate,CUr.Code,true)) then begin
if (price==0) then begin price = BlankVal; end;
if (reb==0) then begin reb = BlankVal; end;
if (cost==0) then begin cost = BlankVal; end;
ORrw.Price = price;
ORrw.vRebate = reb;
ORrw.BasePrice = cost;
ORrw.Spec = curitemname;
ORrw.VATCode = vatcode;
ORrw.SalesAcc = salesacc;
end;
««