******** Sales Invoice Header , Define PrintDuplicate=.t. to print duplictae massage ******** SortedItems:=.t. for sorted printing,SortedBy=>"G" for Group Wise Sorting , SortedBy="T" for Tax Wise Sorting ,SortedBy="PDSH" for ShelfWise Sorting ******** PrintAllPendingOrder:=.t. will be used for Showing all pending order of a customer ******** PrnShdCode:=.t. will be used for Print Schedule Flag and mShdcode and mShdDesc for code and schedule print. ******** MrpValue,FMrpValue,SI_AdScAmt,SI_CrNoteAmt,SI_FMrpValue,SI_FTaxableAmt,SI_FTaxAmt,SI_InvDiscAmt,SI_MrpValue,SI_NetAmt,SI_ProdDiscAmt,SI_SaleAmt,SI_ScAmt,SI_TaxableAmt,SI_TaxAmt {||topline:=20,itemline:=1,CFline:=0,BFLine:=0,sireturn:=5,SiRetDtl:=2,SiRepl:=0,CnLine:=0,DiscLine:=0,taxline:=0,frtline:=0,; replline:=0,crline:=0,netline:=0,GridLine:=0,bottomline:=18,msgline:=0,SortedItems:=.f.,Blnkline:=0,PrintAllPendingOrder:=.f.,POrderLine:=0,PrnShdCode:=.f.,printocd:=.t.} ******** Print Header {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-2),; BAROUT(_HZBAR,1.5),; BarOut(_TRCBAR)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(mname),(Pagewidth()-3)/2,_CENTER,_EXPLARGE),; RROUT("",1.5),; RROut("",1),; BarOut(_BAR),IIF(MTOTVALUE=0,CARGO1:=0,NIL)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(MADDRESS1),Pagewidth()-2,_CENTER),; RROUT("",1.5),; BarOut(_BAR),ACCOUNTTBL:SEEK(FV(HDRTBL,"SISTOCKIST"))} {||ROut(""),; BarOut(_BAR),; RROut(Alltrim(maddress2)+","+AllTrim(MSTATION)+" "+ALLTRIM(MPIN),Pagewidth()-2,_CENTER),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("Phone.No.:- "+"(O): "+AllTrim(MPHONE1)+" (R): "+AllTrim(MPHONE2) ,Pagewidth()-2,_CENTER),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("GSTIN:"+alltrim(MGSTNO) ,25),; RROUT("Email : "+alltrim(memail),PAGEWIDTH()-50,_CENTER),; RROUT("TIN NO. "+ALLTRIM(MRSTNO),23),; RROUT("",1.5),; barOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("DL No.:- "+AllTrim(MLICNO)+", "+alltrim(mlicno2),32),; RROUT("",PAGEWIDTH()-57,_CENTER),; RROUT("F.L.No.: "+ALLTRIM(MFOODLIC),24.5),; BarOut(_BAR)} {||ROut(""), BarOut(_bar), Barout(_HZBAR,Pagewidth()-38), BarOut(_TBAR), BarOut(_HZBAR,35), BAROUT(_HZBAR,1.5), BarOut(_bar)} {||ROut(""),; BarOut(_BAR),; RROut("Name & Address of Consginee : ",Pagewidth()-45,_LEFT,_ul),; rrout("",7),; BarOut(_BAR),; RROut("Invoice No. ",12,_LEFT,_EMPH_DS),; RROut(AllTrim(Str(PRNINVNO,6)),7),; RROUT("Date :",6),; rrout(dtoc(invdate),10),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(FV(CUSTTBL,"CUname")),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Order No.",9,_LEFT),; RROut(FV(HDRTBL,"SIorderno"),10),; RROut("Date :",6,_LEFT),; RROut(DToC(FV(HDRTBL,"SIordate")),10),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(fv(custtbl,"cuaddress1")),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("G.R. No. ",9,_LEFT,_EMPH_DS),; RROut(FV(HDRTBL,"SIMTRNO"),10),; RROUT("Date :",6),; RROut(DToC(FV(HDRTBL,"SImtrdate")),10),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(fv(CUSTTBL,"CUaddress2"),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Cases. ",9,_LEFT,_EMPH_DS),; RROut(mSICases,10),; RROUT("Weight :",8),; RROut("",8),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(alltrim(fv(CUSTTBL,"CUstation"))+" Phone."+ALLTRIM(FV(CUSTTBL,"CUPHONE")),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Delivery. ",9,_LEFT),; RROut("",18),; RROut("",8),; RROUT("",1.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("State Code:"+ALLTRIM(MCUSTATECD)+" GSTIN:"+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-38),; BarOut(_BAR),; RROut("Transport.",10,_LEFT),; RROut(FV(HDRTBL,"SITRANS"),26.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; rrout("DL No. :"+ALLTRIM(alltrim(FV(CUSTTBL,"CUDLNO"))+", "+alltrim(FV(CUSTTBL,"CUDLNO1"))),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Document.",10,_LEFT),; RROut(FV(HDRTBL,"SIbank"),26.5),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; rrout("Phone. :"+FV(CUSTTBL,"CUPhone"),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Due Date.",9,_LEFT),; RROut(DToC(FV(HDRTBL,"siduedate")),10),; RROUT("S.MAN",6),; RROUT(FV(SPTBL,"SPNAME"),11.5,_LEFT,_NORMAL),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,20,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,12,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("Description",20,_CENTER,_ELITE),; BarOut(_BAR),; RROut("MFG",7.5,_CENTER,_ELITE),; BarOut(_BAR),; RROut("HSN",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Qty ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Unit ",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Batch",12,,_ELITE),; BarOut(_BAR),; RROut("Exp.",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut("MRP",8,_Right,_ELITE),; BarOut(_BAR),; RROut("PTS",8,_Right,_ELITE),; BarOut(_BAR),; RROut("PTR",8,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Disc",6,_Right,_ELITE),; BarOut(_BAR),; RROut("Total",10,_Right,_ELITE),; BarOut(_BAR),; RROut("Taxable",10,_Right,_ELITE),; BarOut(_BAR),; RROut("IGST",7.5,_CENTER,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,20,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,12,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_RMCONNECT)} {||iif(!NewStart,ROut(""),.t.),; iif(!NewStart,BarOut(_hzbar),.t.),; iif(!NewStart,rROut("",PageWidth()-28),.t.),; iif(!NewStart,RROut("Total b/f",17),.t.),; iif(!NewStart,RROut(Tran(totamt,"999999.99"),9,_RIGHT),.t.),; iif(!NewStart,BarOut(_hzbar),.t.)} {||ROut(""),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),20,_LEFT,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(GROUPTBL,"GPNAME")),7.5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDHSN")),4,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MQTY),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(STOCKTBL,"STBHNO")),12,,_ELITE),; BarOut(_BAR),; RROut(MDT,6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(BATCHTBL,"BHMRP"),"9999.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(STOCKTBL,"STRATE"),"9999.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(BATCHTBL,"BHTPRICE"),"9999.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(STOCKTBL,"STDISCOUNT"),"99.99"),6,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(MVALUE,"999999.99"),10,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(MAMT,"999999.99"),10,_Right,_ELITE),; BarOut(_BAR),; RROut(tran(fv(taxtbl,"txschrg")+fv(taxtbl,"txrstrate"),"99%"),7.5,_CENTER,_ELITE),; BarOut(_BAR),CARGO1:=CARGO1+MAMT} *******Borrow Forward Line*** **********Description Line*** ******** Sals Invoice : Print C/f Amount and Continued on next page. ******** Sals Invoice : Print b/f Amount on next page. ******** Sales Invoice : Print Total Amount **********Abatment Line*** **********Discount detail Item Line*** **********Discount Detail Footer Line*** ******** Sales Invoice : Print Discount in Header {||ROUT(""),; BAROUT(_BAR),; RROUT("SALE RETURN",PAGEWIDTH()-2),; RROUT("",1.5),; BAROUT(_BAR)} {||.T.} {||.T.} {||ROut(""),; BarOut(_BAR),; RROut(ALLTRIM(FV(DTBL,"CDTYPE"))+" "+ALLTRIM(FV(PRODTBL,"PDNAME")),20,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(GROUPTBL,"GPNAME")),7.5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDHSN")),4,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDQTY"),"9999"),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(DTBL,"CDBHNO")),12,,_ELITE),; BarOut(_BAR),; RROut(MDT,6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDMRP"),"9999.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDPRICE"),"9999.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut("",8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDDISCOUNT"),"99.99"),6,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDAMOUNT"),"999999.99"),10,_Right,_ELITE),; BarOut(_BAR),; RROut("",10,_Right,_ELITE),; BarOut(_BAR),; RROut(tran(fv(taxtbl,"txschrg")+fv(taxtbl,"txrstrate"),"99%"),7.5,_CENTER,_compress),; BarOut(_BAR)} {||.T.} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,20,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,12,,_ELITE),; BarOut(_invtBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_invtBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,7.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("",85,,_ELITE),; RROut("",7,_right,_ELITE),; BarOut(_PLUSBAR),; RROut("",8,_right,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MDISCOUNT,"9999.99"),6,_right,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TOTAMT,"9999.99"),10,_right,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(CARGO1,"9999.99"),10,_right,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TAX+mscamt,"9999.99"),7.5,_right,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_LMCONNECT),; BAROUT(_HZBAR,PageWidth()-2),; BAROUT(_HZBAR,1.5),; BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Current Due Balance :- "+TRAN(abs(FV(ACCOUNTTBL,"ACCURBAL")),"9999999.99"),PAGEWIDTH()-28),; RROut(iif(finished,"TOTAL :","Total c/f "),17),; RROut(Tran(totamt,"999999.99"),9,_RIGHT),; iif(finished,rrout("",1.5),.t.),; BAROUT(_BAR)} {||ROut(""), BarOut(_LMCONNECT), Barout(_HZBAR,Pagewidth()-38), BarOut(_HZBAR,36), BAROUT(_HZBAR,1.5), BarOut(_RMCONNECT)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; iif(Finished,rROut("Freight "+tran(INVFREIGHT,"99999.99"),PAGEWIDTH()-28),ROut("",PageWidth()-28,_LEFT,_NORMAL)),; iif(Finished,RROut("DISCOUNT : ",17,_LEFT),.t.),; iif(Finished,RROut(Tran(mDiscount+mCDiscAmt,"999999.99"),9,_RIGHT),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; iif(Finished,rROut(VTAXSTRING,PAGEWIDTH()-28),ROut("",PageWidth()-28,_LEFT,_NORMAL)),; iif(Finished,RROut("IGST :",18,_LEFT),.t.),; iif(finished,RROut(Tran(TAX,"99999.99"),8,_RIGHT),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; iif(Finished,rROut("Insurance",PAGEWIDTH()-28),ROut("",PageWidth()-28,_LEFT,_NORMAL) ),; iif(Finished,RROut("CR/DR Note :",17,_LEFT),.t.),; iif(finished,RROut(Tran(Abs(totcdamt-INVFreight-INVOctroi),"999999.99"),9,_RIGHT),.t.),; iif(!finished,ROut("Continued on "+Str(PageCount()+1,2),PageWidth()/2,_RIGHT,_EXP),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINISHED,RROUT("Amt. of Tax Reverse Charges 0.00",PAGEWIDTH()-28),.T.),; iif(finished,RROUT("Round Off :",17,_left),.t.),; iif(finished,rrout(tran(mrnddiff,"999999.99"),9,_RIGHT),.T.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINISHED,rROut(mamtwords,PageWidth()-28),.T.),; iif(finished,RROut("G. Total(Rs.) :",17),.T.),; iif(finished,RROut(Tran(PRNNETAMT+INVOTHADJ,"999999.99"),9,_RIGHT),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_bAR),.T.)} {||ROut(""), BarOut(_LMCONNECT), Barout(_HZBAR,Pagewidth()-38), BarOut(_HZBAR,36), BAROUT(_HZBAR,1.5), BarOut(_RMCONNECT)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINIShED,rROUT("Declaration",Pagewidth()-28),.t.),; IIF(FINIShED,rROUT("Signature",26,_CENTER),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINIShED,rROUT(" ",Pagewidth()-28),.t.),; IIF(FINIShED,rROUT(" ",26,_CENTER),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINIShED,rROUT("Signatory",Pagewidth()-28),.t.),; IIF(FINIShED,rROUT("Name of Designation/Status",26,_CENTER),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINIShED,rROUT(" ",Pagewidth()-28),.t.),; IIF(FINIShED,rROUT(" ",26,_CENTER),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; IIF(FINIShED,rROUT("Electronic Reference Number",Pagewidth()-28),.t.),; IIF(FINIShED,rROUT("Date",26,_CENTER),.t.),; iif(finished,rrout("",1.5),.t.),; IIF(FINISHED,BAROUT(_BAR),.T.)} {||ROut(""),BarOut(_BLCBAR),BarOut(_HZBAR,PageWidth()-2), barout(_hzbar,1.5), BarOut(_BRCBAR)} {||IIF(FINISHED,ROUT(""),.T.)}