WCS report to show duplex on associated AP's

Is there a report that I can run in WCS to show me the speed and duplex that my AP's are operating at?

Hi,
MR11 does not result in an update if you select the correct option ("prepare list" at the bottom). so simply select the "GR/IR clearing Account" option.
Also use a large tolerance so that you get everything.
But I am still not sure how you have entered invoices without POs, was something other than MIRO used? If so then MR11 may not help either because this depends on POs.
If you HAVE used something other than MIRO I doubt if you can get such a list without some clever ABAP, after all you don't have to specify the PO ever if you are doing a two way match through the FI functions instead of using MIRO. So there would not be a standard report.
Steve B

Similar Messages

Report to show all activities (ended and not ended)

Hi,
I would like to do a report to show all activities (not ended and ended), but when I do the report from "Activity" the only information shown is no ended activities.
Is possible to show all activities? How can I do it?
Thank you and regards.

Monica - depending on the Subject Area, including certain "look-up" or reference fields to other tables automatically implies a join-relationship between the 2 tables.
Case-in-point, the activities subject area. Whenever you include fields from other objects like (Account Name, Campaign Name, Contact job title, etc.) "Answers" will automatically assume that you only want those activities where those field-values are populating, consequently filtering the report. It seems to occur any time you're trying to include data across tables in a one to one relationship.
A better example, and likely a common headache for CRM report builders is an Opportunity report, wherein you're including data from the Primary Contact associated to the opportunity. By the same limitations, you would wind up with only those opportunities that have a Primary Contact associated, versus all opportunities with contact-data if it's populated.
It is my understanding that the only workaround is to use Combined Analyses to create an union of the 2 reports, one with all opportunities and another with primary contacts. Use a pivot table and max-aggregation rule on the contact name to remove dupes.

Problem defining a report to show in Reports tab of plug-in home page

We are developing a plug-in for OEM and we want to add some SYSTEM reports that will be showing in Reports tab of plug-in home page.
We tried to use the PL/SQL code described in Extensibility Guide, copied the code used in some existing plug-in that we downloaded from Oracle site, but it does not work. When executing the code we receiving "PL/SQL procedure successfully completed" message, but report does not show neither in Reports list nor in Home page (reports tab does not exist).
Finally we tried to add a report containing only static text component, but with same result.
Following is the code that is executed:
DECLARE
l_target_types MGMT_IP_TARGET_TYPES;
l_param_values MGMT_IP_PARAM_VALUE_LIST;
l_target_type MGMT_IP_TARGET_TYPES;
l_report_guid RAW(16);
l_element_guid RAW(16);
l_report_title_nlsid VARCHAR2(128);
l_report_owner VARCHAR(100);
l_curr_order NUMBER;
l_curr_row NUMBER;
BEGIN
-- specify the target type associated with this report
l_target_type := MGMT_IP_TARGET_TYPES();
l_target_type.extend(1);
l_target_type(1) := 'test_plugin_57';
l_report_title_nlsid := 'Status 57_4';
l_report_owner := mgmt_user.get_repository_owner;
-- create a report definition for the report
l_report_guid := mgmt_ip.create_report_definition (
p_title_nlsid => l_report_title_nlsid,
p_description_nlsid => 'TODO: description here',
p_owner => l_report_owner,
p_category_nlsid => 'Monitoring',
p_sub_category_nlsid => 'Hardware',
p_late_binding_target_types => l_target_type,
p_late_binding_multi_targets => 0,
p_show_table_of_contents => 1,
p_system_report => 1,
p_component_name => l_target_type(1)
-- Add report so that it shows up under "reports" tab in default home page
mgmt_mp_homepage.add_report (
p_target_type => l_target_type(1),
p_report_title => l_report_title_nlsid,
p_report_owner => l_report_owner,
p_report_order => 1
-- Text
l_param_values := MGMT_IP_PARAM_VALUE_LIST();
l_param_values.extend(2);
l_param_values(1) := MGMT_IP_PARAM_VALUE_RECORD(
'oracle.sysman.eml.ip.render.elem.TextParamBean.textMessage',
'This page shows the reports related to TBD.');
l_param_values(2) := MGMT_IP_PARAM_VALUE_RECORD(
'oracle.sysman.eml.ip.render.elem.TextParamBean.textStyle',
'OraTipText');
l_curr_order := 1;
l_curr_row := 1;
l_element_guid := mgmt_ip.add_element_to_report_def (
p_report_guid => l_report_guid,
p_element_name_nlsid => 'IPMSG_STYLED_TEXT',
p_element_type_nlsid => 'IPMSG_ANY_TARGET_TYPE',
p_header_nlslid => null,
p_element_order => l_curr_order,
p_element_row => l_curr_row,
p_parameters => l_param_values,
p_targets => null
END;
/

Have you tried running your sql file in sql plus? Does that work? If it does execute, does the report show on the main tab but not on the target homepage or does it show in neither spot? Try hitting the refresh icon in the page to reset the cache on the Reports tab.
When you deploy the plug-in with the report file in it, did you see any errors or messages in the oms logs?
1. We do: run the PL/SQL script I posted from sqlPlus. As far as I understand it should add a report?
2. We tried all the ways of defining a report. We successfully create the report interactively with SQLs we defined. We tried to put the PL/SQL code inside the jar and deploy, to run the PL/SQL script in SQL Plus, neither report is showed in Reports list nor Reports tab is showing at all. We tried to restart OEM and computer after adding a report, it does not help...
Regarding the oms logs - where can we see that?

Crystal Reports 2010 shows error on 64 bit vista/7 machines

Hello,
 
I search the threads before posting my problem. I saw number of threads similar to this but none of them is pointing towards solutions to my problem. Thus decided to create new one. I tried various things listed in old post to solve my problem but no solution. I am listing below what I have already tried.
 
Following is my development environment: 
- OS windows XP 32 bit 
- MS Visual Studio 2010 
- Crystal Reports 2010 
- windows application with target framework 3.0 
- when i build solution for client i change target platform to x86 
 
My client machine 
1) 
- OS windows vista 64 bit 
- Crystal Reports for VS2010 Redist 64 bit 
2) 
- OS windows 7 64 bit 
- Crystal Reports for VS2010 Redist 64 bit 
 
On my development machine everything works fine. Only client machines having problem opening reports. I am having problem opening reports on client machines. I shows following error. My windows application runs fine but when we try to open reports it shows log4net error.
 
 
start error text----
 
 
The type initializer for 'CrystalDecisions.ReportSource.ReportSourceFactory' threw an exception. 
 
See the end of this message for details on invoking 
just-in-time (JIT) debugging instead of this dialog box. 
 
Exception Text ************** 
System.TypeInitializationException: The type initializer for 'CrystalDecisions.ReportSource.ReportSourceFactory' threw an exception. ---> System.TypeInitializationException: The type initializer for 'CrystalDecisions.Shared.SharedUtils' threw an exception. ---> System.IO.FileNotFoundException: Could not load file or assembly 'log4net, Version=1.2.10.0, Culture=neutral, PublicKeyToken=692fbea5521e1304' or one of its dependencies. The system cannot find the file specified. 
File name: 'log4net, Version=1.2.10.0, Culture=neutral, PublicKeyToken=692fbea5521e1304'
 at CrystalDecisions.Shared.SharedUtils..cctor() 
 
WRN: Assembly binding logging is turned OFF.
To enable assembly bind failure logging, set the registry value [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) to 1.
Note: There is some performance penalty associated with assembly bind failure logging.
To turn this feature off, remove the registry value [HKLM\Software\Microsoft\Fusion!EnableLog].
 
 --- End of inner exception stack trace ---
 at CrystalDecisions.Shared.SharedUtils.GetFullTypeName(Type type)
 at CrystalDecisions.ReportSource.ReportSourceFactory..cctor()
 --- End of inner exception stack trace ---
 at CrystalDecisions.Windows.Forms.CrystalReportViewer..ctor()
 at BackOffice.frmReportViewer.InitializeComponent()
 at BackOffice.frmReportViewer..ctor()
 at BackOffice.mdiMain.vendorsListToolStripMenuItem_Click(Object sender, EventArgs e)
 at BackOffice.mdiMain.vendorsListToolStripMenuItem1_Click(Object sender, EventArgs e)
 at System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
 at System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e)
 at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
 at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
 at System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
 at System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
 at System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
 at System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea)
 at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
 at System.Windows.Forms.Control.WndProc(Message& m)
 at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
 at System.Windows.Forms.ToolStrip.WndProc(Message& m)
 at System.Windows.Forms.ToolStripDropDown.WndProc(Message& m)
 at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
 at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
 at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
 
Loaded Assemblies **************
mscorlib
 Assembly Version: 2.0.0.0
 Win32 Version: 2.0.50727.4952 (win7RTMGDR.050727-4900)
 CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
 
BackOffice
 Assembly Version: 1.0.0.0
 Win32 Version: 1.0.0.0
 CodeBase: file:///C:/BO%20config%20removed/BackOffice.exe
 
System.Windows.Forms
 Assembly Version: 2.0.0.0
 Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
 
System
 Assembly Version: 2.0.0.0
 Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
 
System.Drawing
 Assembly Version: 2.0.0.0
 Win32 Version: 2.0.50727.4927 (NetFXspW7.050727-4900)
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
 
CrystalDecisions.Windows.Forms
 Assembly Version: 13.0.2000.0
 Win32 Version: 13.0.1.220
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.Windows.Forms/13.0.2000.0__692fbea5521e1304/CrystalDecisions.Windows.Forms.dll
 
CrystalDecisions.Shared
 Assembly Version: 13.0.2000.0
 Win32 Version: 13.0.1.220
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.Shared/13.0.2000.0__692fbea5521e1304/CrystalDecisions.Shared.dll
 
CrystalDecisions.ReportSource
 Assembly Version: 13.0.2000.0
 Win32 Version: 13.0.1.220
 CodeBase: file:///C:/Windows/assembly/GAC_MSIL/CrystalDecisions.ReportSource/13.0.2000.0__692fbea5521e1304/CrystalDecisions.ReportSource.dll
 
JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.
For example:
 
configuration 
 system.windows.forms jitDebugging="true" 
configuration 
 
When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.
 
end error text----
 
I am not using log4net in my windows application. As I know not directly. No log4net tag in config. Not even in publish file listing. 
I have Crystal Decisions.CrystalReports.Engine in my reference. 
 ReportSource 
 Shared 
 Windows.Forms 
 
I tried adding reference of log4net in my app and then tried deploying. slight modified error. Instead of not find the file it says not able to load and rest error part is same.
 
I have excluded all crystal dll from publish file list and tried.
 
I even updated cilent machine with Crystal Reports for VS2010 Redist 64 bit support pack 1.
 
I tried adding following in config but no result 
 startup useLegacyV2RuntimeActivationPolicy="true" 
 supportedRuntime version="v2.0.50727" 
 startup
and
 startup useLegacyV2RuntimeActivationPolicy="true" 
 supportedRuntime version="v4.0" 
 startup 
 
I found related to this in one of the thread. I am not sure but this could be the problem. what is the solution for it? 
In my development machine windows/assembly folder, there exist 2 log4net files 
Assembly Name - version - Processor Architect 
- log4net - 1.2.9.0 - blank 
- log4net - 1.2.10.0 - x86 
But in my client machine, there is only one log4net file. 
Assembly Name - version - Processor Architect 
- log4net - 1.2.10.0 - AMD64 
 
I have spend lot hours on it but no output. Any help or direction is appreciated. 
Thanks,
Edited by: Dhairya Tolat on Mar 21, 2011 8:13 PM

Hi deguri,
1. Are you going to sell the application(which embeds the crystal runtimes) to another company?
2. Is the application intended for users within your company?
If the answer to question 1 is a 'Yes', then you need to purchase the license.
If the answer to question 2 is a 'Yes', then you do not need the license.
Take a look at a question posted in response to the blog i referred to in my previous post. That is a typical scenario where license needs to be purchased.
We are product a client/server application in VS 2010 and would like to include Crystal Reports. The rendering/runtime would be on the server component. Our package is distributed to our clients and runs on their hardware. We would be producing the reports and shipping them with the software (i.e. no embedded designer).
Am I correct in understanding that we would need only a single SAP Developer Advantage license (~$2500 USD) and that would cover redistribution to all our our clients?
Thanks in advance!
CR for VS 2010 on Application Server
2011-06-15 14:18:50 Blair Wheadon Business Card [Reply]
Yes, you are correct.
I hope that clarifies things...
Deepu.

WCS Reports

I've been asked to create a report that shows the wireless usage of certain clients. The reports that I have tried so far have just given me the the time they connected and the time they disconnected. Is there a way to create a report that shows how much tx and rx data a client is creating? I tried the busiest clients report but, I'm looking to get a report of some specific clients that are not even close to the busiest clients. We are trying to make a business case for some specific devices.
thanks, Pat.

Hi,
did you try going to "monitor->clients", finding the specific client(s) you like. On that client you select "session report", from there you customize content to include tx and rx in bytes or packets sent/received and you run the report ?
This is the way to do for clients 1 by 1. Alternatively you can run reports for all clients and export to CSV and from there select only the clients you want but I don't think there is a "multiple clients" selection directly on the WCS
Nicolas
===
don't forget to rate answers that you find useful

WCS Reports - SSID Filter

Hi All,
Currently running Cisco WCS 7.0.220.0 and when l go into Reports, Report Launch Pad and select a specific report e.g Client Traffic and l want to report by SSID , when l go to edit the Filter Criteria for SSID's, it is not showing all the SSID's ?
I currently do have some disabled and some that are enabled that are not showing in the List ? Does anybody know why l am not able to display all SSID's in this list ? Possibly something to do with Data Management ?
Thanks SG

Just took a look at my lab WCS and all my SSID's show up there. This is a lab WCS, so my WLC version is at 7.3 right now and I don't really use WCS, but it shows up.
Thanks,
Scott
Help out other by using the rating system and marking answered questions as "Answered"

ISE 1.2 - Posture Detail Assessment - enforcement audit mode report not show status for non-compliant

ISE 1.2 - Posture Detail Assessment - enforcement audit mode report not show status for non-compliant.
- For old version 1.1.4 it can be reported for non-compliant, How can I generate report for this?
Thanks
Kosin Usuwanthim

It used to be in there (id 226635 is the last one with it); should I clean it up a bit and put it back with a bit more of a disclaimer?

Inactive Item report to show Item bought within a specific period and not sold within a specific period by whse and have stock

Hi
I'm trying to come up with query report to show Inactive Item bought within a specific period and not sold within a specific period by whse and have stock
The report should show Item Number, Item Name ,Item cost,Retail Price [Based on a price list], Qty in Whse, Last Purchase Date, Last sale Date etc.
e.g item bought between 2011-2013 and have not been sold with the same date range or the last 12 months.
Regards
Brian Ndunda.

Hi,
Try this query:
SELECT T0.[ItemCode], T0.[ItemName], T0.[OnHand], T0.[AvgPrice], T0.[LastPurPrc], T0.[LstSalDate] FROM OITM T0 left JOIN INV1 T1 ON T0.ItemCode = T1.ItemCode left JOIN OINV T2 ON T1.DocEntry = T2.DocEntry WHERE T1.[Quantity] is null and T0.[OnHand] >0 GROUP BY T0.[ItemCode], T0.[ItemName], T0.[OnHand], T0.[AvgPrice], T0.[LastPurPrc], T0.[LstSalDate]
Thanks & Regards,
Nagarajan

Vendor report that shows all vendors missing tax id information

I would like to create a report that shows all vendors that are missing the tax id information. Please direct me on where to go.
thx
Trace

Dear,
Enter T-code MASS.
Select Object Type LFA1 and click on execute button.
Than click on Fields tab, Find your required field and click on execute button.
Than enter vendor list for which you want to find out the list.
And click on execute button.
Regards,
Mahesh Wagh.

Report for showing pending (ageing) quantity according to store location w

dear ABAP Gurus,
I have made a roport for showing pending (ageiing) quantity acc to location wise.
and i m sending here the code i made for same.Tell me if sme amendments required.
Report for showing pending (ageing) quantity according to store location wise:
1.     Fields on selection screen (input screen) : Plant code From to , Material code From to , Current date, Numbers of days(for display the ageing(pending) balance for a given period,Storage locations from to.
2.     Field in the output List : Material code , Material descriptions, Balance quantiy,Balance value ,Consumptions date.
the code is:
REPORT ZAGEIN_SUDHA.
TABLES: mara,mseg,makt.
TYPES: BEGIN OF t_mara,
matnr LIKE mara-matnr,           "material number
maktx LIKE makt-maktx,           "material description
ersda LIKE mara-ersda,           "material creation date
lgort like mseg-lgort,           "storage location
bwart like mseg-bwart,           "goods received or issued
menge like mseg-menge,           "value at movement type
werks like mseg-werks,           "plant
END OF t_mara.
DATA: i_mara TYPE STANDARD TABLE OF t_mara with header line,
      itab type standard table of mara with header line,
*wa_mara TYPE t_mara,
v_date TYPE i,                      "age in days
GI type mseg-menge,                 "goods issued
GR type mseg-menge,                 "goods received
bal type mseg-menge,                "balance
total type i,
grace type i,
g_quan type mseg-menge.
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS: p_matnr FOR mara-matnr.
select-options: p_werks for mseg-werks.
select-options: p_lgort for mseg-lgort.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
REFRESH i_mara.
SELECT mr~matnr                        "mara-matnr
mk~maktx                               "makt-maktx
mr~ersda                               "mara-ersda
mg~lgort                               "mseg-lgort
mg~bwart                               "mseg-bwart
mg~menge                               "mseg-menge
INTO corresponding fields of table i_mara
FROM mara AS mr INNER JOIN
makt AS mk
ON mrmatnr = mkmatnr INNER JOIN mseg AS mg on mkmatnr = mgmatnr
WHERE mrmatnr IN p_matnr and mgwerks IN p_werks and mg~lgort IN
p_lgort.
total = 0.
IF sy-subrc = 0.
*CLEAR wa_mara.
LOOP AT i_mara.
if i_mara-bwart = '101' .
GR = total + i_mara-menge.
total = GR.
elseif
i_mara-bwart = '102' or i_mara-bwart = '122'.
GR = GR - i_mara-menge.
endif.
if i_mara-bwart = '261'.
GI = total + i_mara-menge.
elseif i_mara-bwart = '262'.
GR = GR + i_mara-menge.
endif.
bal = GR - GI.
if bal GE GR.
grace = 30.
else.
grace = 10.
endif.
g_quan = bal - GR.
v_date = sy-datum - i_mara-ersda.
endloop.
WRITE: / i_mara-matnr ,i_mara-maktx,' is ',v_date,' ,days old and
stored at' ,i_mara-lgort ,   ' with balance =', bal ,'the grace time is
', grace, 'and' ,'grace quantity is ' ,g_quan.
*ENDLOOP.

Hi,
That sounds like a nice report. What about it?!
Gareth.

Std. Report that shows PSG linked to WBS (Pdt. hier. defined)

Hi Experts,
Is there any standard report that show, which Profit segment is derived and receives settled costs and revenues for a particular WBSE?
Our scenario:
(1) Billing WBS element is assigned to SO Line item, and billing plan is created and accordingly invoicing happens.
(2) Product hierarchy is defined in MM and linked to COPA for derivation of PSG.
Thanks in advance.

Hi Aditya,
There are no standard reports in PS which will give you this information. You need to check with your CO counterparts to get it.
Most probably i think there won't be any standard report available to give you that detail. Try creating a custom report.
Use the table COBRA and COBRB with RPSCO or COSP/COEP table with PRPS to get the desired results.
Cheers
Sammar

Report Not showing result

Hi!
I am unable to get the result for my one of the item as checkbox. Other two are working properly .Please check and let me know wheres the problem please.
***INCLUDE ZSD_CONTRACT_LIST_T01_RENTAL1 .
TABLES: vbak, vbap, wbrk, zsdsched,vbkd, fplt, fpla, tvlvt.
TYPE-POOLS: slis.
data: BEGIN OF gt_report occurs 0,
 vbeln LIKE vbak-vbeln, "Sales Document
 posnr LIKE vbap-posnr, "Item
 ernam LIKE vbak-ernam, "Created by
 erdat LIKE vbak-erdat, "Created on
 audat LIKE vbak-audat, "Document Date
 vbtyp LIKE vbak-vbtyp, "SD document category
 auart LIKE vbak-auart, "Sales Document type
 vkorg LIKE vbak-vkorg, "Sales Org
 vtweg LIKE vbak-vtweg, "Distribution Channel
 spart LIKE vbak-spart, "Division
 vkbur LIKE vbak-vkbur, "Sales Office
 guebg LIKE vbak-guebg, "Valid from date
 gueen LIKE vbak-gueen, "Valid to date kunnrt LIKE kna1-name1, "Sold-to Name
 kunwet LIKE kna1-name1, "Ship-to Name
 kunnrt LIKE kna1-name1, "Sold-to Name
 kunret LIKE kna1-name1, "Bill-to Name
 kunnr LIKE vbak-kunnr, "Sold-to party
 kunnrt LIKE kna1-name1, "Sold-to Name
 kvgr4 LIKE vbak-kvgr4, "Territory
 matnr LIKE vbap-matnr, "Material
 arktx LIKE vbap-arktx, "Material Short Text
 charg LIKE vbap-charg, "Batch
 matkl LIKE vbap-matkl, "Material Group
 pstyv LIKE vbap-pstyv, "Item Category
 zmeng LIKE vbap-zmeng, "Target Quantity
 zieme LIKE vbap-zieme, "Target Unit
 kdmat LIKE vbap-kdmat, "Customer Material Number
 werks LIKE vbap-werks, "Plant
 lgort LIKE vbap-lgort, "Storage Location
 vstel LIKE vbap-vstel, "Shipping Point
 route LIKE vbap-route, "Route
 netpr LIKE vbap-netpr, "Net Price
 kpein LIKE vbap-kpein, "Condition Price Unit
 kmein LIKE vbap-kmein, "Condition Unit
 shkzg LIKE vbap-shkzg, "Returns Item
 oidrc LIKE vbap-oidrc, "DRC Code
 kunwe LIKE vbap-oid_ship, "Ship-to
 aufnr LIKE vbap-aufnr, "Order Number
 vkaus LIKE vbap-vkaus, "Usage
 kunwet LIKE kna1-name1, "Ship-to Name
 zzwprofid LIKE vbap-zzwprofid, "Waste Profile ID
 kunre LIKE wbrk-kunre, "Bill-to
 kunret LIKE kna1-name1, "Bill-to Name
 addl_schd LIKE icon-id, "Push Button For addl line
 datab LIKE zsdsched-datab, "Valid-From Date
 datbi LIKE zsdsched-datbi, "Valid To Date
 zschdfreq LIKE zsdsched-zschdfreq, "Contract schedule frequency
 frequency LIKE zsdsched-frequency, "Frequency
 monday LIKE zsdsched-monday, "Mondays
 tuesday LIKE zsdsched-tuesday, "Tuesdays
 wednesday LIKE zsdsched-wednesday, "Wednesdays
 thursday LIKE zsdsched-thursday, "Thursdays
 friday LIKE zsdsched-friday, "Fridays
 saturday LIKE zsdsched-saturday, "Saturdays
 sunday LIKE zsdsched-sunday, "Sundays
 dzieme LIKE zsdsched-dzieme, "Target quantity UoM
 comments LIKE zsdsched-comments, "Comments
 END OF gt_report.
data: Begin of gt_report1 occurs 0,
 fksaf LIKE fplt-fksaf,
 afdat LIKE fplt-afdat,
 fakwr LIKE fplt-fakwr,
 fkdat LIKE fplt-fkdat,
 nfdat LIKE fplt-nfdat,
 fpart LIKE fpla-fpart,
 bedat LIKE fpla-bedat,
 endat LIKE fpla-endat,
 horiz LIKE fpla-horiz,
 bezei LIKE tvlvt-bezei,
 vbeln LIKE vbak-vbeln,
 erdat LIKE vbak-erdat,
 ernam LIKE vbak-ernam,
 guebg LIKE vbak-guebg,
 gueen LIKE vbak-gueen,
 auart LIKE vbak-auart,
 kunnr LIKE vbak-kunnr,
 kvgr4 LIKE vbak-kvgr4,
 vkbur LIKE vbak-vkbur,
 vkorg LIKE vbak-vkorg,
 vtweg LIKE vbak-vtweg,
 vbtyp LIKE vbak-vbtyp,
 name1 LIKE kna1-name1,
 pstyv LIKE vbap-pstyv,
 matnr LIKE vbap-matnr,
 werks LIKE vbap-werks,
 oid_ship LIKE vbap-oid_ship,
 kpein LIKE vbap-kpein,
 kmein LIKE vbap-kmein,
 netpr LIKE vbap-netpr,
 kdmat LIKE vbap-kdmat,
 posnr LIKE vbap-posnr,
 matkl LIKE vbap-matkl,
 aufnr LIKE vbap-aufnr,
 vkaus LIKE vbap-vkaus,
 route LIKE vbap-route,
 kunre LIKE wbrk-kunre, "Bill-to
 kunwe LIKE vbap-oid_ship, "Ship-to
 kunwet LIKE kna1-name1, "Ship-to Name
 kunnrt LIKE kna1-name1, "Sold-to Name
 kunret LIKE kna1-name1, "Bill-to Name
 End of gt_report1.
data: gs_report LIKE LINE OF gt_report,
 gs_report1 LIKE LINE OF gt_report1,
 gt_sched TYPE TABLE OF zsdsched,
 gt_sched_tmp TYPE TABLE OF zsdsched,
 gs_sched TYPE zsdsched,
 gt_sel LIKE gt_report OCCURS 0,
 gt_sel1 LIKE gt_report1 OCCURS 0,
 gt_vbpa TYPE TABLE OF vbpa,
 gs_vbpa TYPE vbpa,
 gv_auart TYPE auart,
 gv_counter TYPE i.
**-- ALV variables
DATA: ls_fieldcat TYPE slis_fieldcat_alv, "Field Catalog list
 gt_fieldcat TYPE slis_t_fieldcat_alv, "Field Catalog
 ls_sort TYPE slis_sortinfo_alv, "Sorting list
 gt_sort TYPE slis_t_sortinfo_alv, "Sort
 gs_layout TYPE slis_layout_alv, "List Layout
 gs_variant TYPE disvariant, "Display Variant
 gv_repid LIKE sy-repid,
 gv_save(1) TYPE c,
 ls_fieldcat1 TYPE slis_fieldcat_alv, "Field Catalog list
 gt_fieldcat1 TYPE slis_t_fieldcat_alv, "Field Catalog
 ls_sort1 TYPE slis_sortinfo_alv, "Sorting list
 gt_sort1 TYPE slis_t_sortinfo_alv, "Sort
 gs_layout1 TYPE slis_layout_alv, "List Layout
 gs_variant1 TYPE disvariant, "Display Variant
 gv_repid1 LIKE sy-repid,
 gv_exit(1) TYPE c.
CONSTANTS: gc_a TYPE c VALUE 'A',
 gc_g TYPE c VALUE 'G',
 gc_re(2) TYPE c VALUE 'RE'.
Screen-control Variables
CONTROLS:
tctrl_sched TYPE TABLEVIEW USING SCREEN 1010. " Schedule lines.
*& Report ZSD_CONTRACT_LIST
*& Created on: January 21, 2007
*& Description: List of Contracts - ALV
REPORT zsd_contract_list_rental1.
INCLUDE zsd_contract_list_t01_rental1.
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK m1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t02.
SELECT-OPTIONS: s_vkorg FOR vbak-vkorg MEMORY ID vko,
 s_vtweg FOR vbak-vtweg MEMORY ID vtw,
 s_spart FOR vbak-spart MEMORY ID spa,
 s_vkbur FOR vbak-vkbur MEMORY ID vkb.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,
 s_erdat FOR vbak-erdat,
 s_ernam FOR vbak-ernam,
 s_guebg FOR vbak-guebg,
 s_gueen FOR vbak-gueen,
 s_auart FOR gv_auart MEMORY ID vta
 MATCHCODE OBJECT h_vakz,
 s_fkarv FOR fplt-fkarv.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
 s_kunnr FOR vbak-kunnr,
 s_kunwe FOR vbap-oid_ship,
 s_kunre FOR wbrk-kunre.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t03.
SELECT-OPTIONS: s_werks FOR vbap-werks MEMORY ID wrk,
 s_lgort FOR vbap-lgort MEMORY ID lag,
 s_vstel FOR vbap-vstel MEMORY ID vst,
 s_route for vbap-route,
 s_matnr FOR vbap-matnr.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t04.
PARAMETERS: p_varia TYPE disvariant-variant MEMORY ID wrk,
 p_all AS CHECKBOX DEFAULT 'X',
 p_group AS CHECKBOX DEFAULT 'X',
 p_rental AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN END OF BLOCK m1.
Start of Selection
START-OF-SELECTION.
PERFORM get_data.
Display ALV
END-OF-SELECTION.
IF gt_report[] IS INITIAL.
 MESSAGE s419(brain).
ELSE.
 PERFORM create_alv.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varia.
PERFORM f01_f4_variant CHANGING p_varia.
*& Form get_data
 text
FORM get_data .
 select the appropriate rental data.
IF p_rental IS NOT INITIAL AND ( ( p_all IS INITIAL ) AND ( p_group IS INITIAL ) ).
SELECT avbeln aerdat aernam aaudat avbtyp aauart a~vkorg
 avtweg aspart avkbur aguebg agueen akunnr a~kvgr4
 bpstyv bmatnr bwerks boid_ship bkpein bkmein
 bnetpr bkdmat bposnr bmatkl baufnr bvkaus b~route
 dbezei efkarv eafdat efakwr efkdat enfdat e~fksaf
 ffpart fbedat fendat fhoriz flodat ftndat b~oid_ship AS kunwe
INTO CORRESPONDING FIELDS OF TABLE gt_sel1
 FROM vbak AS a
 INNER JOIN vbap AS b ON avbeln = bvbeln
 INNER JOIN vbpa as c ON avbeln = cvbeln
 INNER JOIN vbkd AS g ON avbeln = gvbeln
 INNER JOIN fplt AS e ON gfplnr = efplnr
 INNER JOIN fpla AS f ON efplnr = ffplnr
 INNER JOIN tvlvt AS d ON bvkaus = dabrvw
 WHERE a~vbeln IN s_vbeln
 AND a~erdat IN s_erdat
 AND a~vbtyp = gc_g
 AND a~ernam IN s_ernam
 AND a~vkorg IN s_vkorg
 AND a~vtweg IN s_vtweg
 AND a~spart IN s_spart
 AND a~vkbur IN s_vkbur
 AND a~guebg IN s_guebg
 AND a~gueen IN s_gueen
 AND a~auart IN s_auart
 AND a~kunnr IN s_kunnr
 AND b~oid_ship IN s_kunwe
 AND b~werks IN s_werks
 AND b~lgort IN s_lgort
 AND b~vstel IN s_vstel
 and b~route in s_route
 AND b~matnr IN s_matnr
 AND e~fkarv IN s_fkarv
 AND e~fksaf = 'A'
 OR e~fksaf = 'B'.
 sort gt_sel1.
*ENDIF.
 IF NOT gt_sel1[] IS INITIAL.
Get Bill-to Party's for Item Lines
 SELECT vbeln posnr parvw kunnr INTO CORRESPONDING FIELDS OF TABLE gt_vbpa
 FROM vbpa
 FOR ALL ENTRIES IN gt_sel1
 WHERE vbeln = gt_sel1-vbeln
 AND parvw = gc_re.
Loop through captured data for additional information
LOOP AT gt_sel1 INTO gs_report1.
Find the bill-to party
 READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report1-vbeln
 posnr = gs_report1-posnr
 parvw = gc_re.
 IF sy-subrc <> 0.
 READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report1-vbeln
 parvw = gc_re.
 CHECK sy-subrc = 0 AND gs_vbpa-kunnr IN s_kunre.
 ELSE.
 CHECK gs_vbpa-kunnr IN s_kunre.
 ENDIF.
 gs_report1-kunre = gs_vbpa-kunnr.
Get the Customer's Name
 gs_report1-kunnrt = zcl_kna1=>get_name1( itp_kunnr = gs_report1-kunnr ).
 gs_report1-kunwet = zcl_kna1=>get_name1( itp_kunnr = gs_report1-kunwe ).
 gs_report1-kunret = zcl_kna1=>get_name1( itp_kunnr = gs_report1-kunre ).
Get the scheduling lines for the item line.
 CLEAR gv_counter.
 APPEND gs_report1 TO gt_report1.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM gt_report1.
*ENDIF.
ELSE.
IF ( ( p_all IS NOT INITIAL ) OR ( p_group IS NOT INITIAL ) ) AND p_rental IS INITIAL.
Select the appropriate contract data.
SELECT a~vbeln a~erdat a~ernam a~audat a~vbtyp a~auart a~vkorg
 a~vtweg a~spart a~vkbur a~guebg a~gueen a~kunnr a~kvgr4
 b~posnr b~matnr b~charg b~matkl b~arktx b~pstyv b~zmeng
 b~zieme b~kdmat b~werks b~lgort b~vstel b~netpr b~kpein
 b~kmein b~shkzg b~oid_extbol b~oid_miscdl b~oidrc b~oid_ship AS kunwe
 b~zzwprofid c~datbi c~datab b~route
baufnr bvkaus d~bezei
 INTO CORRESPONDING FIELDS OF TABLE gt_sel
 FROM vbak AS a
 INNER JOIN vbap AS b ON a~vbeln = b~vbeln
 INNER JOIN tvlvt AS d ON bvkaus = dabrvw
 LEFT OUTER JOIN zsdsched AS c ON b~vbeln = c~vbeln AND
 b~posnr = c~posnr
 WHERE a~vbeln IN s_vbeln
 AND a~erdat IN s_erdat
 AND a~vbtyp = gc_g
 AND a~ernam IN s_ernam
 AND a~vkorg IN s_vkorg
 AND a~vtweg IN s_vtweg
 AND a~spart IN s_spart
 AND a~vkbur IN s_vkbur
 AND a~guebg IN s_guebg
 AND a~gueen IN s_gueen
 AND a~auart IN s_auart
 AND a~kunnr IN s_kunnr
 AND b~oid_ship IN s_kunwe
 AND b~werks IN s_werks
 AND b~lgort IN s_lgort
 AND b~vstel IN s_vstel
 and b~route in s_route
 AND b~matnr IN s_matnr.
SORT gt_sel.
ENDIF.
IF NOT gt_sel[] IS INITIAL.
Get Bill-to Party's for Item Lines
 SELECT vbeln posnr parvw kunnr INTO CORRESPONDING FIELDS OF TABLE gt_vbpa
 FROM vbpa
 FOR ALL ENTRIES IN gt_sel
 WHERE vbeln = gt_sel-vbeln
 AND parvw = gc_re.
endif.
Select the remaining records from the ZSDSCHED Table.
IF p_group IS NOT INITIAL.
 SELECT * FROM zsdsched
 INTO TABLE gt_sched
 FOR ALL ENTRIES IN gt_sel
 WHERE vbeln = gt_sel-vbeln
 AND posnr = gt_sel-posnr.
 SORT gt_sched.
ENDIF.
Loop through captured data for additional information
LOOP AT gt_sel INTO gs_report.
Find the bill-to party
 READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report-vbeln
 posnr = gs_report-posnr
 parvw = gc_re.
 IF sy-subrc <> 0.
 READ TABLE gt_vbpa INTO gs_vbpa WITH KEY vbeln = gs_report-vbeln
 parvw = gc_re.
 CHECK sy-subrc = 0 AND gs_vbpa-kunnr IN s_kunre.
 ELSE.
 CHECK gs_vbpa-kunnr IN s_kunre.
 ENDIF.
 gs_report-kunre = gs_vbpa-kunnr.
Get the Customer's Name
 gs_report-kunnrt = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunnr ).
 gs_report-kunwet = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunwe ).
 gs_report-kunret = zcl_kna1=>get_name1( itp_kunnr = gs_report-kunre ).
Get the scheduling lines for the item line.
 CLEAR gv_counter.
 IF NOT p_group IS INITIAL.
 If we are grouping the lines add the icon button.
 LOOP AT gt_sched INTO gs_sched WHERE vbeln = gs_report-vbeln
 AND posnr = gs_report-posnr.
 IF gv_counter > 0.
 gs_report-addl_schd = '@1E@'.
 CONTINUE.
 ENDIF.
 MOVE-CORRESPONDING gs_sched TO gs_report.
 ADD 1 TO gv_counter.
 ENDLOOP.
 ELSE.
 Otherwise get the rest of the schedule information
 READ TABLE gt_sched INTO gs_sched
 WITH KEY vbeln = gs_report-vbeln
 posnr = gs_report-posnr
 datbi = gs_report-datbi
 datab = gs_report-datab.
 IF sy-subrc = 0.
 MOVE-CORRESPONDING gs_sched TO gs_report.
 ENDIF.
 ENDIF.
 APPEND gs_report TO gt_report.
ENDLOOP.
Remove any duplicates from the reporting table
DELETE ADJACENT DUPLICATES FROM gt_report.
If Show all records is initial, delete non-scheduled lines (ex. Sub-items)
IF p_all IS INITIAL.
 DELETE gt_report WHERE datbi = 0
 AND datab = 0.
ENDIF.
endif.
endif.
ENDFORM. " get_data
*& Form create_alv
 text
FORM create_alv .
if ( ( p_all is not initial ) or ( p_group is not initial ) ) and p_rental is initial.
PERFORM initialize_fieldcat USING gt_fieldcat[].
PERFORM populate_layout CHANGING gs_layout
 gs_variant.
PERFORM populate_sort USING gt_sort[].
PERFORM display_alv_report.
else.
if p_rental is not initial and ( ( p_all is initial ) and ( p_group is initial ) ).
PERFORM initialize_fieldcat1 USING gt_fieldcat1[].
PERFORM populate_layout1 CHANGING gs_layout1
 gs_variant1.
PERFORM populate_sort1 USING gt_sort1[].
PERFORM display_alv_report1.
*endif.
*endif.
ENDFORM. " create_alv
*& Form initialize_fieldcat
Get and enhance the field catalog data
 -->L_FIELDCAT[] text
FORM initialize_fieldcat USING l_fieldcat TYPE slis_t_fieldcat_alv.
IF p_rental IS NOT INITIAL .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZSD_CONTRACT_LIST_RENTAL1'
 i_internal_tabname = 'GT_REPORT1'
 i_inclname = 'ZSD_CONTRACT_LIST_T01_RENTAL1'
 CHANGING
 ct_fieldcat = l_fieldcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'VBELN'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Contract'.
ls_fieldcat-hotspot = 'X'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNNRT'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sold-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNWET'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Ship-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNRET'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Bill-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'ADDL_SCHD'.
IF NOT p_group IS INITIAL.
 ls_fieldcat-seltext_s = 'Schd'.
 ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Additional Scheduling Lines'.
 ls_fieldcat-icon = 'X'.
 CLEAR: ls_fieldcat-key,
 ls_fieldcat-ref_fieldname,
 ls_fieldcat-ref_tabname,
 ls_fieldcat-reptext_ddic,
 ls_fieldcat-ddic_outputlen.
 ls_fieldcat-hotspot = 'X'.
 MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
ELSE.
 DELETE l_fieldcat INDEX sy-tabix.
ENDIF.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'DATAB'.
ls_fieldcat-seltext_s = 'Schd From'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. From Date'.
CLEAR: ls_fieldcat-key.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat1 WITH KEY fieldname = 'DATBI'.
ls_fieldcat-seltext_s = 'Schd To'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. To Date'.
CLEAR: ls_fieldcat-key.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
ELSE.
IF p_rental IS INITIAL.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZSD_CONTRACT_LIST_RENTAL1'
 i_internal_tabname = 'GT_REPORT'
 i_inclname = 'ZSD_CONTRACT_LIST_T01_RENTAL1'
 CHANGING
 ct_fieldcat = l_fieldcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'VBELN'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Contract'.
ls_fieldcat-hotspot = 'X'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNNRT'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sold-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNWET'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Ship-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'KUNRET'.
ls_fieldcat-seltext_s =
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Bill-to Name'.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'ADDL_SCHD'.
IF NOT p_group IS INITIAL.
 ls_fieldcat-seltext_s = 'Schd'.
 ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Additional Scheduling Lines'.
 ls_fieldcat-icon = 'X'.
 CLEAR: ls_fieldcat-key,
 ls_fieldcat-ref_fieldname,
 ls_fieldcat-ref_tabname,
 ls_fieldcat-reptext_ddic,
 ls_fieldcat-ddic_outputlen.
 ls_fieldcat-hotspot = 'X'.
 MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
ELSE.
 DELETE l_fieldcat INDEX sy-tabix.
ENDIF.
READ TABLE l_fieldcat INTO ls_fieldcat WITH KEY fieldname = 'DATAB'.
ls_fieldcat-seltext_s = 'Schd From'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. From Date'.
CLEAR: ls_fieldcat-key.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
READ TABLE l_fieldcat INTO ls_fieldcat1 WITH KEY fieldname = 'DATBI'.
ls_fieldcat-seltext_s = 'Schd To'.
ls_fieldcat-seltext_m = ls_fieldcat-seltext_l = 'Sched. To Date'.
CLEAR: ls_fieldcat-key.
MODIFY l_fieldcat FROM ls_fieldcat INDEX sy-tabix.
ENDIF.
ENDIF.
ENDFORM. " initialize_fieldcat
*& Form populate_layout
 text
 <--GS_LAYOUT
 <--GS_VARIANT
FORM populate_layout CHANGING gs_layout TYPE slis_layout_alv
 gs_variant TYPE disvariant.
gs_layout-colwidth_optimize = 'X'.
gs_layout-allow_switch_to_list = 'X'.
gs_layout-zebra = 'X'.
gs_variant-report = sy-repid.
ENDFORM. " populate_layout
*& Form populate_sort
 text
 -->l_SORT[] text
FORM populate_sort USING l_sort TYPE slis_t_sortinfo_alv.
ENDFORM. " populate_sort
*& Form display_alv_report
FORM display_alv_report .
gv_repid = sy-repid.
IF p_rental IS INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE = ' '
 i_callback_program = gv_repid
 I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND'
 i_structure_name = 'GT_REPORT'
 is_layout = gs_layout
 it_fieldcat = gt_fieldcat
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 it_sort = gt_sort
 IT_FILTER =
 IS_SEL_HIDE =
 i_default = 'X'
 i_save = gc_a
 is_variant = gs_variant
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = gt_report
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ELSE.
IF p_rental IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE = ' '
 i_callback_program = gv_repid
 I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND'
 i_structure_name = 'GT_REPORT1'
 is_layout = gs_layout
 it_fieldcat = gt_fieldcat
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 it_sort = gt_sort
 IT_FILTER =
 IS_SEL_HIDE =
 i_default = 'X'
 i_save = gc_a
 is_variant = gs_variant
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = GT_REPORT1
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
endif.
endif.
ENDFORM. " display_alv_report
*& Form initialize_fieldcat1
Get and enhance the field catalog data for rental fields
 -->L_FIELDCAT[] text
*FORM initialize_fieldcat1 USING l_fieldcat1 TYPE slis_t_fieldcat_alv.
**if ***
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZSD_CONTRACT_LIST_rental1'
 i_internal_tabname = 'GT_SEL1'
 i_inclname = 'ZSD_CONTRACT_LIST_T01_rental1'
 CHANGING
 ct_fieldcat = l_fieldcat1
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
**else.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZSD_CONTRACT_LIST_rental1'
 i_internal_tabname = 'GT_SEL1'
 i_inclname = 'ZSD_CONTRACT_LIST_T01_rental1'
 CHANGING
 ct_fieldcat = l_fieldcat1
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
***endfi.
*ENDFORM. " initialize_fieldcat
*& Form populate_layout
 text
 <--GS_LAYOUT
 <--GS_VARIANT
*FORM populate_layout1 CHANGING gs_layout1 TYPE slis_layout_alv
 gs_variant1 TYPE disvariant.
gs_layout1-colwidth_optimize = 'X'.
gs_layout1-allow_switch_to_list = 'X'.
gs_layout1-zebra = 'X'.
gs_variant1-report = sy-repid.
*ENDFORM. " populate_layout
***& Form populate_sort
 text
 -->l_SORT[] text
*FORM populate_sort1 USING l_sort TYPE slis_t_sortinfo_alv.
*ENDFORM. " populate_sort
***& Form display_alv_report
*FORM display_alv_report1 .
gv_repid = sy-repid.
if p_rental is not initial and ( ( p_all is initial ) and ( p_group is initial ) ).
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE = ' '
 i_callback_program = gv_repid
 I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND'
 i_structure_name = 'gt_sel1'
 is_layout = gs_layout1
 it_fieldcat = gt_fieldcat1
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 it_sort = gt_sort1
 IT_FILTER =
 IS_SEL_HIDE =
 i_default = 'X'
 i_save = gc_a
 is_variant = gs_variant1
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = gt_sel1
 EXCEPTIONS
 program_error = 1
 OTHERS = 2
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*endif.
*ENDFORM. " display_alv_report
*& Form f01_f4_variant
 Get the Layout variant for the user.
FORM f01_f4_variant CHANGING c_variant TYPE disvariant-variant.
DATA: ls_variant TYPE disvariant,
 l_exit TYPE char1.
ls_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = ls_variant
 i_save = 'A'
 it_default_fieldcat =
 IMPORTING
 e_exit = l_exit
 es_variant = ls_variant
 EXCEPTIONS
 not_found = 2.
IF sy-subrc = 2.
 MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
 IF l_exit EQ space.
 c_variant = ls_variant-variant.
 ENDIF.
ENDIF.
ENDFORM. " f01_f4_variant
 FORM USER_COMMAND *
 --> R_UCOMM *
 --> RS_SELFIELD *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
 WHEN '&IC1'.
 READ TABLE gt_report INTO gs_report INDEX rs_selfield-tabindex.
 CHECK sy-subrc = 0.
 CASE rs_selfield-fieldname.
 WHEN 'VBELN'.
 Set parameter ID for transaction screen field
 CHECK NOT gs_report-vbeln IS INITIAL.
 SET PARAMETER ID 'KTN' FIELD gs_report-vbeln.
 CALL TRANSACTION 'VA43' AND SKIP FIRST SCREEN.
 WHEN 'ADDL_SCHD'.
 CHECK NOT gs_report-addl_schd IS INITIAL.
 REFRESH gt_sched_tmp.
 LOOP AT gt_sched INTO gs_sched
 WHERE vbeln = gs_report-vbeln
 AND posnr = gs_report-posnr.
 APPEND gs_sched TO gt_sched_tmp.
 ENDLOOP.
 CHECK sy-subrc = 0.
 CALL SCREEN '1010' STARTING AT 5 5.
 ENDCASE.
ENDCASE.
ENDFORM. "user_command
*& Module STATUS_1010 OUTPUT
 text
MODULE status_1010 OUTPUT.
SET PF-STATUS 'MAIN_1010'.
SET TITLEBAR '1010' WITH gs_report-vbeln gs_report-posnr.
ENDMODULE. " STATUS_1010 OUTPUT
*& Module USER_COMMAND_1010 INPUT
 text
MODULE user_command_1010 INPUT.
CASE sy-ucomm.
 WHEN 'BACK' OR 'CANC'.
 LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_1010 INPUT

Hi !
This report shows the schedule line items , group schedule line items and rental contact (billing plan) lines when particular checkbox is checked. The checkboxs p_all(non-schedule line) , p_group(group schedule line items) are working in my above alv report and showing result but unfortunately when p_rental is checked it dosent give me result , it says no data selected. This when checked has to show result based on a different set of selections as I have done, but its not shwoing me the result .
Kindly help please.
Thanks

Report to show number of clients with/without specific software with %

I'm creating a report that shows 4 columns, AD Site, Visio installed, Visio not installed, % Installed. I can get all column right except 'Visio not installed':
IF object_id('tempdb..#tmp') is not null Drop table #tmp
select vrs.AD_Site_Name0,
CASE WHEN arp.DisplayName0 like '%Visio%'
THEN 1
else 0
END as Visio,
CASE WHEN arp.DisplayName0 not like '%Visio%'
THEN 1
else 0
END as NoVisio
into #Tmp
from v_R_System vrs
inner join v_GS_SYSTEM_ENCLOSURE enc on enc.ResourceID = vrs.ResourceID
where
enc.ChassisTypes0 in ('8', '9', '10', '14')
select AD_Site_Name0 AS 'AD Site'
,sum(Visio) as [Visio Installed]
,sum(NoVisio) as [Visio not Installed]
,(sum(Visio)*100 / (sum(Visio) + sum(NoVisio)) ) AS '%'
from #Tmp
group by AD_Site_Name0
Any ideas what went wrong? Or is there any other ways to get the result I want?
Many thanks.

Awesome! This is exactly what I'm looking for. Thank you Sherry!
Nick, we have the same result. I would just exclude every irrelevant entries
Select DISTINCT DisplayName0 FROM v_Add_Remove_Programs WHERE DisplayName0 Like 'Microsoft Office Visio%'
and DisplayName0 not like '%Visio Language Pack%' and DisplayName0 not like '%Visio Viewer%'
etc...

Report to show activies per lead - when there is no activity

Hello All,
I would like to build a report that shows number of activities per lead even if there are 0. The goal of the report is to show that owners are not follow-up on their leads.
Campaign Lead Last Name Owner # of Activities
I have built this several different ways but cannot find a way to work in all the leads with 0 activities.
Any help would be greatly appreciated.

This has been answered multiple times. Search Forums before posting your question.

Report to show unsettled Orders Plant-wise

Hi All,
Recently we had some problems in settling orders during year close..now we want to see if any orders are there which are left over for settlement to make them settle manually..is there any report to show Orders settlement status Plant wise?
Appreciate your quick response.
Thanks in advance.
Regards,
Sree

Hi,
Good evening and greetings,
Please use the transaction code COOIS for getting the details using the dynamic selection option.
Please reward points if found useful
Thanking you
With kindest regards
Ramesh Padmanabhan

WCS report to show duplex on associated AP's

Similar Messages

Maybe you are looking for