*  Header Part , Define PrintDuplicate=.t. to print duplictae massage                                                                                                                                                                                          
* SortedItems:=.t. for sorted printing,SortedBy=>"G" for Group Wise Sorting and SortedBy="T" for Tax Wise Sorting,SortedBy="PDSH" for ShelfWise Sorting                                                                                                        

{||lines:=10,PKFooter:=5,PkDetail:=1,PkRtn:=3,Printed:=.t.}                                                                                                                                                                                                    

{||PrintDuplicate:=.t.,;
ROut("GSTTIN :",9,_LEFT,_ELITE),;
RROut(mgstno,17,_LEFT,_ELITE),;
RROut(ALLTRIM(mname),(PageWidth()-39)/2,_CENTER,_EXP),;
RROut(" "+"Ph.:"+"(O)"+PadR(AllTrim(mphone1),10)+",(R)"+PadR(AllTrim(mresphone),10),21*1.7,_LEFT,_COMPRESS) }                                                                                                                                                                                                                                                          
{||ROut(AllTrim(RSTPRMPT)+" No:",8),;
RROut(mcstno,11),;
RROut(maddress,Pagewidth()-37),;
RROut("  "+PadR(AllTrim(DRUGLICNO)+":",7)+PadL(AllTrim(mlicno),10),17*1.7,_LEFT,_COMPRESS )}                                                                      
{||ROut("",(Pagewidth()-12)/2),;
RROut("PACKING SLIP",12,_CENTER,_UL)}                                                                                                                                                                                        
{||ROut(""),;
BarOut(_TLCBAR),;
BarOut(_HZBAR,Pagewidth()-20),;
BarOut(_TBAR),;
iif(NewStart==.t.,BarOut(_HZBAR,16),RROut("Continued From "+Str(PageCount()-1,1),16)),;
BarOut(Repl(_HZBAR,1)),;
BarOut(_TRCBAR)}                                        
{||ROut(""),;
BarOut(_BAR),;
RROut("M/s "),;
RROut(AllTrim(FV(CUSTTBL,"CUNAME")),PageWidth()-48),;
RROut(AllTrim(DRUGLICNO)+":",7),;
RROut(" "+FV(CUSTTBL,"CUDLNO"),17),;
BarOut(_BAR),;
RROut(" No.:"),;
RROut(LTrim(Tran(FV(PHTBL,"phseqno"),"999999")),6,_LEFT,_EXP),;
BarOut(_BAR)}                                                                                                                                                                                                                              
{||ROut(""),;
BarOut(_BAR),;
RROut("",4),;
RROut(AllTrim(FV(CUSTTBL,"CUADDRESS1")),Pagewidth()-48),;
RROut(AllTrim(RSTPRMPT)+":",7),;
RROut(" "+FV(CUSTTBL,"CUSTNO"),17),;
BarOut(_BAR),;
RROut(" Date : "+Dtoc2(FV(PACKTBL,"pkdate"))+" ",17),;
BarOut(_BAR)}                                                                                                                                                                                                                                                        
{||ROut(""),;
BarOut(_BAR),;
RROut("",4),;
RROut(AllTrim(FV(CUSTTBL,"CUADDRESS2"))+" "+AllTrim(FV(CUSTTBL,"CUSTATION")),Pagewidth()-24),;
BarOut(_BAR),;
RROut("",17),;
BarOut(_BAR)}                                                                    
{||ROut(""),;
BarOut(_BLCBAR),;
BarOut(_HZBAR,PageWidth()-20),;
BarOut(_INVTBAR),;
BarOut(_HZBAR,17),;
BarOut(_BRCBAR)}                                                                                                                                   
{||ROut("QTY.+F/R " ,10),;
RROut("PACKING",9),;
RROut("HSN"     ,5),;
RROut("PARTICULARS",PageWidth()-55),;
RROut(Upper(BTNAME),11),;
RROut("MRP",8,_RIGHT),;
RROut("CGST",6,_RIGHT),;
RROut("SGST",6,_RIGHT)}                                          
{||ROutUnderLine()}                                                                                                                                                                                                                                            
* PKFooter 5 (Totitems:Total Items,Gross Amt:TotAmt)                                                                                                                                                                                                           
{||ROutUnderLine()}                                                                                                                                                                                                                                            
{||ROut("For "+alltrim(mname)+" ",Pagewidth(),_RIGHT)}                                                                                                                                                                                                         
{||ROut(iif(Finished==.f.,"Continued on "+padl(PageCount()+1,3)+" ",""),PageWidth(),_LEFT)}                                                                                                                                                                    
{||Rout("")}                                                                                                                                                                                                                                                   
{||ROut(alltrim(msignauth),pagewidth(),_RIGHT) }                                                                                                                                                                                                               
* PKDetail 1 (mValue : Gross Value)                                                                                                                                                                                                                            
{||ROut(mqty,iif(mqtyfont==_NORMAL,9,9*1.7),_LEFT,mqtyfont),;
RROut(mpack,9),;
RROut(FV(PRODTBL,"pdHSN"),5),;
RROut(" "),;
RROut(FV(PRODTBL,"PDname"),Pagewidth()-57),;
RROut(" "),;
RROut(FV(PACKTBL,"PKBHno"),11),;
RROut(mrp,9,_RIGHT),;
RROut(TRAN(FV(TAXTBL,"TXSCHRG"),"99999%"),7),;
RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99999%"),7)}                                                                                                                                                                           
* PkRtn 2 (First two Lines for header and rest lines are detail)                                                                                                                                                                                               
{||ROut("Sales Return Slip Detail",25,_LEFT,_UL)}                                                                                                                                                                                                              
{||ROut("Name",25,_LEFT,_ELITE_UL),;
RROut(" Pack.",8,_LEFT,_ELITE_UL),;
RROut("Qty.",8,_RIGHT,_ELITE_UL),;
RROut(" "+AllTrim(BTNAME),11,_LEFT,_ELITE_UL),;
RROut("Rate",8,_RIGHT,_ELITE_UL),;
RROut(" "+"Remark",14,_LEFT,_ELITE_UL) }                   
{||RROut("Amount",10,_RIGHT,_ELITE_UL) }