VERSION 5.00
Begin VB.Form IT_OutLine 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "IT_Outline"
   ClientHeight    =   8010
   ClientLeft      =   855
   ClientTop       =   1395
   ClientWidth     =   8355
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   8010
   ScaleWidth      =   8355
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.PictureBox pic_pics 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ClipControls    =   0   'False
      ForeColor       =   &H80000008&
      Height          =   1815
      Left            =   7680
      ScaleHeight     =   1785
      ScaleWidth      =   630
      TabIndex        =   3
      Top             =   60
      Width           =   665
      Begin VB.PictureBox pic_quit 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         DragIcon        =   "IT_OUT.frx":0000
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   1200
         Width           =   480
      End
      Begin VB.PictureBox pic_Print 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   480
         Left            =   60
         ScaleHeight     =   480
         ScaleWidth      =   480
         TabIndex        =   4
         TabStop         =   0   'False
         Top             =   60
         Width           =   480
      End
   End
   Begin Project1.CTreeView tv_IT 
      Height          =   3315
      Left            =   60
      TabIndex        =   2
      Top             =   60
      Width           =   7095
      _ExtentX        =   11139
      _ExtentY        =   5847
   End
   Begin VB.CommandButton btn_Validation 
      Caption         =   "Validation"
      Height          =   435
      Left            =   7200
      TabIndex        =   1
      Top             =   2940
      Width           =   1155
   End
   Begin VB.TextBox Txt_Report 
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4455
      Left            =   60
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "IT_OUT.frx":030A
      Top             =   3480
      Width           =   8235
   End
End
Attribute VB_Name = "IT_OutLine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Get_Constants()
Dim ls_Req As String
Dim ll_Statement As Long
Dim li_Status As Integer
Dim ls_Field As String
Dim ls_Text As String
   
On Error GoTo suite

ls_Req = gs_ParamReqCsts & ", '" & gut_LangLogin.Code & "'"

If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_Req) Then
    li_Status = SQL_SUCCESS
Else
    li_Status = SQL_ERROR
End If

Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
    li_Status = SQLFetch(ll_Statement)
    If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
        ls_Field = ODBCData(ll_Statement, 1)
        ls_Text = ODBCData(ll_Statement, 2)
        Select Case ls_Field
            Case "title": Caption = ls_Text
            Case "btn_validation": btn_Validation.Caption = ls_Text
        End Select
    End If
Loop
li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
Exit Sub

suite:
StdError
li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
End Sub

Private Sub btn_Validation_Click()
Dim ls_Req As String
Dim ll_Statement As Long
Dim ls_path As String
Dim ls_part As String
Dim li_Status As Integer
Dim ls_Currency As String
Dim li_Count As Integer
Dim ls_Title As String
Dim i As Integer

    MouseOff

    On Error GoTo btn_validation_Err
    
    Txt_Report.Text = ""
    
    ls_path = tv_IT.GetPath

    li_Count = 0
    For i = 1 To Len(ls_path)
        If Mid(ls_path, i, 1) = "\" Then
            li_Count = li_Count + 1
        End If
    Next

    ls_Title = tv_IT.GetPathDesc

    ls_Req = "EXEC IT_Expenditure_Report_dtl 'E','" & prg.LoginName & "'"
    ls_part = OutlinePathPart(ls_path, 2)
    If ls_part = "" Then Exit Sub
    ls_Req = ls_Req & "," & ls_part
    ls_part = OutlinePathPart(ls_path, 3)
    If ls_part = "" Then
        ls_Req = ls_Req & ",NULL"
    Else
        ls_Req = ls_Req & "," & ls_part
    End If
    ls_part = OutlinePathPart(ls_path, 4)
    If ls_part = "" Then
        ls_Req = ls_Req & ",NULL"
    Else
        ls_Req = ls_Req & "," & ls_part
    End If
    ls_part = OutlinePathPart(ls_path, 5)
    If ls_part = "" Then
        ls_Req = ls_Req & ",NULL"
    Else
        ls_Req = ls_Req & "," & ls_part
    End If
    ls_part = OutlinePathPart(ls_path, 6)
    If ls_part = "" Then
        ls_Req = ls_Req & ",NULL"
    Else
        ls_Req = ls_Req & "," & ls_part
    End If
    ls_Req = ls_Req & "," & CStr(li_Count)

    If SQLSubmit(gl_Environment, gl_Database, ll_Statement, ls_Req) Then
        li_Status = SQL_SUCCESS
    Else
        li_Status = SQL_ERROR
    End If
    
    li_Status = SQLFetch(ll_Statement)
        
    If li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO Then
        
        If li_Count = 1 Then
            ShowPartReport ll_Statement, 1, ls_Title 'Year
            li_Status = SQLFetch(ll_Statement)
            Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10)
                ShowPartReport ll_Statement, 2 'Location
                li_Status = SQLFetch(ll_Statement)
            Loop
            
        End If
            
        If li_Count = 2 Then
            ShowPartReport ll_Statement, 2, ls_Title 'Location
            li_Status = SQLFetch(ll_Statement)
            Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10)
                ShowPartReport ll_Statement, 3 'Cap_Exp
                li_Status = SQLFetch(ll_Statement)
            Loop
        End If
            
        If li_Count = 3 Then
            ShowPartReport ll_Statement, 3, ls_Title 'Cap_Exp
        End If
            
        If li_Count = 4 Then
            ShowPartReport ll_Statement, 3, ls_Title 'Cap_Exp
            li_Status = SQLFetch(ll_Statement)
            Do While li_Status = SQL_SUCCESS Or li_Status = SQL_SUCCESS_WITH_INFO
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10)
                ShowPartReport ll_Statement, 4, "", OutlinePathPart(ls_path, 5) 'Project/Category/SubCategory
                li_Status = SQLFetch(ll_Statement)
            Loop
        End If
            
        If li_Count = 5 Then
            ShowPartReport ll_Statement, 4, ls_Title 'Project/Category/SubCategory
        End If
    End If
    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
    MouseOn
    Exit Sub

btn_validation_Err:
    StdError
    li_Status = SQLFreeStatement(ll_Statement, SQL_DROP)
    MouseOn
End Sub

Private Sub ShowPartReport(ll_Statement As Long, li_Type As Integer, Optional ls_Title = "", Optional li_TypeCat = -1)
Dim lS_Code As String
Dim ls_Desc As String
Dim ls_Approved As String
Dim ls_ApprovedCur As String
Dim ls_Refused As String
Dim ls_RefusedCur As String
Dim ls_OnHold As String
Dim ls_OnHoldCur As String
Dim ls_Waiting As String
Dim ls_WaitingCur As String
Dim ls_Currency As String

    Select Case li_Type
        Case 1 'Year
            ls_Approved = Formatage(ODBCData(ll_Statement, 3), 2)
            ls_Approved = Space(13 - Len(ls_Approved)) & ls_Approved
            ls_Refused = Formatage(ODBCData(ll_Statement, 5), 2)
            ls_Refused = Space(13 - Len(ls_Refused)) & ls_Refused
            ls_OnHold = Formatage(ODBCData(ll_Statement, 7), 2)
            ls_OnHold = Space(13 - Len(ls_OnHold)) & ls_OnHold
            ls_Waiting = Formatage(ODBCData(ll_Statement, 8), 2)
            ls_Waiting = Space(13 - Len(ls_Waiting)) & ls_Waiting
            Txt_Report.Text = Txt_Report.Text & ls_Title
            Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $"
            Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $"
            Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $"
            Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $"
        Case 2 'Location
            lS_Code = ODBCData(ll_Statement, 1)
            ls_Desc = ODBCData(ll_Statement, 2)
            ls_Approved = Formatage(ODBCData(ll_Statement, 3), 2)
            ls_Approved = Space(13 - Len(ls_Approved)) & ls_Approved
            ls_ApprovedCur = Formatage(ODBCData(ll_Statement, 4), 2)
            ls_ApprovedCur = Space(13 - Len(ls_ApprovedCur)) & ls_ApprovedCur
            ls_Refused = Formatage(ODBCData(ll_Statement, 5), 2)
            ls_Refused = Space(13 - Len(ls_Refused)) & ls_Refused
            ls_RefusedCur = Formatage(ODBCData(ll_Statement, 6), 2)
            ls_RefusedCur = Space(13 - Len(ls_RefusedCur)) & ls_RefusedCur
            ls_OnHold = Formatage(ODBCData(ll_Statement, 7), 2)
            ls_OnHold = Space(13 - Len(ls_OnHold)) & ls_OnHold
            ls_OnHoldCur = Formatage(ODBCData(ll_Statement, 8), 2)
            ls_OnHoldCur = Space(13 - Len(ls_OnHoldCur)) & ls_OnHoldCur
            ls_Waiting = Formatage(ODBCData(ll_Statement, 9), 2)
            ls_Waiting = Space(13 - Len(ls_Waiting)) & ls_Waiting
            ls_WaitingCur = Formatage(ODBCData(ll_Statement, 10), 2)
            ls_WaitingCur = Space(13 - Len(ls_WaitingCur)) & ls_WaitingCur
            ls_Currency = ODBCData(ll_Statement, 11)
            
            If ls_Currency = "" Then
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & ls_Title
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $"
            Else
                If ls_Title = "" Then
                    Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Location " & ls_Desc
                Else
                    Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & ls_Title
                End If
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $" & Chr(9) & Chr(9) & ls_ApprovedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $" & Chr(9) & Chr(9) & ls_RefusedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $" & Chr(9) & Chr(9) & ls_OnHoldCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $" & Chr(9) & Chr(9) & ls_WaitingCur & " " & ls_Currency
            End If
        Case 3 'Cap_Exp
            lS_Code = ODBCData(ll_Statement, 1)
            ls_Approved = Formatage(ODBCData(ll_Statement, 3), 2)
            ls_Approved = Space(13 - Len(ls_Approved)) & ls_Approved
            ls_ApprovedCur = Formatage(ODBCData(ll_Statement, 4), 2)
            ls_ApprovedCur = Space(13 - Len(ls_ApprovedCur)) & ls_ApprovedCur
            ls_Refused = Formatage(ODBCData(ll_Statement, 5), 2)
            ls_Refused = Space(13 - Len(ls_Refused)) & ls_Refused
            ls_RefusedCur = Formatage(ODBCData(ll_Statement, 6), 2)
            ls_RefusedCur = Space(13 - Len(ls_RefusedCur)) & ls_RefusedCur
            ls_OnHold = Formatage(ODBCData(ll_Statement, 7), 2)
            ls_OnHold = Space(13 - Len(ls_OnHold)) & ls_OnHold
            ls_OnHoldCur = Formatage(ODBCData(ll_Statement, 8), 2)
            ls_OnHoldCur = Space(13 - Len(ls_OnHoldCur)) & ls_OnHoldCur
            ls_Waiting = Formatage(ODBCData(ll_Statement, 9), 2)
            ls_Waiting = Space(13 - Len(ls_Waiting)) & ls_Waiting
            ls_WaitingCur = Formatage(ODBCData(ll_Statement, 10), 2)
            ls_WaitingCur = Space(13 - Len(ls_WaitingCur)) & ls_WaitingCur
            ls_Currency = ODBCData(ll_Statement, 11)
            If ls_Title = "" Then
                Select Case lS_Code
                    Case -1: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Capital/Expenses"
                    Case 0: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Capital"
                    Case 1: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Expenses"
                End Select
            Else
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & ls_Title
            End If
            If ls_Currency = "" Then
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $"
            Else
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $" & Chr(9) & Chr(9) & ls_ApprovedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $" & Chr(9) & Chr(9) & ls_RefusedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $" & Chr(9) & Chr(9) & ls_OnHoldCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $" & Chr(9) & Chr(9) & ls_WaitingCur & " " & ls_Currency
            End If
        Case 4 'Project/Category/SubCategory
            lS_Code = ODBCData(ll_Statement, 1)
            ls_Desc = ODBCData(ll_Statement, 2)
            ls_Approved = Formatage(ODBCData(ll_Statement, 3), 2)
            ls_Approved = Space(13 - Len(ls_Approved)) & ls_Approved
            ls_ApprovedCur = Formatage(ODBCData(ll_Statement, 4), 2)
            ls_ApprovedCur = Space(13 - Len(ls_ApprovedCur)) & ls_ApprovedCur
            ls_Refused = Formatage(ODBCData(ll_Statement, 5), 2)
            ls_Refused = Space(13 - Len(ls_Refused)) & ls_Refused
            ls_RefusedCur = Formatage(ODBCData(ll_Statement, 6), 2)
            ls_RefusedCur = Space(13 - Len(ls_RefusedCur)) & ls_RefusedCur
            ls_OnHold = Formatage(ODBCData(ll_Statement, 7), 2)
            ls_OnHold = Space(13 - Len(ls_OnHold)) & ls_OnHold
            ls_OnHoldCur = Formatage(ODBCData(ll_Statement, 8), 2)
            ls_OnHoldCur = Space(13 - Len(ls_OnHoldCur)) & ls_OnHoldCur
            ls_Waiting = Formatage(ODBCData(ll_Statement, 9), 2)
            ls_Waiting = Space(13 - Len(ls_Waiting)) & ls_Waiting
            ls_WaitingCur = Formatage(ODBCData(ll_Statement, 10), 2)
            ls_WaitingCur = Space(13 - Len(ls_WaitingCur)) & ls_WaitingCur
            ls_Currency = ODBCData(ll_Statement, 11)
            If ls_Title = "" Then
                Select Case li_TypeCat
                    Case 0: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Category " & ls_Desc
                    Case 1: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Category/Sub Category " & ls_Desc
                    Case 2: Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & "Project " & ls_Desc
                End Select
            Else
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & ls_Title
            End If
            If ls_Currency = "" Then
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $"
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $"
            Else
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Approved : " & Chr(9) & ls_Approved & " $" & Chr(9) & Chr(9) & ls_ApprovedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Refused  : " & Chr(9) & ls_Refused & " $" & Chr(9) & Chr(9) & ls_RefusedCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " OnHold  : " & Chr(9) & ls_OnHold & " $" & Chr(9) & Chr(9) & ls_OnHoldCur & " " & ls_Currency
                Txt_Report.Text = Txt_Report.Text & Chr(13) & Chr(10) & " Waiting  : " & Chr(9) & ls_Waiting & " $" & Chr(9) & Chr(9) & ls_WaitingCur & " " & ls_Currency
            End If
        
    End Select

End Sub

Private Sub Form_Load()
Dim lo_TempPicure As Object

On Error GoTo suite

MouseOff

Txt_Report.Text = ""

If gl_CodePage <> 1252 And gl_CodePage <> 0 Then ChangeCharset Me

Set lo_TempPicure = LoadResPicture(RES_OUTLINEFOLDER, 0)
tv_IT.ListImageAdd "RES" & CStr(RES_OUTLINEFOLDER), lo_TempPicure

Set lo_TempPicure = LoadResPicture(RES_OUTLINELEAF, 0)
tv_IT.ListImageAdd "RES" & CStr(RES_OUTLINELEAF), lo_TempPicure

Set lo_TempPicure = LoadResPicture(RES_OUTLINEVOID, 0)
tv_IT.ListImageAdd "RES" & CStr(RES_OUTLINEVOID), lo_TempPicure

pic_print.Picture = LoadResPicture(RES_PRINT, 1)
pic_quit.Picture = LoadResPicture(RES_QUIT, 1)

Get_Constants

Set tv_IT.o_ViewCombo = Nothing
tv_IT.b_FirstLevelInCombo = KO
tv_IT.s_SearchReq = ""
tv_IT.i_OutlineFilterCount = 0
tv_IT.s_LanguageCode = gut_LangLogin.Code
tv_IT.s_ParamSystem = gs_TableName
tv_IT.Reinit

MouseOn
Exit Sub

suite:
StdError
End Sub

Private Sub pic_print_Click()
Dim i As Integer
Dim ls_Label As String

    If Printers.Count = 0 Then
        SendMessage 135, "No printer is installed on your computer. Please, contact your system administrator.", gut_LangLogin.Code
        Exit Sub
    End If
    
    MouseOff
    InitPrinter 1
    
    'title
    Printer.Font.Italic = 0
    SetBold -1
    SetFontSize 12
    Printer.Print Date;
    Printer.Print " - ";
    Printer.Print Time
    SetFontSize 36
    Printer.Print "Armstrong Ceiling Solutions"
    SetFontSize 24
    Printer.Print Me.Caption
    SetFontSize 12
    Printer.Print Tab(100 - 5);
    Printer.Print Printer.Page
    Printer.Print ""
    SetFontSize 18
    Printer.Print ""
    
    SetBold -1
    SetFontSize 12
    Printer.Font.Name = "Courier New"
    Printer.Print Txt_Report.Text
    Printer.Print ""
    Printer.Print ""
    
    Printer.EndDoc
    MouseOn

End Sub

Private Sub pic_quit_Click()
MouseOff
Unload Me
End Sub

Private Sub tv_IT_EvtLeafClick(ByVal ls_OutLineCode As String, ByVal ls_OutlineDesc As String)
    Txt_Report.Text = ""
End Sub

Private Sub tv_IT_EvtNodeClick(ByVal ls_OutLineCode As String, ByVal ls_OutlineDesc As String)
Dim i As Integer
Dim li_Count As Integer
Dim ls_path As String

    ls_path = tv_IT.GetPath

    li_Count = 0
    For i = 1 To Len(ls_path)
        If Mid(ls_path, i, 1) = "\" Then
            li_Count = li_Count + 1
        End If
    Next

    Txt_Report.Text = ""
End Sub

