******************** 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:=23,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:=20,msgline:=0,SortedItems:=.f.,PrintAllPendingOrder:=.f.,POrderLine:=0,BLNKLINE:=1,printocd:=.t.} {||ROUT("Goverment of India/ ",PAGEWIDTH()/2,_CENTER,_exp)} {||ROUT("Department of "+alltrim(mstate),PAGEWIDTH()-2,_CENTER),IIF(TOTAMT=0,CARGO1:=CARGO2:=0,NIL)} {||ROUT("Form GST INV -1",PAGEWIDTH()-2,_CENTER)} {||ROUT("(See Rule......................)",PAGEWIDTH()-2,_CENTER)} {||ROUT("Application for Electronic Reference Number of an invoice",PAGEWIDTH()/2,_CENTER,_EXP)} {||ROUT("")} {||ROUT("1.GSTIN",18),; RROUT(ALLTRIM(mgstno),50)} {||ROUT("2.Name",18),; RROUT(ALLTRIM(Mname),50)} {||ROUT("3.Address",18),; RROUT(ALLTRIM(MADDRESS1)+" "+Alltrim(maddress2)+","+AllTrim(MSTATION)+" "+ALLTRIM(MPIN),pagewidth()-18)} {||ROUT("4.Sr.No.of Invoice",18),; RROUT(tran(prninvno,"9999999"),50)} {||ROUT("5.Date of Invoice",18),; RROUT(Dtoc(InvDate),50)} {||ROUT("")} {||ROUT("Detail of Receiver (Billed to)",pagewidth()-40,_left,{"Time Roman"}),; RROUT("Detail of Consignee (Shipped to)",pagewidth()-40,_left,{"Time roman"})} {||ROUT("Name "+alltrim(fv(custtbl,"cuname")),pagewidth()-40),; RROUT("Name "+alltrim(fv(custtbl,"cuname")),pagewidth()-40)} {||ROUT("Address "+alltrim(fv(custtbl,"cuaddress1")),pagewidth()-40),; RROUT("Address "+alltrim(fv(custtbl,"cuaddress1")),pagewidth()-40)} {||ROUT("State:"+mcustate,pagewidth()-40),; RROUT("State:"+mcustate,pagewidth()-40)} {||ROUT("State Code:"+mcustatecd,pagewidth()-40),; RROUT("State Code:"+mcustatecd,pagewidth()-40)} {||ROUT("GSTIN/Unique ID "+alltrim(fv(custtbl,"cugstno")),pagewidth()-40),; RROUT("GSTIN/Unique ID "+alltrim(fv(custtbl,"cugstno")),pagewidth()-40)} {||ROut(""),; BarOut(_TLCBAR),; 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,7,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_TBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_TRCBAR)} {||ROut(""),; BarOut(_BAR),; RROut("Sr.",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Description",14,_CENTER,_ELITE),; BarOut(_BAR),; RROut("HS",5,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Qty ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Unit ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("Rate",7,_Right,_ELITE),; BarOut(_BAR),; RROut("Total ",8,_RIGHT,_ELITE),; BarOut(_BAR),; RROut("Disc",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Taxable",10,_Center,_ELITE),; BarOut(_BAR),; RROut("CGST",17,_CENTER,_ELITE),; BarOut(_BAR),; RROut("SGST",17,_CENTER,_ELITE),; BarOut(_BAR),; RROut("IGST",17,_CENTER,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; RROut("No.",4,_CENTER,_ELITE),; BarOut(_BAR),; RROut("of Goods",14,_CENTER,_ELITE),; BarOut(_BAR),; RROut("N",5,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(" ",7,_CENTER,_ELITE),; BarOut(_BAR),; RROut("(Per",7,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",8,_RIGHT,_ELITE),; BarOut(_BAR),; RROut("ount",8,_Right,_ELITE),; BarOut(_BAR),; RROut("Value",10,_Center,_ELITE),; BarOut(_BAR),; barout(_HZBAR,17,_CENTER,_ELITE),; BarOut(_BAR),; barout(_HZBAR,17,_CENTER,_ELITE),; BarOut(_BAR),; barout(_HZBAR,17,_CENTER,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_BAR),; 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("Item)",7,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",8,_RIGHT,_ELITE),; BarOut(_BAR),; RROut("",8,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",10,_Center,_ELITE),; BarOut(_BAR),; Rrout("Rate",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout("Amt.",8,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout("Rate",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout("Amt.",8,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout("Rate",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout("Amt.",8,_CENTER,_ELITE),; BarOut(_PLUSBAR)} {||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,7,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_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,_left,_elite),; BarOut(_BAR),; RROut(ALLTRIM(MQTY),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(STOCKTBL,"STRATE"),"999.99"),7,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(MVALUE,"99999.99"),8,_RIGHT,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(STOCKTBL,"STDISCOUNT"),"99.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(MAMT,"99999.99"),10,_rIGHT,_ELITE),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",ctaxrate),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",TRAN(MDTAXAMT,"99999.99")),8,_RIGHT,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",ctaxrate),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",TRAN(MDTAXAMT,"99999.99")),8,_RIGHT,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I",ctaxrate,""),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I",TRAN(MDTAXAMT,"99999.99"),""),8,_RIGHT,_ELITE),; BarOut(_BAR),CARGO1:=CARGO1+MAMT} *****Description Line*** **********************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(FV(PRODTBL,"PDHSN"),5,_CENTER,_compress),; BarOut(_BAR),; RROut(tran(fv(dtbl,"cdQTY"),"9999"),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(ALLTRIM(MPACK),7,_CENTER,_ELITE),; BarOut(_BAR),; RROut(TRAN(FV(dTBL,"cdprice"),"999.99"),7,_Right,_ELITE),; BarOut(_BAR),; RROut(TRAN(fv(dtbl,"cdamount"),"99999.99"),8,_RIGHT,_ELITE),; BarOut(_BAR),; RROut(TRAN(fv(dtbl,"CDDISCOUNT"),"99.99"),8,_Right,_ELITE),; BarOut(_BAR),; RROut("",10,_rIGHT,_ELITE),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",ctaxrate),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",TRAN(MDTAXAMT,"99999.99")),8,_RIGHT,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",ctaxrate),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I","",TRAN(MDTAXAMT,"99999.99")),8,_RIGHT,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I",ctaxrate,""),7.3,_CENTER,_elite),; BarOut(_BAR),; Rrout(iif(left(alltrim(fv(taxtbl,"txseqno")),1)="I",TRAN(MDTAXAMT,"99999.99"),""),8,_RIGHT,_ELITE),; BarOut(_BAR)} {||.T.} {||ROut(""),; BarOut(_LMCONNECT),; BarOut(_HZBAR,4,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,14,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,5,,_ELITE),; BarOut(_BAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,8,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_PLUSBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_RMCONNECT)} {||ROut(""),; BarOut(_BAR),; RROut("",26.5,,_ELITE),; BarOut(_BAR),; RROut("TOTAL",24.3,_RIGHT,_ELITE),; BarOut(_BAR),; RROut(TRAN(MTOTVALUE,"99999.99"),8.2,_RIGHT,_ELITE),; BarOut(_BAR),; RROut(TRAN(MDISCOUNT,"9999.99"),7.7,,_ELITE),; BarOut(_BAR),; RROut(TRAN(CARGO1,"999999.99"),10.2,_RIGHT,_ELITE),; BarOut(_BAR),; BarOut("",7.3,,_ELITE),; RrOut("",9.7,,_ELITE),; BarOut(_BAR),; RrOut("",17,_CENTER,_ELITE),; BarOut(_BAR),; BarOut("",7,,_ELITE),; RROut(TRAN(TAX,"999999.99"),10,_CENTER,_ELITE),; BarOut(_BAR)} {||ROut(""),; BarOut(_LMCONNECT),; BAROut(_HZBAR,26.5,,_ELITE),; BarOut(_INVTBAR),; BAROut(_HZBAR,24.3,,_ELITE),; BarOut(_BLCBAR),; BarOut(_HZBAR,8.2,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,7.8,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,10,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_INVTBAR),; BarOut(_HZBAR,17,,_ELITE),; BarOut(_RMCONNECT)} {||ROUT(""),; BAROUT(_BAR),; RROUT("",PAGEWIDTH()-2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Freight "+tran(ABS(invfreight),"99999.99"),pagewidth()-2),; barout(_bar)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Insurance ",pagewidth()-2),; barout(_bar)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Packing and Forwarding Charges ",pagewidth()-2),; barout(_bar)} {||ROUT(""),; BAROUT(_BAR),; BAROUT(_HZBAR,PAGEWIDTH()-2),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Total Invoice Value (In Figure)",30),; RROUT(TRAN(TOTAL,"999999.99"),PAGEWIDTH()-32),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Total Invoice Value (In Words) ",30),; RROUT(alltrim(mamtwords),(PAGEWIDTH()-32)*1.7,,_COMPRESS),; BAROUT(_BAR)} {||ROUT(""),; BAROUT(_BAR),; RROUT("Amount of Tax Subject to Reverse charge 0.00 ",Pagewidth()-2),; BAROUT(_BAR)} {||ROut(""),; BarOut(_BLCBAR),; BAROUT(_HZBAR,Pagewidth()-2),; BarOut(_BRCBAR)} {||ROUT(""),; RROUT("Declaration",pagewidth()-40),; RROUT("Signature ",pagewidth()-40)} {||ROUT("")} {||ROUT("")} {||ROUT(""),; RROUT("Signatory",pagewidth()-40),; RROUT("Name of the Designation / Status ",pagewidth()-40)} {||ROUT("")} {||ROUT("")} {||ROUT(""),; RROUT("Electronic Reference Number",pagewidth()-40),; RROUT("Date :- ",pagewidth()-40)} {||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(" ",7,_Right,_ELITE),; BarOut(_BAR),; RROut(" ",8,_RIGHT,_ELITE),; BarOut(_PLUSBAR),; RROut("",8,_Right,_ELITE),; BarOut(_PLUSBAR),; RROut(" ",10,_Center,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",8,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",8,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",7.3,_CENTER,_ELITE),; BarOut(_PLUSBAR),; Rrout(" ",8,_CENTER,_ELITE),; BarOut(_RMCONNECT)}