HI ..
i want some kindly help to customise a unction to print in POS receipt footer as the following :
1- specific items if Net Amount ( item 1 + item 2 = 100) the customer will get notice in the receipt to get coupon .
2- if net amount is 200 will get two coupon
So our mechanism: for every 100 from this two items , the customer will be entitled for 1 coupon printed on the receipt.
we already defined in item table fix value in one filed .
Urgent HELP pls..
Thanks
0
Comments
I hope you are using LS Retail.
You can configure the above scenario thru offers.Define particular items(1,2,3) under mix & match offer
Create item,link coupon data entry type to the item.Add this item also in offer.
Define amount based offer for the same.System will pop up the coupon(item) automatically while billing.
i hope this will solve your problem.
S.V.Sudhakar
i folllow the same but nothing come in screen
are you functional consultant/developer or end user ?
In case you are not happy with the solution provided by me
Can write code in "OPOS Print Utility" code unit.
I dont have ready made code available with me.
S.V.Sudhakar
i am Using Nav 4.0 ... i am function consultant .. i know some codine .. i try to add the code in printing footer function .
if you can help me
thanks
Could you explain us how the issue got closed.
could you tell us what is the work around/solution for this ???
S.V.Sudhakar
//////////////////////////////////////////////////////////////////////////////////////////////////////////
we add to function ( printsalesinfo) the following Code :
MarkCoupItem :='';
IF NOT SalesEntry."Return No Sale" THEN BEGIN
IF TempItem.GET(SalesEntry."Item No.") THEN BEGIN
TempItem.SETFILTER(TempItem."No.",SalesEntry."Item No.") ;
IF TempItem."Vendor No." IN THEN BEGIN
TempSaleAmt4Coupon :=TempSaleAmt4Coupon + SalesLineAmount;
MarkCoupItem :='*';
END;
CLEAR(TempItem);
END;
END;
then, in function (printpayminfo) we add the following code :
TempIntCoupon := ABS(TempSaleAmt4Coupon) DIV 50;
IF TempIntCoupan>0 THEN BEGIN
DSTR1 := '#L################# #R############### ';
Value[1] := Text150;
Value[2] := FORMAT(TempIntCoupon);
PrintLine(Tray,TCoupFormatLine(FormatStr(Value,DSTR1),FALSE,TRUE,FALSE,TRUE));
Value[1] := Text151;
Value[2] := FORMAT(FORMAT(ABS(TempSaleAmt4Coupon)));
PrintLine(Tray,TCoupFormatLine(FormatStr(Value,DSTR1),FALSE,TRUE,FALSE,TRUE));
PrintSeperator(Tray);
END;
//////////////////////////////////////////////////////////////////////////////////////////////////////////