Custom Code in Infoset

Hello,
could somebody give me an example of the code that you put in an infoset and of the eventual steps to do before wrinting this code.
Thanks a lot,
Tom

hi,
WELCOME TO SDN.
if u want to write ode in infoset,
goto SQ02 give ur query name ,select change and then click on extras.there u have tab for code,there u can write ur code depending on ur requirement.
reward points if hlpful.

Similar Messages

Problem with custom code in infoset query

Hi,
I have created a infoset. In the infoset i added a few additional fields and wrote code in the field code for those fields. I saved and generated the infoset. But in the output of the query, i am getting blank values for those additional fields. When i checked the generated program (SE38), the code is not present in the program.
If anyone has encountered a similar problem and resolved it, please let me know where i am going wrong.
Thanks.

Hello,
After adding the code for additional fields in Infoset, please syntax check and then activate the Infoset. Then the program will be regenerated with your custom code.
Thanks,
Venu

How to execute custom code only when a specific node is selected in infoset

Hi,
We have written a piece of custom code under a node (P1045). Not all users will have access to this Infotype as it is related to Appraisals. So, when users (w/no access to 1045) try to run a Query for other info types data, they are getting error message 'Can not access 1045'. Custom code is getting generated whenever user runs a query. Tried to control custom code with simple IF condition by giving user name. Still generating 1045 code.
All users use same infoset, where a group of users has access to 1045 and another group does not have access to 1045.
Appreciate your inputs to get this resolved.
Thanks,
Swapna.

Why don't you try another aproach, instead of adding the infotype to the infoset, create a new table as an alias (with the fields you want to show in regards to infotype 1045) and fill it in the node depending on the authorization check for that infotype in the code ?
I think that adding the infotype as a node will always get the data from the infotype regardless, that is why it's showing the error.

Additional Field and writing code in Infoset

Hello experts
I need to use infoset as a data source in segmentation. We created our own infoset by joining 2 table (sales table and pricing table). We need to use total gross value per customer, so we need addtional field in ınfoset for storing it. (first we calculate the total gross value and store it in additonal field in infoset.)
We create additonal field and write a code (create internal table and try to fill it etc.) However it doesn't work, we checked the same code from se38, ABAP editor and it works.
So we'd like to learn that whether the syntax in infoset different, or how can we write our own code and store value in additonal value in infoset.
Thanks in advance
M.

Hi Saipriya
the code :
data : begin of itab occurs 0,
partner_no like crmd_order_index-partner_no,
gross_value like crmd_pricing_i-gross_value,
end of itab .
data : begin of wa occurs 0,
partner_no like crmd_order_index-partner_no,
gross_value like crmd_pricing_i-gross_value,
end of wa .
data : begin of itab2 occurs 0,
partner_no like crmd_order_index-partner_no,
gross_value like crmd_pricing_i-gross_value,
end of itab2 .
data : begin of wa2,
partner_no like crmd_order_index-partner_no,
gross_value like crmd_pricing_i-gross_value,
end of wa2 .
START-OF-SELECTION.
select partner_no
gross_value
into CORRESPONDING FIELDS OF TABLE itab
from crmd_order_index join crmd_pricing_i on crmd_order_index~item eq
crmd_pricing_i~guid
where crmd_order_index~process_type_ix = 'ZTA'
and crmd_order_index~pft_1 = 'X' .
LOOP AT itab INTO wa .
MOVE-CORRESPONDING wa TO itab2.
COLLECT itab2.
ENDLOOP.
LOOP AT itab2 INTO wa2 .
APPEND BP_GROSS.
actually we don't know how can we benefit from this code in infoset.
table1 :CRMD_ORDER_INDEX (the table we take customer number (CRMD_ORDER_INDEX-PARTNER_NO))
table2 : CRMD_PRICING_I (We take gross value form this table)
We added BP_GROSS field (adtiona filed to infoset) and would like to append the value we have from the code (Total gross per Customer) but it doesn't work in infoset.
Thanks in advance.
M.

SSRS custom code for count in Report Footer

Hi All,
Please help me with the custom code used for below requirement
Debtor Name current 30+days 60+days 90+days
aaa 7000 0.00 0.00 10.00
bbb 5000 0.00 20.99 3.00
ccc 1000 0.00 0.00 0.00
Expected result in report footer :
0 1
2
if the value of 30+ , 60+ and 90+ columns >=1 then i have to display the count in Report footer,for that i have tried using a custom code like below :
Shared Dim OD As Integer=0
Public Shared Function Test(ByVal OP As Decimal) As Integer
If OP >= 1 Then
OD = OD + 1
Else
OD = OD
End If
Return OD
End Function
and using below code to display
Code.Test(Overdue)
but when i use this code in report footer is not displaying correct value.Please guide me where i am going wrong.
Please let me know if you need any other details.
Thanks in advance,
Samhith.

Hi Samhith,
Per my understanding you what to count the rows which values >=1 and display them at the bottom of the table, you are trying to use the custom code to do this but failed, right?
I have tested in my local environment and find the custom code is not correctly, and I have an alternative method which is more easy and can work in both table and matrix.
As Vaibhav Chaudhari also mentioned that we can use the CountDistinct function, but more correctly, we can use the count() function and the RunningValue() function, because CountDistict will not count the duplicated values if they >=1.
Please find the expression as below:
=Count(IIf(Fields!Yourfield.Value>=1 , Fields!Yourfield.Value, Nothing))
OR:
=RunningValue(IIf(Fields!Yourfield.Value>=1 , 1, Nothing),Sum,"DataSetName")
If you still have any problem, please feel free to ask.
Regards
Vicky Liu

Can I use Partial class to enhance a typed dataset without losing the custom code?

Hi All,
I wanted to see if I could use a Partial class for one of the datatable classes to add custom code so that when the dataset is regenerated I don't lose my code.
Partial public
Class
WA_MMTP_TrackerDataSet1
'Code for dataset
Partial Public Class PATIENTSTableAdapter
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
        Public Overloads Overridable Function FillbyClinicianId(ByVal dataTable As WA_MMTP_TrackerDataSet1.PATIENTSDataTable, ClinicianId As Integer, sql As string) As Integer
             Dim dd As System.Data.SqlClient.SqlCommand
            dd = new System.Data.SqlClient.SqlCommand
            dd.CommandText = Sql
            dd.Connection = OpenConnection() ' UsersTableAdapter1.Connection
            Me.Adapter.SelectCommand = dd 'Me.CommandCollection(0)
            If (Me.ClearBeforeFill = true) Then
                dataTable.Clear
            End If
            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
            Return returnValue
        End Function
'Other code for datatable
end class
end class
I'd like to take the function FillbyClinicianId and put it in a separate partial class like so and remove the function by the same name from the original file (dataset file):
Partial Public Class PATIENTSTableAdapter
        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
        Public Overloads Overridable Function FillbyClinicianId(ByVal dataTable As WA_MMTP_TrackerDataSet1.PATIENTSDataTable, ClinicianId As Integer, sql As string) As Integer
             Dim dd As System.Data.SqlClient.SqlCommand
            dd = new System.Data.SqlClient.SqlCommand
            dd.CommandText = Sql
            dd.Connection = OpenConnection() ' UsersTableAdapter1.Connection
            Me.Adapter.SelectCommand = dd 'Me.CommandCollection(0)
            If (Me.ClearBeforeFill = true) Then
                dataTable.Clear
            End If
            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
            Return returnValue
        End Function
end class
But when I try this, the compiler gives the following errors:
Error 91 'Adapter' is not a member of 'AttendTrackerFull.WA_MMTP_TrackerDataSet1.PATIENTSTableAdapter'.
Error 92 'ClearBeforeFill' is not a member of 'AttendTrackerFull.WA_MMTP_TrackerDataSet1.PATIENTSTableAdapter'.
I guess I'm a little confused. once code is moved into the custom partial class it seems to lose any knowledge of the main class file and any references in the class. Am I doing it wrong? or is it a restriction of the .Net since it is in another
file. If its because its in another file, my next question would it be better to take the partial class I created to contain my custom code, should I just move my partial class to the bottom of the dataset.designer.vb file? But if I do this, wont it still
erase my custom code. Any suggestions?
Thanks
Michael

Thanks for the reply.
They are compile time errors, but the error shows up even before compiling, so I guess it would be designer time exception also.
What I did the other day was to create a new class file (didn't add a namespace statement to class) then added the code in prev message. This morning I added a new module and added the prev code in it incased in the namespace
namespace ADO.NET.DataSet1TableAdapters statement. But I still have the same errors messages. I tried
to set the Custom tool.namespace property of the dataset to WA_MMTPDataset and then did the following in a module:
namespace WA_MMTPDataset
Module Module4
Partial Public Class PATIENTSTableAdapter
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function FillbyClinicianId(ByVal dataTable As WA_MMTP_TrackerDataSet1.PATIENTSDataTable, ClinicianId As Integer, sql As string) As Integer
Dim dd As System.Data.SqlClient.SqlCommand
dd = new System.Data.SqlClient.SqlCommand
dd.CommandText = Sql
dd.Connection = OpenConnection() ' UsersTableAdapter1.Connection
Me.Adapter.SelectCommand = dd 'Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
End Class
Partial Public Class UsersTableAdapter
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
Public Overloads Overridable Function FillbyClinicianId(ByVal dataTable As WA_MMTP_TrackerDataSet1.UsersDataTable, ClinicianId As Integer, sql As string) As Integer
Dim dd3 As System.Data.SqlClient.SqlCommand
dd3 = new System.Data.SqlClient.SqlCommand
dd3.CommandText = Sql
dd3.Connection = OpenConnection()
Me.Adapter.SelectCommand = dd3 'Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
End If
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
Return returnValue
End Function
End Class
End Module
End Namespace
But I'm still getting the same errors.

How to control or manipulate a report parameter through SSRS Custom Code

Hi,
In reporting services 2005 or 2008, is it possible to control the parameters inside the custom code of a report?
for example:
Let's say I have a parameter that displays the following value:
Red
Green
Blue
In typical scenario I can select one of the values or I can select all of the values then click the View Report button in reporting services.
I know that this approach is much easier to do if I have an external application like ASP.Net and from there I'll just add report viewer and control the parameters to be passed and then generate the report.
In the report I added text box that will serve as a hyperlink to refresh report:
In the Text Box Properties\Action tab. Is it possible to control the selection of values through a custom code(SSRS Custom Code) then the report will be automatically refreshed?
thanks,
Joefer

Not sure about doing a multiple selection. But you can pop up an input box to get the input on the fly.
Add the below custom code and expression for the above parameter
Public function Getparamvalue() AS STRING
Dim x as STRING
x = InputBox("Enter Red / Blue / Green")
Return(x)
End function
=Code.Getparamvalue()

SSRS VB Code error while deploying report -- There is an error on line 5 of custom code: [BC30201] Expression expected._

Function MakeList(ByVal items As Object()) As String
If items Is Nothing Then
Return Nothing
END if
Dim builder As System.Text.StringBuilder =
New System.Text.StringBuilder()
builder.Append("<div>")
For Each item As Object In items
builder.Append("<div <ul>")
builder.Append(item)
builder.Append("</ul>")
Next
builder.Append("</div>")
Return builder.ToString()
End Function
Function Length(ByVal items as Object()) as Integer
If items is Nothing Then
Return 0
End If
Return items.Length
End Function

Hi Wintersbay,
According to your description, when you use the custom code in SSRS report, you got the error message.
To solve the problem, please refer to the custom code below:
Function MakeList(ByVal items As Object) As String
If items Is Nothing Then
Return Nothing
END if
Dim builder As System.Text.StringBuilder =
New System.Text.StringBuilder()
builder.Append("<div>")
For Each item As Object In items
builder.Append("<div <ul>")
builder.Append(item)
builder.Append("</ul>")
Next
builder.Append("</div>")
Return builder.ToString()
End Function
Function Length(ByVal items as Object) as Integer
If items is Nothing Then
Return 0
End If
Return items.Length
End Function
If you have any more questions, please feel free to ask.
Thanks,
Wendy Fu
Wendy Fu
TechNet Community Support

SSRS Custom Code Error There is an error on line 0 of custom code: [BC30205] End of statement expected.

I am receiving this error with the following code, which counts the number of work days between two parameters and I don't see the problem. Please help.
Public Function GetDateCount(ByVal StartDate AS DateTime, ByVal EndDate AS DateTime) AS Integer
Dim TempVal AS Integer
DimTotalDays AS Integer
TotalDays = 0
TempVal = DateDiff(DateInterval.Day, StartDate, EndDate) + 1
for I as Integer = 1 to TempVal
If(StartDate.DayOfWeek.ToString() <> "Sunday" AND StartDate.DayOfWeek.ToString() <> "Saturday") Then
TotalDays = TotalDays +1
End If
StartDate = DateAdd(DateInterval.day, 1, StartDate)
Next
Return TotalDays
End Function

Hi CNet Vase,
According to your description, you want to use custom code to count the number of work days between two parameters in the report, but when you run the report, an error occurs.
I reproduced the issue in my environment, the error message: ‘DimTotalDays’ is not declared. The error is caused by there is no space between Dim and variable TotalDays, so the system regards it as a unit. To fix this issue, please type
space behind the word Dim like below:
Dim TotalDays AS Integer
If there is any misunderstanding , please feel free to let me know.
Best Regards,
Wendy Fu

SSRS Custom code

Can we call custom code in parent report, which written in the subreport
Thanks in advance

Can we call custom code in parent report, which written in the subreport??
Example :
i have written code in subreport as follows
This can call it on parent report as "code.EmbeddedFunction()"
Thanks in advance

Hi..getting error while previewing the report..hi i have the custom code

hi my custom code is as follows:
Public Shared Function SetColor(ByVal OrderYear As datetime,ByVal LineTotal As numeric(38,6)) As String
SetColor= "Transparent"
If Productid >= 20 Then
SetColor= "Green"
End IF
End Function
i'm getting error as
"there is an error on line 0 of custom code:[BC30002] Type numeric is not defined:
i have same datatype for LineTotal in my database.
Please help.Thanks in advance..
lucky

Hi Lucky,
Just as the error message said, there is no such data type named numeric in Visual Basic. The data type is actually exist in
SQL Server, but it doesn’t means that it should also exist in
Visual Basic. And based on my research, I couldn’t find a strictly equivalent data type in Visual Basic.
Besides, it seems that there are something wrong in your code. For more details, please see:
There is no such variable named Productid in the code, we should define it in the SetColor function in advance. Because you it used in the condition of if statement.
We should remove the unused variable in the function. Such as OrderYear and LineTotal. If the function needs LineTotal variable, we can use double data type to define the data type of LineTotal after format it.
The following custom code is for your reference:
Public Shared Function SetColor(Productid As integer, ByVal LineTotal As Double) As String
SetColor= "Transparent"
If Productid >= 20 Then
SetColor= "Green"
End IF
End Function
Hope this helps.
Thanks,
Katherine Xiong
Katherine Xiong
TechNet Community Support

Getting Custom code error while deploying the report but in local(BI studio) when i preview its working,

Hi,
I Haven't used Vb.net, as I work on C#, But in SSRS it supports only VB.net code as custom coding, so i coded in c# and converted to VB.net from online converter. The code i got from online converter is working fine in local i.e when i preview in BI studio,
but when i try to deploy the same i'm getting error
Error 3
There is an error on line 12 of custom code: [BC30201] Expression expected.
0 0
Below is the code:
' -- Author : Jai Anand
' -- Date : 06-05-2014
' -- Discription : To split the given string of numbers and Assign the days for it,
' -- example: if integer 1 - (Su) --> Sunday, 2 - (Mo) --> Monday
public Function FindPlanDays(plandate As String) As String
Dim planarray As String() = New String() {}
Dim days As String = ""
planarray = plandate.Split(","C)
Dim i As Integer = 0
While i < planarray.Length
Dim day As String = If(planarray(i) = "1", "Su,", If(planarray(i) = "2", "Mo,",
If(planarray(i) = "3", "Tu,", If(planarray(i) = "4", "We,", If(planarray(i) = "5", "Th,", If(planarray(i)="6","Fr,", If(planarray(i) = "7", "Sa,", String.Empty)))))))
days = days & day
i += 1
End While
days = If(days <> String.Empty, " (" + days.TrimEnd(","C) + ")", days)
Return days
End Function
Kindly check the code, if any issue is there,give me the solution..Thank you

Hi,
I found the solution and the report is deployed . The issue was with If and we should suffix with space and underscore( _) at the end of the line break and continues in next line (i.e if the statement continues in next line).
iif has always been available in VB, even in VB6.
Dim day As String = Iif(planarray(i) = "1", "Su,","Mon")
It is not a true operator, as such, but a function in the Microsoft.VisualBasic namespace.
so the modified code which worked fine to deploy
' -- Author : Jai Anand
' -- Date : 06-05-2014
' -- Discription : To split the given string of numbers and Assign the days for it,
' -- example: if integer 1 - (Su) --> Sunday, 2 - (Mo) --> Monday
public Function FindPlanDays(plandate As String) As String
Dim planarray As String() = New String() {}
Dim days As String = ""
planarray = plandate.Split(","C)
Dim i As Integer = 0
While i < planarray.Length
Dim day As String = Iif(planarray(i) = "1", "Su," ,Iif(planarray(i) = "2", "Mo,", _
Iif(planarray(i) = "3", "Tu,", Iif(planarray(i) = "4", "We,", Iif(planarray(i) = "5", "Th,", _
Iif(planarray(i) ="6","Fr,", Iif(planarray(i) = "7", "Sa,", String.Empty)))))))
days = days & day
i += 1
End While
days = Iif(days <> String.Empty, " (" + days.TrimEnd(","C) + ")", days)
Return days
End Function

F-32 for one time customer code

Hi,
This is related with F-32 cusomer open item processing. It involves some of these document type....billing type RV , DA i.e. credit memo and many other. After processing open item if debit credit matches with differnce zero system easily post the clearing doc. But when there is difference system passes one document for balance amount. like if more of RV billing doc it will show receivable or vice cersa more of DA type doc it will show advance received right?
Normally System automatically post document for this differnce figure. Document type AB i.e. now my customer will have open item with AB document type till next clearing. However in case of one time customer sytem simulates the documet. Pass first line item with document type AB for differntial amount but shows error 'correct first line litem before posting. '
When i open that line item, it shows business partner data i.e. customer adress is blank and if you filled up that system allows to post.
As per my analysis when i tried to do F-32 for other than one time customer code system flows this address (If more of RV
balance then from RB Billing Type or advance received i.e. more of DA type then that corrosponding document.) But in case of one time customer code we do not maintain master and therefore systm can not find out that adress deatils and ask for it before posting docuemnt. This is as per logic and correctly understandable.
But i want to know is there any other way or config through which system can automatically pick that adress data in case of AB document type for one time customer code?
Kindly note that it happens only with one time customer code and all other customer codes are doing perfect.
Kindly share your views.
Regtards,
Aks
Edited by: Akshatavyas on Nov 24, 2011 12:04 PM

Hi,
Thanks for your response.
But tell me one thing even adjustment document posting (doc type AB) system consider it as second transaction?
I feel one thing strange that my users never found such problem earlier.
I told them to find out any such scenario where system posted AB document for one time customer code.
If not then being this is first time case can be accept.
Secondly if volume is less then i don't think any abap development is required.
Bcaz anywez we can manually enter those customer address data for AB document type.
Regards,
AKS

Writing customer code in SALES ORDER MODULE using UI API.

Hi Experts,
I have a problem in writing a data in Sales Order fields...
here's the scenario
after i select the business partner code in my UI i want it to write the customer code in customer textbox of the Sales Order module.
but after i write the error appears.
error: {"Item - Can't set value on item because the item can't get focus. [66000-153]"}
Please help me in this problem.
thanks,
Edited by: Joey Bryan Dante on Aug 26, 2011 7:38 AM

Dim oItem As SAPbouiCOM.Item
                            Dim oItems As SAPbouiCOM.Items = oForm.Items
                            oItem = oItems.Item("3")
                            Dim oEdit As SAPbouiCOM.EditText
                            oEdit = oItem.Specific
                            oEdit.Value = oCardCode
this is my code.
thanks,

Generation of custom code from oracle DB.

Hi All,
I am new to oracle BIP which is used to pull reports.I got a requirement to pull the data through BIP using java custom code.I got the API doc for BIP and statrd developing some sample code.My input to the code will be in XML which has one unique attribute and based on the attribute i will run a query to connect to the database and pull some attributes related to the unique attribute input.The output will also be in an XML.When i go through the doc i came to know that "DocumentProcessor" (not sure) is the calss which can be able to pull it data from database.I am using oracle 9i DB.If anyone has any such requirements can you please share the piece of code which helps me to understand and procced further.Here is the piece of code that is written.
DocumentProcessor docProcessor = null;
          try
          docProcessor = new DocumentProcessor(xmlFilePath, temporaryDirectory);
          Vector outputList = docProcessor.process();
          catch(IOException ioe)
          // If this exception is thrown, the temporaryDirectory information is incorrect.
          ioe.printStackTrace();
          catch(Exception exc)
          //If this exception is thrown, process() failed
          exc.printStackTrace();
Can yoou please guide me what to do further or the above code is correct.
Thanks in advance.

Hello Narinder,
Thanx for your advice.
As far as I understand, JAX-RPC is a specification which different vendors could implement in different ways. So WebServices generated from wscompile of Vendor A doesn't need to run in a WebServiceEngine from Vendor B.
I have downloaded the Java WebService DeveloperPack, but only Tomcat and the SUN ApplicationServers are supported. In our project, we are now focusing on the technology the SAP NetWeaverDeveloperStudio provides.
Thanx again and have a nice weekend
Mo

Custom Code in Infoset

Similar Messages

Maybe you are looking for