WIN RJVF8A
sanjeev
11595
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
Detail
0
4800
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
Header
1
2160
[SALES_VATDTL1].Subreport.DataSource.recordset = [SALES_VATDTL].Subreport.DataSource.recordset
Field1
DEALER TIN
1500
240
0
Times New Roman
10
Field2
PERIOD FROM
240
1500
240
0
Times New Roman
10
Field3
PERIOD TO
480
1500
240
0
Times New Roman
10
Field4
Left(Ltrim(Rtrim(TIN)),11)
-1
1500
8000
240
0
-1
Times New Roman
10
Field5
Format(FromDate,"dd-MMM-yyyy")
-1
1500
240
8000
240
0
-1
Times New Roman
10
Field6
Format(ToDate,"dd-MMM-yyyy")
-1
1500
480
8000
240
0
-1
Times New Roman
10
Field7
FORM VAT-08A [PART-I]
960
11500
240
1
-1
Times New Roman
12
Field8
Particulars of sales made within the State against VAT invoice to registered dealers
excluding MRP sales and excluding sales return within the return period
1200
11505
480
1
Times New Roman
10
Field10
Name of the purchasing dealer
1680
4900
480
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field11
TIN
4900
1680
2000
480
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field12
Amount of sales made during the period
6900
1680
2200
480
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field13
Amount of tax paid or payable on such sales
9100
1680
2400
480
0
16777215
1
1
60
60
2
Times New Roman
9.75
BillWiseSales~R
-1
11500
480
-1
Times New Roman
9.75
Part-I
SV1/SV2/SV3/SV4
Field14
FORM VAT-08A [PART-II]
720
11500
240
1
-1
Times New Roman
12
Field15
Particulars of sales made within the State against VAT invoice other than in Part-I
and against invoice
960
11505
480
1
Times New Roman
10
Field17
Name of the purchasing dealer
1440
4300
240
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field19
Amount of sales made during the period
4300
1440
3400
240
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field20
Amount of tax paid or payable on such sales
7700
1440
3800
240
0
16777215
1
1
60
60
2
Times New Roman
9.75
BillWiseSales~U#1
-1
1680
11505
240
-1
Times New Roman
9.75
Part-II VAT
SV1/SV2/SV3/SV4
Field16
FORM VAT-08 A [PART-III]
2640
11505
240
1
-1
Times New Roman
12
Field21
Particulars of goods sold in the state on behalf of principal against form VAT 36A
2880
11505
240
1
Times New Roman
10
Field22
Name of the purchasing dealer
3120
2500
720
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field23
TIN
2500
3120
1500
720
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field24
Amount of purchase made during the period
4000
3120
1800
720
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field25
Amount of tax paid or payable on such sales
5800
3120
1800
720
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field9
TIN of Principal (who issued 36A)
7600
3120
1800
720
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field18
Discharge of Tax Liabilty by principal (in Rs)
9400
3120
2075
720
1
16777215
1
1
60
60
2
Times New Roman
9.75
Field26
3840
2505
960
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field27
2505
3840
1500
960
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field28
4005
3840
1800
960
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field29
5805
3840
1800
960
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field30
7605
3840
1800
960
0
16777215
1
1
60
60
2
Times New Roman
9.75
Field31
By Claiming ITC, if applicable
9400
3840
1035
960
1
16777215
1
1
60
60
2
Times New Roman
9.75
Field32
Discharge of Tax Liabilty (in Rs)
10435
3840
1035
960
1
16777215
1
1
60
60
2
Times New Roman
9.75
BillWiseSales~A#2
-1
1920
11505
240
-1
Times New Roman
9.75
Part-II MRP
SM1/SM2/SM3/SM4
Field33
Total
2160
4300
240
0
16777215
1
1
60
60
-1
-1
2
Times New Roman
9.75
Field34
([BillWiseSales~U#1].Subreport.Fields("Field1").Value+iif(IsNull([BillWiseSales~A#2].Subreport.Fields("Field6").Value),0,[BillWiseSales~A#2].Subreport.Fields("Field6").Value))
-1
#,##0.00
4300
2160
3400
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field35
([BillWiseSales~U#1].Subreport.Fields("Field3").Value+iif(IsNull([BillWiseSales~A#2].Subreport.Fields("Field7").Value),0,[BillWiseSales~A#2].Subreport.Fields("Field7").Value))
-1
#,##0.00
7700
2160
3800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
__MACROFILENAME
VATForm8A_2014.xls
1020
1215
240
0
__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 i As Integer
Dim j As Integer
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(2).Unprotect Password:="vatform8a"
ActiveWorkbook.Sheets(3).Unprotect Password:="vatform8a"
ActiveWorkbook.Sheets(4).Unprotect Password:="vatform8a"
ActiveWorkbook.Sheets(5).Unprotect Password:="vatform8a"
Windows("VATForm8A_2014.xls").Activate
Range("D6").Select
Windows("RJVF8A.xls").Activate
Range("D1").Select
ActiveWorkbook.Sheets(1).Range("D1").Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(2).Activate
Range("D6").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm8A_2014.xls").Activate
Range("D7").Select
Windows("RJVF8A.xls").Activate
Range("D2").Select
ActiveWorkbook.Sheets(1).Range("D2").Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(3).Activate
Range("D7").Select
ActiveWorkbook.Sheets(2).Paste
ActiveWorkbook.Sheets(2).protect Password:="vatform8a"
ActiveWorkbook.Sheets(2).Unprotect Password:="vatform8a"
Windows("VATForm8A_2014.xls").Activate
Range("D8").Select
Windows("RJVF8A.xls").Activate
Range("D3").Select
ActiveWorkbook.Sheets(1).Range("D3").Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(3).Activate
Range("D8").Select
ActiveWorkbook.Sheets(2).Paste
Windows("VATForm8A_2014.xls").Activate
Range("A4").Select
Windows("RJVF8A.xls").Activate
Range("A7").Select
Set Rng = Cells.Find(" FORM VAT-08A [PART-II]")
ActiveWorkbook.Sheets(1).Range("A7:A" & Rng.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(3).Activate
Range("A4").Select
ActiveWorkbook.Sheets(3).Paste
Windows("VATForm8A_2014.xls").Activate
Range("B4").Select
Windows("RJVF8A.xls").Activate
Range("I7").Select
ActiveWorkbook.Sheets(1).Range("I7:I" & Rng.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(3).Range("B4").Select
ActiveWorkbook.Sheets(3).Paste
Windows("VATForm8A_2014.xls").Activate
Range("C4").Select
Windows("RJVF8A.xls").Activate
Range("K7").Select
ActiveWorkbook.Sheets(1).Range("K7:K" & Rng.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("C4").Select
ActiveWorkbook.Sheets(3).Paste
Windows("VATForm8A_2014.xls").Activate
Range("D4").Select
Windows("RJVF8A.xls").Activate
Range("N7").Select
ActiveWorkbook.Sheets(1).Range("N7:N" & Rng.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("D4").Select
ActiveWorkbook.Sheets(3).Paste
Windows("VATForm8A_2014.xls").Activate
Range("A4").Select
Windows("RJVF8A.xls").Activate
i = Rng.Row + 3
Do While Not IsEmpty(Range("A" & i).Value)
i = i + 1
Loop
Set Rng1 = Cells.Find("FORM VAT-08 A [PART-III]")
j = Rng1.Row - 2
Rows(CStr(i) & ":" & CStr(j)).EntireRow.Delete
Range("A" & Rng.Row + 3).Select
Set Rng1 = Cells.Find("FORM VAT-08 A [PART-III]")
ActiveWorkbook.Sheets(1).Range("A" & Rng.Row + 3 & ":A" & Rng1.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(4).Activate
Range("A4").Select
ActiveWorkbook.Sheets(4).Paste
Windows("VATForm8A_2014.xls").Activate
Range("B4").Select
Windows("RJVF8A.xls").Activate
Range("H" & Rng.Row + 3).Select
ActiveWorkbook.Sheets(1).Range("H" & Rng.Row + 3 & ":H" & Rng1.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("B4").Select
ActiveWorkbook.Sheets(4).Paste
Windows("VATForm8A_2014.xls").Activate
Range("C4").Select
Windows("RJVF8A.xls").Activate
Range("M" & Rng.Row + 3).Select
ActiveWorkbook.Sheets(1).Range("M" & Rng.Row + 3 & ":M" & Rng1.Row - 2).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("C4").Select
ActiveWorkbook.Sheets(4).Paste
Windows("VATForm8A_2014.xls").Activate
Range("A5").Select
Windows("RJVF8A.xls").Activate
Range("A" & Rng1.Row + 3).Select
x = ActiveWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1
If x > Rng1.Row + 3 Then
ActiveWorkbook.Sheets(1).Range("A" & Rng1.Row + 3 & ":A" & x).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(5).Activate
Range("A5").Select
ActiveWorkbook.Sheets(5).Paste
Windows("VATForm8A_2014.xls").Activate
Range("B5").Select
Windows("RJVF8A.xls").Activate
Range("F" & Rng1.Row + 3).Select
x = ActiveWorkbook.Sheets(1).Range("F" & Rows.Count).End(xlUp).Row - 1
ActiveWorkbook.Sheets(1).Range("F" & Rng1.Row + 3 & ":F" & x).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
ActiveWorkbook.Sheets(5).Range("B5").Select
ActiveWorkbook.Sheets(5).Paste
Windows("VATForm8A_2014.xls").Activate
Range("C5").Select
Windows("RJVF8A.xls").Activate
Range("G" & Rng1.Row + 3).Select
x = ActiveWorkbook.Sheets(1).Range("G" & Rows.Count).End(xlUp).Row - 1
ActiveWorkbook.Sheets(1).Range("G" & Rng1.Row + 3 & ":G" & x).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("C5").Select
ActiveWorkbook.Sheets(5).Paste
Windows("VATForm8A_2014.xls").Activate
Range("D5").Select
Windows("RJVF8A.xls").Activate
Range("J" & Rng1.Row + 3).Select
x = ActiveWorkbook.Sheets(1).Range("J" & Rows.Count).End(xlUp).Row - 1
ActiveWorkbook.Sheets(1).Range("J" & Rng1.Row + 3 & ":J" & x).Select
Selection.Copy
Windows("VATForm8A_2014.xls").Activate
Range("D5").Select
ActiveWorkbook.Sheets(5).Paste
End If
End Sub
1215
240
0
Part-I
sanjeev
11655
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
PartyWithoutAlias
PartyWithoutAlias
1
Detail
0
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
Header
1
Field1.Value=0
Field7.Value=0
PartyWithoutAlias_Header
5
240
''if LEN(Ltrim(Rtrim(TIN))) > 0 Then PartyWithoutAlias_Header.Visible=True else PartyWithoutAlias_Header.Visible=False
Field1.Value=Field1.Value+Field4.Value
Field7.Value=Field7.Value+Field5.Value
PartyWithoutAlias_Footer
6
0
Field2
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
4900
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field3
Left(Ltrim(Rtrim(TIN)),11)
-1
4900
2000
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field4
Sum(VoucherAmt+FreeAmt)
-1
#,##0.00
6900
2200
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field5
Sum(TaxAmt)
-1
#,##0.00
9100
2400
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field6
Total
4900
240
0
16777215
1
1
60
60
-1
-1
2
Times New Roman
9.75
Field8
4900
2000
240
0
16777215
1
1
60
60
-1
-1
2
Times New Roman
9.75
Field9
Field1.Value
-1
#,##0.00
6900
2200
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field10
Field7.Value
-1
#,##0.00
9100
2400
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field1
Field1
11460
30
105
45
0
Field7
Field1
11550
45
0
Part-II VAT
sanjeev
11505
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
PartyWithoutAlias
PartyWithoutAlias
1
Detail
0
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
Header
1
Field1.Value=0
Field3.Value=0
PartyWithoutAlias_Header
5
240
''if LEN(Ltrim(Rtrim(TIN))) > 0 Then PartyWithoutAlias_Header.Visible=False else PartyWithoutAlias_Header.Visible=True
Field1.Value=Field1.Value+Field4.Value
Field3.Value=Field3.Value+Field5.Value
PartyWithoutAlias_Footer
6
0
Field2
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
4300
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field4
Sum(VoucherAmt+FreeAmt)
-1
#,##0.00
4300
3400
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field5
Sum(TaxAmt)
-1
#,##0.00
7700
3800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field1
Field1
11325
0
Field3
Field1
11340
0
Part-II MRP
sanjeev
11505
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
PartyWithoutAlias
PartyWithoutAlias
1
Detail
0
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
Header
1
Field1.Value=0
Field3.Value=0
PartyWithoutAlias_Header
5
240
Field1.Value=Field1.Value+Field4.Value
Field3.Value=Field3.Value+Field5.Value
PartyWithoutAlias_Footer
6
0
Field2
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
4300
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field4
Sum(VoucherAmt)
-1
#,##0.00
4300
3400
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field5
Sum(TaxAmt)
-1
#,##0.00
7700
3800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field1
Field1
11325
0
Field3
Field1
11340
0
Field6
Field1.Value
-1
5640
0
-1
Field7
Field3.Value
-1
5805
0
-1
Part-III
sanjeev
11500
360
360
360
360
1
1
Segoe UI
9
' -- style script start
_styleCtr = 0
' -- style script end
PartyWithoutAlias
PartyWithoutAlias
1
Detail
0
' -- style script start
detail.BackColor = iif(_styleCtr mod 2 = 0, rgb(255,255,255),rgb(240,240,240))
_styleCtr = _styleCtr + 1
' -- style script end
PartyWithoutAlias_Header
5
240
PartyWithoutAlias_Footer
6
0
Field1
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
2505
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field6
TIN
-1
2505
1500
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field11
Sum(VoucherAmt)
-1
#,##0.00
4005
1800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field12
Sum(TaxAmt)
-1
#,##0.00
5805
1800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field13
-1
7605
1800
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field14
-1
9400
1035
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field15
-1
10435
1035
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field2
Total
-1
2505
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field3
-1
2505
1500
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field4
Sum(VoucherAmt)
-1
#,##0.00
4005
1800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field5
Sum(TaxAmt)
-1
#,##0.00
5805
1800
240
2
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field7
-1
7605
1800
240
0
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field8
-1
9400
1035
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75
Field9
-1
10435
1035
240
1
16777215
1
1
60
60
-1
2
Times New Roman
9.75