***** Sales Invoice Header , 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 ***** PrintAllPendingOrder:=.t. will be used for Showing all pending order of a customer ***** 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:=11,itemline:=1,CFline:=2,BFLine:=1,sireturn:=5,SiRetDtl:=2,SiRepl:=0,CnLine:=0,DiscLine:=0,taxline:=0,frtline:=0,; replline:=0,crline:=0,netline:=0,bottomline:=14,msgline:=0,SortedItems:=.f.,PrintAllPendingOrder:=.f.,POrderLine:=0,BLNKLINE:=1,printocd:=.t.} {||ROUT(ALLTRIM(MNAME),PAGEWIDTH()/2,_CENTER,_EXPLARGE)} {||ROUT("GSTIN "+alltrim(MGSTNO),22),; RROUT(ALLTRIM(MADDRESS1),PAGEWIDTH()-42,_CENTER),; RROUT("Phone "+Alltrim(MPHONE1),20),IIF(TOTAMT=0,CARGO1:=0,NIL)} {||ROUT("TIN No."+alltrim(MRSTNO),22),; RROUT(Alltrim(maddress2)+" "+ALLTRIM(MSTATION)+"- "+ALLTRIM(MPIN)+", "+ALLTRIM(MSTATE),PAGEWIDTH()-42,_CENTER),; RROUT("F.L. No."+Alltrim(Mfoodlic),20)} {||ROUT("D.L.No."+alltrim(MLICNO),22),; RROUT("",PAGEWIDTH()-42,_CENTER),; RROUT("Mobile "+Alltrim(MMOBILE),20)} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-34),; 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()-55),; 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(mpaymode,iif(len(mPayMode)<=6,6,12),_CENTER,iif(len(mPayMode)<=6,_EXP,_NORMAL)),; BarOut(_BAR),; RROut("Inv No.: ",6),; RROut(Tran(PRNINVNO,"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()-38),; BarOut(_BAR),; RROut(ALLTRIM(INVCUCODE),12*1.7,_CENTER,_COMPRESS),; BarOut(_BAR),; RROut("Date : "),; RROut(DToC(INVDATE),10),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("State Code:"+mCuStateCd+SPACE(8)+" GSTIN :-"+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-34),; BarOut(_BAR),; RROut("",6,,_EXP),; BarOut(_BAR),; RROut(" ",6),; RROut("",6,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,14,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,5,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,9,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,9.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("Sr.",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Description",14,_CENTER,_ELITE),; BarOut(_BAR),; RROut("HSN",5,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Qty ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Unit ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Batch",9,,_ELITE),; BarOut(_BAR),; RROut("Exp.Dt.",8,_CENTER,_ELITE),; BarOut(_BAR),; RROut("MRP",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Rate",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Disc",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Total",10,_Right,_ELITE),; BarOut(_BAR),; RROut("Taxable",10,_Right,_ELITE),; BarOut(_BAR),; RROut("CGST %",10,_CENTER,_ELITE),; BarOut(_BAR),; RROut("SGST%",9.5,_CENTER,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,14,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,5,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,9,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,9.5,,_ELITE),; BarOut(_RMCONNECT)} ***** Sales Invoice : Print Detail *Use mdt for exp.dt. mrate for discounted rate {||ROut(""),; BarOut(_BAR),; RROut(TRAN(TOTITEMS,"999"),4,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),14,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(fv(prodtbl,"pdhsn")),5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MQTY),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(STOCKTBL,"STBHNO")),9,,_ELITE),; BarOut(_BAR),; RROut(MDT,8,_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(MDISCTPR,"99.99"),8,_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"),"99.9"),10,_CENTER,_compress),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99.9"),9.5,_CENTER,_compress),; BarOut(_BAR),CARGO1:=CARGO1+MAMT} *******Description Line*** ***** Sals Invoice : Print C/f Amount and Continued on next page. {||ROut("",Pagewidth()-13),RROut("------------",12,_RIGHT)} {||ROut("Continued On "+PadR(Pagecount()+1,2),15,_LEFT,_EXP), RROut("",Pagewidth()-43), RROut(Tran(iif(!Finished,mtotvalue,total),"999999999.99"),12,_RIGHT)} ***** Sals Invoice : Print b/f Amount on next page. {||ROut("Continued from "+PadR(Pagecount()-1,2),Pagewidth()-38), RROut("Total b/f",25), RROut(Tran(iif(!finished,mtotvalue,total),"999999999.99"),12,_RIGHT)} {||ROUT(""),; BAROUT(_BAR),; RROUT("SALE RETURN",PAGEWIDTH()-2),; BAROUT(_BAR)} {||.T.} {||.T.} {||ROut(""),; BarOut(_BAR),; RROut(FV(DTBL,"CDTYPE"),4,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),14,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(fv(Prodtbl,"PDhsn")),5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(DTBL,"CDQTY"),"9999"),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(DTBL,"CDBHNO")),9,,_ELITE),; BarOut(_BAR),; RROut(MDT,8,_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,"CDDISCTPR"),"99.99"),8,_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"),"99.9"),10,_CENTER,_compress),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99.9"),9.5,_CENTER,_compress),; BarOut(_BAR)} {||.T.} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,14,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,5,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,9,,_ELITE),; BarOut(_invtBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,9.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("",4,,_ELITE),; RROUT("",1),; RROut("",14,,_ELITE),; RROUT("",1),; RROut("",5,,_ELITE),; RROUT("",1),; RROut("Total ",7,,_ELITE),; RROUT("",1),; RROut("",7,,_ELITE),; RROUT("",1),; RROut("",9,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MDISCOUNT,"9999.99"),8,_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(MSCAMT,"999999.99"),10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TAX,"999999.99"),9.5,_CENTER,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,PageWidth()-2),BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(FV(NTTBL,"NTNOTE")),(pagewidth()-28)*1.7,,_compress),; RROUT("GROSS AMOUNT",17),; RROUT(TRAN(MTOTVALUE,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("Challan No.,"+Alltrim(mchallanno),(pagewidth()-28)*1.7,,_compress),; RROUT("LESS DISCOUNT",17),; RROUT(TRAN(MCDISCAMT+MDISCOUNT,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("No. of Items :-"+tran(totitems,"999"),PAGEWIDTH()-28),; RROUT("ADD CGST",17),; RROUT(TRAN(MSCAMT,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",PAGEWIDTH()-28),; RROUT("ADD SGST",17),; RROUT(TRAN(TAX,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(SURTAXSTRING),(pagewidth()-28)*1.7,,_compress),; RROUT("OTHER ADJ.",17),; RROUT(TRAN(Totcdamt,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("SGST"+SubStr(VTAXSTRING,14),(pagewidth()-28)*1.7,,_compress),; RROUT("ROUND OFF",17),; RROUT(TRAN(MRNDDIFF,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("Amount of Tax Subject to Reverse Charge 0.00 ",pagewidth()-28),; RROUT("NET AMT",8),; RROUT(TRAN(TOTAL,"999999.99"),9,_RIGHT,_EXP),; BAROUT(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BAROUT(_HZBAR,Pagewidth()-2),; BarOut(_BRCBAR)} {|| ROut(" Authorised Signature ",PageWidth()-3)} {|| ROut("All Subject to "+AllTrim(mstation)+" Jurisdiction Only.",PageWidth()-13),; RROut(" E. & O. E.",13,_RIGHT)} {||ROUT("")} ******LastLine*** {||ROut(""),; BarOut(_LMCONNECT),; RROut("",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",14,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",9,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",8,_RIGHT,_ELITE),; BarOut(_PLUSBAR),; RROut("",8,_Right,_ELITE),; BarOut(_PLUSBAR),; RROut(" ",8,_Center,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",8,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",9.5,_CENTER,_ELITE),; BarOut(_RMCONNECT)}