Skip to Content
author's profile photo Former Member
Former Member

Running User Reports

Hello Everyone

I have a doubt regarding the user created reports.I can create simple reports using Query Generator.What i want is to mimic the report frontend like "Item List" and its report.For that i'm using a user screen to capture all the values and pass it to a query.Now the actual problem starts? How can i show the results of the query in a window similiar to that of Item List report result window.

Hope i'm clear in explaining my problem.

Welcoming any suggestions

Raghu

Edited by: Raghu Ram on Jul 25, 2008 10:49 AM

Add a comment
10|10000 characters needed characters exceeded

Related questions

1 Answer

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Jul 25, 2008 at 09:01 AM

    HI Raghu

    Sorry wrong post. You want to use the selection window, or a report layout to format?

    For layout see the following link, I have described how to create subtotals and totals in a user report like sap does at

    [similar-to-inventory-in-warehouse-report ]

    Regards,

    J.

    Edited by: Janos Nagy on Jul 25, 2008 11:05 AM

    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member Former Member

      HI,

      The solution is not easy but i have at least now understood.

      Do the following: it works for 10 parameters

      in the module:

      Public m_sParamArray(10) As String
      Public m_bBockEvent as Boolean
      

      when you press the ok button to fill up the user query fill the m_sParamArray() with the parameters in

      the exact sequence of your query in the query manager. You must have to find your menu id in the system info

      ' ok button pressed
      SBO_Application.ActivateMenuItem("YOURMENUIDOFYOURQUERY")
      

      When the query params appear, we fill it out automatically from m_sParamArray, it is in the itemevent of sbo application.

          Private Sub SBO_Application_ItemEvent1(ByVal FormUID As String, ByRef pVal As 
      SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
      
              If m_bBockEvent Then Exit Sub
      
              Select Case pVal.FormTypeEx
                  Case "4000"
                      If (pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD And pVal.BeforeAction = False) Then
                          Dim otmpform As SAPbouiCOM.Form = SBO_Application.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                          'otmpform.Visible = False
                          For lCounter As Integer = 0 To 10
                              If (m_sParamArray(lCounter) <> "") Then
                                  Dim sItemUID As String = CStr(3 + (lCounter * 4))
                                  sItemUID = Left("1000000", 7 - Len(sItemUID)) & sItemUID
                                  m_bBockEvent = True
                                  otmpform.Items.Item(sItemUID).Click(SAPbouiCOM.BoCellClickType.ct_Regular)
                                  otmpform.Items.Item(sItemUID).Specific.String = m_sParamArray(lCounter)
                                  m_sParamArray(lCounter) = ""
                              Else
                                  If (lCounter = 0) Then Exit Select
                              End If
                          Next lCounter
                          otmpform.Items.Item("1").Click()
                          m_bBockEvent = False
                      End If
              End Select
          End Sub
      

      This works also for printing....

      [ ]

      Regards,

      J.

      Edited by: Janos Nagy on Jul 25, 2008 2:53 PM

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.