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
Send Feedback