** 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:=12,PKFooter:=12,PkDetail:=1,PkRtn:=1,Printed:=.t.} {||ROut("",(Pagewidth()-12)/2),; RROut("PACKING SLIP",12,_CENTER,_UL)} {||ROUT(ALLTRIM(MNAME),PAGEWIDTH()/2,_CENTER,_EXPLARGE)} {||ROUT("GSTIN "+alltrim(MGSTNO),25),; RROUT(ALLTRIM(MADDRESS1),PAGEWIDTH()-48,_CENTER),; RROUT(" Phone "+Alltrim(mPHONE1),20)} {||ROUT("TIN No."+alltrim(MRSTNO),22),; RROUT(alltrim(maddress2)+" "+ALLTRIM(MSTATION)+" "+ALLTRIM(MPIN),PAGEWIDTH()-45,_CENTER),; RROUT(" Food Lic.No."+Alltrim(Mfoodlic),20)} {||ROUT("D.L.No."+alltrim(MLICNO),22),; RROUT("",PAGEWIDTH()-45,_CENTER),; RROUT(" Mobile "+Alltrim(MMOBILE),19)} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-36),; BarOut(_TBAR),; BarOut(_HZBAR,12),; BarOut(_TBAR),; BAROut(_HZBAR,18),; BarOut(_TRCBAR)} {||ROut(""),; BarOut(_BAR),; RROut("M/s ",4),; RROut(AllTrim(FV(CUSTTBL,"CUNAME")),PageWidth()-57),; RROut(AllTrim(DRUGLICNO)+":",7),; RROut(FV(CUSTTBL,"CUDLNO"),iif(Len(AllTrim(FV(CUSTTBL,"CUDLNO")))>10,17,10),_LEFT,iif(Len(AllTrim(FV(CUSTTBL,"CUDLNO")))>10,_COMPRESS,_NORMAL)),; BarOut(_BAR),; RROut("PAN NO.",12),; BarOut(_BAR),; RROut("No.: ",6),; RROut(Tran(fv(phtbl,"phseqno"),"999999"),6,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(Space(4),4),; RROut(AllTrim(FV(CUSTTBL,"CUADDRESS1"))+" "+AllTrim(FV(CUSTTBL,"CUADDRESS2"))+" "+AllTrim(FV(CUSTTBL,"CUSTATION")),PageWidth()-40),; BarOut(_BAR),; RROut(FV(CUSTTBL,"CUPANNO"),12),; BarOut(_BAR),; RROut("Date :",8),; RROut(Dtoc2(FV(PACKTBL,"pkdate")),10),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("State Code:"+mcustatecd+space(5)+" GSTIN :- "+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-36),; BarOut(_BAR),; RROut("",6,,_EXP),; BarOut(_BAR),; RROut(" ",6),; RROut("",6,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BarOut(_HZBAR,PageWidth()-36),; BarOut(_INVTBAR),; BarOut(_HZBAR,12),; BarOut(_INVTBAR),; BAROut(_HZBAR,18),; BarOut(_BRCBAR)} {||ROut(""),; RROut("Description",25,,_compress),; RROut("",1,,_compress),; RROut("HSN",7,_CENTER,_compress),; RROut("Qty ",9,_CENTER,_compress),; RROut("Unit ",8,,_compress),; RROut("",2,,_compress),; RROut("Batch",9,,_compress),; RROut("Exp.Dt.",12,_LEFT,_compress),; RROut("MRP",11,_LEFT,_compress),; RROut("Rate",10,_LEFT,_compress),; RROut("Disc",8,_LEFT,_compress),; RROut("Amount",10,_LEFT,_compress),; RROut("CGST %",7,_LEFT,_compress),; RROut("SGST%",7,_RIGHT,_compress)} {||ROut(""),; barout(_hzbar,pagewidth()-3)} ** PKFooter 5 (Totitems:Total Items,Gross Amt:TotAmt) {||ROut(""),; BAROUT(_TLCBAR),; barout(_hzbar,pagewidth()-3),; BAROUT(_TLCBAR)} {||ROut(""),; BarOut(_BAR),; RROut("",6,,_compress),; RROUT("",1),; RROut("",11,,_compress),; RROUT("",1),; RROut("",12,,_compress),; RROUT("",1),; RROut("Total",6,,_compress),; RROUT("",1),; RROut("",7,,_compress),; RROUT("",1),; RROut("",5,,_compress),; RROUT("",1),; RROut("",8,,_compress),; RROUT("",1),; RROut("",8,,_compress),; RROut("",11,,_compress),; RROut(TRAN(MDISCOUNT,"9999.99"),8,_CENTER,_compress),; RROut(TRAN(TOTAMT,"999999.99"),10,_CENTER,_compress),; RROut("",9.5,_CENTER,_compress),; RROut(TRAN(mscamt,"9999.99"),8,_CENTER,_compress),; RROut(TRAN(TAX,"9999.99"),8,_CENTER,_compress),; BAROUT(_BAR)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,PageWidth()-3),BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(FV(NTTBL,"NTNOTE")),(pagewidth()-30)*1.7,,_compress),; RROUT("GROSS AMOUNT",17),; RROUT(TRAN(MAMT,"999999.99"),9,_RIGHT),; RROUT("",1),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",(pagewidth()-30)*1.7,,_compress),; RROUT("LESS DISCOUNT",17),; RROUT(TRAN(MDISCOUNT,"999999.99"),9,_RIGHT),; RROUT("",1),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("No. of Items :-"+tran(totitems,"999"),(pagewidth()-30)*1.7,,_COMPRESS),; RROUT("ADD CGST",17),; RROUT(TRAN(mscamt,"999999.99"),9,_RIGHT),; RROUT("",1),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",(pagewidth()-30)*1.7,,_COMPRESS),; RROUT("ADD SGST",17),; RROUT(TRAN(TAX,"999999.99"),9,_RIGHT),; RROUT("",1),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("Amount of Tax Subject to Reverse Charge 0.00 ",(pagewidth()-30)*1.7,,_COMPRESS),; RROUT("NET AMT",8),; RROUT(TRAN(MNETAMT,"999999.99"),9,_RIGHT,_EXP),; RROUT("",1),; BAROUT(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BAROUT(_HZBAR,Pagewidth()-3),; BarOut(_BRCBAR)} {|| ROut(" Authorised Signature ",PageWidth()-3)} {|| ROut("All Subject to "+AllTrim(mstation)+" Jurisdiction Only.",PageWidth()-15),; RROut(" E. & O. E.",13,_RIGHT)} {||ROUT("")} ** PKDetail 1 (mValue : Gross Value) {||ROut(""),; RROut(FV(PRODTBL,"PDname"),25,,_compress),; RROut("",1,,_compress),; RROut(mhsn,7,,_compress),; RROut(MQTY,9,_center,_compress),; RROut(mpack,8,,_compress),; RROut("",2,,_compress),; RROut(FV(PACKTBL,"PKBHno"),9,,_compress),; RROut(MDT,8,_CENTER,_compress),; RROut("",2,,_compress),; RROut(tran(fv(packtbl,"PKMRP"),"9999.99"),9,_RIGHT,_compress),; RROut(tran(fv(packtbl,"pkRATE"),"9999.99"),9,_RIGHT,_compress),; RROut(tran(fv(packtbl,"pkDISCTPR"),"9999.99"),9,_RIGHT,_compress),; RROut(TRAN(MAMT,"999999.99"),10,_Right,_compress),; RROut(TRAN(FV(TAXTBL,"TXSCHRG"),"99.99"),9,_RIGHT,_compress),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99.99"),9,_RIGHT,_compress)} ** PkRtn 2 (First two Lines for header and rest lines are detail) {||ROut("Sales Return Slip Detail",25,_LEFT,_UL)}