Skip to Content
author's profile photo Former Member
Former Member

pending purchase orders fields required

Hi all,

For purchase orders, I need the below mentioned fields.

purchasing organization,

purchasing group,

purchasing document number,

purchasing document date and

item delivery date.

Can any one give me the Table Field Names related to this fields.?

If anyone already did work on it then please send me the code for the report as well.

Thanks in advance.

Raj

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

2 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jul 12, 2007 at 04:20 AM

    purchasing organization, - EKKO-EKORG

    purchasing group,EKKO_EKGRP

    purchasing document number, EKKO-EBELN

    purchasing document date and EKKO-BEDAT

    item delivery date. EKET-EINDT

    Check the below program :

    REPORT ZMM_OPEN_PO_REPORT no standard page heading

    line-size 255

    message-id zwave.

    ======================================================================

    • *

    • Program Name : ZMM_OPEN_PO_REPORT *

    • *

    • Description : This report displays all Open PO Items and output *

    • would be PO Number,Material number and so on *

    • *

    • Author : Seshu *

    • Date : 01/24/2007 *

    • *

    ----


    • MODIFICATION HISTORY *

    ----


    • DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *

    --


    |
    |

    |
    --


    • 01/24/07| Seshu | DEVK921979 | Initial *

    ************************************************************************

    ************************************************************************

      • D A T A D E C L A R A T I O N P A R T ***

      ************************************************************************

      • type-pools

      type-pools : slis.

      • Tables

      tables : ekko, " Purchase order Header

      ekpo, " Purchase order Item

      marc. " Material with Plant data

      • Internal table for output.

      data : begin of i_output occurs 0,

      ebeln like ekko-ebeln,

      matnr like ekpo-matnr,

      end of i_output.

      • ALV Data declaration.

      data : v_repid like sy-repid.

      • ALV Function Module Variables

      DATA: gs_layout type slis_layout_alv,

      g_exit_caused_by_caller,

      gs_exit_caused_by_user type slis_exit_by_user.

      DATA: gt_fieldcat type slis_t_fieldcat_alv,

      gs_print type slis_print_alv,

      gt_events type slis_t_event,

      gt_list_top_of_page type slis_t_listheader,

      g_status_set type slis_formname value 'PF_STATUS_SET',

      g_user_command type slis_formname value 'USER_COMMAND',

      g_top_of_page type slis_formname value 'TOP_OF_PAGE',

      g_top_of_list type slis_formname value 'TOP_OF_LIST',

      g_end_of_list type slis_formname value 'END_OF_LIST',

      g_variant LIKE disvariant,

      g_save(1) TYPE c,

      g_tabname_header TYPE slis_tabname,

      g_tabname_item TYPE slis_tabname,

      g_exit(1) TYPE c,

      gx_variant LIKE disvariant.

      data : gr_layout_bck type slis_layout_alv.

      • Ranges

      ranges r_eindt for eket-eindt.

      initialization.

      v_repid = sy-repid.

      start-of-selection.

      • Get the data from EKKO ,EKPO and MARC Table

      perform get_data_tables.

      end-of-selection.

      • display the data in the form of ALV

      perform display_data.

      &----


      *& Form get_data_tables

      &----


      • Get the data from EKKO,EKPO and MARC Table

      ----


      FORM get_data_tables.

      clear : i_output.

      refresh : i_output.

      • fill the dates in ranges

      r_eindt-low = sy-datum - 7.

      r_eindt-high = sy-datum + 14.

      r_eindt-option = 'BT'.

      r_eindt-sign = 'I'.

      append r_eindt.

      • Get the data from EKKO,EKPO and EKET Tables

      select aebeln bmatnr into table i_output

      from ekko as a inner join

      ekpo as b on aebeln = bebeln

      inner join marc as c on cmatnr = bmatnr

      inner join mara as d on dmatnr = bmatnr

      inner join eket as e on eebeln = aebeln

      and eebelp = bebelp

      where c~beskz = 'E'

      and c~werks = '1000'

      and d~mtart = 'FERT'

      and b~loekz = space

      and b~elikz = space

      and e~eindt in r_eindt.

      if sy-subrc ne 0.

      message e000(zwave) with 'No open purchase order found'.

      endif.

      ENDFORM. " get_data_tables

      &----


      *& Form display_data

      &----


      • text

      ----


      FORM display_data.

      • Fill the Fiedlcat

      PERFORM fieldcat_init using gt_fieldcat[].

      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

      EXPORTING

      • I_INTERFACE_CHECK = ' '

      • I_BYPASSING_BUFFER =

      • I_BUFFER_ACTIVE = ' '

      I_CALLBACK_PROGRAM = v_repid

      • I_CALLBACK_PF_STATUS_SET = ' '

      • I_CALLBACK_USER_COMMAND = g_user_command

      • I_CALLBACK_TOP_OF_PAGE = ' '

      • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

      • I_CALLBACK_HTML_END_OF_LIST = ' '

      • I_STRUCTURE_NAME =

      • I_BACKGROUND_ID = ' '

      • I_GRID_TITLE =

      • I_GRID_SETTINGS =

      • IS_LAYOUT = gr_layout_bck

      IT_FIELDCAT = gt_fieldcat[]

      • IT_EXCLUDING =

      • IT_SPECIAL_GROUPS =

      • IT_SORT =

      • IT_FILTER =

      • IS_SEL_HIDE =

      • I_DEFAULT = 'X'

      • I_SAVE = g_save

      • IS_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

      • IT_ALV_GRAPHICS =

      • IT_ADD_FIELDCAT =

      • IT_HYPERLINK =

      • I_HTML_HEIGHT_TOP =

      • I_HTML_HEIGHT_END =

      • IT_EXCEPT_QINFO =

      • IMPORTING

      • E_EXIT_CAUSED_BY_CALLER =

      • ES_EXIT_CAUSED_BY_USER =

      TABLES

      T_OUTTAB = i_output

      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.

      ENDFORM. " display_data

      &----


      *& Form fieldcat_init

      &----


      • text

      ----


      • -->P_GT_FIELDCAT[] text

      ----


      FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.

      DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

      • Purchase order number

      CLEAR LS_FIELDCAT.

      LS_FIELDCAT-FIELDNAME = 'EBELN'.

      LS_FIELDCAT-ref_fieldname = 'EBELN'.

      LS_FIELDCAT-ref_tabname = 'EKKO'.

      LS_FIELDCAT-TABNAME = 'I_OUTPUT'.

      ls_fieldcat-seltext_L = 'Purchase Order'.

      ls_fieldcat-seltext_M = 'Purchase Order'.

      ls_fieldcat-seltext_S = 'Purchase Order'.

      APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.

      • Material #

      CLEAR LS_FIELDCAT.

      LS_FIELDCAT-FIELDNAME = 'MATNR'.

      LS_FIELDCAT-ref_fieldname = 'MATNR'.

      LS_FIELDCAT-ref_tabname = 'EKPO'.

      LS_FIELDCAT-TABNAME = 'I_OUTPUT'.

      ls_fieldcat-seltext_L = 'Material'.

      ls_fieldcat-seltext_M = 'Material'.

      ls_fieldcat-seltext_S = 'Material'.

      APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.

      ENDFORM. " fieldcat_init

      Thanks

      Seshu

      Add a comment
      10|10000 characters needed characters exceeded

    • author's profile photo Former Member
      Former Member
      Posted on Jul 12, 2007 at 04:17 AM

      hi..

      purchasing document number-<b>EKKO-EBELN</b>

      purchasing organization-<b>EKKO-EKORG</b>

      purchasing group-<b>EKKO-EKGRP</b>

      item delivery date-<b>RM06E-EEIND</b>

      <b>Reward points if useful</b>

      Regards

      Ashu

      Add a comment
      10|10000 characters needed characters exceeded

    Before answering

    You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
    You must be Logged in to submit an answer.

    Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.