' Report Credit
Public Function CreateReportCredit _
(Byval Keys As Dictionary(From String, String), _
Byval Id As String, Byval Customernumbers() As String, _
Byval Customernames() As String) As String
We use ABAP report RFDKLI40 to display basic credit data
Clear input/output
Rfc_input.clear()
Rfc_output.clear()
Build up input
Add_report_selection(rfc_input, "KKBER", _
Getitem(keys, "KKBER"), GetItem(keys, "KKBER"))
For Each Cnr As String In Customernumbers
Add_report_selection(rfc_input, "KONTO", knr, knr)
Next
' Request report via RFC
Ic.rfcrequest("RFDKLI40", "R", rfc_input, rfc_output)
' Buld up HTML output table
Dim Sb As New Stringbuilder
'Title
Sb.append("<div style='width:700px; font-size:12pt;
font-weight:bold; margin: 10px 0px 10px 5px; color:)
Appendstring(sb, ic.messagetext("REPORT_CREDIT_TITLE"))
Sb.append("</div>")
' column headings
Sb.append("<div class='colhead01' style='width:740px;
font-size:12px; margin-bottom:4px;'>")
' customer number
Sb.append("<div class='colhead'
style='float:left; text-align:left; width:80px;'>")
Sb.append("Nr")
Sb.append("</div>")
' customer
Sb.append("<div class='colhead'
style='float:left; text-align:left;
width:190px; margin-right:4px;'>")
Appendstring(sb, ic.messagetext("REPORT_CREDIT_COL2"))
Sb.append("</div>")
' Obligo
Sb.append("<div class='colhead'
style='float:left; text-align:right; width:150px;'>")
Appendstring(sb, ic.messagetext("REPORT_CREDIT_COL3"))
Sb.append("</div>")
' WAERS
Sb.append("<div class='colhead'
style='float:left; text-align:left;
margin-left:10px;width:60px;'>")
Appendstring(sb, ic.messagetext("REPORT_CREDIT_COL4"))
Sb.append("</div>")
' Limit
Sb.append("<div class='colhead'
style='float:left; text-align:right; width:150px;'>")
Appendstring(sb, ic.messagetext("REPORT_CREDIT_COL5"))
Sb.append("</div>")
' PERCENTAGE
Sb.append("<div class='colhead'
style='float:left; text-align:right; width:80px;'>")
Appendstring(sb, ic.messagetext("REPORT_CREDIT_COL6"))
Sb.append("</div>")
Sb.append("</div>")
Dim Account As String = ""
Dim Limit As String = ""
Dim Waers As String = ""
Dim Obligatory As String = ""
Dim Percentage As String = ""
Dim Header As Boolean = True
For Each Line As Addonsimplestring In Rfc_output
Dim Fields() As String = Line.content.Split("|")
If Fields.length > 7 Then
If Header Then
Header = False
Else
Account = Fields(1).Trim.PadLeft(10, "0")
Waers = Fields(5).trim
Limit = Fields(6).trim
Obligatory = Fields(7).trim
Percentage = Fields(8).trim
Sb.append("<div style='width:740px;
font-size:13px; margin-left:8px; clear:both;'>")
' customer nr
Sb.append("<div class='outputcelldiv'
style='text-align:left; width:80px;'>")
Appendstring(sb, kunnr.trimstart("0"))
Sb.append("</div>")
' customer
Sb.append("<div class='outputcelldiv'
style='text-align:left; width:190px;
margin-right:4px; text-overflow: ellipsis;'>")
AppendString(sb, customername(kunnr,
customernumbers, customernames))
Sb.append("</div>")
' total obligo
Sb.append("<div class='outputcelldiv'
style='text-align:right; width:150px;'>")
AppendString(sb, oblig)
Sb.append("</div>")
' waers
Sb.append("<div class='outputcelldiv'
style='text-align:left;
margin-left:10px; width:60px;'>")
AppendString(sb, waers)
Sb.append("</div>")
' limit
Sb.append("<div class='outputcelldiv'
style='text-align:right; width:150px;'>")
AppendString(sb, limit)
Sb.append("</div>")
' percentage
Sb.append("<div class='outputcelldiv'
style='text-align:right; width:80px;'>")
AppendString(sb, percentage & "%")
Sb.append("</div>")
Sb.append("</div>")
End If
End If
Next
Sb.append("<div style='clear:both;'></div>")
' Clear input/output
Rfc_input.clear()
Rfc_output.clear()
' return report output in HTML format
Return Sb.ToString
End Function
|