Re: UPDATING BOUND OBJECT NOT WORKING - Visual Basic Discussion Boards

First Prev Next

Try sub-reports

David Mujica14-Oct-09 3:33

David Mujica

14-Oct-09 3:33

Hmm ...
If your main report is nothing but a container for 2 sub-reports and each sub-report has the same definition, then I think you will achieve your goal.

Give it a try. The only problem you may have is that you might need some sort of dataset to be bound to the main report; it should be a single value.

Give it a try. I've used it to produce a single page with 3 cross-tab reports on it; each cross-tab was a sub-report.

david

Re: Try sub-reports

Dambod14-Oct-09 3:54

Dambod

14-Oct-09 3:54

Hi David,
Thanks for the reply. I am using stored procedures that require three parameters from the its caller. Based on the data supplied to the stored procedure data will be generated from various table. Can u give me some hint on how to do so using sub-reports. here is my sample code for calling stored procedure to generate report.
dim rpt as new myreportname
rpt.SetParameterValue("@studid", DataGridView1.CurrentCell.Value)
If ComboBox3.SelectedItem IsNot Nothing And TextBox3.Text IsNot Nothing Then
rpt.SetParameterValue("@term", CInt(ComboBox3.SelectedItem))
rpt.SetParameterValue("@academicyear", TextBox3.Text)
GradeReportForm.CrystalReportViewer1.ReportSource = rpt
GradeReportForm.StartPosition = FormStartPosition.CenterParent
GradeReportForm.WindowState = FormWindowState.Maximized
GradeReportForm.CrystalReportViewer1.PrintReport()

Else
MsgBox("Please Set Term and Academic year to Generate Report")
End If

I am grateful for any help you may give me.

with regards,

UPDATING BOUND OBJECT NOT WORKING

Member 66434313-Oct-09 21:25

Member 664343

13-Oct-09 21:25

Hello,

Am having a problem with updating my underlying business object from my win form grid. I have a class and a collection that implements IBindingList. The class contains a line item collection which is bound to the grid(component one grid). When I enter a new record the object gets the values without any problem and the record is saved. However fetching the same record and editing it, the properties of my object are not updated. I am wondering what it is am doing wrong. below is the code for the classes and collections and form load code. I will really appreciate any help from anyone because at the moment am confused since I thought that by implementing the IBindingList interface the two way update, form to object and object to form, is taken care of.

Master class

Option Explicit On
Option Strict On
Imports System.ComponentModel
Imports System.Data
Imports System.IO
Imports System.Text
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Public Class ServiceQuotationMaster
    Inherits PCTLTransactionsHeaderBaseClass

    Implements INotifyPropertyChanged
    Implements IEditableObject



#Region "Declarations"

    Private objDAL As New PCTLDataTier.DataLayer
    Private strSQL As String

    Private _GrandFreightCharges As Double
    Private _GrandOtherCharges As Double

    Private _CostingSheetNo As Integer
    Private _InquiryNo As Integer
    Private _PreviousQuotationNo As Integer

    Private _FileExtension As String

    Private _DestinationLoc As String
    Private _SourceLoc As String
    Private _QuotationType As String

    Private WithEvents _ServiceQuotationLineItems As New BusinessTier.QuotationsServicesDetails

    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

    Friend Event RemoveMe(ByVal objQuotation As BusinessTier.ServiceQuotationMaster)
#End Region

#Region "Properties"
    Public Property CostingSheetNo() As Integer
        Get
            Return Me._CostingSheetNo
        End Get
        Set(ByVal value As Integer)
            If Me._CostingSheetNo <> value Then
                Me._CostingSheetNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("CostingSheetNo"))
            End If
        End Set
    End Property
    Public Property GrandFreightCharges() As Double
        Get
            Return Me._GrandFreightCharges
        End Get
        Set(ByVal value As Double)
            If Me._GrandFreightCharges <> value Then
                Me._GrandFreightCharges = CDbl(FormatNumber(IIf(IsDBNull(value), 0, value), 2))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("GrandFreightCharges"))
            End If
        End Set
    End Property
    Public Property GrandOtherCharges() As Double
        Get
            Return Me._GrandOtherCharges
        End Get
        Set(ByVal value As Double)
            If Me._GrandOtherCharges <> value Then
                Me._GrandOtherCharges = CDbl(FormatNumber(IIf(IsDBNull(value), 0, value), 2))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("GrandOtherCharges"))
            End If
        End Set
    End Property
    Public Property InquiryNo() As Integer
        Get
            Return Me._InquiryNo
        End Get
        Set(ByVal value As Integer)
            If Me._InquiryNo <> value Then
                Me._InquiryNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("InquiryNo"))
            End If
        End Set
    End Property
    Public Property PreviousQuotationNo() As Integer
        Get
            Return Me._PreviousQuotationNo
        End Get
        Set(ByVal value As Integer)
            If Me._PreviousQuotationNo <> value Then
                Me._PreviousQuotationNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("InquiryNo"))
            End If
        End Set
    End Property
    Public Property QuotationType() As String
        Get
            Return Me._QuotationType
        End Get
        Set(ByVal value As String)
            If Me._QuotationType <> value Then
                Me._QuotationType = CStr(IIf(IsDBNull(value), Nothing, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("QuotationType"))
            End If
        End Set
    End Property
    Public Property ServiceQuotationLineItems() As BusinessTier.QuotationsServicesDetails
        Get
            Return Me._ServiceQuotationLineItems
        End Get
        Set(ByVal value As BusinessTier.QuotationsServicesDetails)
            Me._ServiceQuotationLineItems = DirectCast(IIf(IsDBNull(value), Nothing, value), BusinessTier.QuotationsServicesDetails)
            Me.OnPropertyChanged(New PropertyChangedEventArgs("ServiceQuotationLineItems"))
        End Set
    End Property
    Public Property FileExtension() As String
        Get
            Return Me._FileExtension
        End Get
        Set(ByVal value As String)
            Me._FileExtension = CStr(IIf(IsDBNull(value), Nothing, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("FileExtension"))
        End Set
    End Property
#End Region

#Region "Methods"
    Public Sub GetPathAndExtension(ByVal strSourceLoc As String, ByVal strFileExtension As String)
        Try
            If strSourceLoc <> "" Then
                _SourceLoc = strSourceLoc
                FileExtension = strFileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Protected Overridable Sub OnPropertyChanged(ByVal e As PropertyChangedEventArgs)
        Try
            RaiseEvent PropertyChanged(Me, e)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Private Sub Clear()
        Try
            CompanyCode = "" : VoucherShortCode = "" : TransactionCode = 0 : TransactionDate = Nothing : CostingSheetNo = 0
            InquiryNo = 0 : IsRevised = 0 : QuotationType = "" : PreviousQuotationNo = 0 : CurrencyCode = "" : IsApproved = 0
            IsCancel = 0 : ApprovedBy = "" : ApprovedDateTime = Nothing : CreatedBy = "" : CreatedDateTime = Nothing
            RejectedBy = "" : RejectedDateTime = Nothing : Comments = "" : TDate = Nothing : GrandDiscountTotal = 0
            GrandVATTotal = 0 : GrandSubTotal = 0 : GrandFreightCharges = 0 : GrandOtherCharges = 0 : GrandNetTotal = 0
            BaseCurrencyExchangeRate = 0 : ReferenceNumber = "" : FileExtension = ""
            ServiceQuotationLineItems = Nothing
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Overrides Function Delete() As Integer
        Try
            strSQL = "DELETE tblQuotationMaster WHERE CompanyCode='" & CompanyCode & "' AND QuotationNo=" & TransactionCode & ""
            Return objDAL.ExecQuery(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function Edit() As Integer
        Try

            Dim cmd As New OracleCommand
            Dim constr As String = "User Id=ADMIN;Password=accesslight;Data Source=NTL"
            Dim con As OracleConnection = New OracleConnection(constr)

            con.Open()

            ' provide read access to the file
            Dim Fs As FileStream = New FileStream(_SourceLoc, FileMode.Open, FileAccess.Read)

            ' Create a byte array of file stream length
            Dim ImageData As Byte()
            ReDim ImageData(CInt(Fs.Length))

            'Read block of bytes from stream into the byte array
            Fs.Read(ImageData, 0, System.Convert.ToInt32(Fs.Length))

            'Close the File Stream
            Fs.Close()

            strSQL = "BEGIN " & _
                            "UPDATE TBLQUOTATIONMASTER SET VOUCHERSHRTCODE ='" & VoucherShortCode & "'," & _
                            "QUOTATIONDT='" & TransactionDate & "',COSTINGSHEETNO=" & TransactionCode & "," & _
                            "INQUIRYNO=" & InquiryNo & ",ISREVISED=" & IsRevised & "," & _
                            "QUOTATIONTYPE='" & QuotationType & "',PREVIOUSQUOTATIONNO=" & PreviousQuotationNo & "," & _
                            "CURRCODE='" & CurrencyCode & "',ISAPPROVED=" & IsApproved & ",ISCANCEL=" & IsCancel & "," & _
                            "APPROVEDBY='" & ApprovedBy & "',APPROVEDDTTIME='" & ApprovedDateTime & "',CREATEBY='" & CreatedBy & "'," & _
                            "CREATEDDTTIME='" & CreatedDateTime & "',REJECTEDBY='" & RejectedBy & "'," & _
                            "REJECTEDDTTIME='" & RejectedDateTime & "',COMMENTS='" & Comments & "',TDATE='" & TDate & "'," & _
                            "GRANDTOTALDISCOUNT=" & GrandDiscountTotal & ",GRANDTOTALVAT=" & GrandVATTotal & "," & _
                            "GRANDSUBTOTAL=" & GrandSubTotal & ",GRANDFREIGHTCHARGES=" & GrandFreightCharges & "," & _
                            "GRANDOTHERCHARGES=" & GrandOtherCharges & ",GRANDNETTOTAL=" & GrandNetTotal & "," & _
                            "BASECURREXCHANGERATE =" & BaseCurrencyExchangeRate & ",TERMSANDCONDITION =:1," & _
                            "REFNUMBER='" & ReferenceNumber & "',FILEEXTENSION='" & FileExtension & "' " & _
                            "WHERE  COMPANYCODE='" & CompanyCode & "' AND QUOTATIONNO=" & TransactionCode & ";" & _
                    "End ;"

            cmd.CommandText = strSQL
            cmd.Connection = con

            ' Since executing an anonymous PL/SQL block, setting the command type
            ' as Text instead of StoredProcedure
            cmd.CommandType = CommandType.Text

            ' Bind the parameter as OracleDbType.Blob
            ' to command for inserting image
            Dim param As OracleParameter = cmd.Parameters.Add("blobtodb", OracleDbType.Blob)
            param.Direction = ParameterDirection.Input

            ' Assign Byte Array to Oracle Parameter
            param.Value = ImageData

            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function GetRecords(ByVal strSQL As String) As System.Data.DataSet
        Try
            Return objDAL.ExecuteQry(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function
    Public Overrides Function GetSequenceNumber() As Integer
        Try
            strSQL = "SELECT SEQQUOTATIONNO.NextVal FROM DUAL"
            Return objDAL.QueryNextSequence(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public Overrides Function Save() As Integer
        Try

            Dim cmd As New OracleCommand
            Dim constr As String = "User Id=ADMIN;Password=accesslight;Data Source=NTL"
            Dim con As OracleConnection = New OracleConnection(constr)

            con.Open()

            ' provide read access to the file
            Dim Fs As FileStream = New FileStream(_SourceLoc, FileMode.Open, FileAccess.Read)

            ' Create a byte array of file stream length
            Dim ImageData As Byte()
            ReDim ImageData(CInt(Fs.Length))

            'Read block of bytes from stream into the byte array
            Fs.Read(ImageData, 0, System.Convert.ToInt32(Fs.Length))

            'Close the File Stream
            Fs.Close()

            strSQL = "BEGIN " & _
                    "INSERT INTO TBLQUOTATIONMASTER (COMPANYCODE,VOUCHERSHRTCODE,QUOTATIONNO,QUOTATIONDT," & _
                                "COSTINGSHEETNO,INQUIRYNO,ISREVISED,QUOTATIONTYPE,PREVIOUSQUOTATIONNO," & _
                                "CURRCODE,ISAPPROVED,ISCANCEL,APPROVEDBY,APPROVEDDTTIME,CREATEBY," & _
                                "CREATEDDTTIME,REJECTEDBY,REJECTEDDTTIME,COMMENTS,TDATE,GRANDTOTALDISCOUNT," & _
                                "GRANDTOTALVAT,GRANDSUBTOTAL,GRANDFREIGHTCHARGES,GRANDOTHERCHARGES,GRANDNETTOTAL," & _
                                "BASECURREXCHANGERATE,TERMSANDCONDITION,REFNUMBER,FILEEXTENSION) " & _
                    "VALUES ('" & CompanyCode & "','" & VoucherShortCode & "'," & TransactionCode & "," & _
                            "'" & TransactionDate & "'," & CostingSheetNo & "," & InquiryNo & "," & _
                            "" & IsRevised & ",'" & QuotationType & "'," & PreviousQuotationNo & "," & _
                            "'" & CurrencyCode & "'," & IsApproved & "," & IsCancel & "," & _
                            "'" & ApprovedBy & "','" & ApprovedDateTime & "','" & CreatedBy & "'," & _
                            "'" & CreatedDateTime & "','" & RejectedBy & "','" & RejectedDateTime & "'," & _
                            "'" & Comments & "','" & TDate & "'," & GrandDiscountTotal & "," & _
                            "" & GrandVATTotal & "," & GrandSubTotal & "," & GrandFreightCharges & "," & _
                            "" & GrandOtherCharges & "," & GrandNetTotal & "," & BaseCurrencyExchangeRate & "," & _
                            " :1 ,'" & ReferenceNumber & "','" & FileExtension & "');" & _
                            "END ;"
            cmd.CommandText = strSQL
            cmd.Connection = con

            ' Since executing an anonymous PL/SQL block, setting the command type
            ' as Text instead of StoredProcedure
            cmd.CommandType = CommandType.Text

            ' Bind the parameter as OracleDbType.Blob
            ' to command for inserting image
            Dim param As OracleParameter = cmd.Parameters.Add("blobtodb", OracleDbType.Blob)
            param.Direction = ParameterDirection.Input

            ' Assign Byte Array to Oracle Parameter
            param.Value = ImageData

            Return cmd.ExecuteNonQuery()

        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function
#End Region

#Region "IEditableObject"

    Private _Editing As Boolean
    Private _IsAddNew As Boolean = True

    Private _oldCompanyCode As String
    Private _oldVoucherShrtCode As String
    Private _oldTransactionCode As Integer
    Private _oldTransactionDate As Date
    Private _oldCostingsheetno As Integer
    Private _oldInquiryNo As Integer
    Private _oldIsRevised As Integer
    Private _oldQuotationType As String
    Private _oldPreviousQuotationNo As Integer
    Private _oldCurrCode As String
    Private _oldIsApproved As Integer
    Private _oldIsCacel As Integer
    Private _oldApoprovedBy As String
    Private _oldApprovedDTTime As Date
    Private _oldCreateBy As String
    Private _oldCreatedDTTime As Date
    Private _oldRejectedBy As String
    Private _oldRejectedDTTime As Date
    Private _oldComments As String
    Private _oldTDate As Date
    Private _oldGrandDiscAmt As Double
    Private _oldGrandVATAmt As Double
    Private _oldGrandSubTotal As Double
    Private _oldGrandFreightCharges As Double
    Private _oldGrandOtherCharges As Double
    Private _oldGrandNetTotal As Double
    Private _oldBaseCurrExchRate As Double
    Private _oldFileExtension As String
    Private _oldRefNumber As String



    Public Sub BeginEdit() Implements System.ComponentModel.IEditableObject.BeginEdit
        Try
            If Not _Editing Then
                _Editing = True
                _oldApoprovedBy = ApprovedBy : _oldApprovedDTTime = ApprovedDateTime : _oldBaseCurrExchRate = BaseCurrencyExchangeRate
                _oldComments = Comments : _oldCompanyCode = CompanyCode : _oldCostingsheetno = CostingSheetNo
                _oldCreateBy = CreatedBy : _oldCreatedDTTime = CreatedDateTime : _oldCurrCode = CurrencyCode
                _oldGrandDiscAmt = GrandDiscountTotal : _oldGrandFreightCharges = GrandFreightCharges
                _oldGrandFreightCharges = GrandFreightCharges : _oldGrandNetTotal = GrandNetTotal
                _oldGrandOtherCharges = GrandOtherCharges : _oldGrandSubTotal = GrandSubTotal
                _oldGrandVATAmt = GrandVATTotal : _oldInquiryNo = InquiryNo : _oldIsApproved = IsApproved
                _oldIsCacel = IsCancel : _oldIsRevised = IsRevised : _oldPreviousQuotationNo = PreviousQuotationNo
                _oldQuotationType = QuotationType : _oldRefNumber = ReferenceNumber : _oldRejectedBy = RejectedBy
                _oldRejectedDTTime = RejectedDateTime : _oldTDate = TDate
                _oldTransactionCode = TransactionCode : _oldTransactionDate = TransactionDate
                _oldFileExtension = FileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub CancelEdit() Implements System.ComponentModel.IEditableObject.CancelEdit
        Try
            If _Editing = True Then
                _Editing = False
                ApprovedBy = _oldApoprovedBy : ApprovedDateTime = _oldApprovedDTTime : BaseCurrencyExchangeRate = _oldBaseCurrExchRate
                Comments = _oldComments : CompanyCode = _oldCompanyCode : CostingSheetNo = _oldCostingsheetno
                CreatedBy = _oldCreateBy : CreatedDateTime = _oldCreatedDTTime : CurrencyCode = _oldCurrCode
                GrandDiscountTotal = _oldGrandDiscAmt : GrandFreightCharges = _oldGrandFreightCharges
                GrandFreightCharges = _oldGrandFreightCharges : GrandNetTotal = _oldGrandNetTotal
                GrandOtherCharges = _oldGrandOtherCharges : GrandSubTotal = _oldGrandSubTotal
                GrandVATTotal = _oldGrandVATAmt : InquiryNo = _oldInquiryNo : IsApproved = _oldIsApproved
                IsCancel = _oldIsCacel : IsRevised = _oldIsRevised : PreviousQuotationNo = _oldPreviousQuotationNo
                QuotationType = _oldQuotationType : ReferenceNumber = _oldRefNumber : RejectedBy = _oldRejectedBy
                RejectedDateTime = _oldRejectedDTTime : TDate = _oldTDate
                TransactionCode = _oldTransactionCode : TransactionDate = _oldTransactionDate
                FileExtension = _oldFileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub EndEdit() Implements System.ComponentModel.IEditableObject.EndEdit
        Try
            _Editing = False : _IsAddNew = False
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
#End Region

End Class
Option Explicit On
Option Strict On
Imports System.ComponentModel
Imports System.Data
Imports System.IO
Imports System.Text
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Public Class ServiceQuotationMaster
    Inherits PCTLTransactionsHeaderBaseClass

    Implements INotifyPropertyChanged
    Implements IEditableObject



#Region "Declarations"

    Private objDAL As New PCTLDataTier.DataLayer
    Private strSQL As String

    Private _GrandFreightCharges As Double
    Private _GrandOtherCharges As Double

    Private _CostingSheetNo As Integer
    Private _InquiryNo As Integer
    Private _PreviousQuotationNo As Integer

    Private _FileExtension As String

    Private _DestinationLoc As String
    Private _SourceLoc As String
    Private _QuotationType As String

    Private WithEvents _ServiceQuotationLineItems As New BusinessTier.QuotationsServicesDetails

    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

    Friend Event RemoveMe(ByVal objQuotation As BusinessTier.ServiceQuotationMaster)
#End Region

#Region "Properties"
    Public Property CostingSheetNo() As Integer
        Get
            Return Me._CostingSheetNo
        End Get
        Set(ByVal value As Integer)
            If Me._CostingSheetNo <> value Then
                Me._CostingSheetNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("CostingSheetNo"))
            End If
        End Set
    End Property
    Public Property GrandFreightCharges() As Double
        Get
            Return Me._GrandFreightCharges
        End Get
        Set(ByVal value As Double)
            If Me._GrandFreightCharges <> value Then
                Me._GrandFreightCharges = CDbl(FormatNumber(IIf(IsDBNull(value), 0, value), 2))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("GrandFreightCharges"))
            End If
        End Set
    End Property
    Public Property GrandOtherCharges() As Double
        Get
            Return Me._GrandOtherCharges
        End Get
        Set(ByVal value As Double)
            If Me._GrandOtherCharges <> value Then
                Me._GrandOtherCharges = CDbl(FormatNumber(IIf(IsDBNull(value), 0, value), 2))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("GrandOtherCharges"))
            End If
        End Set
    End Property
    Public Property InquiryNo() As Integer
        Get
            Return Me._InquiryNo
        End Get
        Set(ByVal value As Integer)
            If Me._InquiryNo <> value Then
                Me._InquiryNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("InquiryNo"))
            End If
        End Set
    End Property
    Public Property PreviousQuotationNo() As Integer
        Get
            Return Me._PreviousQuotationNo
        End Get
        Set(ByVal value As Integer)
            If Me._PreviousQuotationNo <> value Then
                Me._PreviousQuotationNo = CInt(IIf(IsDBNull(value), 0, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("InquiryNo"))
            End If
        End Set
    End Property
    Public Property QuotationType() As String
        Get
            Return Me._QuotationType
        End Get
        Set(ByVal value As String)
            If Me._QuotationType <> value Then
                Me._QuotationType = CStr(IIf(IsDBNull(value), Nothing, value))
                Me.OnPropertyChanged(New PropertyChangedEventArgs("QuotationType"))
            End If
        End Set
    End Property
    Public Property ServiceQuotationLineItems() As BusinessTier.QuotationsServicesDetails
        Get
            Return Me._ServiceQuotationLineItems
        End Get
        Set(ByVal value As BusinessTier.QuotationsServicesDetails)
            Me._ServiceQuotationLineItems = DirectCast(IIf(IsDBNull(value), Nothing, value), BusinessTier.QuotationsServicesDetails)
            Me.OnPropertyChanged(New PropertyChangedEventArgs("ServiceQuotationLineItems"))
        End Set
    End Property
    Public Property FileExtension() As String
        Get
            Return Me._FileExtension
        End Get
        Set(ByVal value As String)
            Me._FileExtension = CStr(IIf(IsDBNull(value), Nothing, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("FileExtension"))
        End Set
    End Property
#End Region

#Region "Methods"
    Public Sub GetPathAndExtension(ByVal strSourceLoc As String, ByVal strFileExtension As String)
        Try
            If strSourceLoc <> "" Then
                _SourceLoc = strSourceLoc
                FileExtension = strFileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Protected Overridable Sub OnPropertyChanged(ByVal e As PropertyChangedEventArgs)
        Try
            RaiseEvent PropertyChanged(Me, e)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Private Sub Clear()
        Try
            CompanyCode = "" : VoucherShortCode = "" : TransactionCode = 0 : TransactionDate = Nothing : CostingSheetNo = 0
            InquiryNo = 0 : IsRevised = 0 : QuotationType = "" : PreviousQuotationNo = 0 : CurrencyCode = "" : IsApproved = 0
            IsCancel = 0 : ApprovedBy = "" : ApprovedDateTime = Nothing : CreatedBy = "" : CreatedDateTime = Nothing
            RejectedBy = "" : RejectedDateTime = Nothing : Comments = "" : TDate = Nothing : GrandDiscountTotal = 0
            GrandVATTotal = 0 : GrandSubTotal = 0 : GrandFreightCharges = 0 : GrandOtherCharges = 0 : GrandNetTotal = 0
            BaseCurrencyExchangeRate = 0 : ReferenceNumber = "" : FileExtension = ""
            ServiceQuotationLineItems = Nothing
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Overrides Function Delete() As Integer
        Try
            strSQL = "DELETE tblQuotationMaster WHERE CompanyCode='" & CompanyCode & "' AND QuotationNo=" & TransactionCode & ""
            Return objDAL.ExecQuery(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function Edit() As Integer
        Try

            Dim cmd As New OracleCommand
            Dim constr As String = "User Id=ADMIN;Password=accesslight;Data Source=NTL"
            Dim con As OracleConnection = New OracleConnection(constr)

            con.Open()

            ' provide read access to the file
            Dim Fs As FileStream = New FileStream(_SourceLoc, FileMode.Open, FileAccess.Read)

            ' Create a byte array of file stream length
            Dim ImageData As Byte()
            ReDim ImageData(CInt(Fs.Length))

            'Read block of bytes from stream into the byte array
            Fs.Read(ImageData, 0, System.Convert.ToInt32(Fs.Length))

            'Close the File Stream
            Fs.Close()

            strSQL = "BEGIN " & _
                            "UPDATE TBLQUOTATIONMASTER SET VOUCHERSHRTCODE ='" & VoucherShortCode & "'," & _
                            "QUOTATIONDT='" & TransactionDate & "',COSTINGSHEETNO=" & TransactionCode & "," & _
                            "INQUIRYNO=" & InquiryNo & ",ISREVISED=" & IsRevised & "," & _
                            "QUOTATIONTYPE='" & QuotationType & "',PREVIOUSQUOTATIONNO=" & PreviousQuotationNo & "," & _
                            "CURRCODE='" & CurrencyCode & "',ISAPPROVED=" & IsApproved & ",ISCANCEL=" & IsCancel & "," & _
                            "APPROVEDBY='" & ApprovedBy & "',APPROVEDDTTIME='" & ApprovedDateTime & "',CREATEBY='" & CreatedBy & "'," & _
                            "CREATEDDTTIME='" & CreatedDateTime & "',REJECTEDBY='" & RejectedBy & "'," & _
                            "REJECTEDDTTIME='" & RejectedDateTime & "',COMMENTS='" & Comments & "',TDATE='" & TDate & "'," & _
                            "GRANDTOTALDISCOUNT=" & GrandDiscountTotal & ",GRANDTOTALVAT=" & GrandVATTotal & "," & _
                            "GRANDSUBTOTAL=" & GrandSubTotal & ",GRANDFREIGHTCHARGES=" & GrandFreightCharges & "," & _
                            "GRANDOTHERCHARGES=" & GrandOtherCharges & ",GRANDNETTOTAL=" & GrandNetTotal & "," & _
                            "BASECURREXCHANGERATE =" & BaseCurrencyExchangeRate & ",TERMSANDCONDITION =:1," & _
                            "REFNUMBER='" & ReferenceNumber & "',FILEEXTENSION='" & FileExtension & "' " & _
                            "WHERE  COMPANYCODE='" & CompanyCode & "' AND QUOTATIONNO=" & TransactionCode & ";" & _
                    "End ;"

            cmd.CommandText = strSQL
            cmd.Connection = con

            ' Since executing an anonymous PL/SQL block, setting the command type
            ' as Text instead of StoredProcedure
            cmd.CommandType = CommandType.Text

            ' Bind the parameter as OracleDbType.Blob
            ' to command for inserting image
            Dim param As OracleParameter = cmd.Parameters.Add("blobtodb", OracleDbType.Blob)
            param.Direction = ParameterDirection.Input

            ' Assign Byte Array to Oracle Parameter
            param.Value = ImageData

            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function GetRecords(ByVal strSQL As String) As System.Data.DataSet
        Try
            Return objDAL.ExecuteQry(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function
    Public Overrides Function GetSequenceNumber() As Integer
        Try
            strSQL = "SELECT SEQQUOTATIONNO.NextVal FROM DUAL"
            Return objDAL.QueryNextSequence(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public Overrides Function Save() As Integer
        Try

            Dim cmd As New OracleCommand
            Dim constr As String = "User Id=ADMIN;Password=accesslight;Data Source=NTL"
            Dim con As OracleConnection = New OracleConnection(constr)

            con.Open()

            ' provide read access to the file
            Dim Fs As FileStream = New FileStream(_SourceLoc, FileMode.Open, FileAccess.Read)

            ' Create a byte array of file stream length
            Dim ImageData As Byte()
            ReDim ImageData(CInt(Fs.Length))

            'Read block of bytes from stream into the byte array
            Fs.Read(ImageData, 0, System.Convert.ToInt32(Fs.Length))

            'Close the File Stream
            Fs.Close()

            strSQL = "BEGIN " & _
                    "INSERT INTO TBLQUOTATIONMASTER (COMPANYCODE,VOUCHERSHRTCODE,QUOTATIONNO,QUOTATIONDT," & _
                                "COSTINGSHEETNO,INQUIRYNO,ISREVISED,QUOTATIONTYPE,PREVIOUSQUOTATIONNO," & _
                                "CURRCODE,ISAPPROVED,ISCANCEL,APPROVEDBY,APPROVEDDTTIME,CREATEBY," & _
                                "CREATEDDTTIME,REJECTEDBY,REJECTEDDTTIME,COMMENTS,TDATE,GRANDTOTALDISCOUNT," & _
                                "GRANDTOTALVAT,GRANDSUBTOTAL,GRANDFREIGHTCHARGES,GRANDOTHERCHARGES,GRANDNETTOTAL," & _
                                "BASECURREXCHANGERATE,TERMSANDCONDITION,REFNUMBER,FILEEXTENSION) " & _
                    "VALUES ('" & CompanyCode & "','" & VoucherShortCode & "'," & TransactionCode & "," & _
                            "'" & TransactionDate & "'," & CostingSheetNo & "," & InquiryNo & "," & _
                            "" & IsRevised & ",'" & QuotationType & "'," & PreviousQuotationNo & "," & _
                            "'" & CurrencyCode & "'," & IsApproved & "," & IsCancel & "," & _
                            "'" & ApprovedBy & "','" & ApprovedDateTime & "','" & CreatedBy & "'," & _
                            "'" & CreatedDateTime & "','" & RejectedBy & "','" & RejectedDateTime & "'," & _
                            "'" & Comments & "','" & TDate & "'," & GrandDiscountTotal & "," & _
                            "" & GrandVATTotal & "," & GrandSubTotal & "," & GrandFreightCharges & "," & _
                            "" & GrandOtherCharges & "," & GrandNetTotal & "," & BaseCurrencyExchangeRate & "," & _
                            " :1 ,'" & ReferenceNumber & "','" & FileExtension & "');" & _
                            "END ;"
            cmd.CommandText = strSQL
            cmd.Connection = con

            ' Since executing an anonymous PL/SQL block, setting the command type
            ' as Text instead of StoredProcedure
            cmd.CommandType = CommandType.Text

            ' Bind the parameter as OracleDbType.Blob
            ' to command for inserting image
            Dim param As OracleParameter = cmd.Parameters.Add("blobtodb", OracleDbType.Blob)
            param.Direction = ParameterDirection.Input

            ' Assign Byte Array to Oracle Parameter
            param.Value = ImageData

            Return cmd.ExecuteNonQuery()

        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function
#End Region

#Region "IEditableObject"

    Private _Editing As Boolean
    Private _IsAddNew As Boolean = True

    Private _oldCompanyCode As String
    Private _oldVoucherShrtCode As String
    Private _oldTransactionCode As Integer
    Private _oldTransactionDate As Date
    Private _oldCostingsheetno As Integer
    Private _oldInquiryNo As Integer
    Private _oldIsRevised As Integer
    Private _oldQuotationType As String
    Private _oldPreviousQuotationNo As Integer
    Private _oldCurrCode As String
    Private _oldIsApproved As Integer
    Private _oldIsCacel As Integer
    Private _oldApoprovedBy As String
    Private _oldApprovedDTTime As Date
    Private _oldCreateBy As String
    Private _oldCreatedDTTime As Date
    Private _oldRejectedBy As String
    Private _oldRejectedDTTime As Date
    Private _oldComments As String
    Private _oldTDate As Date
    Private _oldGrandDiscAmt As Double
    Private _oldGrandVATAmt As Double
    Private _oldGrandSubTotal As Double
    Private _oldGrandFreightCharges As Double
    Private _oldGrandOtherCharges As Double
    Private _oldGrandNetTotal As Double
    Private _oldBaseCurrExchRate As Double
    Private _oldFileExtension As String
    Private _oldRefNumber As String



    Public Sub BeginEdit() Implements System.ComponentModel.IEditableObject.BeginEdit
        Try
            If Not _Editing Then
                _Editing = True
                _oldApoprovedBy = ApprovedBy : _oldApprovedDTTime = ApprovedDateTime : _oldBaseCurrExchRate = BaseCurrencyExchangeRate
                _oldComments = Comments : _oldCompanyCode = CompanyCode : _oldCostingsheetno = CostingSheetNo
                _oldCreateBy = CreatedBy : _oldCreatedDTTime = CreatedDateTime : _oldCurrCode = CurrencyCode
                _oldGrandDiscAmt = GrandDiscountTotal : _oldGrandFreightCharges = GrandFreightCharges
                _oldGrandFreightCharges = GrandFreightCharges : _oldGrandNetTotal = GrandNetTotal
                _oldGrandOtherCharges = GrandOtherCharges : _oldGrandSubTotal = GrandSubTotal
                _oldGrandVATAmt = GrandVATTotal : _oldInquiryNo = InquiryNo : _oldIsApproved = IsApproved
                _oldIsCacel = IsCancel : _oldIsRevised = IsRevised : _oldPreviousQuotationNo = PreviousQuotationNo
                _oldQuotationType = QuotationType : _oldRefNumber = ReferenceNumber : _oldRejectedBy = RejectedBy
                _oldRejectedDTTime = RejectedDateTime : _oldTDate = TDate
                _oldTransactionCode = TransactionCode : _oldTransactionDate = TransactionDate
                _oldFileExtension = FileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub CancelEdit() Implements System.ComponentModel.IEditableObject.CancelEdit
        Try
            If _Editing = True Then
                _Editing = False
                ApprovedBy = _oldApoprovedBy : ApprovedDateTime = _oldApprovedDTTime : BaseCurrencyExchangeRate = _oldBaseCurrExchRate
                Comments = _oldComments : CompanyCode = _oldCompanyCode : CostingSheetNo = _oldCostingsheetno
                CreatedBy = _oldCreateBy : CreatedDateTime = _oldCreatedDTTime : CurrencyCode = _oldCurrCode
                GrandDiscountTotal = _oldGrandDiscAmt : GrandFreightCharges = _oldGrandFreightCharges
                GrandFreightCharges = _oldGrandFreightCharges : GrandNetTotal = _oldGrandNetTotal
                GrandOtherCharges = _oldGrandOtherCharges : GrandSubTotal = _oldGrandSubTotal
                GrandVATTotal = _oldGrandVATAmt : InquiryNo = _oldInquiryNo : IsApproved = _oldIsApproved
                IsCancel = _oldIsCacel : IsRevised = _oldIsRevised : PreviousQuotationNo = _oldPreviousQuotationNo
                QuotationType = _oldQuotationType : ReferenceNumber = _oldRefNumber : RejectedBy = _oldRejectedBy
                RejectedDateTime = _oldRejectedDTTime : TDate = _oldTDate
                TransactionCode = _oldTransactionCode : TransactionDate = _oldTransactionDate
                FileExtension = _oldFileExtension
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub EndEdit() Implements System.ComponentModel.IEditableObject.EndEdit
        Try
            _Editing = False : _IsAddNew = False
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
#End Region

End Class

Detail Class

Option Explicit On
Option Strict On
Imports System.ComponentModel
Public Class QuotationServiceDetail
    Inherits PCTLTransactionsDetailBaseClass

    Implements IEditableObject


#Region "Declarations"

    Private objDAL As New PCTLDataTier.DataLayer
    Private strSQL As String

    Private _ServiceTypeID As Integer
    Private _ServiceName As String

    Private _objQuotationMaster As New BusinessTier.ServiceQuotationMaster

    Public Event ServiceName_Changed As EventHandler
    Public Event ServiceTypeID_Changed As EventHandler

    Friend Event RemoveMe(ByVal objQuotationServiceDetail As BusinessTier.QuotationServiceDetail)

#End Region

#Region "Properties"
    Public Property ServiceName() As String
        Get
            Return _ServiceName
        End Get
        Set(ByVal value As String)
            _ServiceName = CStr(IIf(IsDBNull(value), Nothing, value))
            RaiseEvent ServiceName_Changed(Me, New EventArgs)
        End Set
    End Property
    Public Property ServiceTypeID() As Integer
        Get
            Return _ServiceTypeID
        End Get
        Set(ByVal value As Integer)
            _ServiceTypeID = CInt(IIf(IsDBNull(value), 0, value))
            RaiseEvent ServiceTypeID_Changed(Me, New EventArgs)
        End Set
    End Property
#End Region

#Region "IEditableObject"
    Public IsEditing As Boolean
    Public IsAddNew As Boolean

    Private _oldCompanyCode As String
    Private _oldVoucherShortCode As String
    Private _oldTransactionCode As Integer
    Private _oldSerialNumber As Integer
    Private _oldServiceName As String
    Private _oldServiceTypeId As Integer
    Private _oldQuantity As Double
    Private _oldRate As Double
    Private _oldVATPercent As Double
    Private _oldVATAmount As Double
    Private _oldDiscountPercent As Double
    Private _oldDiscountAmount As Double
    Private _oldSubTotal As Double
    Private _oldNetTotal As Double


    Public Sub BeginEdit() Implements System.ComponentModel.IEditableObject.BeginEdit
        Try
            If IsEditing = True Then
                _oldCompanyCode = CompanyCode : _oldDiscountAmount = DiscountAmount : _oldDiscountPercent = DiscountPercentage
                _oldNetTotal = NetTotal : _oldQuantity = Quantity : _oldRate = Rate : _oldSerialNumber = SerialNumber
                _oldServiceName = ServiceName : _oldServiceTypeId = ServiceTypeID : _oldSubTotal = SubTotal
                _oldTransactionCode = TransactionCode : _oldVATAmount = VATAmount : _oldVATPercent = VATPercentage
                _oldVoucherShortCode = VoucherShrtCode
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub CancelEdit() Implements System.ComponentModel.IEditableObject.CancelEdit
        Try
            If IsEditing = True Then
                CompanyCode = _oldCompanyCode : DiscountAmount = _oldDiscountAmount : DiscountPercentage = _oldDiscountPercent
                NetTotal = _oldNetTotal : Quantity = _oldQuantity : Rate = _oldRate : SerialNumber = _oldSerialNumber
                ServiceName = _oldServiceName : ServiceTypeID = _oldServiceTypeId : SubTotal = _oldSubTotal
                TransactionCode = _oldTransactionCode : VATAmount = _oldVATAmount : VATPercentage = _oldVATPercent
                VoucherShrtCode = _oldVoucherShortCode
                IsEditing = False
            ElseIf IsAddNew = True Then
                RaiseEvent RemoveMe(Me)
                IsAddNew = False
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub EndEdit() Implements System.ComponentModel.IEditableObject.EndEdit
        Try
            IsEditing = False : IsAddNew = False
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
#End Region

#Region "Functions"
    Public Overrides Function Delete() As Integer
        Try
            strSQL = "DELETE tblQuotationServiceDt WHERE CompanyCode='" & CompanyCode & "' AND QuotationNo=" & TransactionCode & ""
            Return objDAL.ExecQuery(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function Edit() As Integer
        Try
            strSQL = "UPDATE ADMIN.TBLQUOTATIONSERVICEDT SET VOUCHERSHRTCODE ='" & VoucherShrtCode & "'," & _
                        "SERIALNUMBER=" & SerialNumber & ",SERVICETYPEID=" & ServiceTypeID & "," & _
                        "QUANTITY=" & Quantity & ",RATE=" & Rate & ",VATPERCENTAGE=" & VATPercentage & "," & _
                        "VATAMOUNT=" & VATAmount & ",DISCPERCENT=" & DiscountPercentage & ",DISCAMOUNT=" & DiscountAmount & "," & _
                        "SUBTOTAL=" & SubTotal & ",NETTOTAL=" & NetTotal & " " & _
                        "WHERE COMPANYCODE='" & CompanyCode & "'AND QUOTATIONNO=" & TransactionCode & ""
            Return objDAL.ExecQuery(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function

    Public Overrides Function GetRecords(ByVal sqlStmt As String) As System.Data.DataSet
        Try
            Return objDAL.ExecuteQry(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public Overrides Function Save() As Integer
        Try
            strSQL = "INSERT INTO ADMIN.TBLQUOTATIONSERVICEDT (COMPANYCODE,VOUCHERSHRTCODE,QUOTATIONNO,SERIALNUMBER," & _
                            "SERVICETYPEID,QUANTITY,RATE,VATPERCENTAGE,VATAMOUNT,DISCPERCENT,DISCAMOUNT,SUBTOTAL,NETTOTAL) " & _
                    "VALUES ('" & CompanyCode & "','" & VoucherShrtCode & "'," & TransactionCode & "," & _
                            "" & SerialNumber & "," & ServiceTypeID & "," & Quantity & "," & _
                            "" & Rate & "," & VATPercentage & "," & VATAmount & "," & _
                            "" & DiscountPercentage & "," & DiscountAmount & "," & SubTotal & "," & NetTotal & ")"
            Return objDAL.ExecQuery(strSQL)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return 0
        End Try
    End Function
#End Region

    Public Sub New(ByRef _QuotationMaster As BusinessTier.ServiceQuotationMaster)
        Try
            _objQuotationMaster = _QuotationMaster
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
End Class

Master Collection

Option Explicit On
Option Strict On
Imports System.ComponentModel
Imports System.Data
Imports System.IO
Imports System.Text
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Public Class ServicesQuotationsMaster
    Inherits System.Collections.CollectionBase

    Implements IBindingList

    Default Public ReadOnly Property Item(ByVal index As Integer) As BusinessTier.ServiceQuotationMaster
        Get
            Return CType(List(index), BusinessTier.ServiceQuotationMaster)
        End Get
    End Property
    Public Sub Delete(ByVal objQuotation As BusinessTier.ServiceQuotationMaster)
        Try
            List.Remove(objQuotation)
            objQuotation.Delete()
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub AddIndex(ByVal [property] As System.ComponentModel.PropertyDescriptor) Implements System.ComponentModel.IBindingList.AddIndex

    End Sub

    Public Function AddNew() As Object Implements System.ComponentModel.IBindingList.AddNew
        Try
            Dim item As New BusinessTier.ServiceQuotationMaster
            List.Add(item)
            Return item
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public ReadOnly Property AllowEdit() As Boolean Implements System.ComponentModel.IBindingList.AllowEdit
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property AllowNew() As Boolean Implements System.ComponentModel.IBindingList.AllowNew
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property AllowRemove() As Boolean Implements System.ComponentModel.IBindingList.AllowRemove
        Get
            Return True
        End Get
    End Property

    Public Sub ApplySort(ByVal [property] As System.ComponentModel.PropertyDescriptor, ByVal direction As System.ComponentModel.ListSortDirection) Implements System.ComponentModel.IBindingList.ApplySort

    End Sub

    Public Function Find(ByVal [property] As System.ComponentModel.PropertyDescriptor, ByVal key As Object) As Integer Implements System.ComponentModel.IBindingList.Find
        Try
            Dim idx As Integer
            Dim result As Integer = -1
            For idx = 0 To Me.List.Count - 1
                Dim value As Object = [property].GetValue(Me.List(idx))
                If (value Is key) Then
                    result = idx
                End If

                If (result <> -1) Then
                    Return result
                End If
            Next
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public ReadOnly Property IsSorted() As Boolean Implements System.ComponentModel.IBindingList.IsSorted
        Get
            Return False
        End Get
    End Property

    Public Event ListChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ListChangedEventArgs) Implements System.ComponentModel.IBindingList.ListChanged

    Public Sub RemoveIndex(ByVal [property] As System.ComponentModel.PropertyDescriptor) Implements System.ComponentModel.IBindingList.RemoveIndex

    End Sub

    Public Sub RemoveSort() Implements System.ComponentModel.IBindingList.RemoveSort

    End Sub

    Public ReadOnly Property SortDirection() As System.ComponentModel.ListSortDirection Implements System.ComponentModel.IBindingList.SortDirection
        Get

        End Get
    End Property

    Public ReadOnly Property SortProperty() As System.ComponentModel.PropertyDescriptor Implements System.ComponentModel.IBindingList.SortProperty
        Get

        End Get
    End Property

    Public ReadOnly Property SupportsChangeNotification() As Boolean Implements System.ComponentModel.IBindingList.SupportsChangeNotification
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property SupportsSearching() As Boolean Implements System.ComponentModel.IBindingList.SupportsSearching
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SupportsSorting() As Boolean Implements System.ComponentModel.IBindingList.SupportsSorting
        Get
            Return False
        End Get
    End Property

    Private _BindingList As System.ComponentModel.IBindingList

    Protected Overrides Sub OnClearComplete()
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.Reset, 0))
    End Sub


    Protected Overrides Sub OnInsertComplete(ByVal index As Integer, ByVal value As Object)
        AddHandler CType(value, BusinessTier.ServiceQuotationMaster).RemoveMe, AddressOf Delete
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemAdded, index))
    End Sub


    Protected Overrides Sub OnRemoveComplete(ByVal index As Integer, ByVal value As Object)
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemDeleted, index))
    End Sub


    Protected Overrides Sub OnSetComplete(ByVal index As Integer, ByVal oldValue As Object, ByVal newValue As Object)
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemChanged, index))
    End Sub

    Public Sub New()
        Try
            If TypeOf List Is IBindingList Then
                _BindingList = DirectCast(List, IBindingList)
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Public Sub New(ByVal strCompanyCode As String)
        Try
            If TypeOf List Is IBindingList Then
                _BindingList = DirectCast(List, IBindingList)
            End If

            List.Clear()

            Dim dtResults As New DataTable
            Dim objDAL As New PCTLDataTier.DataLayer
            Dim strSQL As String

            strSQL = "SELECT COMPANYCODE,VOUCHERSHRTCODE,QUOTATIONNO,QUOTATIONDT,COSTINGSHEETNO,INQUIRYNO,ISREVISED," & _
                            "QUOTATIONTYPE,PREVIOUSQUOTATIONNO,CURRCODE,ISAPPROVED,ISCANCEL,APPROVEDBY,APPROVEDDTTIME," & _
                            "CREATEBY,CREATEDDTTIME,REJECTEDBY,REJECTEDDTTIME,COMMENTS,TDATE,GRANDTOTALDISCOUNT," & _
                            "GRANDTOTALVAT,GRANDSUBTOTAL,GRANDFREIGHTCHARGES,GRANDOTHERCHARGES,GRANDNETTOTAL," & _
                            "BASECURREXCHANGERATE,REFNUMBER FROM ADMIN.TBLQUOTATIONMASTER WHERE CompanyCode='" & strCompanyCode & "'"

            dtResults.Clear()
            dtResults = objDAL.ExecuteQry(strSQL).Tables("tblRecords")

            If dtResults.Rows.Count > 0 Then
                For Each drResults As DataRow In dtResults.Rows
                    Dim objQuotation As New BusinessTier.ServiceQuotationMaster
                    With objQuotation
                        .ApprovedBy = CStr(IIf(IsDBNull(drResults.Item("APPROVEDBY")), Nothing, drResults.Item("APPROVEDBY")))
                        .ApprovedDateTime = CDate(IIf(IsDBNull(drResults.Item("APPROVEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("APPROVEDDTTIME")), DateFormat.ShortDate)))
                        .BaseCurrencyExchangeRate = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("BASECURREXCHANGERATE")), 0, drResults.Item("BASECURREXCHANGERATE")), 2))
                        .Comments = CStr(IIf(IsDBNull(drResults.Item("COMMENTS")), Nothing, drResults.Item("COMMENTS")))
                        .CompanyCode = CStr(IIf(IsDBNull(drResults.Item("COMPANYCODE")), Nothing, drResults.Item("COMPANYCODE")))
                        .CostingSheetNo = CInt(IIf(IsDBNull(drResults.Item("COSTINGSHEETNO")), 0, drResults.Item("COSTINGSHEETNO")))
                        .CreatedBy = CStr(IIf(IsDBNull(drResults.Item("CREATEBY")), Nothing, drResults.Item("CREATEBY")))
                        .CreatedDateTime = CDate(IIf(IsDBNull(drResults.Item("CREATEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("CREATEDDTTIME")), DateFormat.ShortDate)))
                        .CurrencyCode = CStr(IIf(IsDBNull(drResults.Item("CURRCODE")), Nothing, drResults.Item("CURRCODE")))
                        .GrandDiscountTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDTOTALDISCOUNT")), 0, drResults.Item("GRANDTOTALDISCOUNT")), 2))
                        .GrandFreightCharges = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDFREIGHTCHARGES")), 0, drResults.Item("GRANDFREIGHTCHARGES")), 2))
                        .GrandNetTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDNETTOTAL")), 0, drResults.Item("GRANDNETTOTAL")), 2))
                        .GrandOtherCharges = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDOTHERCHARGES")), 0, drResults.Item("GRANDOTHERCHARGES")), 2))
                        .GrandSubTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDSUBTOTAL")), 0, drResults.Item("GRANDSUBTOTAL")), 2))
                        .GrandVATTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDTOTALVAT")), 0, drResults.Item("GRANDTOTALVAT")), 2))
                        .InquiryNo = CInt(IIf(IsDBNull(drResults.Item("INQUIRYNO")), 0, drResults.Item("INQUIRYNO")))
                        .IsApproved = CInt(IIf(IsDBNull(drResults.Item("ISAPPROVED")), 0, drResults.Item("ISAPPROVED")))
                        .IsCancel = CInt(IIf(IsDBNull(drResults.Item("ISCANCEL")), 0, drResults.Item("ISCANCEL")))
                        .IsRevised = CInt(IIf(IsDBNull(drResults.Item("ISREVISED")), 0, drResults.Item("ISREVISED")))
                        .PreviousQuotationNo = CInt(IIf(IsDBNull(drResults.Item("PREVIOUSQUOTATIONNO")), 0, drResults.Item("PREVIOUSQUOTATIONNO")))
                        .QuotationType = CStr(IIf(IsDBNull(drResults.Item("QUOTATIONTYPE")), Nothing, drResults.Item("QUOTATIONTYPE")))
                        .ReferenceNumber = CStr(IIf(IsDBNull(drResults.Item("REFNUMBER")), Nothing, drResults.Item("REFNUMBER")))
                        .RejectedBy = CStr(IIf(IsDBNull(drResults.Item("REJECTEDBY")), Nothing, drResults.Item("REJECTEDBY")))
                        .RejectedDateTime = CDate(IIf(IsDBNull(drResults.Item("REJECTEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("REJECTEDDTTIME")), DateFormat.ShortDate)))
                        .TDate = CDate(IIf(IsDBNull(drResults.Item("TDATE")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("TDATE")), DateFormat.ShortDate)))
                        .TransactionCode = CInt(IIf(IsDBNull(drResults.Item("QUOTATIONNO")), 0, drResults.Item("QUOTATIONNO")))
                        .TransactionDate = CDate(IIf(IsDBNull(drResults.Item("QUOTATIONDT")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("QUOTATIONDT")), DateFormat.ShortDate)))
                        .VoucherShortCode = CStr(IIf(IsDBNull(drResults.Item("VOUCHERSHRTCODE")), Nothing, drResults.Item("VOUCHERSHRTCODE")))
                        .ServiceQuotationLineItems.LoadRows(.TransactionCode, .CompanyCode)
                        GetTermsAndConditions(.TransactionCode, .CompanyCode)
                    End With
                    List.Add(objQuotation)
                Next
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Private Sub GetTermsAndConditions(ByVal intQuotationNo As Integer, ByVal strCompanyCode As String)
        Try
            ' Connect to database
            Dim cmd As New OracleCommand
            Dim constr As String = "User Id=ADMIN;Password=accesslight;Data Source=NTL"
            Dim con As OracleConnection = New OracleConnection(constr)

            con.Open()

            ' Note: Modify the Destination location of the File
            Dim DestinationLoc As String = My.Application.Info.DirectoryPath & "\Temp\TermsAndConditionsQuotationNo" & intQuotationNo & " .doc"

            ' Create Anonymous PL/SQL block string
            Dim strSQL As String = " BEGIN " & _
                                " SELECT TERMSANDCONDITION INTO :1 FROM" & _
                                " ADMIN.TBLQUOTATIONMASTER WHERE CompanyCode = '" & strCompanyCode & "'" & _
                                " AND QuotationNO = " & intQuotationNo & ";" & _
                                " End ;"

            cmd.CommandText = strSQL
            cmd.Connection = con

            ' Since executing an anonymous PL/SQL block, setting the command type
            ' as Text instead of StoredProcedure
            cmd.CommandType = CommandType.Text

            ' Bind the parameter as OracleDbType.Blob
            ' to command for inserting image
            Dim param As OracleParameter = cmd.Parameters.Add("blobtodb", OracleDbType.Blob)
            param.Direction = ParameterDirection.Output

            cmd.ExecuteNonQuery()

            ' Save the retrieved image to the DestinationLoc in the file system
            ' Create a byte array
            Dim byteData As Byte()
            Dim Paramvalue As OracleBlob
            Paramvalue = CType(cmd.Parameters(0).Value, OracleBlob)

            ' fetch the value of Oracle parameter into the byte array
            byteData = CType((Paramvalue.Value), Byte())

            ' get the length of the byte array
            Dim ArraySize As Integer = New Integer()
            ArraySize = byteData.GetUpperBound(0)

            ' Write the Blob data fetched from database to the filesystem at
            ' the destination location
            Dim fs1 As FileStream = New FileStream(DestinationLoc, FileMode.OpenOrCreate, FileAccess.Write)
            fs1.Write(byteData, 0, ArraySize)
            fs1.Close()

            MsgBox("For terms and conditions please view " & DestinationLoc & ".", MsgBoxStyle.Information, My.Application.Info.Title)

        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Public Sub LoadRows(ByVal intQuotationNumber As Integer, ByVal strCompanyCode As String)
        Try
            If TypeOf List Is IBindingList Then
                _BindingList = DirectCast(List, IBindingList)
            End If

            List.Clear()

            Dim dtResults As New DataTable
            Dim objDAL As New PCTLDataTier.DataLayer
            Dim strSQL As String

            strSQL = "SELECT COMPANYCODE,VOUCHERSHRTCODE,QUOTATIONNO,QUOTATIONDT,COSTINGSHEETNO,INQUIRYNO,ISREVISED," & _
                            "QUOTATIONTYPE,PREVIOUSQUOTATIONNO,CURRCODE,ISAPPROVED,ISCANCEL,APPROVEDBY,APPROVEDDTTIME," & _
                            "CREATEBY,CREATEDDTTIME,REJECTEDBY,REJECTEDDTTIME,COMMENTS,TDATE,GRANDTOTALDISCOUNT," & _
                            "GRANDTOTALVAT,GRANDSUBTOTAL,GRANDFREIGHTCHARGES,GRANDOTHERCHARGES,GRANDNETTOTAL," & _
                            "BASECURREXCHANGERATE,REFNUMBER FROM ADMIN.TBLQUOTATIONMASTER " & _
                            "WHERE CompanyCode='" & strCompanyCode & "' AND QUOTATIONNO=" & intQuotationNumber & ""

            dtResults.Clear()
            dtResults = objDAL.ExecuteQry(strSQL).Tables("tblRecords")

            If dtResults.Rows.Count > 0 Then
                For Each drResults As DataRow In dtResults.Rows
                    Dim objQuotation As New BusinessTier.ServiceQuotationMaster
                    With objQuotation
                        .ApprovedBy = CStr(IIf(IsDBNull(drResults.Item("APPROVEDBY")), Nothing, drResults.Item("APPROVEDBY")))
                        .ApprovedDateTime = CDate(IIf(IsDBNull(drResults.Item("APPROVEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("APPROVEDDTTIME")), DateFormat.ShortDate)))
                        .BaseCurrencyExchangeRate = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("BASECURREXCHANGERATE")), 0, drResults.Item("BASECURREXCHANGERATE")), 2))
                        .Comments = CStr(IIf(IsDBNull(drResults.Item("COMMENTS")), Nothing, drResults.Item("COMMENTS")))
                        .CompanyCode = CStr(IIf(IsDBNull(drResults.Item("COMPANYCODE")), Nothing, drResults.Item("COMPANYCODE")))
                        .CostingSheetNo = CInt(IIf(IsDBNull(drResults.Item("COSTINGSHEETNO")), 0, drResults.Item("COSTINGSHEETNO")))
                        .CreatedBy = CStr(IIf(IsDBNull(drResults.Item("CREATEBY")), Nothing, drResults.Item("CREATEBY")))
                        .CreatedDateTime = CDate(IIf(IsDBNull(drResults.Item("CREATEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("CREATEDDTTIME")), DateFormat.ShortDate)))
                        .CurrencyCode = CStr(IIf(IsDBNull(drResults.Item("CURRCODE")), Nothing, drResults.Item("CURRCODE")))
                        .GrandDiscountTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDTOTALDISCOUNT")), 0, drResults.Item("GRANDTOTALDISCOUNT")), 2))
                        .GrandFreightCharges = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDFREIGHTCHARGES")), 0, drResults.Item("GRANDFREIGHTCHARGES")), 2))
                        .GrandNetTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDNETTOTAL")), 0, drResults.Item("GRANDNETTOTAL")), 2))
                        .GrandOtherCharges = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDOTHERCHARGES")), 0, drResults.Item("GRANDOTHERCHARGES")), 2))
                        .GrandSubTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDSUBTOTAL")), 0, drResults.Item("GRANDSUBTOTAL")), 2))
                        .GrandVATTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("GRANDTOTALVAT")), 0, drResults.Item("GRANDTOTALVAT")), 2))
                        .InquiryNo = CInt(IIf(IsDBNull(drResults.Item("INQUIRYNO")), 0, drResults.Item("INQUIRYNO")))
                        .IsApproved = CInt(IIf(IsDBNull(drResults.Item("ISAPPROVED")), 0, drResults.Item("ISAPPROVED")))
                        .IsCancel = CInt(IIf(IsDBNull(drResults.Item("ISCANCEL")), 0, drResults.Item("ISCANCEL")))
                        .IsRevised = CInt(IIf(IsDBNull(drResults.Item("ISREVISED")), 0, drResults.Item("ISREVISED")))
                        .PreviousQuotationNo = CInt(IIf(IsDBNull(drResults.Item("PREVIOUSQUOTATIONNO")), 0, drResults.Item("PREVIOUSQUOTATIONNO")))
                        .QuotationType = CStr(IIf(IsDBNull(drResults.Item("QUOTATIONTYPE")), Nothing, drResults.Item("QUOTATIONTYPE")))
                        .ReferenceNumber = CStr(IIf(IsDBNull(drResults.Item("REFNUMBER")), Nothing, drResults.Item("REFNUMBER")))
                        .RejectedBy = CStr(IIf(IsDBNull(drResults.Item("REJECTEDBY")), Nothing, drResults.Item("REJECTEDBY")))
                        .RejectedDateTime = CDate(IIf(IsDBNull(drResults.Item("REJECTEDDTTIME")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("REJECTEDDTTIME")), DateFormat.ShortDate)))
                        .TDate = CDate(IIf(IsDBNull(drResults.Item("TDATE")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("TDATE")), DateFormat.ShortDate)))
                        .TransactionCode = CInt(IIf(IsDBNull(drResults.Item("QUOTATIONNO")), 0, drResults.Item("QUOTATIONNO")))
                        .TransactionDate = CDate(IIf(IsDBNull(drResults.Item("QUOTATIONDT")), FormatDateTime(Today, DateFormat.ShortDate), FormatDateTime(CDate(drResults.Item("QUOTATIONDT")), DateFormat.ShortDate)))
                        .VoucherShortCode = CStr(IIf(IsDBNull(drResults.Item("VOUCHERSHRTCODE")), Nothing, drResults.Item("VOUCHERSHRTCODE")))
                        .ServiceQuotationLineItems.LoadRows(.TransactionCode, .CompanyCode)
                        GetTermsAndConditions(.TransactionCode, .CompanyCode)
                    End With
                    List.Add(objQuotation)
                Next
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
End Class

Detail Collection

Option Explicit On
Option Strict On
Imports System.ComponentModel
Public Class QuotationsServicesDetails
    Inherits System.Collections.CollectionBase

    Implements IBindingList
    Implements INotifyPropertyChanged

#Region "Declarations"

    Private _QuotationMaster As BusinessTier.ServiceQuotationMaster

    Private _CompanyCode As String
    Private _VoucherShrtCode As String
    Private _ServiceName As String

    Private _TransactionCode As Integer
    Private _SerialNumber As Integer
    Private _ServiceTypeID As Integer
    Private _CurrentIndex As Integer

    Private _Quantity As Double
    Private _Rate As Double
    Private _VATPercentage As Double
    Private _VATAmount As Double
    Private _DiscountPercentage As Double
    Private _DiscountAmount As Double
    Private _SubTotal As Double
    Private _NetTotal As Double

    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

#End Region

#Region "Properties"
    Public Property CompanyCode() As String
        Get
            Return Me._CompanyCode
        End Get
        Set(ByVal value As String)
            Me._CompanyCode = CStr(IIf(IsDBNull(value), Nothing, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("CompanyCode"))
        End Set
    End Property
    Public Property VoucherShrtCode() As String
        Get
            Return Me._VoucherShrtCode
        End Get
        Set(ByVal value As String)
            Me._VoucherShrtCode = CStr(IIf(IsDBNull(value), Nothing, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("VoucherShrtCode"))
        End Set
    End Property
    Public Property TransactionCode() As Integer
        Get
            Return Me._TransactionCode
        End Get
        Set(ByVal value As Integer)
            Me._TransactionCode = CInt(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("TransactionCode"))
        End Set
    End Property
    Public Property DiscountAmount() As Double
        Get
            Return Me._DiscountAmount
        End Get
        Set(ByVal value As Double)
            Me._DiscountAmount = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("DiscountAmount"))
        End Set
    End Property
    Public Property DiscountPercentage() As Double
        Get
            Return Me._DiscountPercentage
        End Get
        Set(ByVal value As Double)
            Me._DiscountPercentage = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("DiscountPercentage"))
        End Set
    End Property
    Public Property NetTotal() As Double
        Get
            Return Me._NetTotal
        End Get
        Set(ByVal value As Double)
            Me._NetTotal = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("NetTotal"))
        End Set
    End Property
    Public Property Quantity() As Double
        Get
            Return Me._Quantity
        End Get
        Set(ByVal value As Double)
            Me._Quantity = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("Quantity"))
        End Set
    End Property
    Public Property Rate() As Double
        Get
            Return Me._Rate
        End Get
        Set(ByVal value As Double)
            Me._Rate = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("Rate"))
        End Set
    End Property
    Public Property SerialNumber() As Integer
        Get
            Return Me._SerialNumber
        End Get
        Set(ByVal value As Integer)
            Me._SerialNumber = CInt(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("SerialNumber"))
        End Set
    End Property
    Public Property ServiceTypeID() As Integer
        Get
            Return Me._ServiceTypeID
        End Get
        Set(ByVal value As Integer)
            Me._ServiceTypeID = CInt(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("serviceTypeID"))
        End Set
    End Property
    Public Property ServiceName() As String
        Get
            Return Me._ServiceName
        End Get
        Set(ByVal value As String)
            Me._ServiceName = CStr(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("ServiceName"))
        End Set
    End Property
    Public Property SubTotal() As Double
        Get
            Return Me._SubTotal
        End Get
        Set(ByVal value As Double)
            Me._SubTotal = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("SubTotal"))
        End Set
    End Property
    Public Property VATAmount() As Double
        Get
            Return Me._VATAmount
        End Get
        Set(ByVal value As Double)
            Me._VATAmount = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("VATAmount"))
        End Set
    End Property
    Public Property VATPercentage() As Double
        Get
            Return Me._VATPercentage
        End Get
        Set(ByVal value As Double)
            Me._VATPercentage = CDbl(IIf(IsDBNull(value), 0, value))
            Me.OnPropertyChanged(New PropertyChangedEventArgs("VATPercentage"))
        End Set
    End Property
#End Region

#Region "Default Property"
    Default Public ReadOnly Property Item(ByVal index As Integer) As BusinessTier.QuotationServiceDetail
        Get
            Return CType(List(index), BusinessTier.QuotationServiceDetail)
        End Get
    End Property
#End Region
    Public Sub Delete(ByVal objQuotationServiceDetail As BusinessTier.QuotationServiceDetail)
        Try
            List.Remove(objQuotationServiceDetail)
            objQuotationServiceDetail.Delete()
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Public Sub AddIndex(ByVal [property] As System.ComponentModel.PropertyDescriptor) Implements System.ComponentModel.IBindingList.AddIndex

    End Sub

    Public Function AddNew() As Object Implements System.ComponentModel.IBindingList.AddNew
        Try
            Dim item As New BusinessTier.QuotationServiceDetail(_QuotationMaster)
            List.Add(item)
            Return item
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function

    Public ReadOnly Property AllowEdit() As Boolean Implements System.ComponentModel.IBindingList.AllowEdit
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property AllowNew() As Boolean Implements System.ComponentModel.IBindingList.AllowNew
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property AllowRemove() As Boolean Implements System.ComponentModel.IBindingList.AllowRemove
        Get
            Return True
        End Get
    End Property

    Public Sub ApplySort(ByVal [property] As System.ComponentModel.PropertyDescriptor, ByVal direction As System.ComponentModel.ListSortDirection) Implements System.ComponentModel.IBindingList.ApplySort
        Throw New NotSupportedException
    End Sub

    Public Function Find(ByVal [property] As System.ComponentModel.PropertyDescriptor, ByVal key As Object) As Integer Implements System.ComponentModel.IBindingList.Find
        Try
            Dim idx As Integer
            Dim result As Integer = -1
            For idx = 0 To Me.List.Count - 1
                Dim value As Object = [property].GetValue(Me.List(idx))
                If (value Is key) Then
                    result = idx
                End If

                If (result <> -1) Then
                    Return result
                End If
            Next
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Function
    Public Function Find(ByVal propertyName As String, ByVal key As Object) As Integer

        Try
            Dim findProperty As System.ComponentModel.PropertyDescriptor = Nothing

            If Len(propertyName) > 0 Then
                Dim itemType As Type = GetType(BusinessTier.QuotationServiceDetail)
                For Each prop As System.ComponentModel.PropertyDescriptor In System.ComponentModel.TypeDescriptor.GetProperties(itemType)

                    If UCase(prop.Name) = UCase(propertyName) Then
                        findProperty = prop
                        Exit For
                    End If
                Next
            End If

            'Return Find(findProperty, key)

            Return mBindingList.Find(findProperty, key)
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, My.Application.Info.Title)
        End Try

    End Function

    Private mBindingList As System.ComponentModel.IBindingList

    Public ReadOnly Property IsSorted() As Boolean Implements System.ComponentModel.IBindingList.IsSorted
        Get
            Return False
        End Get
    End Property

    Public Event ListChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ListChangedEventArgs) Implements System.ComponentModel.IBindingList.ListChanged

    Public Sub RemoveIndex(ByVal [property] As System.ComponentModel.PropertyDescriptor) Implements System.ComponentModel.IBindingList.RemoveIndex

    End Sub

    Public Sub RemoveSort() Implements System.ComponentModel.IBindingList.RemoveSort

    End Sub

    Public ReadOnly Property SortDirection() As System.ComponentModel.ListSortDirection Implements System.ComponentModel.IBindingList.SortDirection
        Get

        End Get
    End Property

    Public ReadOnly Property SortProperty() As System.ComponentModel.PropertyDescriptor Implements System.ComponentModel.IBindingList.SortProperty
        Get

        End Get
    End Property

    Public ReadOnly Property SupportsChangeNotification() As Boolean Implements System.ComponentModel.IBindingList.SupportsChangeNotification
        Get
            Return True
        End Get
    End Property

    Public ReadOnly Property SupportsSearching() As Boolean Implements System.ComponentModel.IBindingList.SupportsSearching
        Get
            Return False
        End Get
    End Property

    Public ReadOnly Property SupportsSorting() As Boolean Implements System.ComponentModel.IBindingList.SupportsSorting
        Get
            Return False
        End Get
    End Property

    Private _BindingList As System.ComponentModel.IBindingList

    Protected Overrides Sub OnClearComplete()
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.Reset, 0))
    End Sub


    Protected Overrides Sub OnInsertComplete(ByVal index As Integer, ByVal value As Object)
        AddHandler CType(value, BusinessTier.QuotationServiceDetail).RemoveMe, AddressOf Delete
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemAdded, index))
    End Sub


    Protected Overrides Sub OnRemoveComplete(ByVal index As Integer, ByVal value As Object)
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemDeleted, index))
    End Sub


    Protected Overrides Sub OnSetComplete(ByVal index As Integer, ByVal oldValue As Object, ByVal newValue As Object)
        RaiseEvent ListChanged(Me, New ListChangedEventArgs(ListChangedType.ItemChanged, index))
    End Sub

    Public Sub New()
        Try
            If TypeOf List Is IBindingList Then
                _BindingList = DirectCast(List, IBindingList)
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Private Sub New(ByVal strCompanyCode As String)
        Try
            List.Clear()

            Dim dtResults As New DataTable
            Dim objDAL As New PCTLDataTier.DataLayer
            Dim strSQL As String

            strSQL = "SELECT * FROM tblQuotationServiceDT WHERE CompanyCode='" & strCompanyCode & "'"

            dtResults.Clear()
            dtResults = objDAL.ExecuteQry(strSQL).Tables("tblRecords")

            If dtResults.Rows.Count > 0 Then
                For Each drResults As DataRow In dtResults.Rows
                    Dim objQuotationServiceDetail As New BusinessTier.QuotationServiceDetail(_QuotationMaster)
                    With objQuotationServiceDetail
                        .CompanyCode = CStr(IIf(IsDBNull(drResults.Item("CompanyCode")), Nothing, drResults.Item("CompanyCode")))
                        .DiscountAmount = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("DiscAmount")), 0, drResults.Item("DiscAmount")), 2))
                        .DiscountPercentage = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("DiscPercent")), 0, drResults.Item("DiscPercent")), 2))
                        .Quantity = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("Quantity")), 0, drResults.Item("Quantity")), 2))
                        .Rate = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("Rate")), 0, drResults.Item("Rate")), 2))
                        .SerialNumber = CInt(IIf(IsDBNull(drResults.Item("SerialNumber")), 0, drResults.Item("SerialNumber")))
                        .ServiceTypeID = CInt(IIf(IsDBNull(drResults.Item("ServiceTypeID")), 0, drResults.Item("ServiceTypeID")))
                        .ServiceName = GetServiceName(.ServiceTypeID)
                        .SubTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("SubTotal")), 0, drResults.Item("SubTotal")), 2))
                        .TransactionCode = CInt(IIf(IsDBNull(drResults.Item("QuotationNo")), 0, drResults.Item("QuotationNo")))
                        .VATAmount = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("VATAmount")), 0, drResults.Item("VATAmount")), 2))
                        .VATPercentage = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("VATPercentage")), 0, drResults.Item("VATPercentage")), 2))
                        .VoucherShrtCode = CStr(IIf(IsDBNull(drResults.Item("VoucherShrtCode")), Nothing, drResults.Item("VoucherShrtCode")))
                    End With
                    List.Add(objQuotationServiceDetail)
                Next
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Public Sub LoadRows(ByVal intQuotationNO As Integer, ByVal strCompanyCode As String)
        Try
            List.Clear()

            Dim dtResults As New DataTable
            Dim objDAL As New PCTLDataTier.DataLayer
            Dim strSQL As String

            strSQL = "SELECT * FROM tblQuotationServiceDT WHERE CompanyCode='" & strCompanyCode & "' AND QuotationNo=" & intQuotationNO & ""

            dtResults.Clear()
            dtResults = objDAL.ExecuteQry(strSQL).Tables("tblRecords")

            If dtResults.Rows.Count > 0 Then
                For Each drResults As DataRow In dtResults.Rows
                    Dim objQuotationServiceDetail As New BusinessTier.QuotationServiceDetail(_QuotationMaster)
                    With objQuotationServiceDetail
                        .CompanyCode = CStr(IIf(IsDBNull(drResults.Item("CompanyCode")), Nothing, drResults.Item("CompanyCode")))
                        .DiscountAmount = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("DiscAmount")), 0, drResults.Item("DiscAmount")), 2))
                        .DiscountPercentage = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("DiscPercent")), 0, drResults.Item("DiscPercent")), 2))
                        .NetTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("NetTotal")), 0, drResults.Item("NetTotal")), 2))
                        .Quantity = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("Quantity")), 0, drResults.Item("Quantity")), 2))
                        .Rate = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("Rate")), 0, drResults.Item("Rate")), 2))
                        .SerialNumber = CInt(IIf(IsDBNull(drResults.Item("SerialNumber")), 0, drResults.Item("SerialNumber")))
                        .ServiceTypeID = CInt(IIf(IsDBNull(drResults.Item("ServiceTypeID")), 0, drResults.Item("ServiceTypeID")))
                        .ServiceName = GetServiceName(.ServiceTypeID)
                        .SubTotal = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("SubTotal")), 0, drResults.Item("SubTotal")), 2))
                        .TransactionCode = CInt(IIf(IsDBNull(drResults.Item("QuotationNo")), 0, drResults.Item("QuotationNo")))
                        .VATAmount = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("VATAmount")), 0, drResults.Item("VATAmount")), 2))
                        .VATPercentage = CDbl(FormatNumber(IIf(IsDBNull(drResults.Item("VATPercentage")), 0, drResults.Item("VATPercentage")), 2))
                        .VoucherShrtCode = CStr(IIf(IsDBNull(drResults.Item("VoucherShrtCode")), Nothing, drResults.Item("VoucherShrtCode")))
                    End With
                    List.Add(objQuotationServiceDetail)
                Next
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub
    Private Function GetServiceName(ByVal intServiceID As Integer) As String
        Try
            Dim dtResults As New DataTable
            Dim objServiceType As New BusinessTier.ServiceType
            Dim strSQL As String

            strSQL = "SELECT ServiceTypeName FROM tblServiceTypeMaster WHERE ServiceTypeID=" & intServiceID

            dtResults.Clear()
            dtResults = objServiceType.GetRecords(strSQL).Tables("tblRecords")

            If dtResults.Rows.Count > 0 Then
                For Each drResults As DataRow In dtResults.Rows
                    Return CStr(IIf(IsDBNull(drResults.Item("ServiceTypeName")), Nothing, drResults.Item("ServiceTypeName")))
                Next
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
            Return Nothing
        End Try
    End Function

    Protected Overridable Sub OnPropertyChanged(ByVal e As PropertyChangedEventArgs)
        Try
            RaiseEvent PropertyChanged(Me, e)
        Catch ex As Exception
            Throw New Exception(ex.Message.ToString)
        End Try
    End Sub

    Private Sub QuotationServiceDTItemList_ListChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ListChangedEventArgs) Handles Me.ListChanged
        Try
            _CurrentIndex = (e.NewIndex)
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, My.Application.Info.Title)
        End Try
    End Sub

End Class

Form Load Code

cboCurrency.DataBindings.Add("SelectedValue", objServiceQuotation, "CurrencyCode")

            chkIsApproved.DataBindings.Add("Checked", objServiceQuotation, "IsApproved")
            chkIsCancelled.DataBindings.Add("Checked", objServiceQuotation, "IsCancel")
            chkIsRevised.DataBindings.Add("Checked", objServiceQuotation, "IsRevised")

            dtpTransactionDate.DataBindings.Add("Text", objServiceQuotation, "TransactionDate")

            lblCostingSheetNo.DataBindings.Add("Text", objServiceQuotation, "CostingSheetNo")
            lblInquiryNo.DataBindings.Add("Text", objServiceQuotation, "InquiryNo")
            lblNetTotal.DataBindings.Add("Text", objServiceQuotation, "GrandNetTotal")
            lblPrevQuotationNo.DataBindings.Add("Text", objServiceQuotation, "PreviousQuotationNo")
            lblQuotationNumber.DataBindings.Add("Text", objServiceQuotation, "TransactionCode")
            lblSubTotal.DataBindings.Add("Text", objServiceQuotation, "GrandSubTotal")
            lblTotalDiscount.DataBindings.Add("Text", objServiceQuotation, "GrandDiscountTotal")
            lblTotalVAT.DataBindings.Add("Text", objServiceQuotation, "GrandVATTotal")

            txtComments.DataBindings.Add("Text", objServiceQuotation, "Comments")

            grdServiceQuotationDetails.SetDataBinding(objServiceQuotation, "ServiceQuotationLineItems", True)

Please check the code and let me know where am going wrong. I will really appreciate.

Re: UPDATING BOUND OBJECT NOT WORKING

Ashfield14-Oct-09 1:28

Ashfield

14-Oct-09 1:28

You don't want much do you? Expecting someone to scan through all your code and find an error. Try using the debugger and see if that identifies your problem.

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Re: UPDATING BOUND OBJECT NOT WORKING APOLOGIES.

Member 66434314-Oct-09 9:14

Member 664343

14-Oct-09 9:14

My apologies for posting all that. I am new to code project. I regret making the post. I am deeply sorry to all.

> S M A C K <

Dave Kreskowiak14-Oct-09 2:06

Dave Kreskowiak

14-Oct-09 2:06

I'm not looking at this at all. I don't care if the code is nicely formatted. It's just plain rude to post such a HUGE code "snippet".

You post just the RELEVANT code snippets, not the whole damn project!

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: > S M A C K < APOLOGIES

Member 66434314-Oct-09 9:19

Member 664343

14-Oct-09 9:19

My apologies for posting all that. I am new to code project. I regret making the post. I am deeply sorry. My apologies to all.

Re: UPDATING BOUND OBJECT NOT WORKING

EliottA14-Oct-09 2:48

EliottA

14-Oct-09 2:48

You're clearly new here, so allow me to explain you a few things.

Firstly, under this forum at the very top there is a message entitled "how to get an answer to your question" or something of the sorts.

It will explain that posting an entire project as such and expecting people to debug it for you is not only ludicrous, rude and unwarranted, but it will generally get you answers like the one I'm writing.

Please post small snippets that revolve around the problem at hand, and if it something simple try searching Google or relevant MSDN documentation first.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

speech recognition

sawsan ahmad13-Oct-09 10:35

sawsan ahmad

13-Oct-09 10:35

please i want to write a speech recognition program using VB.Net programming language ,cause i want to write one in arabic language

thnks alot
sawsan ahmad

Re: speech recognition

_Damian S_13-Oct-09 18:07

_Damian S_

13-Oct-09 18:07

Good plan... go for it!!

I don't have ADHD, I have ADOS... Attention Deficit oooh SHINY!!

Booger Mobile (n) - A bright green 1964 Ford Falcon - our entry into the Camp Quality esCarpade!!
Do something wonderful - make a donation to Camp Quality today!!

Re: speech recognition

sawsan ahmad14-Oct-09 6:40

sawsan ahmad

14-Oct-09 6:40

thanks a lot for your reply

Visual Basic Decompiler

hande5413-Oct-09 7:38

hande54

13-Oct-09 7:38

Hi!
I need to make reverse engineering on an exe file which is written in VB. I tried VB Decompiler Lite V7.7, vbReFormer(free version) and VbRezQ however they just decompiled the code into native code. what I need to the is get the code in VB is it possible? do you any recommendation about a new tool ?
Thanks!!!

Re: Visual Basic Decompiler

Steven J Jowett13-Oct-09 7:44

Steven J Jowett

13-Oct-09 7:44

If you are after a VB.NET decompiler I would suggest Lutz Roder's .NET Reflector. I believe it is available via the Red Hat website.

Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.

Re: Visual Basic Decompiler

hande5413-Oct-09 7:54

hande54

13-Oct-09 7:54

Yes. I also tried it but it doesn't decompile because it complains that CLI header does not exist in the file. Because native applications does not have CLI header.

Re: Visual Basic Decompiler

EliottA13-Oct-09 8:06

EliottA

13-Oct-09 8:06

The program was written in vb.net or vb6?

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Re: Visual Basic Decompiler

hande5413-Oct-09 8:13

hande54

13-Oct-09 8:13

I am not sure but when I decompiled with VB Decompiler Lite V7.7 version is stated as 5. as I pasted to below.

VERSION 5.00
Begin VB.Form Form8
Caption = "HLBP"
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 1 'Fixed Single
'Icon = n/a
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
Visible = 0 'False
ClientLeft = 3585
ClientTop = 2385
ClientWidth = 7875
ClientHeight = 5295

Re: Visual Basic Decompiler

Eddy Vluggen13-Oct-09 8:24

Eddy Vluggen

13-Oct-09 8:24

You can't use the .NET tools to decompile this application. If it was compiled as P-code, then you might have success with this[^] decompiler. If it's compiled to native format, then you're out on your own - you cannot decompile a native executable.

You could disassemble it, but that would probably cost ten times as much as a complete rewrite from scratch.

As a sidenote; people don't like the idea of other people looking at and using their source-code. They usually put a lot of effort into writing it, and some may choose to use extra safety-precautions like obfuscation. There's a lot of money in protecting executables from what you're trying to do Smile | :)

I are Troll Smile | :)

Re: Visual Basic Decompiler

hande5413-Oct-09 8:31

hande54

13-Oct-09 8:31

How can I decide whether code is compiled as P-code or native code? I could only get the native code of the exe file like

Private Sub Txtsex_Change() '46B130
0046B130: push ebp
0046B131: mov ebp, esp
0046B133: sub esp, 0000000Ch
0046B136: push 00402746h ; MSVBVM60.DLL.__vbaExceptHandler
0046B13B: mov eax, fs:[00h]
0046B141: push eax....

moreover I could not open your link. Is it broken?

Re: Visual Basic Decompiler

hande5413-Oct-09 8:34

hande54

13-Oct-09 8:34

I have missed to say that I am completely same side nobody wants to decompilation of their code but I have to do this for my graduation project Smile | :)

Re: Visual Basic Decompiler

Eddy Vluggen13-Oct-09 12:00

Eddy Vluggen

13-Oct-09 12:00

hande54 wrote:
but I have to do this for my graduation project

In that case, do you want a compiled executable (in VB) with it's source? You'd still have to decompile it to graduate, but at least you'd have the original source to verify your results against Smile | :)

You also wouldn't need the link to the decompiler, since that would be cheating. In case you still want it, it's not broken[^].

I are Troll Smile | :)

Re: Visual Basic Decompiler

Richard MacCutchan13-Oct-09 9:22

Richard MacCutchan

13-Oct-09 9:22

That looks like native Intel (x86) machine code to me. I don't think it will be an easy task to convert it to any form of Visual Basic unless you are a compiler writer.

File not found error

Dhruva Hein13-Oct-09 6:01

Dhruva Hein

13-Oct-09 6:01

Hi. I'm using the following code to send an email via SMTP with an attachment.

This code works fine without the lines in CAPS; However, when I include these lines I get a file not found error, despite the fact that the file exists in the right path with the right name.

The exact error message is: Could not find file

If I look at the detail of the error, for some reason it lists the file with full pathname twice.

I've tried it in C:\ and in the \bin\Debug folder, which is the default when just the filename is given.

Has anyone experienced this? Any suggestions? Thanks

Imports System.Net.Mail

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim mm As New Net.Mail.MailMessage("sender@email.org", "addressee@gmail.com")

Dim attachment As New System.Net.Mail.Attachment("text.xls")

mm.Body = "This is a test of the SMTP server."

mm.Subject = "Test"

Dim client As New Net.Mail.SmtpClient("smtp.gmail.com")

client.Send(mm)

End Sub
End Class

Re: File not found error

Henry Minute13-Oct-09 6:19

Henry Minute

13-Oct-09 6:19

Check the code that you have posted!

There are no lines in CAPS. So unless a real expert comes along, you have little chance of an answer.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Re: File not found error

Dave Kreskowiak13-Oct-09 6:39

Dave Kreskowiak

13-Oct-09 6:39

Dhruva Hein wrote:
Dim attachment As New System.Net.Mail.Attachment("text.xls")

First, are you sure that's the filename?? Or was it supposed to be "test.xls"?

Next, instead of the filename only, build and use a fully qualified path to the file. This will eliminate the "assumption" of what the "current directory" is and most likely, solve your problem.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008
But no longer in 2009...

Re: File not found error

Dhruva Hein13-Oct-09 6:55

Dhruva Hein

13-Oct-09 6:55

Duh! Thanks, guys! The only excuse I can claim is that I had a fever when I "wrote" that code.

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.

Last Visit: 31-Dec-99 18:00 Last Update: 26-Jun-24 7:37

Refresh

ᐊ Prev 1...873 874 875 876877878 879 880 881 882 Next ᐅ

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.