Attribute VB_Name = "Global"
Option Explicit

Public g_colorBlack     As Long
Public g_colorWhite     As Long
Public g_colorGray      As Long
Public g_colorYellow    As Long
Public g_colorBlue      As Long

Public g_docPath        As String
Public g_fileCFG        As String
Public g_fileData       As String

Public g_xml        As XMLDocument
Public g_xmlClone   As XMLDocument
Public g_file       As File

Public g_expiration As Long
Public Function SchemaGet(strSchema As String) As Object
    Dim node As Object
    Dim strFilter As String
    strFilter = "Schemas/" & strSchema
    Set node = g_xml.documentElement.selectSingleNode(strFilter)
    Set SchemaGet = node
    Exit Function
End Function

Public Function XMLNodeClone(node As Object) As Object
    Dim str As String
    Dim rnode As Object
    str = "<Copy>" & node.xml & "</Copy>"
    Call g_xmlClone.loadXML(str)
    Set rnode = g_xmlCopy.documentElement.childNodes(0)
    Set XMLNodeClone = rnode
    Exit Function
End Function

Public Sub DisableFP()
    Dim astr As String
    Dim node As Object
    astr = "FrontPage"
    Set node = g_xml.documentElement.selectSingleNode(astr)
    node.Text = "N"
    Call SaveXMLString(g_docPath & g_fileCFG, g_xml)
    Exit Sub
End Sub

Public Function DisplayFP() As Boolean
    Dim astr As String
    Dim node As Object
    astr = "FrontPage"
    Set node = g_xml.documentElement.selectSingleNode(astr)
    If (Trim(node.Text) = "Y") Then DisplayFP = True Else DisplayFP = False
    Set node = Nothing
    Exit Function
End Function


Public Function LoadXMLString(strFile As String) As String
    Dim astr As String
    
    Call g_file.Open(strFile, fsModeInput, fsAccessRead)
    astr = ""
    Do Until g_file.EOF
        astr = astr & g_file.LineInputString
    Loop
    g_file.Close
    LoadXMLString = astr
    Exit Function
End Function

Public Function SaveXMLString(strFile As String, xml As Object) As Boolean
    Dim astr As String
    astr = xml.xml
    Call g_file.Open(strFile, fsModeOutput, fsAccessReadWrite)
    g_file.LinePrint astr
    g_file.Close
    SaveXMLString = True
    Exit Function
End Function

Public Function String2Number(astr As String, default As Long) As Double
    If (Not IsNumeric(astr)) Then
        String2Number = default
    Else
        String2Number = CDbl(astr)
    End If
    Exit Function
End Function

Public Sub AppInit(f As File)
    Dim astr As String
    Dim i As Long
            
    ' initialize global variables
    ' g_docPath = "\My Documents\"
    g_docPath = App.Path & "\"
    g_fileCFG = "ShopEZ.xml"
    g_fileData = "ShopEZ_Data.xml"
    
    g_expiration = CLng(DateSerial(2001, 11, 1))
    g_expiration = -1
    
    g_colorBlack = RGB(0, 0, 0)
    g_colorWhite = RGB(255, 255, 255)
    g_colorGray = RGB(196, 196, 196)
    g_colorYellow = &H80000018
    g_colorBlue = &H8000000D
        
    Set g_file = f
    Set g_xml = CreateObject("Microsoft.XMLDOM")
    astr = LoadXMLString(g_docPath & g_fileCFG)
    Call g_xml.loadXML(astr)
    Set g_xmlClone = CreateObject("Microsoft.XMLDOM")
    Call PopupMenuInit
    Call DataInit
    
    Exit Sub
End Sub

Public Sub AppEnd()
    Call PopupMenuEnd
    Call DataEnd
    Set g_xml = Nothing
    Set g_xmlClone = Nothing
    Exit Sub
End Sub