LinkButton (Oranger Pfeil) in User Report mit Navigation ins SAP
Manuel Grenacher
Hier ein Beipiel eines LinkButton für einen User Query ReportHinter 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=""[OpenForm;3073;5;;" & dataBand1("ItemCode") & ";;Close]"" 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]"
0
Please sign in to leave a comment.
Comments
0 comments