Financial Management Blogs by Members
Dive into a treasure trove of SAP financial management wisdom shared by a vibrant community of bloggers. Submit a blog post of your own to share knowledge.
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member186338
Active Contributor
0 Kudos
2,498


In BPC 7.5 in order to set work status you have to use Web page launched with the menu item in the Excel. This interface is limited to one cube at a time and single member for each dimension. If you have to set work status for the list of months and for number of cubes it can take some time doing the repetitive operations.

Looking on the code executed on this page I was able to write VBA function that will set work status without going to Web interface. The code is here:
Public Function SetWS(strD1Name As String, strD2Name As String, strD3Name As String, _
strD1Mem As String, strD2Mem As String, strD3Mem As String, _
strWSStr As String, strWSNum As String, strIncludeChild As String, _
strServer As String, strAppSet As String, strApp As String) As String

Const strURLPrefix As String = "/OSoft/Proxy/WorkStatusProxy/WorkstatusProxy.asmx/SetWorkStatus?"

Dim http As New MSXML2.XMLHTTP
Dim strURL As String

strURL = "http://" & strServer & strURLPrefix & "strAppSet=" & strAppSet & "&strApp=" & strApp & "&strDims=" & strD1Name & "%2C" & strD2Name & "%2C" & strD3Name & _
"&strMems=" & strD1Mem & "%2C" & strD2Mem & "%2C" & strD3Mem & _
"&strStatus=" & strWSNum & "&strPrimary=" & strD1Name & "&strOldStatus=None&strNewStatus=" & strWSStr & "&strInclude=" & strIncludeChild

http.Open "GET", strURL, False
http.send

If http.Status <> "200" Then
SetWS = http.responseText
Else
SetWS = "Ok"
End If
End Function

In VBA editor Tools -> References you have to check reference to "Microsoft XML, v(some version)" for the definition: Dim http As New MSXML2.XMLHTTP

strD1Name, strD2Name, strD3Name - Names of work status dimensions.

strD1Mem, strD2Mem, strD2Mem - Members (single member per dimension) of work status dimensions

strWSStr - work status name to be set, ex.: DEFAULT%20WORK%20STATE (blanks are replaced with %20)

strWSNum - work status ID, ex.: 0000 for DEFAULT WORK STATE (can be investigated on the WEB page)

strIncludeChild - "1" - set status on chilren; "0" - not set status on children

strServer, strAppSet, strApp - BPC server name, AppSet and Application

The function will return "Ok" if success and BPC Error text if some error happened.

You can execute this function in a loop (by Application, by TIME period etc.)

B.R. Vadim

P.S. I don't find the way to do the same things in BPC NW 10

P.P.S. The only solution for BPC NW 10+ is to use DM package with custom logic badi: How To: Change Work Status from Script Logic using BAdI

Parameters for this DM package can be passed using: Simple VBA procedure to pass parameters to DM packages

 

4 Comments
Labels in this area