If ComCollege.Text = "GION" Then
Call Test("Report_Receipt")
End If
If ComCollege.Text = "UIPPS" Then
Call Test("Report_Uiipp_Receipt")
End If
If ComCollege.Text = "AION" Then
Call Test("Repost_Arawali_Receipt")
End If
Private Sub Test(Repo As String)
On Error GoTo ErrorTrap
Dim FEE
If RECEIPT1 = 0 Then
MsgBox "Hostel Receipt Not Possible" + Chr(13) + "1)May Be Record Not Saved By You!" + Chr(13) + "2)May Be Hostel Fee Not Deposited!", vbInformation, "First Save The Record..."
Exit Sub
End If
TSQL = ""
TSQL = "SELECT * FROM RECEIPT WHERE COLLEGE='" & ComCollege.Text & "' AND CLASS='" & ComClass.Text & "' AND E_NO='" & TXTSE_NO.Text & "' AND R_NO=" & RECEIPT1 & ""
Set RTMP = Get_Special_Record_Set(TSQL)
If RTMP.RecordCount = 0 Then
MsgBox "Record Not Found", vbInformation, "Incorect Information..."
Exit Sub
End If
FEE = "HOSTEL FEE"
With Repo
Set .DataSource = Nothing
Set .DataSource = RTMP.DataSource
While Not RTMP.EOF
With Repo.Sections("Section1").Controls
.Item("txtDATE").DataMember = ""
.Item("txtDATE").DataField = RTMP.Fields("DATE").Name
.Item("txtSNO").DataMember = ""
.Item("txtSNO").DataField = RTMP.Fields("R_NO").Name
.Item("txtNAME").DataMember = ""
.Item("txtNAME").DataField = RTMP.Fields("NAME").Name
.Item("txtBATCH").DataMember = ""
.Item("txtBATCH").DataField = RTMP.Fields("BATCH").Name
.Item("txtCLASS").DataMember = ""
.Item("txtCLASS").DataField = RTMP.Fields("CLASS").Name
.Item("txtAMOUNT").DataMember = ""
.Item("txtAMOUNT").DataField = RTMP.Fields("HOSTAL").Name
RTMP.MoveNext
End With
Wend
Repo.Refresh
Repo.Show
RECEIPT1 = 0
ErrorTrap:
If Err.Number <> 0 Then
MsgBox "Error (" & Err.Number & "): " & Err.Description, vbCritical, "Error"
End If
End Sub
If ComCollege.Text = "SEION" Then
Call Test("Report_Shrinath_Receipt")
End If
If ComCollege.Text = "MBNC" Then
Call Test("Report_Mass_Receipt")
End If
