Public Function fOKToClose(pfDirty As Boolean) As Boolean
  ' Comments  :
  ' Parameters:
  ' Returns   : Boolean -
  ' Created   : 05/02/12 12:37 SW
  ' Modified  :
  '
  ' --------------------------------------------------
  'TVCodeTools ErrorEnablerStart
  On Error GoTo PROC_ERR
   If Not (gErr Is Nothing) Then
     gErr.Push "basUtility:fOKToClose"
   End If
  'TVCodeTools ErrorEnablerEnd
  
  
  If pfDirty Then
    fOKToClose = fConfirmFormClose()
  Else
    fOKToClose = True
  End If
  
  'TVCodeTools ErrorHandlerStart
PROC_EXIT:
  If Not (gErr Is Nothing) Then
    gErr.Pop
  End If
  Exit Function

PROC_ERR:
  If Not (gErr Is Nothing) Then
    gErr.HandleError
  Else
    MsgBox Err.Description, vbOKOnly, "basUtility:fOKToClose"
  End If

  If gfDebug Then
    Stop
    Resume
  Else
    Resume PROC_EXIT
  End If
  'TVCodeTools ErrorHandlerEnd

End Function

Public Function fConfirmFormClose() As Boolean
  ' Comments  :
  ' Parameters:
  ' Returns   : Boolean -
  ' Created   : 04/04/12 08:47 SW
  ' Modified  :
  '
  ' --------------------------------------------------
  'TVCodeTools ErrorEnablerStart
  On Error GoTo PROC_ERR
   If Not (gErr Is Nothing) Then
     gErr.Push "basUtility:fConfirmFormClose"
   End If
  'TVCodeTools ErrorEnablerEnd
  
  Dim lngRetval As Long
  Dim fRetval As Boolean
  
  
  lngRetval = MsgBox("The changes you made have not been saved." & _
              vbCrLf & "" & vbCrLf & "Do you want to exit anyway " & _
              "and lose all changes?" & vbCrLf & "" & vbCrLf & "", _
              vbOKCancel + vbQuestion + vbDefaultButton2, "Unsaved " & _
              "Changes on Form")

  Select Case lngRetval
    Case vbOK
      fRetval = True
    Case vbCancel
  End Select
  

  fConfirmFormClose = fRetval
  
  'TVCodeTools ErrorHandlerStart
PROC_EXIT:
  If Not (gErr Is Nothing) Then
    gErr.Pop
  End If
  Exit Function

PROC_ERR:
  If Not (gErr Is Nothing) Then
    gErr.HandleError
  Else
    MsgBox Err.Description, vbOKOnly, "basUtility:fConfirmFormClose"
  End If

  If gfDebug Then
    Stop
    Resume
  Else
    Resume PROC_EXIT
  End If
  'TVCodeTools ErrorHandlerEnd

End Function