Report to display proces order details

Hi Frnds,
I need to create a report for displaying process order details like process order, Line (Resource), material, product group,batch and Order movement data (movement type,qty ). I tried to get Item level materials from AFPO..but it contains only header level material.
Now my question is that in which table can i get order movement data for all header and item level materials.
I will wait for ur reply..
Thanks in advace..
Rgds
ravindra

Try with 0PUR_C01 and 0PUR_C03
Jayasudha

Similar Messages

Interactive ALV report for vendorwise purchase order details

Hi Experts,
I am trying to create vendor wise purchase order interactive report, if i click any of vendor detail it has to display vendor details in a popup window or if i click any of purchase details it has to display purchase order details ina popup..
can any body explain by using function modules REUSE_ALV_POPUP_TO_SELECT and REUSE_ALV_FIELDCATALOG_MERGE...

Check the link below will be of some use to you.
http://www.geocities.com/mpioud/Z_REUSE_ALV_POPUP_TO_SELECT.html
Regards,
Murthy

How to devolped an Interactive ALV Report to display sales orders

hi,
how to devolped an Interactive ALV Report to display sales orders pertaining to the selected Customers and item details in the secondary list.For this report what are the tables and fields wehave to used give with example.
thank you
radhakrishna

Hi,
look via se38 for BCALV* and SALV*.
Try ABAPDOCU.
Regards, Dieter

Function module for display production order details

Hi All,
I want to display production order details including operation,sub-operations and components using standard FM.I checked 4 FMs, but some are not displaying my require details. I found PM_ORDER_DATA_READ function module, it is displaying all details.But you can execute the function module 2 times for different orders it is giving ABAP dump 'itab_error'. Please get back to me if any one faced this problem or know solution.I am also checked BAPI_ALM_ORDER_GETDETAIL FM.
My require fields are
AUFNR, WERKS, PLNAL, PLNFL, VORNR,UVORN, ARBPL, KTSCH,
LTXA1,OFFSTB,VGW01 etc.
I am using SAP 4.7 release. Please send me either standard FM or BAPI to display all details of production order.
Thanks in Advance
Shaik Basha

Hi,
I had the same problem this morning and I found out a FM you have to run to fix this problem.
FM: CO_IT_SET_FLG_ITAB_NEW
Rgds,
Parise

Interactive report for vendorwise purchase order details

Hi Experts,
I am trying to create vendor wise purchase order interactive report, if i click any of vendor detail it has to call display vendor screen for selected vendor or if i click any of purchase details it has to open purchase order details..
can any body explain...

hi arun,
use at line-selection
example,
at line-selection.
if sy-ucomm = 'PICK'.
if wa_lifnr is not initial.
    set parameter id 'LIF' field wa_lifnr.
    set parameter id 'BUK' field wa_bukrs.
    set parameter id 'EKO' field wa_ekorg.
    call transaction 'XK03'. endif.
if wa_ebeln is not initial.
    set parameter id 'BES' field wa_ebeln.
    call transaction 'ME23N' and skip first screen.
endif.
endif.
Regards,
Logan

Report for displaying the order number & order date..

HI ALL,
can any body help me for displaying the order number,customer name,material name & order date..in report
i dnt know the which are the table i need to use...
can anybody tell me which are table do i need to use and fields in tables
input to report from the user are cutomer number,purchase order numbervendor number & sales number
waiting for positive reply form u people.....
thanks
Zabeerulla
Moderator message: "spec dumping", please work yourself first on your requirement, do some research, talk to a functional consultant near you.
Edited by: Thomas Zloch on Feb 28, 2011 2:14 PM

Thx dharma raj ...
problem is ,input to report from the user are cutomer number,purchase order number,vendor number & sales number
report should contain
customer name
order date
order #
vendor name
material name
can u please tell me which are the table do i need to use...
i have ,please look into it...let me know if am incorrect
customer name -> kna1_name where kna1_kunnr=knagv_kunnr
order date -> vbak_audat
order nunber->vbak_vbeln
vendor name -> LFA1_NAME where LFA1_LIFNR=MEPO_TOPLINE(superfileld)
material # -> VBAP_ARKTX where VBAP_VBELN=VBAK_VBELN
HELP ME OUT...
THX
ZABEER

Report to display purchase orders

Hi I am Venkat
can any one send me report to display a list of Purchase orders open for period more than one year. I need the following output fields to be dispayed are Vendor, Period, Purchasing organization, PO number, Document date, GR status, check box

i think this code will help u.
REPORT Z_PURCHASEU.
tables : ekko,vbrk,mara,rseg,lfa1,makt,konv,bseg,vbap,j_1iexhead.
data: begin of itab occurs 0,
     qty   like rseg-menge,           "qty
     bed   like rseg-wrbtr,           "bed(basic excise duty)
     mwskz like rseg-mwskz,           "tax code
     cess like rseg-wrbtr,           "cess
     sum   like rseg-wrbtr,
     unit like rseg-bstme,           "unit
     belnr like rseg-belnr,           "document number
lst_cst like rseg-wrbtr ,          "CST amount
    amount like rseg-wrbtr,           "amount
     aedat like ekko-aedat,           "po date
     ebeln like ekko-ebeln,           "po number
     lifnr like ekko-lifnr,           "vendor code
    matnr like mara-matnr,           "material code
    maktx like mara-maktx,           "material description
    mtart like mara-mtart,           "material type
    vbeln like vbrk-vbeln,           "bill number
    fkdat like vbrk-fkdat,           "bill date
    name1 like lfa1-name1,           "vendor name
    kzwi1 like vbap-kzwi1,           "basic value
     end of itab.
     select-options:
vendrcod for ekko-lifnr,
date for vbrk-fkdat,
matrtype for mara-mtart,
taxcode for rseg-mwskz.
select egmenge egwrbtr egmwskz egwrbtr egwrbtr egbstme eg~belnr
egwrbtr egwrbtr
          koaedat koebeln ko~lifnr
          into corresponding fields of table itab
          from rseg as eg inner join ekko as ko on egebeln = koebeln
where
ko~lifnr in vendrcod And
eg~mwskz in taxcode.
*select-options:
vendrcod for ekko-lifnr,
date for vbrk-fkdat,
matrtype for mara-mtart,
taxcode for rseg-mwskz.
select abelnr amwskz amenge awrbtr into
*corresponding
*fields of table itab
*from rseg as a inner join bseg as b on
*awrbtr = bwrbtr where
*a~belnr in docment number and
*a~mwskz in tax code and
*a~menge in qty.
loop at itab.
write:/1 sy-vline,
       2   itab-name1    , 18 sy-vline,
        19 itab-lifnr    , 30 sy-vline,
        31 itab-aedat    , 46 sy-vline,
        47 itab-ebeln    , 60 sy-vline,
        61 itab-belnr    , 80 sy-vline.
        uline.
        endloop.
write :   /1 sy-vline,
          2 'vendor name' ,     18 sy-vline,
          19 'vendor code' ,     30 sy-vline,
          31 'po date'      ,    46 sy-vline,
          47 'po number '     , 60 sy-vline,
          61 'document number', 80 sy-vline.
give points if useful.

Report to display total and detail from table GLT0 and FBL3N

hi guys,
we have the requirement to show a report with total amount per GL account from table GLT0 and to as well display the detail from tcode FBL3N ..
shall i use normal report via SE38, if yes, what is the table that stores detail from FBL3N or does report painter support the above requirement..pls advice

use report SAPF070 as sample
(compare documentation!)
hope that helps
Andreas

Report to display "Purchase Order History"

Hi all,
Can any one solve my problem, i need to create a report on Purchase Order History. So can any one tell, from which infoprovider i can generate this report or is there any standard report for this in SAP BW.
Thanks in Advance,
Regards,
Ramakrishna Kamurthy
+91-9963101073

Try with 0PUR_C01 and 0PUR_C03
Jayasudha

Report for displaying BSID & VBRP Details ( Outstanding Invoice details )

Dear friends,
For creatinf a report.
First I have to select the details from BSID. Then on the basis of VBELN fiels in BSID , I have to take the Details from VBRK & VBRP based . But VBELN field is null for some BSID Recors. Then How can I pick the VBRK & VBRP Details?
Thanks in Advance.
Regards,
LIJO

You will have entries in BSID-VBELN where the Document Type is RV.
Try this:
Select * where BSID-BELNR = VBRK-BELNR
now Select * where VBRK-VBELN = VBRP-VBELN
Hope that helps.
Cheers.

How to generate Inventory Report to display all details at end of mon/yr?

Hi Guys..
I would like to know how we can generate a
Inventory report to display all inventory details at the end of every
month or year?
Also, another question.How can we create a PO past delivery date report?
Any help is appreciated.
Thanks,
Sri Harsha;

Hi,
Pls the code here-
TYPES :
        BEGIN OF ty_mard,
          matnr TYPE matnr,
          werks TYPE werks_d,
          lgort TYPE lgort_d,
          labst TYPE labst,
          retme TYPE retme,
          umlme TYPE umlme,
        END OF ty_mard.
TYPES :
       BEGIN OF ty_mska,
          matnr TYPE matnr,
          kalab TYPE labst,
          vbeln TYPE vbeln,
          posnr TYPE posnr,
        END OF ty_mska.
TYPES :
        BEGIN OF ty_vbap,
          matnr TYPE matnr,
          kwmeng TYPE kwmeng,
          pstyv TYPE pstyv,
        END OF ty_vbap.
TYPES :
        BEGIN OF ty_mbew,
          matnr TYPE matnr,
          salk3 TYPE salk3,
          stprs TYPE stprs,
        END OF ty_mbew.
TYPES :
        BEGIN OF ty_mchb,
          matnr TYPE matnr,
          charg TYPE charg_d,
        END OF ty_mchb.
TYPES :
        BEGIN OF ty_mara,
          matnr TYPE matnr,
          mfrpn TYPE mfrpn,
        END OF ty_mara.
TYPES :
       BEGIN OF ty_makt,
         matnr TYPE matnr,
         maktx TYPE maktx,
       END OF ty_makt.
TYPES :
        BEGIN OF ty_ekpo,
         matnr TYPE matnr,
         netpr TYPE bprei,
         meins TYPE bstme,
        END OF ty_ekpo.
DATA :
       BEGIN OF final OCCURS 0,
        matnr LIKE mard-matnr,
        maktx LIKE makt-maktx,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        mfrpn LIKE mara-mfrpn,
        usp LIKE mbew-stprs,
        labst LIKE mard-labst,
        salk3 LIKE mbew-salk3,
        kalab LIKE mska-kalab,
        vbeln LIKE mska-vbeln,
        sov LIKE ekpo-netpr,
        uom LIKE ekpo-meins,
        posnr LIKE mska-posnr,
        pstyv LIKE vbap-pstyv,
        kwmeng LIKE vbap-kwmeng,
        retme LIKE mard-retme,
        umlme LIKE mard-umlme,
       END OF final.
DATA :
      BEGIN OF itab OCCURS 0,
        matnr LIKE mard-matnr,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        labst LIKE mard-labst,
        retme LIKE mard-retme,
        umlme LIKE mard-umlme,
        charg LIKE mchb-charg,
      END OF itab.
DATA :
       i_mard TYPE STANDARD TABLE OF ty_mard,
       i_mbew TYPE STANDARD TABLE OF ty_mbew,
       i_mchb TYPE STANDARD TABLE OF ty_mchb,
       i_mara TYPE STANDARD TABLE OF ty_mara,
       i_vbap TYPE STANDARD TABLE OF ty_vbap,
       i_mska TYPE STANDARD TABLE OF ty_mska,
       i_makt TYPE STANDARD TABLE OF ty_makt,
       i_ekpo TYPE STANDARD TABLE OF ty_ekpo.
DATA :
       wa_mard TYPE ty_mard,
       wa_mbew TYPE ty_mbew,
       wa_mchb TYPE ty_mchb,
       wa_mara TYPE ty_mara,
       wa_vbap TYPE ty_vbap,
       wa_mska TYPE ty_mska,
       wa_makt TYPE ty_makt,
       wa_ekpo TYPE ty_ekpo.
DATA :
       sov_total TYPE currency,
       urestrict_total type currency.
*Select options:
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR gf_matnr, " Material No.
                 s_werks FOR gf_werks, " Plant
                 s_lgort FOR gf_lgort, " Storage Location
                 s_charg FOR gf_charg. " Batch No.
SELECTION-SCREEN END OF BLOCK a.
*Validation of Selection Fields
AT SELECTION-SCREEN.
IF     s_matnr IS INITIAL
     AND s_werks IS INITIAL
     AND s_lgort IS INITIAL
     AND s_charg IS INITIAL.
    MESSAGE e001(zcir).
ENDIF.
*Function Module for Checking the inputs
CALL FUNCTION 'MMIM_ENTRYCHECK_MAIN'
    TABLES
      it_matnr = s_matnr
      it_werks = s_werks
      it_lgort = s_lgort.
*Checking of input values for S_CHARG
IF NOT s_charg-low IS INITIAL OR NOT s_charg-high IS INITIAL.
    SELECT charg FROM mchb into table LT_charg WHERE charg IN s_charg.
    IF sy-subrc NE 0.
      MESSAGE e002(zcir).
    ENDIF.
    clear wa_mchb.
ENDIF.
*TOP OF PAGE
TOP-OF-PAGE.
FORMAT COLOR COL_HEADING.
WRITE sy-uline(105).
WRITE :/ '|',2 text-101, "MATERIAL NO:
         16 text-102,    "MATERIAL DESCRIPTION
         52 text-103,    "PLANT
         60 text-104,    "STORAGE LOCATION.
         74 text-105,    "MANUFACTURE PARTNER NO.
         88 text-106,    "VALUATED STOCK.
         95 text-107.    "STANDARD PRICE.
        105 '|'.
FORMAT COLOR COL_GROUP.
WRITE :/ '|',2 text-108, " UNRESTRCTED STOCK
          16 text-109,     " SALES DOCUMENT NO:
          20 text-110,     " ITEM NO:
          27 text-111,     " UNIT
          32 text-112,     " NET VALUE
          39 text-113,     " ITEM CATEGRY
          50 text-114,     " QUANTITY
          60 text-115,     " BLOCKED STOCK
          79 text-116,     " TOTAL STOCK
          95 text-117.     " STOCK TRANSFER
         87 '|'.
FORMAT COLOR OFF.
WRITE sy-uline(105).
*START OF SELECTION
START-OF-SELECTION.
IF NOT s_matnr IS INITIAL
    OR NOT s_werks IS INITIAL
    OR NOT s_lgort IS INITIAL.
    PERFORM select1.
ELSEIF NOT s_charg IS INITIAL.
    PERFORM select2.
ELSEIF NOT s_matnr IS INITIAL
    OR NOT s_werks IS INITIAL
    OR NOT s_lgort IS INITIAL
    AND NOT s_charg IS INITIAL.
    PERFORM select3.
ENDIF.
PERFORM final1.
PERFORM collect.
*END OF SELECTION
END-OF-SELECTION.
LOOP AT LT_FINAL.
    FORMAT COLOR COL_KEY.
    WRITE :/2 LT_FINAL-matnr,
           14 LT_FINAL-maktx,
           52 LT_FINAL-werks,
           58 LT_FINAL-lgort,
           69 LT_FINAL-mfrpn,
           73 LT_FINAL-labst,
           87 LT_FINAL-usp.
    FORMAT COLOR OFF.
    FORMAT COLOR COL_NORMAL.
    WRITE :/2 LT_FINAL-kalab,
            14 LT_FINAL-vbeln,
            17 LT_FINAL-posnr,
            24 LT_FINAL-uom,
            28 LT_FINAL-sov,
            36 LT_FINAL-pstyv,
            46 LT_FINAL-kwmeng,
            57 LT_FINAL-retme,
            65 LT_FINAL-salk3,
            75 LT_FINAL-umlme.
ENDLOOP.
FORMAT COLOR COL_TOTAL.
WRITE :/2 text-119,     " TOTAL VALUE
          28 V_sov_total,
          87 V_urestrict_total.
FORMAT COLOR OFF.
Form Name: select1
text: Population of internal table LT_MARD and using LT_MARD populating
      the internal table LT_MCHB
FORM select1.
SELECT matnr
         werks
         lgort
         labst
         retme
         umlme
         FROM mard
         INTO TABLE LT_mard
         WHERE matnr IN s_matnr
         AND werks IN s_werks
         AND lgort IN s_lgort.
SELECT matnr
         charg
         FROM mchb
         INTO TABLE LT_mchb
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
ENDFORM.                                                    "select1
Form Name: select2
text:Population of internal table LT_MCHB and using LT_MCHB populating
     LT_MARD
FORM select2.
SELECT matnr
         charg
         FROM mchb
         INTO TABLE LT_mchb
         WHERE charg IN s_charg.
SELECT matnr
         werks
         lgort
         labst
         retme
         umlme
         FROM mard
         INTO TABLE LT_mard
         FOR ALL ENTRIES IN LT_mchb
         WHERE matnr EQ LT_mchb-matnr.
ENDFORM.                                                    "select2
Form Name: select3
text: Population of internal table LT_TAB using inner join and then
      populating internal tables LT_MARD and LT_MCHB
FORM select3.
SELECT a~matnr
         a~werks
         a~lgort
         a~labst
         a~retme
         a~umlme
         b~charg
         INTO CORRESPONDING FIELDS OF TABLE LT_TAB
         FROM mard AS a
         INNER JOIN mchb AS b ON bmatnr = amatnr
         WHERE a~matnr IN s_matnr
         OR a~werks IN s_werks
         OR a~lgort IN s_lgort
         AND b~charg IN s_charg.
LOOP AT LT_TAB.
    MOVE: LT_TAB-matnr TO wa_mard-matnr,
          LT_TAB-werks TO wa_mard-werks,
          LT_TAB-lgort TO wa_mard-lgort,
          LT_TAB-labst TO wa_mard-labst,
          LT_TAB-retme TO wa_mard-retme,
          LT_TAB-umlme TO wa_mard-umlme,
          LT_TAB-matnr TO wa_mchb-matnr,
          LT_TAB-charg TO wa_mchb-charg.
    APPEND wa_mard TO LT_mard.
    APPEND wa_mchb TO LT_mchb.
ENDLOOP.
ENDFORM.                                                    "select3
Form Name:collect
text:population of LT_FINAL internal table-LT_FINAL using other internal
      tables
FORM collect.
LOOP AT LT_mard INTO wa_mard.
    MOVE : wa_mard-matnr TO LT_FINAL-matnr,
           wa_mard-werks TO LT_FINAL-werks,
           wa_mard-lgort TO LT_FINAL-lgort,
           wa_mard-labst TO LT_FINAL-labst,
           wa_mard-retme TO LT_FINAL-retme,
           wa_mard-umlme TO LT_FINAL-umlme.
    READ TABLE LT_makt INTO wa_makt WITH KEY matnr = wa_mard-matnr.
    MOVE wa_makt-maktx TO LT_FINAL-maktx.
    READ TABLE LT_mska INTO wa_mska WITH KEY matnr = wa_mard-matnr.
    MOVE: wa_mska-kalab TO LT_FINAL-kalab,
          wa_mska-vbeln TO LT_FINAL-vbeln,
          wa_mska-posnr TO LT_FINAL-posnr.
    READ TABLE LT_vbap INTO wa_vbap WITH KEY matnr = wa_mard-matnr.
    MOVE: wa_vbap-kwmeng TO LT_FINAL-kwmeng.
    READ TABLE LT_mara INTO wa_mara WITH KEY matnr = wa_mard-matnr.
    MOVE : wa_mara-mfrpn TO LT_FINAL-mfrpn.
    READ TABLE LT_mbew INTO wa_mbew WITH KEY matnr = wa_mard-matnr.
Calculation of Unrestricted value
    LT_FINAL-usp = wa_mard-labst * wa_mbew-stprs.
    V_urestrict_total = V_urestrict_total + ( wa_mard-labst * wa_mbew-stprs ).
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       input         = V_urestrict_total
    IMPORTING
      OUTPUT        = V_urestrict_total
    MOVE wa_mbew-salk3 TO LT_FINAL-salk3.
    READ TABLE LT_ekpo INTO wa_ekpo WITH KEY matnr = wa_mard-matnr.
    MOVE wa_ekpo-meins TO LT_FINAL-uom.
Calculation of Sales Order Value
    LT_FINAL-sov = wa_mska-kalab * wa_ekpo-netpr.
    V_sov_total = V_sov_total + ( wa_mska-kalab * wa_ekpo-netpr ).
    APPEND LT_FINAL.
ENDLOOP.
ENDFORM.                    "collect
*Form Name:FINAL1
*Population of all the internal tables
FORM FINAL1.
SELECT matnr
         kalab
         vbeln
         posnr
         FROM mska
         INTO TABLE LT_mska
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
SELECT matnr
         kwmeng
         pstyv
         FROM vbap
         INTO TABLE LT_vbap
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
SELECT matnr
         salk3
         stprs
         FROM mbew
         INTO TABLE LT_mbew
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
SELECT matnr
         mfrpn
         FROM mara
         INTO TABLE LT_mara
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
SELECT matnr
         maktx
         FROM makt
         INTO TABLE LT_makt
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
SELECT matnr
         netpr
         FROM ekpo
         INTO TABLE LT_ekpo
         FOR ALL ENTRIES IN LT_mard
         WHERE matnr EQ LT_mard-matnr.
ENDFORM.                                                    "final1
Reward if helpful.
Chandralekha

For getting purchase order details what are the inputs and outputs

I need to display purchase order details in EP portal by using integration EP, XI and R/3.
I dont know what are the Inputs and what are the Outputs.
Reward points for helpers.
Cheers,
Preethika

Hi Preethika,
for displaying PO use BAPI : BAPI_PO_GETDETAIL
Its input is PO number
Its output are tables PO_HEADER_TEXTS - for PO header data
PO_ITEMS - for PO line items
Thanks,
Rajeev Gupta

Creditreport that displays Sales Orders with Material Availability Date as

Hi
I need input if the following requirement can be met in FSCM credit mgmnt.
Currently In FDK43 there is a total sales figure that represents the Sales that are consuming the Credit Limit assigned to the customer, unfortunately there is no drill down on this number to see which sales orders are responsible for the consumption of credit
Do we have any sales report that displays Sales Orders with Material Availability Date as an output in conjunction with Credit limit .

Not in standard provided. Custom program is required.
Regards
Hein

Open Distribution Order Details

Hi ,
I am an apps technical consultant.
I have work on Finance and project modules.
But i got a requirement ( report ) in Order Management which i dont have any idea about this module.
I have to Develop discoverer report :
Requirement :
Report showing open Distribution Order details for multiple departments namely Distribution, Quality and Shipping departments.
Distribution Orders that are in closed/shipped status should not appear in the report output.
As i dont have any tables idea in OM ,if any body sends query to achive it its greate for me.

Hi,
How do you want to see your Open Production Orders?
what parameters you want to consider?
is this all th Orders with PCNF and PDLV but TECO and DLV not inculded some thing like that??
Follow the procedure..
In BS42, You copy one existing Profile with some "Zxxx" and Copy all.
in the Selection Conditions define as below:
     PCNF
or   PDLV
      TECO    Not (Check box active)
and DLV       Not (Check box active)
and CLSD     Not (Check box active)
or you can have diffrent statuses as per your requirement.
Then it is done..
Use this Profile in COOIS in "Selection Profile Status".
Hope this helps..
Regards,
Siva
Hi Sankaran,
I have missed the Statuses CRTD and REL to be included in the profile.
Any way you can add these as well.
Revert for further discuusion..
Reg.
Siva
Edited by: Siva Kumar M on May 7, 2008 2:13 PM

How 2 creat report for displaying the details of a Delivery Document using

how to create report for displaying the details of a Delivery Document using the tables LIKP, LIPS
thank you
regards,
jagrut bharatkumar shukla
points will be rewarded

HI
I AM GIVING YOU MY DELIVERY DOCUMENT CODE...MODIFY IT ACCORDING TO YOUR REQUIREMENT
*& Report ZDELIVERY                                *
report zdelivery message-id z9bhu          .
types: begin of t_likp,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
*           LFDAT TYPE LIKP-LFDAT,      "Delevery Date
*           WAERK TYPE LIKP-WAERK,      "Currency
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
       end of t_likp.
types: begin of t_lips,
           vbeln type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,
*           MEINS TYPE LIPS-MEINS,      "Base Unit of Measure
           vgbel type lips-vgbel,      "Doc no of the reference document
        end of t_lips.
types: begin of t_vbpa,
           vbeln type vbpa-vbeln,      "SD DocumenT Number
           posnr type vbpa-posnr,      "Item number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,      "Customer Number 1
       end of t_vbpa.
types: begin of t_kna1,
           kunnr type kna1-kunnr,      "Customer Number 1
           name1 type kna1-name1,      "Name 1
           ort01 type kna1-ort01,      "City
           adrnr type kna1-adrnr,      "Address
       end of t_kna1.
types: begin of t_li_vbpa,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
*           LFDAT TYPE LIKP-LFDAT,      "Delevery Date
*           WAERK TYPE LIKP-WAERK,      "Currency
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
           vbeln1 type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,      "Net Price
*           MEINS TYPE LIPS-MEINS,      "Base Unit of Measure
           vgbel type lips-vgbel,      "Doc no of the reference document
           vbeln3 type vbpa-vbeln,     "SD DocumenT Number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,      "Customer Number 1
       end of t_li_vbpa.
types: begin of t_final,
           vbeln type likp-vbeln,      "Delivery
           erdat type likp-erdat,      "Date for rec creation
           kunnr type likp-kunnr,      "Ship-To Party
           kunag type likp-kunag,      "Sold-to party
           traty type likp-traty,      "Means-of-Transport
           vbeln1 type lips-vbeln,      "Delivery
           posnr type lips-posnr,      "Delivery item
           matnr type lips-matnr,      "Material Number
           arktx type lips-arktx,      "Short Text for Sales Order Item
           lfimg type lips-lfimg,      "Actual quantity delivered
           netpr type lips-netpr,      "Net Price
           vgbel type lips-vgbel,      "Doc no of the reference document
           vbeln3 type vbpa-vbeln,     "SD DocumenT Number
           parvw type vbpa-parvw,      "Partner function
           kunnrb type vbpa-kunnr,     "Customer Number 1
           name1 type kna1-name1,      "Name 1
           ort01 type kna1-ort01,      "City
           adrnr1 type kna1-adrnr,     "Address
           name2 type kna1-name1,      "Name 1
           ort02 type kna1-ort01,      "City
           adrnr2 type kna1-adrnr,     "Address
           name3 type kna1-name1,      "Name 1
           ort03 type kna1-ort01,      "City
           adrnr3 type kna1-adrnr,     "Address
       end of t_final.
*            D A T A D E C L A R A T I O N
*&*********Internal Table Declaration****************&*
data: it_likp type standard table of t_likp.
data: it_lips type standard table of t_lips.
data: it_vbpa type standard table of t_vbpa.
data: it_kna1 type standard table of t_kna1.
data: it_li_vbpa type standard table of t_li_vbpa.
data: it_li_vbpa_temp type standard table of t_li_vbpa.
data: it_final type standard table of t_final.
*&*********Work Area Declaration********************&*
data: wa_likp type t_likp.
data: wa_lips type t_lips.
data: wa_vbpa type t_vbpa.
data: wa_kna1 type t_kna1.
data: wa_li_vbpa type t_li_vbpa.
data: wa_li_vbpa_temp type t_li_vbpa.
data: wa_final type t_final.
*&*********Data Declaration************************&*
data: d_vbeln type likp-vbeln.
data: flag type i value 0.
*           S E L E C T I O N S C R E E N   D E C L A R A T I O N
selection-screen begin of block block2 with frame title text-001.
select-options: s_vbeln for d_vbeln obligatory.    "Delivery no
selection-screen end of block block2.
*            A T S E L E C T I O N - S C R E E N   E V E N T S
*AT SELECTION-SCREEN.
*PERFORM VALIDATE_DATA.
*            S T A R T   O F S E L E C T I O N     E V E N T S
start-of-selection.
perform fetch_data.
perform merge_data_kna1.
*INCLUDE Z9BT_SH_***4_FORMS.
call function 'OPEN_FORM'
exporting
*   APPLICATION                       = 'TX'
*   ARCHIVE_INDEX                     =
*   ARCHIVE_PARAMS                    =
    device                            = 'PRINTER'
*   DIALOG                            = 'X'
*   FORM                              = ' '
   language                          = sy-langu
*   OPTIONS                           =
*   MAIL_SENDER                       =
*   MAIL_RECIPIENT                    =
*   MAIL_APPL_OBJECT                  =
*   RAW_DATA_INTERFACE                = '*'
*   SPONUMIV                          =
* IMPORTING
*   LANGUAGE                          =
*   NEW_ARCHIVE_PARAMS                =
*   RESULT                            =
exceptions
   canceled                          = 1
   device                            = 2
   form                              = 3
   options                           = 4
   unclosed                          = 5
   mail_options                      = 6
   archive_error                     = 7
   invalid_fax_number                = 8
   more_params_needed_in_batch       = 9
   spool_error                       = 10
   codepage                          = 11
   others                            = 12
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
sort it_final by vbeln.
loop at it_final into wa_final.
call function 'START_FORM'
exporting
*   ARCHIVE_INDEX          =
   form                   = 'Z9BT_DELIVERY'
   language               = sy-langu
*   STARTPAGE              = ' '
*   PROGRAM                = ' '
*   MAIL_APPL_OBJECT       =
* IMPORTING
*   LANGUAGE               =
exceptions
   form                   = 1
   format                 = 2
   unended                = 3
   unopened               = 4
   unused                 = 5
   spool_error            = 6
   codepage               = 7
   others                 = 8
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'WRITE_FORM'
exporting
   element                        = 'ITEM_LIST'
   function                       = 'SET'
   type                           = 'BODY'
   window                         = 'MAIN'
* IMPORTING
*   PENDING_LINES                  =
* EXCEPTIONS
*   ELEMENT                        = 1
*   FUNCTION                       = 2
*   TYPE                           = 3
*   UNOPENED                       = 4
*   UNSTARTED                      = 5
*   WINDOW                         = 6
*   BAD_PAGEFORMAT_FOR_PRINT       = 7
*   SPOOL_ERROR                    = 8
*   CODEPAGE                       = 9
*   OTHERS                         = 10
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'END_FORM'
* IMPORTING
*   RESULT                         =
exceptions
   unopened                       = 1
   bad_pageformat_for_print       = 2
   spool_error                    = 3
   codepage                       = 4
   others                         = 5
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endloop.
call function 'CLOSE_FORM'
* IMPORTING
*   RESULT                         =
*   RDI_RESULT                     =
* TABLES
*   OTFDATA                        =
exceptions
   unopened                       = 1
   bad_pageformat_for_print       = 2
   send_error                     = 3
   spool_error                    = 4
   codepage                       = 5
   others                         = 6
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*&      Form VALIDATE_DATA
*       text
* --> p1        text
* <-- p2        text
form validate_data .
select single vbeln into wa_likp-vbeln
                    from likp where vbeln in s_vbeln.
append wa_likp to it_likp.
if sy-subrc <> 0.
flag = 1.
endif.
endform.                    " VALIDATE_DATA
*&      Form FETCH_DATA
*       text
* --> p1        text
* <-- p2        text
form fetch_data .
select a~vbeln
       a~erdat
       a~kunnr
       a~kunag
       a~traty
       b~vbeln
       b~posnr
       b~matnr
       b~arktx
       b~lfimg
       b~netpr
       b~vgbel
       c~vbeln
       c~parvw
       c~kunnr
         into table it_li_vbpa
                from likp as a
                left outer join lips as b on a~vbeln = b~vbeln
                inner join vbpa as c on b~vgbel = c~vbeln
                where a~vbeln in s_vbeln and
                c~parvw = 'RE'.
endform.                    " FETCH_DATA
*&      Form MERGE_DATA_KNA1
*       text
* --> p1        text
* <-- p2        text
form merge_data_kna1 .
if it_li_vbpa[] is not initial.
it_li_vbpa_temp[] = it_li_vbpa[].
sort it_li_vbpa_temp by kunnr.
delete adjacent duplicates from it_li_vbpa_temp comparing kunnr.
loop at it_li_vbpa into wa_li_vbpa.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunag.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunnrb.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
endloop.
endif.
if it_li_vbpa_temp[] is not initial.
select kunnr
        name1
        ort01
        adrnr into table it_kna1 from kna1
                    for all entries in it_li_vbpa_temp
                    where kunnr = it_li_vbpa_temp-kunnr.
endif.
loop at it_li_vbpa into wa_li_vbpa .
wa_final-vbeln = wa_li_vbpa-vbeln.
wa_final-erdat = wa_li_vbpa-erdat.
*it_final-LFART = it_li_vbpa-LFART.
wa_final-kunnr = wa_li_vbpa-kunnr.
wa_final-kunag = wa_li_vbpa-kunag.
*it_final-VSTEL = it_li_vbpa-VSTEL.
wa_final-traty = wa_li_vbpa-traty.
wa_final-vbeln1 = wa_li_vbpa-vbeln.
wa_final-posnr = wa_li_vbpa-posnr.
wa_final-matnr = wa_li_vbpa-matnr.
wa_final-arktx = wa_li_vbpa-arktx.
wa_final-lfimg = wa_li_vbpa-lfimg.
wa_final-netpr = wa_li_vbpa-netpr.
*wa_final-GEWEI = it_li_vbpa-GEWEI.
*it_final-VOLUM = it_li_vbpa-VOLUM.
*it_final-VOLEH = it_li_vbpa-VOLEH.
wa_final-vgbel = wa_li_vbpa-vgbel.
wa_final-vbeln3 = wa_li_vbpa-vbeln.
*wa_final-PARVW = wa_li_vbpa-PARVW.
wa_final-kunnrb = wa_li_vbpa-kunnrb.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnr.
if sy-subrc = 0.
wa_final-name1 = wa_kna1-name1.
wa_final-ort01 = wa_kna1-ort01.
wa_final-adrnr1 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunag.
if sy-subrc = 0.
wa_final-name2 = wa_kna1-name1.
wa_final-ort02 = wa_kna1-ort01.
wa_final-adrnr2 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnrb.
if sy-subrc = 0.
wa_final-name3 = wa_kna1-name1.
wa_final-ort03 = wa_kna1-ort01.
wa_final-adrnr3 = wa_kna1-adrnr.
endif.
append wa_final to it_final.
clear wa_final.
endloop.
endform.

Report to display proces order details

Similar Messages

Maybe you are looking for