Skip to Content
0
Former Member
Jan 04, 2008 at 07:41 AM

bapi program

41 Views

hi,

i am sending a bapi program .

this bapi program is not executed only selection screen appears. but when i click on execute button then no data

shows what id plz suggest.

&----


*& Report ZBAPI_1 *

*& *

&----


*& *

*& *

&----


REPORT ZBAPI_1 .

*tables: ekko.

DATA: BEGIN OF I_POITEM OCCURS 0.

INCLUDE STRUCTURE BAPIEKPO.

DATA: END OF I_POITEM.

*data: begin of it_ekko occurs 0,

  • ebeln like ekko-ebeln,

  • end of it_ekko.

*

PARAMETERS P_EBELN LIKE EKKO-EBELN default '4500012164' ..

CALL FUNCTION 'BAPI_PO_GETDETAIL'

EXPORTING

PURCHASEORDER = P_EBELN

  • ITEMS = 'X'

  • ACCOUNT_ASSIGNMENT = ' '

  • SCHEDULES = ' '

  • HISTORY = ' '

  • ITEM_TEXTS = ' '

  • HEADER_TEXTS = ' '

  • SERVICES = ' '

  • CONFIRMATIONS = ' '

  • SERVICE_TEXTS = ' '

  • EXTENSIONS = ' '

*IMPORTING

  • PO_HEADER =

  • PO_ADDRESS =

TABLES

  • PO_HEADER_TEXTS =

PO_ITEMS = I_POITEM.

  • PO_ITEM_ACCOUNT_ASSIGNMENT =

  • PO_ITEM_SCHEDULES =

  • PO_ITEM_CONFIRMATIONS =

  • PO_ITEM_TEXTS =

  • PO_ITEM_HISTORY =

  • PO_ITEM_HISTORY_TOTALS =

  • PO_ITEM_LIMITS =

  • PO_ITEM_CONTRACT_LIMITS =

  • PO_ITEM_SERVICES =

  • PO_ITEM_SRV_ACCASS_VALUES =

  • RETURN =

  • PO_SERVICES_TEXTS =

  • EXTENSIONOUT =

.

*select po_number po_item pur_mat changed_on

  • short_text co_code

  • plant mat_grp ner_price from bapiekpo

  • into table i_poitem

  • where ebeln in p_ebeln.

*select ebeln from ekko

  • into table it_ekko

  • where ebeln = p_ebeln.

*

LOOP AT I_POITEM.

  • write: / 'ebeln = ' , it_ekko-ebeln.

WRITE: / 'PO NUMBER = ' , I_POITEM-PO_NUMBER COLOR COL_HEADING,

/ 'ITEM =' , I_POITEM-PO_ITEM,

/ 'MATERIAL = ' , I_POITEM-PUR_MAT,

/ 'CHANGED ON = ', I_POITEM-CHANGED_ON,

/ 'SHORT TEXT = ' , I_POITEM-SHORT_TEXT,

/ 'COMPANY CODE = ' , I_POITEM-CO_CODE,

/ 'PLANT = ' , I_POITEM-PLANT,

/ 'MATERIAL GROUP = ' , I_POITEM-MAT_GRP,

/ 'QUANTITY = ' , I_POITEM-QUANTITY LEFT-JUSTIFIED,

/ 'UNIT = ' , I_POITEM-UNIT,

/ 'NET PRICE = ' , I_POITEM-NET_PRICE LEFT-JUSTIFIED.

ULINE.

ENDLOOP.