******* 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()+8)/2,_CENTER,_EXPLARGE)} {||ROUT("GSTIN:"+alltrim(MGSTNO),29),; RROUT(ALLTRIM(MADDRESS),PAGEWIDTH()-44,_CENTER),; RROUT("Phone: "+Alltrim(MPHONE1),29),IIF(TOTAMT=0,CARGO1:=0,NIL)} {||ROUT("TIN No.:"+alltrim(MRSTNO),29),; RROUT(Alltrim(maddress1)+" "+Alltrim(maddress2),PAGEWIDTH()-44,_CENTER),; RROUT("F.L.No:"+Alltrim(Mfoodlic),29)} {||ROUT("D.L.No.:"+alltrim(MLICNO)+","+alltrim(MLICNO2),29),; RROUT(ALLTRIM(MSTATION)+"- "+ALLTRIM(MPIN)+", "+ALLTRIM(MSTATE),PAGEWIDTH()-44,_CENTER),; RROUT("Mobile:"+Alltrim(MMOBILE),29)} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-24),; BarOut(_TBAR),; BarOut(_HZBAR,12),; BarOut(_TBAR),; BAROut(_HZBAR,17.8),; BAROut(_HZBAR,1),; BarOut(_TRCBAR)} {||ROut(""),; BarOut(_BAR),; RROut("M/s ",4),; RROut(AllTrim(FV(CUSTTBL,"CUNAME")),PageWidth()-45),; 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.8),; 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()-28),; BarOut(_BAR),; RROut(ALLTRIM(INVCUCODE),12*1.7,_CENTER,_COMPRESS),; BarOut(_BAR),; RROut("Date : "),; RROut(DToC(INVDATE),10.8),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("State Code:"+mCuStateCd+SPACE(8)+" GSTIN :-"+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-24),; BarOut(_BAR),; RROut("",6,,_EXP),; BarOut(_BAR),; RROut(" ",6),; RROut("",6.4,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,3,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,25,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_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,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("Sr.",3,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Description",25,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Mfg",7,_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(" QtyDisc",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Total",10,_Right,_ELITE),; BarOut(_BAR),; RROut("Taxable",10,_Right,_ELITE),; BarOut(_BAR),; RROut(" CGST ",7,_LEFT,_ELITE),; BarOut(_BAR),; RROut(" SGST",7,_LEFT,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,3,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,25,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_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,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_RMCONNECT)} ******* Sales Invoice : Print Detail *Use mdt for exp.dt. mrate for discounted rate {||ROut(""),; BarOut(_BAR),; RROut(TRAN(TOTITEMS,"999"),3,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(mtx+FV(PRODTBL,"PDNAME")),25,_LEFT,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(GROUPTBL,"GPNAME")),7,_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")),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((FV(STOCKTBL,"STRATE")/FV(STOCKTBL,"STBOXSIZE"))*VAL(MQTY2),"9999.99"),7,_CENTER,_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%"),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99%"),7,_CENTER,_ELITE),; 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)+.3),; BAROUT(_BAR)} {||.T.} {||.T.} {||ROut(""),; BarOut(_BAR),; RROut(FV(DTBL,"CDTYPE"),3,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),25,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(GROUPTBL,"GPNAME")),7,_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("",7,_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"),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99.9"),7,_CENTER,_ELITE),; BarOut(_BAR)} {||.T.} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,3,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,25,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_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,7,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("",3,,_ELITE),; RROUT("",1),; RROut("",25,,_ELITE),; RROUT("",8),; RROut("",4,,_ELITE),; RROUT("",1),; RROut("Total ",7,,_ELITE),; RROUT("",1),; RROut("",5,,_ELITE),; RROUT("",1),; RROut("",9,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",8,,_ELITE),; RROUT("",1),; RROut("",7.9,,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MDISCOUNT,"999.99"),6,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut("",6.9,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TOTAMT,"99999.99"),10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(CARGO1,"99999.99"),10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MSCAMT,"9999.99"),7,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TAX,"9999.99"),7,_CENTER,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,(PageWidth()-2)+10.8),BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(FV(NTTBL,"NTNOTE")),(pagewidth()-20)*1.7,,_compress),; RROUT("GROSS AMOUNT",17),; RROUT(TRAN(MTOTVALUE,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("Challan No.,"+Alltrim(mchallanno),(pagewidth()-20)*1.7,,_compress),; RROUT("LESS DISCOUNT",17),; RROUT(TRAN(MCDISCAMT+MDISCOUNT,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("No. of Items :-"+tran(totitems,"999"),PAGEWIDTH()-20),; RROUT("ADD CGST",17),; RROUT(TRAN(MSCAMT,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",PAGEWIDTH()-20),; RROUT("ADD SGST",17),; RROUT(TRAN(TAX,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(SURTAXSTRING),(pagewidth()-20)*1.7,,_compress),; RROUT("OTHER ADJ.",17),; RROUT(TRAN(Totcdamt,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("SGST"+SubStr(VTAXSTRING,14),(pagewidth()-20)*1.7,,_compress),; RROUT("ROUND OFF",17),; RROUT(TRAN(MRNDDIFF,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("Amount of Tax Subject to Reverse Charge 0.00 ",pagewidth()-20),; RROUT("NET AMT",9.7),; RROUT(TRAN(TOTAL,"999999.99"),9,_RIGHT,_EXP),; RROUT("",1),; BAROUT(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BAROUT(_HZBAR,(Pagewidth()-2)+10.7),; 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("",3,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",25,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",7,_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(" ",7,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7,_CENTER,_ELITE),; BarOut(_RMCONNECT)}