******** 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:=12,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:=13,msgline:=0,SortedItems:=.f.,PrintAllPendingOrder:=.f.,POrderLine:=0,BLNKLINE:=1,printocd:=.t.,cargo10:=.f.,cargo9:=.t.} {||ROUT(iif(Cargo9,"TAX INVOICE","BILLS OF SUPPLY"),Pagewidth()+6,_Center,_Normal)} {||ROUT(ALLTRIM(MNAME),(PAGEWIDTH()+26)/2,_CENTER,_EXP)} {||ROUT("GSTIN:"+alltrim(MGSTNO),29),; RROUT(ALLTRIM(MADDRESS),PAGEWIDTH()-44,_CENTER),; RROUT("Phone: "+Alltrim(MPHONE1),29),IIF(TOTAMT=0,CARGO1:=0,NIL)} {||ROUT("FL No.:"+alltrim(MFoodLic),29),; RROUT(Alltrim(maddress1)+" "+Alltrim(maddress2),PAGEWIDTH()-44,_CENTER),; RROUT("Email:"+Alltrim(Memail),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.7),; 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.7),; RROut(Tran(PRNINVNO,"999999"),6,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("",4),; RROut(AllTrim(FV(CUSTTBL,"CUADDRESS1"))+" "+AllTrim(FV(CUSTTBL,"CUADDRESS2")),PageWidth()-28),; BarOut(_BAR),; RROut(ALLTRIM(INVCUCODE),12*1.7,_CENTER,_COMPRESS),; BarOut(_BAR),; RROut("Date : "),; RROut(DToC(INVDATE),10.7),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("",4),; RROut(Alltrim(FV(Custtbl,"Custation")),15),; RRout(iif(empty(alltrim(fv(CUSTTBL,"CUGSTNO"))),"State Code:"+mCuStateCd+" PAN :-"+ALLTRIM(FV(CUSTTBL,"CuPanNo")),"GSTIN:-"+alltrim(FV(CUSTTBL,"CUGSTNO"))),PageWidth()-43,_left,_normal),; BarOut(_BAR),; RROut("",6,,_EXP),; BarOut(_BAR),; RROut(" ",6),; RROut("",6.3,_LEFT,_EXP),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,iif(cargo10,28,28+9),,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,5,,_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,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_TBAR),; iif(cargo10,BarOut(_HZBAR,7,,_ELITE),0),; iif(cargo10,BarOut(_TBAR),0),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,6.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("Qty ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Unit ",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Description",iif(cargo10,28,28+9),_CENTER,_ELITE),; BarOut(_BAR),; RROut(" Mfg",8,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" HSN",5,_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("Total",10,_Right,_ELITE),; BarOut(_BAR),; RROut("Disc",6,_Right,_ELITE),; BarOut(_BAR),; iif(cargo10,RROut(" QtyDisc",7,_CENTER,_ELITE),0),; iif(cargo10,BarOut(_BAR),0),; RROut("Taxable",10,_Right,_ELITE),; BarOut(_BAR),; RROut(" CGST ",7,_LEFT,_ELITE),; BarOut(_BAR),; RROut(" SGST",6.5,_LEFT,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,iif(cargo10,28,28+9),,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,5,,_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,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_plusBAR),; iif(cargo10,BarOut(_HZBAR,7,,_ELITE),0),; iif(cargo10,BarOut(_plusBAR),0),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_plusBAR),; BarOut(_HZBAR,6.5,,_ELITE),; BarOut(_RMCONNECT)} ******** Sales Invoice : Print Detail *Use mdt for exp.dt. mrate for discounted rate {||ROut(""),; BarOut(_BAR),; RROut(ALLTRIM(MQTY),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),6,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(mtx+FV(PRODTBL,"PDNAME")),iif(cargo10,28,28+9),_LEFT,_ELITE),; BarOut(_BAR),; RROut(" "+ALLTRIM(FV(GROUPTBL,"GPNAME")),8,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(FV(PRODTBL,"PDHSN")),5,_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(MVALUE,"999999.99"),10,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(STOCKTBL,"STDISCOUNT"),"99.99"),6,_Right,_ELITE),; BarOut(_BAR),; iif(cargo10,RROut(TRAN((FV(STOCKTBL,"STRATE")/FV(STOCKTBL,"STBOXSIZE"))*VAL(MQTY2),"9999.99"),7,_CENTER,_ELITE),0),; iif(cargo10,BarOut(_BAR),0),; 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%"),6.5,_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,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,iif(cargo10,28,28+9),,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,5,,_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,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,6,,_ELITE),; BarOut(_PLUSBAR),; iif(cargo10,BarOut(_HZBAR,7,,_ELITE),0),; iif(cargo10,BarOut(_PLUSBAR),0),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,6.5,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("",3,,_ELITE),; RROUT("",1),; RROut("No. of Items :-"+tran(totitems,"999"),25,,_ELITE),; RROUT("",iif(cargo10,8,8+5.3)),; RROut("",5,,_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,,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TOTAMT,"99999.99"),10.2,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MDISCOUNT,"999.99"),6,_CENTER,_ELITE),; BarOut(_PLUSBAR),; iif(cargo10,RROut("",6.9,_CENTER,_ELITE),0),; iif(cargo10,BarOut(_PLUSBAR),0),; RROut(TRAN(CARGO1,"99999.99"),10.1,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(MSCAMT,"9999.99"),7,_CENTER,_ELITE),; BarOut(_PLUSBAR),; RROut(TRAN(TAX,"9999.99"),6.3,_CENTER,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""), BarOut(_LMCONNECT),BAROUT(_HZBAR,(PageWidth()-2)+10.7),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(alltrim(mamtwords),iif(len(alltrim(mamtwords))<=PAGEWIDTH()-20,(PAGEWIDTH()-20),(PAGEWIDTH()-20)*1.7),_left,iif(Len(alltrim(mamtwords))>PageWidth()-20,_COMPRESS,_NORMAL)),; RROUT("ADD CGST",17),; RROUT(TRAN(MSCAMT,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut(Alltrim(SURTAXSTRING),(pagewidth()-20)*1.7,,_compress),; RROUT("ADD SGST",17),; RROUT(TRAN(TAX,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("SGST"+SubStr(VTAXSTRING,14),(pagewidth()-20)*1.7,,_compress),; RROUT("LESS RET./CR NOTE.",17),; RROUT(TRAN(Totcdamt,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("",pagewidth()-20,,),; RROUT("ROUND OFF",17),; RROUT(TRAN(MRNDDIFF,"999999.99"),9.7,_RIGHT),; RROUT("",2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROut("For :-"+alltrim(mname),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("All Subject to "+AllTrim(mstation)+" Jurisdiction Only.",PageWidth()-13),; RROut(" E. & O. E.",13,_RIGHT)} {||ROUT("")} *********LastLine*** {||ROut(""),; BarOut(_LMCONNECT),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",6,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",iif(cargo10,28,28+9),_CENTER,_ELITE),; BarOut(_BAR),; RROut("",8,_CENTER,_ELITE),; BarOut(_BAR),; RROut("",5,_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(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",6,_CENTER,_ELITE),; BarOut(_PLUSBAR),; iif(cargo10,Rrout(" ",7,_CENTER,_ELITE),0),; iif(cargo10,BarOut(_PLUSBAR),0),; Rrout(" ",10,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",6.5,_CENTER,_ELITE),; BarOut(_RMCONNECT)}