' Report complaints
    Public Function CreateReportComplaints _

            (ByVal keys As Dictionary(Of String, String), _
             ByVal id As String, _
             ByVal customernumbers() As String, _
             ByVal customernames() As String) As String

        ' We use CIS addon ABAP function to read the complaints

        ' Clear input/output
        rfc_input.Clear()
        rfc_output.Clear()

        ' Report options

        ' Option 0: days
        Dim maxdays As String

        maxdays = GetItem(keys, "COMPLAINTS.OPTION.0")
        If maxdays = "" Then
            maxdays = "30"
            InsertItem(keys, "COMPLAINTS.OPTION.0", maxdays)
        End If


        ' Build up input
        Dim s As addonsimplestring = _

              DirectCast(rfc_input.AddNew(), addonsimplestring)
        s.content = GetItem(keys, "VKORG")

        s = DirectCast(rfc_input.AddNew(), addonsimplestring)
        s.content = GetItem(keys, "VTWEG")

        s = DirectCast(rfc_input.AddNew(), addonsimplestring)
        s.content = GetItem(keys, "SPART")

        s = DirectCast(rfc_input.AddNew(), addonsimplestring)
        s.content = maxdays


        ' following parameters: customer numbers
        For Each cn As String In customernumbers
            s = DirectCast(rfc_input.AddNew(), addonsimplestring)
            s.content = cn
        Next

        ' Request data
        ic.RfcRequest("CISADDON.CUSTOMER_COMPLAINTS", "S", _

                              rfc_input, rfc_output)

form customer_complaints tables reqparm resparm  

                        changing   rc type c   msg type c.

  data: wa(8000).
  data: vkorg like s001-vkorg,
        vtweg like s001-vtweg,
        spart like s001-spart,
        days(12).


* complaints during past n days
  data:
      qmdat type D.


  Read Table reqparm index 1 into vkorg.
  Read Table reqparm index 2 into vtweg.
  Read Table reqparm index 3 into spart.
  Read Table reqparm index 4 into days.

  qmdat = sy-datum - days.

* Customer numbers
  data: begin of customers occurs 10,
          kunnr like kna1-kunnr,
        end of customers.

  Data: k type i value 5.
  Read Table reqparm index k into customers-kunnr.
  While sy-subrc EQ 0.
    Append customers.

    k = k + 1.
    Read Table reqparm index k into customers-kunnr.
  Endwhile.

* no customers?
  if   customers[] is initial.
    exit.
  endif.


* Result table
  data: begin of r occurs 10,
          kunum  like viqmel-kunum,
          qmnum  like viqmel-qmnum,
          qmdat  like viqmel-qmdat,
          matnr  like viqmel-matnr,
          ls_kdauf  like viqmel-ls_kdauf,
          qmtxt  like viqmel-qmtxt,
          qmdab  like viqmel-qmdab,
        end of r.


  Select *
           from viqmel
             into corresponding fields of table r
               for all entries in customers
              where kunum = customers-kunnr
              and   vkorg = vkorg
              and   vtweg = vtweg
              and   spart = spart
              and   qmart EQ 'Q1'
              and   qmdat GE qmdat.


  Sort r by qmdat ascending.
  Loop at r.

* MAKT
    Select single * from makt 

                 where matnr = r-matnr and spras = sy-langu.
    if sy-subrc NE 0.
      clear makt.
    Endif.

* output result

    Concatenate
        r-qmdat
        r-qmnum
        r-kunum
        r-matnr
        makt-maktx
        r-ls_kdauf
        r-qmtxt
        r-qmdab
           into wa 

            separated by cl_abap_char_utilities=>horizontal_tab.

    Append wa to resparm.

  Endloop.
Endform.

            ' material number
            If qmdab = Nothing Then
                sb.Append("<br><i><div class='outputcelldiv' 

                           style='color:#800000; margin-left:85px;'>")
            Else
                sb.Append("<br><i><div class='outputcelldiv' 

                            yle='color:#505050; margin-left:85px;'>")
            End If

            sb.Append("<div  style='text-align:left;  

                           text-overflow: ellipsis;'>")
            AppendString(sb, ic.MessageText("REPORT_COMPLAINTS_MATNR"))
            sb.Append(" ")
            AppendString(sb, matnr.TrimStart("0"))
            sb.Append(" ")
            AppendString(sb, maktx)

            sb.Append("</div>")


            ' text
            sb.Append("<div  style='text-align:left; 

                        text-overflow: ellipsis;' >")
            AppendString(sb, qmtxt)
            sb.Append("</div>")

        ' Option 0: days
        Dim maxdays As String

        maxdays = GetItem(keys, "COMPLAINTS.OPTION.0")
        If maxdays = "" Then
            maxdays = "30"
            InsertItem(keys, "COMPLAINTS.OPTION.0", maxdays)
        End If

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

<html>

<head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body>

<div style='font-family: Helvetiva; font-size:12px;'></div>

<b>Reklamationen im Zeitraum</b>


 <select size="1" id='OPTION.0' style='font-size:12px'>
      <option  value='30'>30 Tage</option>
      <option  value='60'>60 Tage</option>
      <option  value='90'>90 Tage</option>
      <option  value='365'>1 Jahr</option>
      <option  value='36500'>Alle</option>

    </select>


</body>

</html>