Option Explicit

' CPPDebugDocAcc.DocumentAccess

Implements CPDocumentAccess

Private Function CPDocumentAccess_AllowAdd(ByVal lgParentDocumentID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowAdd = "AllowAdd Called with Parent DocumentID: " & lgParentDocumentID & vbCrLf & "Identifier: " & strIdentifier _
                                & vbCrLf & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername
End Function

Private Function CPDocumentAccess_AllowApprove(ByVal lgDocumentID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowApprove = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                    & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername
End Function

Private Function CPDocumentAccess_AllowCopy(ByVal lgParentDocumentID As Long, ByVal lgSourceDocumentID As Long, ByVal lgSourceStatusID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    If IsNull(lgParentDocumentID) Then
        CPDocumentAccess_AllowCopy = "AllowCopy called with Parent DocuemntID: root - Source document id : " & lgSourceDocumentID & vbCrLf _
                                     & "Source status id: " & lgSourceStatusID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                     & "Application ID: " & strIID & vbCrLf & "Username: " & strUsername
    Else
        CPDocumentAccess_AllowCopy = "AllowCopy called with Parent DocuemntID: " & lgParentDocumentID & "Source document id : " & lgSourceDocumentID & vbCrLf _
                                     & "Source status id: " & lgSourceStatusID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                     & "Application ID: " & strIID & vbCrLf & "Username: " & strUsername
    End If
End Function

Private Function CPDocumentAccess_AllowDelete(ByVal lgDocumentID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowDelete = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                    & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername

End Function

Private Function CPDocumentAccess_AllowDeleteInstance(ByVal lgDocumentID As Long, ByVal lgStatusID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowDeleteInstance = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "Status id: " & lgStatusID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                    & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername

End Function

Private Function CPDocumentAccess_AllowEdit(ByVal lgDocumentID As Long, ByVal lgStatusID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowEdit = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "Status id: " & lgStatusID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                    & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername

End Function

Private Function CPDocumentAccess_AllowMove(ByVal lgDocumentID As Long, ByVal lgNewParentDocumentID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    If IsNull(lgNewParentDocumentID) Then
        CPDocumentAccess_AllowMove = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "New parent document is the root - Identifier: " & strIdentifier & vbCrLf _
                                        & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername
    Else
        CPDocumentAccess_AllowMove = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "New parent document id: " & lgNewParentDocumentID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                        & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername
    End If

End Function

Private Function CPDocumentAccess_AllowPreview(ByVal lgDocumentID As Long, ByVal lgStatusID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As String
    CPDocumentAccess_AllowPreview = "AllowApprove called with DocumentID: " & lgDocumentID & vbCrLf & "Status id: " & lgStatusID & vbCrLf & "Identifier: " & strIdentifier & vbCrLf _
                                    & "Application Identifier: " & strIID & vbCrLf & "User name: " & strUsername

End Function

Private Function CPDocumentAccess_SetGUIInfoOnDocument(ByVal lgDocumentID As Long, ByVal lgStatusID As Long, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As Boolean
    CPDocumentAccess_SetGUIInfoOnDocument = True
End Function

Private Function CPDocumentAccess_SetGUIInfoOnDocumentList(ByVal varDocumentList As Variant, ByVal strIdentifier As String, ByVal strIID As String, ByVal strUsername As String) As Variant
    Dim bFlipFlop As Boolean
    Dim I As Long
    bFlipFlop = True
    For I = LBound(varDocumentList, 2) To UBound(varDocumentList, 2)
        varDocumentList(2, I) = bFlipFlop
        App.LogEvent bFlipFlop
        bFlipFlop = Not bFlipFlop
    Next I
    CPDocumentAccess_SetGUIInfoOnDocumentList = varDocumentList
End Function