Public Function NestedTransactionError(ByVal arrElement As Variant, _
                                       ByVal repView As AsRepViewer) As String
    ' statements
End Sub

Function NestedTransactionError(ByVal vArrElement As Variant,
                                ByVal repView As AsRepViewer) As String
	Dim docAgreement As AsDoc
	Set docAgreement = LoadDoc(vArrElement)

	Return "Պայմանագիր " & docAgreement("ACC") & " գործողությունները չհաջողվեց կատարել"
End Function