In This Topic
Option Explicit
'**********************************************************************************************
'* Copyright (c) 2001-2021 Liquid Technologies Limited. All rights reserved.
'* See www.liquid-technologies.com for product details.
'*
'* Please see products End User License Agreement for distribution permissions.
'*
'* WARNING: THIS FILE IS GENERATED
'* Changes made outside of ##HAND_CODED_BLOCK_START blocks will be overwritten
'*
'* Generation : by Liquid XML Data Binder 19.0.14.11049
'* Using Schema: MusicStore.xsd
'**********************************************************************************************
Public Const ERR_TO_XML_FAILED = 1
Public Const ERR_PARSING_XML = 2
Public Const ERR_UNEXPECTED_ATTRIBUTE = 3
Public Const ERR_MISSING_ATTRIBUTE = 4
Public Const ERR_MISSING_ELEMENT = 5
Public Const ERR_UNEXPECTED_ELEMENT = 6
Public Const ERR_INVALID_STATE = 7
Public Const ERR_PROHIBITED_PROPERTY = 8
Public Const ERR_INVALID_VALUE = 9
Public Const ERR_INVALID_COUNT = 10
private m_ClassFactory as MusicStoreLib.ClassFactory
Public g_ClsDataAlbumType as LtXmlComLib20.ClassInfo
Public g_ClsDataError_ as LtXmlComLib20.ClassInfo
Public g_ClsDataPriceFilter as LtXmlComLib20.ClassInfo
Public g_ClsDataResult as LtXmlComLib20.ClassInfo
Public g_ClsDataSearchRequest as LtXmlComLib20.ClassInfo
Public g_ClsDataSearchResponse as LtXmlComLib20.ClassInfo
Public g_ClsDataTrackType as LtXmlComLib20.ClassInfo
' ##HAND_CODED_BLOCK_START ID="Additional Variable Declarations"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
' Add Additional Variable Declarations...
' ##HAND_CODED_BLOCK_END ID="Additional Variable Declarations"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
public Function CF() as MusicStoreLib.ClassFactory
If m_ClassFactory Is Nothing Then
Set m_ClassFactory = New MusicStoreLib.ClassFactory
' ##HAND_CODED_BLOCK_START ID="Default Namespace Declarations"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
' Add Additional namespace declarations here...
LtXmlComLib20.DefaultXmlSerializationContext.SchemaType = LtXmlComLib20.SchemaType_XSD
' LtXmlComLib20.DefaultXmlSerializationContext.DefaultNamespaceURI = "http://www.fpml.org/2003/FpML-4-0"
' LtXmlComLib20.DefaultXmlSerializationContext.NamespaceAliases.Add "http://www.w3.org/2000/09/xmldsig#", "dsig"
LtXmlComLib20.DefaultXmlSerializationContext.NamespaceAliases.Add "http://www.w3.org/2001/XMLSchema-instance", "xs"
' ##HAND_CODED_BLOCK_END ID="Default Namespace Declarations"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
End If
Set CF = m_ClassFactory
End Function
public Function CastToXmlObjectBase(ByVal obj as LtXmlComLib20.XmlObjectBase) as LtXmlComLib20.XmlObjectBase
set CastToXmlObjectBase = obj
End Function
public Function CastToXmlCollectionBase(ByVal obj as LtXmlComLib20.XmlCollectionBase) as LtXmlComLib20.XmlCollectionBase
set CastToXmlCollectionBase = obj
End Function
Public Sub RegisterProduct()
LtXmlComLib20.Register "Liquid Technologies Ltd ", "MusicStore.xsd", "0V49TPHN71C2L45A000000AA"
End Sub
' ##HAND_CODED_BLOCK_START ID="Additional Methods/Properties"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS
' Add Additional Methods/Properties Here...
' ##HAND_CODED_BLOCK_END ID="Additional Methods/Properties"## DO NOT MODIFY ANYTHING OUTSIDE OF THESE TAGS