GetUseSubmissionPhaseFlag

Indicates whether phased submissions are enabled for the application.

Syntax

<HsvMetadata>.GetUseSubmissionPhaseFlag vbUseSubmissionPhaseFlag
ArgumentDescription
vbUseSubmissionPhaseFlagBoolean. Returns TRUE if phased submissions are enabled.

Example

The following example shows the usage of various HsvMetadata type library methods for phased submissions. If phased submissions are enabled, the example tests whether the application uses the Account, Intercompany Partner, and Custom dimensions for phased submissions. If a dimension is used, the example obtains the ID of the submission group for the passed dimension member. The results are printed to Visual Basic's Immediate window.

Sub printSubmissionPhaseProps(lAcct As Long, lIcp As Long, lC1 As Long, _
   lC2 As Long, lC3 As Long, lC4 As Long)
Dim cMetadata As HsvMetadata, cAcct As HsvAccounts, cIcp As HsvICPs
Dim cC1 As HsvCustom, cC2 As HsvCustom, cC3 As HsvCustom, cC4 As HsvCustom
Dim lGroup As Long, bRet As Boolean
'g_cSession is a global that stores the HsvSession instance
Set cMetadata = g_cSession.Metadata
Set cAcct = cMetadata.Accounts
Set cIcp = cMetadata.ICPs
Set cC1 = cMetadata.Custom1
Set cC2 = cMetadata.Custom2
Set cC3 = cMetadata.Custom3
Set cC4 = cMetadata.Custom4
cMetadata.GetUseSubmissionPhaseFlag bRet
If bRet = True Then
    Debug.Print "Phased submissions enabled."
    cMetadata.GetSupportSubmissionPhaseForAccountFlag (bRet)
    If bRet = True Then
        Debug.Print "Account dimension used:"
        cAcct.GetSubmissionGroup lAcct, lGroup
        Debug.Print "   Account's Group = " + CStr(lGroup)
    End If
    cMetadata.GetSupportSubmissionPhaseForICPFlag (bRet)
    If bRet = True Then
        Debug.Print "ICP dimension used:"
        cIcp.GetSubmissionGroup lIcp, lGroup
        Debug.Print "   ICP Group = " + CStr(lGroup)
    End If
    cMetadata.GetSupportSubmissionPhaseForCustom1Flag (bRet)
    If bRet = True Then
        Debug.Print "Custom1 dimension used:"
        cC1.GetSubmissionGroup lC1, lGroup
        Debug.Print "   Custom1 Group = " + CStr(lGroup)
    End If
    cMetadata.GetSupportSubmissionPhaseForCustom2Flag (bRet)
    If bRet = True Then
        Debug.Print "Custom2 dimension used:"
        cC2.GetSubmissionGroup lC2, lGroup
        Debug.Print "   Custom2 Group = " + CStr(lGroup)
    End If
    cMetadata.GetSupportSubmissionPhaseForCustom3Flag (bRet)
    If bRet = True Then
        Debug.Print "Custom3 dimension used:"
        cC3.GetSubmissionGroup lC3, lGroup
        Debug.Print "   Custom3 Group = " + CStr(lGroup)
    End If
    cMetadata.GetSupportSubmissionPhaseForCustom4Flag (bRet)
    If bRet = True Then
        Debug.Print "Custom4 dimension used:"
        cC4.GetSubmissionGroup lC4, lGroup
        Debug.Print "   Custom4 Group = " + CStr(lGroup)
    End If
Else
    Debug.Print "Phased submissions disabled."
End If
End Sub