*** Header Part                                                                                                                                                                                                                                                
*** SortedItems:=.t. for sorted printing,SortedBy=>"G" for Group Wise Sorting and SortedBy="T" for Tax Wise Sorting                                                                                                                                            
*** SortedBy:="GP" for Group Code & Product Name Wise Sorting and SortedBy="TP" for Tax & Product Name Wise Sorting                                                                                                                                            
*** SortedBy=>"P" for Product Name and SortedBy:="PDSH" for Product ShelfId Wise                                                                                                                                                                               
{||lines:=13,PKFooter:=9,PkDetail:=1,PkRtn:=3,pagewidth:=79,Printed:=.t.}                                                                                                                                                                                      
{||QOut(PADR("",(Pagewidth-12)/2)+_UL+PADC("PACKING SLIP",12)+_UL_OFF)}                                                                                                                                                                                        
{||QOUT(_EXP+PADC(ALLTRIM(MNAME),PAGEWIDTH/2)+_EXP_OFF)}                                                                                                                                                                                                       
{||QOUT(padr("GSTIN "+alltrim(MGSTNO),25)+padc(ALLTRIM(MADDRESS),PAGEWIDTH-48)+padr(" Phone "+Alltrim(mPHONE1),20))}                                                                                                                                           
{||QOUT(PADR("TIN No."+alltrim(MRSTNO),22)+PADC(Alltrim(maddress2)+" "+Alltrim(maddress2)+" "+ALLTRIM(MSTATION)+" "+ALLTRIM(MPIN),PAGEWIDTH-45)+PADR("FL.No:",20))}                                                                                            
{||qout(padr("D.l.No: "+alltrim(mlicno),22)+padr("",pagewidth-45)+" Mobile "+padr(mmobile,13))}                                                                                                                                                                
{||qout(repl(hzbar,pagewidth))}                                                                                                                                                                                                                                
{||QOut(BAR+PADR("M/s ",4)+PADR(AllTrim(&CUSTTBL->CUNAME),PageWidth-57)+PADR(AllTrim(DRUGLICNO)+":",7)+PADR(&CUSTTBL->CUDLNO,10)+BAR+PADR("",12)+BAR+PADR("No.:  ",8)+_EXP+PADR(Tran(&phtbl->phseqno,"999999"),6)+_EXP_OFF+BAR)}                               
{||QOut(BAR+PADR("",4)+PADR(AllTrim(&CUSTTBL->CUADDRESS1)+" "+AllTrim(&CUSTTBL->CUADDRESS2)+" "+AllTrim(&CUSTTBL->CUSTATION),PageWidth-40)+BAR+PADR("",12)+BAR+PADR("Date :",8)+PADR(Dtoc2(&PACKTBL->pkdate),12)+BAR)}                                         
{||QOut(BAR+PADR("State Code:"+mcustatecd+space(5)+" GSTIN :- "+ALLTRIM(&CUSTTBL->CUGSTNO),PageWidth-36)+BAR+PADR("",12)+BAR+PADR("  ",20)+BAR)}                                                                                                               
{||QOut(BLCBAR+REPL(HZBAR,PageWidth-36)+INVTBAR+REPL(HZBAR,12)+INVTBAR+REPL(HZBAR,18)+BRCBAR)}                                                                                                                                                                 
{||QOut(_COMPRESS+PADR("Description",25)+" "+PADC("HSN",4)+Space(3)+PADC("Qty ",9)+PADR("Unit ",8)+PADR("",2)+PADR("Batch",12)+PADR("Exp.Dt.",12)+PADR("MRP",11)+PADR("Rate",10)+PADR("Disc",8)+PADR("Amount",10)+PADR("CGST %",7)+PADL("SGST%",8)+_COMP_OFF)} 
{||qout(repl(hzbar,pagewidth))}                                                                                                                                                                                                                                
{||linecount:=11}                                                                                                                                                                                                                                              
*** PKFooter 5 (Totitems:Total Items,Gross Amt:TotAmt,Pending Challan Detail:mPendChallan)                                                                                                                                                                     
{||QOut(LMCONNECT+REPL(HZBAR,PageWidth-3)+RMCONNECT)}                                                                                                                                                                                                          
{||QOUT(BAR+_COMPRESS+PADR("",(pagewidth-30)*1.7)+_COMP_OFF+PADR("GROSS AMOUNT",17)+PADL(TRAN(TOTAMT,"9999.99"),9)+PADR("",1)+BAR)}                                                                                                                            
{||QOUT(BAR+_COMPRESS+PADR("No. of  Items :-"+tran(totitems,"999"),(pagewidth-30)*1.7)+_COMP_OFF+PADR("CGST/SGST",17)+PADL(TRAN(mscamt,"999999.99"),9)+PADR("",1)+BAR)}                                                                                        
{||QOUT(BAR+_COMPRESS+PADR("Amount of Tax Subject to Reverse Charge 0.00 ",(pagewidth-30)*1.7)+_COMP_OFF+PADR("NET AMT",8)+_EXP+PADL(TRAN(&PHTBL->PHNETAMT,"999999.99"),9)+_EXP_OFF+PADR("",1)+BAR)}                                                           
{||QOut(BLCBAR+REPL(HZBAR,Pagewidth-3)+BRCBAR)}                                                                                                                                                                                                                
{||QOut(PADR(" Authorised Signature           ",PageWidth-3))}                                                                                                                                                                                                 
{||QOut(PADR("All Subject to "+AllTrim(mstation)+" Jurisdiction Only.",PageWidth-15)+PADL(" E. & O. E.",13))}                                                                                                                                                  
{||QOUT("")}                                                                                                                                                                                                                                                   
{||linecount:=linecount+8}                                                                                                                                                                                                                                     
*** PKDetail 1 (mValue : Gross Value)                                                                                                                                                                                                                          
{||QOut(_COMPRESS+PADR(&PRODTBL->PDname,25)+PADR("",1)+PADR(mhsn,4)+Space(3)+PADC(MQTY,9)+PADR(mpack,8)+PADR("",2)+PADR(&PACKTBL->PKBHno,12)+PADC(MDT,8)+PADR("",2)+PADL(tran(&packtbl->PKMRP,"9999.99"),9)+PADL(tran(&packtbl->pkRATE,"9999.99"),9)+PADL(tran(&packtbl->pkDISCTPR,"9999.99"),9)+Space(2)+Tran(mValue,"99999.99")+PADL(TRAN(&TAXTBL->TXSCHRG,"99.99"),9)+PADL(TRAN(&TAXTBL->TXRSTRATE,"99.99"),9)+_comp_off),Linecount:=LineCount+1}                                                                          
*** PkRtn 2 (First two Lines for header and rest lines are detail)                                                                                                                                                                                             
{||qout(_UL+"Sales Return Slip Detail"+_UL_OFF),Linecount:=LineCount+1}                                                                                                                                                                                        
{||qout(_UL+_ELITE+"  "+padr("Name",20)+padr("Pack.",7)+Padl("Qty.",8)+" "+Padr(alltrim(BTNAME),10)+Padl("Rate",8)+" "+padl("Amount",10)+" Remark"+_ELITE_OFF+_UL_OFF),Linecount:=LineCount+1}                                                                 
{||qout(_ELITE+padr(CRDRDTL->cdtype,1)+":"+iif(CRDRDTL->cdtype$"CD",Padr(alltrim(accountname(CRDRDTL->cdpostac)),20),padr(&PRODTBL->pdname,20))+padr(mpack,7)+tran(CRDRDTL->cdqty,"99999.99 ")+CRDRDTL->cdbhno+Trans(mrate,"99999.99")+" "+Tran(CRDRDTL->cdamount,"9999999.99")+" "+iif(!CRDRDTL->cdtype$"CD",mremark,"")+_ELITE_OFF),Linecount:=LineCount+1}                                                                                                                                                                 
*** End of File