WIN RJVF50
aDMIN
11100
360
360
360
360
1
9
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
Detail
0
720
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
BillWiseSales
-1
11100
240
-1
InterSales
I00/I01/I02/I03/I04/I10/I11/I12/I13/I14/I20/I21/I22/I23/I24/I30/I31/I32/I33/I34/I40/I41/I42/I43/I44/IA0/IA1/IA2/IA3/IA4/IB0/IB1/IB2/IB3/IB4/IE0/IE1/IE2/IE3/IE4/IF0/IF1/IF2/IF3/IF4/IT0/IT1/IT2/IT3/IT4/IW0/IW1/IW2/IW3/IW4/SC0
BillWisePurchReturn
-1
240
11100
240
-1
InterPurchReturn
C00/C01/C02/C03/C04/C10/C11/C12/C13/C14/C20/C21/C22/C23/C24/C30/C31/C32/C33/C34/C40/C41/C42/C43/C44/CA0/CA1/CA2/CA3/CA4/CB0/CB1/CB2/CB3/CB4/CE0/CE1/CE2/CE3/CE4/CF0/CF1/CF2/CF3/CF4/CT0/CT1/CT2/CT3/CT4/CW0/CW1/CW2/CW3/CW4
__MACRO
Sub ERetMacro()
Cells.Select
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Dim Rng As Range
Dim Rng1 As Range
Dim strng As String
Windows("VATForm50.xls").Activate
ActiveWorkbook.Sheets(2).Unprotect Password:="vatform50"
Windows("VATForm50.xls").Activate
Range("C2").Select
Windows("RJVF50.xls").Activate
strng = Range("E2").Value & Range("F2").Value & Range("G2").Value
Windows("VATForm50.xls").Activate
ActiveWorkbook.Sheets(2).Activate
Range("C2").Value = strng
Windows("VATForm50.xls").Activate
Range("C3").Select
Windows("RJVF50.xls").Activate
Range("J3").Select
ActiveWorkbook.Sheets(1).Range("J3").Copy
Windows("VATForm50.xls").Activate
ActiveWorkbook.Sheets(2).Activate
Range("C3").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("B6").Select
Windows("RJVF50.xls").Activate
Range("A6").Select
x = ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("A6:A" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("B6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("C6").Select
Windows("RJVF50.xls").Activate
Range("D6").Select
x = ActiveWorkbook.Sheets(1).Range("D" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("D6:D" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("C6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("D6").Select
Windows("RJVF50.xls").Activate
Range("K6").Select
x = ActiveWorkbook.Sheets(1).Range("K" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("K6:K" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("D6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("E6").Select
Windows("RJVF50.xls").Activate
Range("L6").Select
x = ActiveWorkbook.Sheets(1).Range("L" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("L6:L" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("E6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("F6").Select
Windows("RJVF50.xls").Activate
Range("N6").Select
x = ActiveWorkbook.Sheets(1).Range("N" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("N6:N" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("F6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("G6").Select
Windows("RJVF50.xls").Activate
Range("O6").Select
x = ActiveWorkbook.Sheets(1).Range("O" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("O6:O" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("G6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("H6").Select
Windows("RJVF50.xls").Activate
Range("P6").Select
x = ActiveWorkbook.Sheets(1).Range("P" & Rows.Count).End(xlUp).Row -1
ActiveWorkbook.Sheets(1).Range("P6:P" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("H6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("I6").Select
Windows("RJVF50.xls").Activate
Range("Q6").Select
x = ActiveWorkbook.Sheets(1).Range("Q" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("Q6:Q" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("I6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm50.xls").Activate
Range("J6").Select
Windows("RJVF50.xls").Activate
Range("R6").Select
x = ActiveWorkbook.Sheets(1).Range("R" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("R6:R" & x).Select
Selection.Copy
Windows("VATForm50.xls").Activate
Range("J6").Select
ActiveWorkbook.Sheets(2).Paste
End Sub
1215
240
0
__MACROFILENAME
VATForm50.xls
1020
1215
240
0
Field32
Statement of Used form VAT-49
-1
11100
240
16777215
1
1
2
Times New Roman
9.75
Field33
-1
240
11100
240
16777215
1
1
2
Times New Roman
9.75
Field34
Field35.Value+1
-1
2970
255
405
225
-1
Field35
iif(month(FROMDATE)>=4 and month(FROMDATE)<=12,Year(FromDate),Year(FromDate)-1)
-1
2250
255
585
225
-1
Field36
Quarter to which statement relates to
-1
480
11100
240
16777215
1
1
2
Times New Roman
9.75
Field37
iif(month(FROMDATE)>=4 and month(FROMDATE)<=6,"First Quarter",
iif(month(FROMDATE)>=7 and month(FROMDATE)<=9,"Second Quarter",
iif(month(FROMDATE)>=10 and month(FROMDATE)<=12,"Third Quarter","Fourth Quarter")))
-1
3500
495
2000
210
-1
Field1
Dealer/Person to whom goods sold/dispatched
-1
720
5000
720
1
16777215
1
1
2
Times New Roman
9.75
Field2
Particulares of Goods sold or dispatched
-1
5000
720
4000
720
1
16777215
1
1
2
Times New Roman
9.75
Field3
Serial No of used form VAT-49
-1
9000
720
1100
720
1
16777215
1
1
2
Times New Roman
9.75
Field4
-1
10100
720
1000
720
16777215
1
1
2
Times New Roman
9.75
Field5
Name
-1
1440
2000
960
1
16777215
1
1
2
Times New Roman
9.75
Field28
Address
-1
2000
1440
2000
960
1
16777215
1
1
2
Times New Roman
9.75
Field29
Reg No (Tin)
-1
4000
1440
1000
960
1
16777215
1
1
2
Times New Roman
9.75
Field30
No. of Invoice/Challan
-1
5000
1440
1000
960
1
16777215
1
1
2
Times New Roman
9.75
Field31
Date(dd/mm/yyyy or dd-mon-yyyy)
-1
6000
1440
1005
960
1
16777215
1
1
2
Times New Roman
9.75
Field38
Name of Goods
-1
7000
1440
1000
960
1
16777215
1
1
2
Times New Roman
9.75
Field39
Value/Estimated value(IN Rs.)
-1
8000
1440
1000
960
1
16777215
1
1
2
Times New Roman
9.75
Field40
Serial No
-1
9000
1440
1100
960
1
16777215
1
1
2
Times New Roman
9.75
Field41
Status of the form
-1
10100
1440
1000
960
1
16777215
1
1
2
Times New Roman
9.75
Field6
-1
480
2000
240
1
16777215
1
1
2
Times New Roman
9.75
Field7
-1
2000
480
2000
240
1
16777215
1
1
2
Times New Roman
9.75
Field8
-1
4000
480
1000
240
1
16777215
1
1
2
Times New Roman
9.75
Field9
-1
5000
480
1000
240
1
16777215
1
1
2
Times New Roman
9.75
Field10
-1
6000
480
1005
240
1
16777215
1
1
2
Times New Roman
9.75
Field11
-1
7000
480
1000
240
1
16777215
1
1
2
Times New Roman
9.75
Field12
[BillWiseSales].Subreport.Fields("Field19").Value+[BillWisePurchReturn].Subreport.Fields("Field19").Value
-1
8000
480
1000
240
2
16777215
1
1
2
Times New Roman
9.75
Field13
-1
9000
480
1100
240
1
16777215
1
1
2
Times New Roman
9.75
Field14
-1
10100
480
1000
240
1
16777215
1
1
2
Times New Roman
9.75
Field16
Assessment Year
-1
255
1995
225
-1
Field15
-
-1
2865
255
270
225
-1
InterSales
Administrator
11100
360
360
360
360
1
9
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
BillNo
BillNo
1
Detail
0
Field21.Value=Field21.Value+1
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
BillNo_Header
5
240
Field11.Value=Field11.Value+Field19.Value
Field9
0
-1
11025
0
-1
Field10
0
11025
0
Field11
0
11040
15
0
Field13
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(PartyWithoutAlias,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
2000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field14
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Address,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
2000
2000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field15
Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Tin,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+",""),11)
-1
4000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field16
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Series+BillNo,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
5000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field17
EntryDate
-1
6000
1005
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field18
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(CatgDesc,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
7000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field19
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Sum(TaxableAmt+TaxAmt),")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
#,##0.00
8000
1000
240
2
16777215
1
1
-1
2
Times New Roman
9.75
Field20
Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(SerialNo,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")," ",""),20)
-1
9000
1100
240
1
16777215
1
1
-1
2
Times New Roman
9.75
Field21
Used
-1
10100
1000
240
1
16777215
1
1
-1
2
Times New Roman
9.75
InterPurchReturn
Administrator
11250
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
BillNo
BillNo
1
Detail
0
Field21.Value=Field21.Value+1
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
BillNo_Header
5
240
Field11.Value=Field11.Value+Field19.Value
Field9
0
-1
11250
0
-1
Field10
0
11220
0
Field11
0
11235
15
0
Field13
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(PartyWithoutAlias,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
2000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field14
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Address,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
2000
2000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field15
Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Tin,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+",""),11)
-1
4000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field16
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Series+BillNo,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
5000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field17
EntryDate
-1
6000
1005
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field18
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(CatgDesc,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
7000
1000
240
0
16777215
1
1
-1
2
Times New Roman
9.75
Field19
Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Sum(TaxableAmt+TaxAmt),")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
#,##0.00
8000
1000
240
2
16777215
1
1
-1
2
Times New Roman
9.75
Field20
Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(SerialNo,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")," ",""),20)
-1
9000
1100
240
1
16777215
1
1
-1
2
Times New Roman
9.75
Field21
Used
-1
10100
1000
240
1
16777215
1
1
-1
2
Times New Roman
9.75