****** 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:=1,PrintAllPendingOrder:=.f.,POrderLine:=0,PrnShdCode:=.f.,printocd:=.t.} ****** Print Header {||ROut(""),BarOut(_TLCBAR),BarOut(_HZBAR,PageWidth()-2),BarOut(_TRCBAR)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(mname),(Pagewidth()-3)/2,_CENTER,_EXPLARGE),; RROut("",1),; BarOut(_BAR),IIF(MTOTVALUE=0,CARGO1:=0,NIL)} {||ROut(""),; BarOut(_BAR),; RROut(ALLTRIM(MADDRESS1)+" "+Alltrim(maddress2),Pagewidth()-2,_CENTER),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(AllTrim(MSTATION)+" "+ALLTRIM(MPIN),Pagewidth()-2,_CENTER),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("Phone.No.:- "+AllTrim(MPHONE1) ,Pagewidth()-2,_CENTER),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("GSTIN:"+alltrim(MGSTNO) ,25),; RROUT("",PAGEWIDTH()-50,_CENTER),; RROUT("TIN NO. "+ALLTRIM(MRSTNO),23),; barOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("DL No.:- "+AllTrim(MLICNO)+","+AllTrim(MLICNO2) ,25),; RROUT("",PAGEWIDTH()-50,_CENTER),; RROUT("F.L.No.:"+ALLTRIM(MFOODLIC),23),; BarOut(_BAR)} {||ROut(""), BarOut(_bar), Barout(_HZBAR,Pagewidth()-38), BarOut(_TBAR), BarOut(_HZBAR,35), 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),; 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),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(fv(CUSTTBL,"CUaddress1")+","+(fv(custtbl,"cuaddress2")),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),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut(fv(CUSTTBL,"CUstation"),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Cases. ",9,_LEFT,_EMPH_DS),; RROut(mSICases,10),; RROUT("Weight :",8),; RROut("",8),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("Phone."+ALLTRIM(FV(CUSTTBL,"CUPHONE")),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Delivery. ",9,_LEFT),; RROut("",18),; RROut("",8),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("State Code:"+mcustatecd+" GSTIN :- "+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-38),; BarOut(_BAR),; RROut("Transport.",10,_LEFT),; RROut(FV(HDRTBL,"SITRANS"),25),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; rrout("DL No. :"+Alltrim(FV(CUSTTBL,"CUDLNO"))+" "+Alltrim(FV(CUSTTBL,"CUDLNO1")),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Document.",10,_LEFT),; RROut(FV(HDRTBL,"SIbank"),25),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; rrout("Phone. :"+FV(CUSTTBL,"CUPhone"),Pagewidth()-38,_LEFT),; BarOut(_BAR),; RROut("Due Date.",10,_LEFT),; RROut(DToC(FV(HDRTBL,"siduedate")),11),; rrout("",14),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,3,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,30.5,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,13,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_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("Sr.",3,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Description",30.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",13,,_ELITE),; BarOut(_BAR),; RROut("Exp.",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut("MRP",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Rate",8,_Right,_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,3,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,30.5,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,13,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_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(TRAN(TOTITEMS,"999"),3,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),30.5,_LEFT,_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")),13,,_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(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),; BAROUT(_BAR)} {||.T.} {||.T.} {||ROut(""),; BarOut(_BAR),; RROut(FV(DTBL,"CDTYPE"),3,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),30.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")),13,,_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(TRAN(FV(DTBL,"CDDISCOUNT"),"99.99"),6,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDAMOUNT"),"999999.99"),10,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXSCHRG"),"99.9"),10,_CENTER,_COMPRESS),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99.9"),7.5,_CENTER,_compress),; BarOut(_BAR)} {||.T.} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,3,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,30.5,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,13,,_ELITE),; BarOut(_invtBAR),; BarOut(_HZBAR,6,,_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("",3,,_ELITE),; RROUT("",1),; RROut("",30.5,,_ELITE),; RROUT("",1),; RROut("",4,,_ELITE),; RROUT("",1),; RROut("Total ",7,,_ELITE),; RROUT("",1),; RROut("",7,,_ELITE),; RROUT("",1),; RROut("",13,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",5,,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MDISCOUNT,"999.99"),6,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TOTAMT,"999999.99"),10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(CARGO1,"999999.99"),10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TAX,"9999.99"),7.5,_CENTER,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,PageWidth()-2),BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; rROut("",PageWidth()-28),; RROut(iif(finished,"TOTAL :","Total c/f "),17),; RROut(Tran(totamt,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROut(""), BarOut(_LMCONNECT), Barout(_HZBAR,Pagewidth()-38), BarOut(_HZBAR,36), BarOut(_RMCONNECT)} {||IIF(FINISHED,ROUT(""),.T.),; IIF(FINISHED,BAROUT(_BAR),.T.),; iif(Finished,rROut(ACString+" "+CDString,(PageWidth()-28)*iif(Len(ACString+" "+CDString)>PageWidth()-28,1.7,1),_LEFT,iif(Len(ACString+" "+CDString)>PageWidth()-28,_COMPRESS,_NORMAL)),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,BAROUT(_BAR),.T.)} {||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("IGST :",18,_LEFT),.t.),; iif(finished,RROut(Tran(mscamt+tax,"99999.99"),8,_RIGHT),.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,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,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,BAROUT(_bAR),.T.)} {||ROut(""), BarOut(_LMCONNECT), Barout(_HZBAR,Pagewidth()-38), BarOut(_HZBAR,36), 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,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,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,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,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,BAROUT(_BAR),.T.)} {||ROut(""),BarOut(_BLCBAR),BarOut(_HZBAR,PageWidth()-2),BarOut(_BRCBAR)} {||IIF(FINISHED,ROUT(""),.T.)} {||ROut(""),; BarOut(_LMCONNECT),; RROut("",3,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",30.5,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",13,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",6,_RIGHT,_ELITE),; BarOut(_PLUSBAR),; RROut("",8,_Right,_ELITE),; BarOut(_PLUSBAR),; RROut(" ",8,_Center,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",6,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7.5,_CENTER,_ELITE),; BarOut(_RMCONNECT)}