VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Company"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"3C517F4401DD"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"Table"
Option Explicit

'##ModelId=3C5183E101A9
Private mNumber As VARCHAR_1_

'##ModelId=3C5183E10271
Private mName As VARCHAR_20_

'##ModelId=3C5183E1033A
Private mStatus As VARCHAR_10_

'##ModelId=3C5183E2001A
Private mCredit_Rating As VARCHAR_1_

'##ModelId=3C5183E200D8
Private mCategory As VARCHAR_50_

'##ModelId=3C5183E201A1
Private mTax_Exempt As Bit

'##ModelId=3C5183E2025F
Private mBusinessCode As VARCHAR_1_

'##ModelId=3C5183E2031D
Private Memo As Text

'##ModelId=3C5183E203E5
Private mStateOfIncorporationCode As VARCHAR_2_

'##ModelId=3C5183E300BC
Private mCompanyTypeId As VARCHAR_1_

'##ModelId=3C5183E3017A
Private mParentCompanyNumber As VARCHAR_1_

'##ModelId=3C5181FE029F
Public Property Get CompanyTypeId() As VarChar

End Property

'##ModelId=3C5181FE019B
Public Property Set CompanyTypeId(ByVal vNewValue As VarChar)

End Property

'##ModelId=3C5181F80001
Public Property Get BusinessCode() As VarChar

End Property

'##ModelId=3C5181F702E5
Public Property Set BusinessCode(ByVal vNewValue As VarChar)

End Property

'##ModelId=3C5181E500FE
Public Property Get Number() As VarChar

End Property

'##ModelId=3C5181E5002C
Public Property Set Number(ByVal vNewValue As VarChar)

End Property

'##ModelId=3C5181E201E0
Public Property Get ParentCompanyNumber() As VarChar

End Property

'##ModelId=3C5181E200F0
Public Property Set ParentCompanyNumber(ByVal vNewValue As VarChar)

End Property

'##ModelId=3C5181D300E5
Public Property Set Tax_Exempt(ByVal vNewValue As Bit)

End Property

'##ModelId=3C5181D40050
Public Property Get Tax_Exempt() As Bit

End Property

'##ModelId=3C5181DC021E
Public Property Set Status(ByVal vNewValue As VARCHAR_10_)

End Property

'##ModelId=3C5181DC02DC
Public Property Get Status() As VARCHAR_10_

End Property

'##ModelId=3C5181DF01F0
Public Property Set StateOfIncorporationCode(ByVal vNewValue As VARCHAR_2_)

End Property

'##ModelId=3C5181DF02B8
Public Property Get StateOfIncorporationCode() As VARCHAR_2_

End Property

'##ModelId=3C5181E8032A
Public Property Set Name(ByVal vNewValue As VARCHAR_20_)

End Property

'##ModelId=3C5181E90028
Public Property Get Name() As VARCHAR_20_

End Property

'##ModelId=3C5181EB0053
Public Property Set emo(ByVal vNewValue As Text)

End Property

'##ModelId=3C5181EB02F2
Public Property Get emo() As Text

End Property

'##ModelId=3C5181FB00E2
Public Property Set Category(ByVal vNewValue As VARCHAR_50_)

End Property

'##ModelId=3C5181FB01DC
Public Property Get Category() As VARCHAR_50_

End Property

'##ModelId=3C518202016E
Public Property Get Credit_Rating() As VARCHAR_1_

End Property

'##ModelId=3C51820201F1
Public Property Set Credit_Rating(ByVal vNewValue As VARCHAR_1_)

End Property

'##ModelId=3C5182360141
Public Function Add(strObjectID As String) As String

End Function

'##ModelId=3C51829D01B7
Public Function Delete(strBusObject As String) As String

End Function

'##ModelId=3C5182AA00F8
Public Function Read(strObjectID As String) As String

End Function

'##ModelId=3C5182B30014
Public Function Search(strSearch As String) As String

End Function

'##ModelId=3C5182BB0337
Public Function Update(strUpdate As String) As String

End Function