****** 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,printocd:=.t.} {||ROUT(ALLTRIM(MNAME),PAGEWIDTH()/2,_CENTER,_EXPLARGE)} {||ROUT("GSTIN "+alltrim(MGSTNO),25),; RROUT(ALLTRIM(MADDRESS1),PAGEWIDTH()-50,_CENTER),; RROUT("Phone "+Alltrim(mPHONE1),22),IIF(TOTAMT=0,CARGO1:=0,NIL)} {||ROUT("TIN No."+alltrim(MRSTNO),22),; RROUT(Alltrim(maddress2)+" "+ALLTRIM(MSTATION)+" "+ALLTRIM(MPIN),PAGEWIDTH()-47,_CENTER),; RROUT("F.L.No."+Alltrim(Mfoodlic),22)} {||ROUT("D.L.No."+alltrim(MLICNO)+","+ALLTRIM(MLICNO2),22),; RROUT("",PAGEWIDTH()-47,_CENTER),; RROUT("Mobile "+Alltrim(MMOBILE),22)} {||ROut(""),; BarOut(_TLCBAR),; BarOut(_HZBAR,PageWidth()-36),; 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()-57),; 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()-40),; 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(4)+" GSTIN :- "+ALLTRIM(FV(CUSTTBL,"CUGSTNO")),PageWidth()-36),; BarOut(_BAR),; RROut("",6,,_EXP),; BarOut(_BAR),; RROut(" ",6),; RROut("",6,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; barout(_hzbar,pagewidth()-1)} {||ROut(""),; RROut("Sr.",6,_CENTER,_compress),; RROut("Description",20,,_compress),; RROut("",1,,_compress),; RROut("HSN",7,_CENTER,_compress),; RROut("Qty ",9,_CENTER,_compress),; RROut("Unit ",8,,_compress),; RROut("",2,,_compress),; RROut("Batch",9,,_compress),; RROut("Exp.Dt.",8,_CENTER,_compress),; RROut("MRP",8,_Right,_compress),; RROut("Rate",8,_Right,_compress),; RROut("Disc",8,_Right,_compress),; RROut("Total",10,_Right,_compress),; RROut("Taxable",10,_Right,_compress),; RROut("CGST ",10,_CENTER,_compress),; RROut("SGST ",8,_CENTER,_compress)} {||ROut(""),; barout(_hzbar,pagewidth()-1)} ****** Sales Invoice : Print Detail *Use mdt for exp.dt. mrate for discounted rate {||ROut(""),; RROut(TRAN(TOTITEMS,"999"),6,_CENTER,_compress),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),20,,_compress),; RROut("",1,,_compress),; RROut(FV(PRODTBL,"PDHSN"),7,_CENTER,_compress),; RROut(ALLTRIM(MQTY),9,_CENTER,_compress),; RROut("",1,,_compress),; RROut(ALLTRIM(MPACK),8,,_compress),; RROut("",2,,_compress),; RROut(ALLTRIM(FV(STOCKTBL,"STBHNO")),9,,_compress),; RROut(MDT,8,_CENTER,_compress),; RROut(TRAN(FV(BATCHTBL,"BHMRP"),"9999.99"),8,_Right,_compress),; RROut(TRAN(FV(STOCKTBL,"STRATE"),"9999.99"),8,_Right,_compress),; RROut(TRAN(FV(STOCKTBL,"STDISCOUNT"),"99.99"),8,_Right,_compress),; RROut(TRAN(MVALUE,"999999.99"),10,_Right,_compress),; RROut(TRAN(MAMT,"999999.99"),10,_Right,_compress),; RROut(TRAN(FV(TAXTBL,"TXSCHRG"),"99%"),10,_CENTER,_compress),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99%"),9.5,_CENTER,_compress),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("SALE RETURN")} {||.T.} {||.T.} {||ROut(""),; RROut(FV(DTBL,"CDTYPE"),6,_CENTER,_compress),; RROut(ALLTRIM(FV(PRODTBL,"PDNAME")),20,,_compress),; RROut("",2,,_compress),; RROut(FV(PRODTBL,"PDHSN"),5,_CENTER,_compress),; RROut(TRAN(fv(dtbl,"CDQTY"),"9999"),7,_CENTER,_compress),; RROut(ALLTRIM(MPACK),10,,_compress),; RROut("",2,,_compress),; RROut(ALLTRIM(FV(DTBL,"CDBHNO")),9,,_compress),; RROut(MDT,8,_CENTER,_compress),; RROut(TRAN(FV(DTBL,"CDMRP"),"9999.99"),8,_Right,_compress),; RROut(TRAN(FV(DTBL,"CDPRICE"),"9999.99"),8,_Right,_compress),; RROut(TRAN(FV(DTBL,"CDDISCOUNT"),"99.99"),8,_Right,_compress),; RROut(TRAN(FV(DTBL,"CDAMOUNT"),"999999.99"),10,_Right,_compress),; RROut("",10,_Right,_compress),; RROut(TRAN(FV(TAXTBL,"TXSCHRG"),"99%"),10,_CENTER,_compress),; RROut(TRAN(FV(TAXTBL,"TXRSTRATE"),"99%"),9.5,_CENTER,_compress)} {||.T.} {||ROut(""),; barout(_hzbar,pagewidth()-1)} {||ROut(""),; BarOut(_BAR),; RROut("",6,,_compress),; RROUT("",1),; RROut("",11,,_compress),; RROUT("",1),; RROut("",12,,_compress),; RROUT("",1),; RROut("Total",6,,_compress),; RROUT("",1),; RROut("",7,,_compress),; RROUT("",1),; RROut("",5,,_compress),; RROUT("",1),; RROut("",8,,_compress),; RROUT("",1),; RROut("",8,,_compress),; RROUT("",1),; RROut("",10,,_compress),; RROut(TRAN(MDISCOUNT,"9999.99"),8,_CENTER,_compress),; RROut(TRAN(TOTAMT,"999999.99"),10,_CENTER,_compress),; RROut(TRAN(CARGO1,"999999.99"),10,_CENTER,_compress),; RROut(TRAN(mscamt,"9999.99"),8,_CENTER,_compress),; RROut(TRAN(TAX,"9999.99"),8,_CENTER,_compress)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,PageWidth()-3),BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(FV(NTTBL,"NTNOTE")),(pagewidth()-30)*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()-30)*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()-30)*1.7,,_COMPRESS),; RROUT("ADD CGST",17),; RROUT(TRAN(mscamt,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",(pagewidth()-30)*1.7,,_COMPRESS),; RROUT("ADD SGST",17),; RROUT(TRAN(TAX,"999999.99"),9,_RIGHT),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(SURTAXSTRING),(pagewidth()-30)*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()-30)*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()-30)*1.7,,_COMPRESS),; RROUT("NET AMT",8),; RROUT(TRAN(TOTAL,"999999.99"),9,_RIGHT,_EXP),; BAROUT(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BAROUT(_HZBAR,Pagewidth()-3),; BarOut(_BRCBAR)} {|| ROut(" Authorised Signature ",PageWidth()-3)} {|| ROut("All Subject to "+AllTrim(mstation)+" Jurisdiction Only.",PageWidth()-15),; RROut(" E. & O. E.",13,_RIGHT)} {||ROUT("")} *****LastLine*** *******LastLine*** *****Grid Lines***