All pastes #372996 Raw Edit

Something

public text v1 · immutable
#372996 ·published 2007-02-26 13:38 UTC
rendered paste body
    'Public Class quote

    '    Public Property line1() As String
    '        Get
    '            Return quotecustomer(1)
    '        End Get
    '        Set(ByVal value As String)
    '            quotecustomer(1) = value
    '        End Set
    '    End Property

    '    Public Property line2() As String
    '        Get
    '            Return quotecustomer(2)
    '        End Get
    '        Set(ByVal value As String)
    '            quotecustomer(2) = value
    '        End Set
    '    End Property

    '    Public Property line3() As String
    '        Get
    '            Return quotecustomer(3)
    '        End Get
    '        Set(ByVal value As String)
    '            quotecustomer(3) = value
    '        End Set
    '    End Property

    '    Public Property line4() As String
    '        Get
    '            Return quotecustomer(4)
    '        End Get
    '        Set(ByVal value As String)
    '            quotecustomer(4) = value
    '        End Set
    '    End Property

    '    Public Property number() As String
    '        Get
    '            Return quotenumber
    '        End Get
    '        Set(ByVal value As String)
    '            quotenumber = value
    '        End Set
    '    End Property

    '    Public Property dateissued() As String
    '        Get
    '            Return quotedate
    '        End Get
    '        Set(ByVal value As String)
    '            quotedate = value
    '        End Set
    '    End Property

    '    Public Property rep() As String
    '        Get
    '            Return quoterep
    '        End Get
    '        Set(ByVal value As String)
    '            quoterep = value
    '        End Set
    '    End Property

    '    Public Property shiptime() As String
    '        Get
    '            Return quoteshiptime
    '        End Get
    '        Set(ByVal value As String)
    '            quoteshiptime = value
    '        End Set
    '    End Property

    '    Public Property shipmethod() As String
    '        Get
    '            Return quoteshipmethod
    '        End Get
    '        Set(ByVal value As String)
    '            quoteshipmethod = value
    '        End Set
    '    End Property

    '    Public Property FOB() As String
    '        Get
    '            Return quoteFOB
    '        End Get
    '        Set(ByVal value As String)
    '            quoteFOB = value
    '        End Set
    '    End Property

    '    Public Property terms() As String
    '        Get
    '            Return quoteTerms
    '        End Get
    '        Set(ByVal value As String)
    '            quoteTerms = value
    '        End Set
    '    End Property

    'End Class