In This Topic
    General.bas
    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