Report to show amount

Dear Gurus,
I have run mb51 report .selection parameters are Material,311 movement type and Slocs.
This will provide me value of quantity,but I need Amount in LC for materials moved by 311.how can i get amount for this material moved on 311 loc.
Thanks
Abhyut

Dear Abhyut,
Goto MB51,execute the report for 311 movement for the date rage or for any input parameters.
First click on Detail List(controlShiftF12),click on change variant or else (control+F8),there you can
find a term amount in local currency (Amt.in.Loc.currency),select it and make it to display in the current
list and then check.
But generally this will be checked for the 261,101,201 movements.
311 is only a transfer posting from one storage location to another.
Check and revert back with you queries.
Regards
Mangalraj.S

Similar Messages

Do we have standard report to show sale order stock with amount?

Do we have standard report to show sale order stock with amount?
I try to use MB5B and MBBS but they don't show value.
MB5B show only qty
MBBS no any report.
Please kindly help.
Thank you very much.

Okay Thank you very much for your suggestion.
I think I have to create a new ZProgram. T_T

A Standard RRB report that shows actual project cost line items .... ?

A Standard RRB report that shows actual project cost line items but that also shows amount/qty by rejected, billed, to be billed, postponed?
I'm looking for something that will allow project managers to reconciile with the RRB totals and be able to dril in a see a level detail not available in RRB to decide what should be billed, what should should be deferred (postponed) and what should be rejected out of hand.
Thanks.

Thanks Virendra Pal but the VAx5 reports are not really the answer - maybe a custom report will be required right enough.

CJI5 commitment line item report not showing po gross value

Dear All,
system is showing only net value in CJI5 report, actaully gross value of po must be reflected in CJI5 report and this happening in all po's like material, service's etc. example is as follows.
Example:
po net value: 1000
st 10%: 100
po gross value : 1100 (inclusive of all taxes, ed, disc. etc)
what could be the reason for not showing po gross value in commitment line item report.
Thanks & Regards,
Sandeep

Hi,
As far as i know the commitment report will never show you the value that is inclusive of taxes. It will only show the net value of the PO.
I just tried a scenario in my system by creating a PO for a net value of 3000 GBP and based on the tax code i entered system calculated a tax of 525 GBP. However when i check CJI5 report it shows only 3000 GBP as commitment and not 3525 GBP. This is how the standard system behaves, i believe. You can cross check this in the table COOI. The COOI table also shows the net value of the PO and does not include the tax amount in commitment.
Regards,
Gokul

A report which shows the vendor invoice and its purchase order MM

Hi All,
I wonder if ther's a SAP standard report which shows the vendor invoice (the FI document) and its purchase order MM.
Could anyone help me?
Thanks
G.Rossi
Edited by: Lakshmipathi on Aug 2, 2011 2:24 PM
Thread Locked - Reason Cross Posted

Dear,
you can use FBL1N,
From there you can view following things:
1. Vendor Invoice = Reference
2. Document type = KR and RE for Invoices
3. Po Number
4. Amount
you can enable there many fields as per your requirement.
Hope this helps!!!
Br,Vivek

FBL1( VENDOR LEDGER REPORT)- Withholding tax amount is not coming .

in FBL1 ( vENDOR lEDGER rEPORT) - WITHHOLDING TAX AMOUNT IS NOT CMING IN COLUMN QBSHB OF FBL1.
Purchasing document number is not coming also.
How these fields may appear in the above said report. Is any config missing ?
Thanks in advance
M K Agarwal
9967029930

TDS posted from MIRO will not reflect in line item report, i have taken opinion from SAP for the same issue few days back, SAP has given the following opinion.
*With reference to the difference in behaviour as compared to the document posted for example from MIRO which is an MM transaction and FB60 which is a FI transaction please note the following:
The withholding tax amount that you are using i.e. Field BSEG-QBSHB is designed to fill for the classic withholding tax. And extended withholding tax information is stored exclusive in table WITH_ITEM.
Also note that MIRO does not give the user the control in case of Classical withholding tax. It only supports Extended withholding tax. Hence it does not populate BSEG fields in case of Extended WT.
So in MIRO, the data for extended withholding tax are saved within the table WITH_ITEM and not within the table entry BSEG-QBSHB. The latter isnot updated during the procedure. Furthermore it is not possible to select data from table WITH_ITEM
within the transaction FBL1N in a transparent and unique way, as FBL1N only reads BSEG / BSIK / BSAK tables.
In your line layout,you define a field BSEG-QBSHB. But actually the field of vendor/customer line item is filled with zero from FI. Thus,it shows zero in line item display*
Please review note 363309 for detailed explanation and explains the functionality which is valid even for your release.
So it is not possible to display withholding tax information in the line item display transactions, since this information is not
held in the BSEG / BSIK / BSAK tables, but is instead stored in the WITH_ITEM table.
Please convey to your client, standard SAP will not show the TDS information in line item reports, documents posted from MIRO and refer the note 363309.

FSCM(ECC6.0) How to report securities' balance amount by each transaction ?

Hello.
My client asked me to make add-on report which shows securities' amount by each transaction.
The image is like as below.
Security ID # 1000    ABC Co.,Ltd.
Date               Transaction #     Flowtype                             Amount                Balance
2010.01.05    1000000001       0100 (Purchase)    10,000,000 JPY    10,000,000 JPY
2010.01.06    1000000002       0200 (Sale)              3,000,000 JPY      7,000,000 JPY
2010.01.10    1000000003       0200 (Sale)              1,000,000 JPY      6,000,000 JPY
In my understanding, the structure of secrities database tables has changed since SAP R/3 Enterprise or higher version.
So, to report balance amount, I must use logical database instead of selecting it from database table directly.
Is it correct ?
If you think using logical table isn't required, please tell me what tables should I look at.
Thank you.

Thank you for your information.
I have just understood what information the SAP standard reports provide.
And then, I have to develop add-on program for my client's demands.
In my recognition, SAP has balance amount at the point of key date .
But it may not have that at the point of each transaction.
It means that when there are two transactions for the same security ID at the same date,
SAP may not have balance amount of the security ID after the 1st transaction (before the 2nd transaction).
And, Ravi reminds me of existence of valuation ,devidend and other flows.
I can't help admitting that it's difficult to create appropriate program.
I will spend more time to consider whether the program is essencial or not.
Thank you all.

Report Viewer shows incorrect data when viewing pages from last to first

Post Author: Fmorales
CA Forum: .NET
Hello.
I've made a huge report with Crystal Reports for Visual Studio 2005, and sometimes the Report Viewer show data with errors.
If I see all pages of my report in order, 1 first, then 2nd, 3, 4... until the last one.... The report is always correct.
If I see all pages in reverse order, 1 first (shown by default), then last one, then last one-1.... until 2nd.. All years show incorrect, except first one...
In an outer section, for every year, there is a final row which shows summarize calculated data. The error consists in that every value of the row is 0.
It seems that Crystal Report calculates while showing, that's good.. but... Why does it ignore the data before when I see directly the last page?? It forces me to see all pages one by one in ascendant order to ensure data is correct.. I must fix that error.
The way I calculate data in the problematic summarize row is a bit complicated, but I'll try... Let's focus in one only column (the other ones are similar). The summarize value is a formula which simply show a global value :
WhilePrintingRecords;
CurrencyVar margenActual;
which is being increasing or decreasing along the group:
WhilePrintingRecords;
CurrencyVar actual:=actual+CurrentFieldValue;
if {PresupPeriodifMesesAux_DS.TIPO} = 'PAGOS' then CurrencyVar margenActual:=margenActual-CurrentFieldValueelse CurrencyVar margenActual:=margenActual+CurrentFieldValue;
DefaultAttribute
It is placed in the backgrond property of a CrossTab cell in a hidden pre-section... Well.. I know it's a bit complicated, but I have to do that way because it was the only trick I found to make a summarize file before printing data summarized (that's why the line "CurrencyVar actual:=actual+CurrentFieldValue;" appeared in formula). So I also wanted to use this formula to acummulate "margenActual".
In the inner section I reset the actual value (this value always go fine):
WhilePrintingRecords;
CurrencyVar actual:=0;
Before end of year I reset the margenActual value:
WhilePrintingRecords;
CurrencyVar margenActual:=0;
I've tried multiple combinations (using WhileReadingRecords instead WhilePrintingRecords) but data is incorrect or I cannot get rid of visualization page's problem....
Any idea?
Thanks a lot

quote:
Originally posted by:
ntsiii
If you were previously using <mxXML> you WERE using
e4x.
So remove that tag, create an instance variable of the same
name, typed as xml, and in your result handler, do as VarioPegged
suggests, though I would cast/convert to xml first:
companies = XML(event.result);
trace(companies.toXMLString()); to look at your xml
var xlCompanies:XMLList = xmlCompanies..company; //all such
expressions return XMLList, never XML
trace(xmlCompanies.length()); //
Tracy
Ok so the ID of the mxXML was being interpreted as an E4X
variable at compile time?
I tried changing the name of the ID of the HTTPService call
from "marketData" to "MDATA" and assigning the variable marketData
to the result of the HTTPService query, which if I understand you
correctly should basically make everything work as it was before,
but it seems to be a problem.
when I try to run it puts an exclamation point on this line
<toolbox:TreeMap id="treeMap" width="1200" height="800"
dataProvider="{marketData}"
labelField="@cname" weightField="@amount"
colorFunction="{itemToColor}"
toolTipFunction="{itemToToolTip}"/>
That code refers to a SWC file. Apparently it wants
marketData to be a data provider. If I change the dataProvider
reference above to "MDATA" (the ID of the HTTPService) the App
compiles, but I get two errors at runtime:
TypeError: Error #1009: Cannot access a property or method of
a null object reference.
ReferenceError: Error #1081: Property @age1 not found on
mx.rpc.http.mxml.HTTPService and there is no default value.
What should I change this reference to? It won't compile if I
use the variable I made for the e4x results and it is reading
gibberish if I have it read directly from the
HTTPService....?

Report for Hours/Amount

Hi!!
I've received a requirement to develop a report that shows hours/amount per employee.
Does someone knows a standart report with this function?
Thanks!

I am not sure if any standard report exists, but you can easily create a custom report for your requirement.
For hours: Take the number of hours worked by an employee in a day or in a week or in a month (as oer your requirement) from the planned working time. Make sure you subtract the vacation hours taken.
For amount: Take the amount value from the basic pay for a day or a week or a month (as per your requirement).
Then divide them to get the result.
An ABAP'er will be able to help you out for the coding.

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 amount

Similar Messages

Maybe you are looking for