LinkButton (Oranger Pfeil) in User Report mit Navigation ins SAP

Manuel Grenacher

Hier ein Beipiel eines LinkButton für einen User Query Report

Hinter Data - Bindings - HyperLink oder über Generate Scrip folgender String hinterlegen und erweitern: "[OpenForm;3073;5;;" & dataBand1("ItemCode") & ";;Close]"

3073 -> MenuUID -> Artikelstammdaten
5 -> ItemID vom ArtikelCode


Folgendes ins Layout kopieren:

<?xml version="1.0" encoding="utf-16" standalone="yes"?><root type="PerpetuumSoft.Reporting.Designer.ReportClipboard" id="1" version="2"><Controls type="PerpetuumSoft.Reporting.DOM.ReportControlCollection" id="2"><Item type="PerpetuumSoft.Reporting.DOM.Shape" id="3" Location="519.68505859375;11.811023712158203" Size="47.244094848632812;35.433071136474609" Name="shape1" Line="1 Solid DarkRed"><ShapeStyle type="PerpetuumSoft.Framework.Drawing.ArrowShape" id="4" Direction="Right" /><DataBindings type="PerpetuumSoft.Reporting.DOM.ReportDataBindingCollection" id="5"><Item type="PerpetuumSoft.Reporting.DOM.ReportDataBinding" id="6" Expression="&quot;[OpenForm;3073;5;;&quot; &amp; dataBand1(&quot;ItemCode&quot;) &amp; &quot;;;Close]&quot;" PropertyName="Hyperlink" /></DataBindings><Fill type="PerpetuumSoft.Framework.Drawing.LinearGradientFill" id="7" StartColor="OrangeRed" EndColor="Orange" /><Shadow type="PerpetuumSoft.Framework.Drawing.Shadow" id="8" DY="2.3622047244094491" DX="2.3622047244094491"><Fill type="PerpetuumSoft.Framework.Drawing.LinearGradientFill" id="9" /></Shadow></Item></Controls></root>

Manuel Grenacher

Hier ein Generate Script Beispiel um den LinkedButton anzusteuern, wenn mehrere Belege Referenziert sind:

Script:


[quote]
Dim menue as String

Dim ItemID as String = "8"



if Journalbuchungen("TransType") = "13" Then

menue = "2053"

' Ausgangsrechnung

Else If Journalbuchungen("TransType") = "14" Then

menue = "2055"

' Ausgangsgutschrift

Else If Journalbuchungen("TransType") = "24" Then

menue = "2817"

ItemID = "3"

' Eingangszahlung

Else If Journalbuchungen("TransType") = "30" Then

menue = "1540"

ItemID = "141"

' Journalbuchung

Else If Journalbuchungen("TransType") = "46" Then

menue = "2818"

ItemID = "3"

' Ausgangszahlung

Else If Journalbuchungen("TransType") = "18" Then

menue = "2308"

ItemID = "8"

' Eingangsrechnung

Else If Journalbuchungen("TransType") = "19" Then

menue = "2309"

ItemID = "8"

' Einkaufsgutschrift

End If

textBox22.Hyperlink = "[OpenForm;" & menue & ";" & ItemID & ";;" & Journalbuchungen("Originalbelegnr") & ";;Close]"