WIN RJVF48
aDMIN
11475
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
BillWisePurch
-1
11100
240
-1
IntrerPurchase
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/PC0
BillWiseSalesReturn
-1
240
11100
240
-1
InterSales Return
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
__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
Windows("VATForm48.xls").Activate
ActiveWorkbook.Sheets(2).Unprotect Password:="vatform48"
Windows("VATForm48.xls").Activate
Range("C2").Select
Windows("RJVF48.xls").Activate
strng = Range("C2").Value & Range("E2").Value & Range("F2").Value
Windows("VATForm48.xls").Activate
ActiveWorkbook.Sheets(2).Activate
Range("C2").Value = strng
Windows("VATForm48.xls").Activate
Range("C3").Select
Windows("RJVF48.xls").Activate
Range("H3").Select
ActiveWorkbook.Sheets(1).Range("H3").Copy
Windows("VATForm48.xls").Activate
ActiveWorkbook.Sheets(2).Activate
Range("C3").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("B6").Select
Windows("RJVF48.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("VATForm48.xls").Activate
Range("B6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("C6").Select
Windows("RJVF48.xls").Activate
Range("C6").Select
x = ActiveWorkbook.Sheets(1).Range("C" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("C6:C" & x).Select
Selection.Copy
Windows("VATForm48.xls").Activate
Range("C6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("D6").Select
Windows("RJVF48.xls").Activate
Range("I6").Select
x = ActiveWorkbook.Sheets(1).Range("I" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("I6:I" & x).Select
Selection.Copy
Windows("VATForm48.xls").Activate
Range("D6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("E6").Select
Windows("RJVF48.xls").Activate
Range("J6").Select
x = ActiveWorkbook.Sheets(1).Range("J" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("J6:J" & x).Select
Selection.Copy
Windows("VATForm48.xls").Activate
Range("E6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("F6").Select
Windows("RJVF48.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("VATForm48.xls").Activate
Range("F6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("G6").Select
Windows("RJVF48.xls").Activate
Range("M6").Select
x = ActiveWorkbook.Sheets(1).Range("M" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Sheets(1).Range("M6:M" & x).Select
Selection.Copy
Windows("VATForm48.xls").Activate
Range("G6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("H6").Select
Windows("RJVF48.xls").Activate
Range("N6").Select
x = ActiveWorkbook.Sheets(1).Range("N" & Rows.Count).End(xlUp).Row -1
ActiveWorkbook.Sheets(1).Range("N6:N" & x).Select
Selection.Copy
Windows("VATForm48.xls").Activate
Range("H6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("I6").Select
Windows("RJVF48.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("VATForm48.xls").Activate
Range("I6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm48.xls").Activate
Range("J6").Select
Windows("RJVF48.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("VATForm48.xls").Activate
Range("J6").Select
ActiveWorkbook.Sheets(2).Paste
End Sub
1215
240
0
__MACROFILENAME
VATForm48.xls
1170
1215
240
0
Field31
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
3600
495
1995
225
-1
Field32
Statement of Used form VAT-47
-1
11100
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field33
Assessment Year
-1
240
11100
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field34
iif(month(FROMDATE)>=4 and month(FROMDATE)<=12,Year(FromDate),Year(FromDate)-1)
-1
2000
255
600
225
-1
Field35
Field34.Value+1
-1
2700
255
600
225
0
-1
Field36
-
-1
2600
255
100
225
-1
Field37
Quarter to which statement Relates
480
11100
240
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field38
Dealer/Person to whom goods Purchased/recived
-1
720
4000
720
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field39
Particulares of Goods Imported
-1
4000
720
5000
720
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field40
Serial No of used form VAT-47
-1
9000
720
1100
720
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field41
-1
10100
720
1000
720
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field42
Name
-1
1440
2000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field43
Address
-1
2000
1440
2000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field44
Reg No(Tin)
-1
4000
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field45
Invoice/Challan No.
-1
5000
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field46
Date(dd/mm/yyyy or dd-mon-yyyy)
-1
6000
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field47
Name of Goods
-1
7000
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field48
Value(IN Rs.)
-1
8000
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field49
Serial No
-1
9000
1440
1100
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field50
Status for the form
-1
10100
1440
1000
960
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field1
-1
480
2000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field2
-1
2000
480
2000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field3
-1
4000
480
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field4
-1
5000
480
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field5
-1
6000
480
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field6
-1
7000
480
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field7
[BillWisePurch].Subreport.Fields("Field1").Value+[BillWiseSalesReturn].Subreport.Fields("Field1").Value
-1
8000
480
1000
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field8
-1
9000
480
1100
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field9
-1
10100
480
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
InterSales Return
Administrator
11145
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
Field1.Value=Field1.Value+Field17.Value
Field1
0
11100
15
0
Field11
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
60
60
-1
2
Times New Roman
9.75
Field12
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
60
60
-1
2
Times New Roman
9.75
Field13
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
60
60
-1
2
Times New Roman
9.75
Field14
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(Series+BillNo+" Return",")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")," ",""),15)
-1
5000
1000
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field15
EntryDate
-1
6000
1000
240
0
16777215
1
1
60
60
-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(CatgDesc,")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")
-1
7000
1000
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field17
Sum(TaxableAmt+TaxAmt)
-1
#,##0.00
8000
1000
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field18
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
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field19
Used
-1
10100
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
IntrerPurchase
Administrator
11130
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
RefNo
RefNo
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
RefNo_Header
5
240
Field1.Value=Field1.Value+Field10.Value
Field1
0
11070
15
0
Field4
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
60
60
-1
2
Times New Roman
9.75
Field5
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
60
60
-1
2
Times New Roman
9.75
Field6
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
60
60
-1
2
Times New Roman
9.75
Field7
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(Series+BillNo+" Return",")",""),"(",""),"*",""),"&",""),"^",""),"%",""),"$",""),"#",""),"@",""),"!",""),"~",""),"`",""),"\",""),"|",""),"=",""),"_",""),"/",""),"?",""),",",""),".",""),"<",""),">",""),";",""),":",""),"[",""),"]",""),"{",""),"}",""),Chr(34),""),Chr(39),""),"-",""),"+","")," ",""),15)
-1
5000
1000
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field8
EntryDate
-1
6000
1000
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field9
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
60
60
-1
2
Times New Roman
9.75
Field10
Sum(TaxableAmt+TaxAmt)
-1
#,##0.00
8000
1000
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field11
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
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field12
Used
-1
10100
1000
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75