topic Re: CALLING BAPI in ABAP program in Application Development and Automation Discussions

CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:13:50 GMT

Hi,

I want to call BAPI_MATERIAL_AVAILABILITY in ABAP program. Please give me some sample code how i can do this??? Please help

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:16:34 GMT

DATA: LV_TABIX  LIKE SY-TABIX,
        LT_WMDVSX LIKE BAPIWMDVS OCCURS 0 WITH HEADER LINE,
        LT_WMDVEX LIKE BAPIWMDVE OCCURS 0 WITH HEADER LINE.

  LV_TABIX = SY-TABIX.

  CLEAR: LT_WMDVSX, LT_WMDVEX.
  REFRESH: LT_WMDVSX, LT_WMDVEX.

* Fill communication table
  LT_WMDVSX-REQ_DATE = ET_PROCUREMENT_ITEM-DELIV_DATE.
  LT_WMDVSX-REQ_QTY  = ET_PROCUREMENT_ITEM-QUANTITY.
  APPEND LT_WMDVSX.

* Availability check with check rule '03'
  CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
       EXPORTING
            PLANT      = ET_PROCUREMENT_ITEM-PLANT
            MATERIAL   = ET_PROCUREMENT_ITEM-MATERIAL
            UNIT       = ET_PROCUREMENT_ITEM-UNIT
            CHECK_RULE = '03'
       TABLES
            WMDVSX     = LT_WMDVSX
            WMDVEX     = LT_WMDVEX
       EXCEPTIONS
            OTHERS     = 1.

  IF SY-SUBRC EQ 0.
    READ TABLE LT_WMDVEX WITH KEY
                         COM_DATE = ET_PROCUREMENT_ITEM-DELIV_DATE.
    IF SY-SUBRC EQ 0.
      ET_PROCUREMENT_ITEM-AVAIL_QTY = LT_WMDVEX-COM_QTY.
    ENDIF.
  ENDIF.

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:17:21 GMT

Have you done a "where used"? This may help.

Rob

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:18:06 GMT

Decalre

<b>ET_PROCUREMENT_ITEM LIKE BBPPOGN.</b>

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:25:51 GMT

Hi,

Thanks for your help. I want to check whether this BAPI will return ATP quantity. What are all input values i should pass to this BAPI. Please give me Sample code to call & display this BAPI results in ABAP program....

Help me...

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:31:39 GMT

Hi this will return ATP quantity, you can find this in table WMDVEX.

regards

vijay

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:36:52 GMT

check the rules avialble in T441r.
WMDVEX-COM_QTY will hold ATP quantity.

* Fill communication table
  LT_WMDVSX-REQ_DATE = ET_PROCUREMENT_ITEM-DELIV_DATE.
  LT_WMDVSX-REQ_QTY  = ET_PROCUREMENT_ITEM-QUANTITY.
  APPEND LT_WMDVSX.
pass Plant,Material,Unit , Checking Rule, in tables pass
LT_WMDVSX, you will get the Data to lt_WMDVEX.
it will have ATp qauntity.

regards

vijay

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:37:12 GMT

Hi,

Great help. Just one more help, How i can write Structure wmdvex values using Write statement.

I tried this Loop at Wmdvex

write : / t_wmdvex.

endloop.

But it's saying me that cann't convert to text field.

Please help me..........

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:39:56 GMT

Loop at Wmdvex
write : / t_wmdvex-COM_QTY,
          t_wmdvex-BDCNT,
           t_wmdvex-REQ_QTY.

*like this try 

endloop

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:41:33 GMT

loop at t_wmdvex.

write:/ t_wmdvex-BDCNT,

t_wmdvex-REQ_DATE,

t_wmdvex-REQ_QTY,

t_wmdvex-COM_DATE,

t_wmdvex-COM_QTY.

endloop.

please reward if it solves your problem.

Message was edited by: Vijay Babu Dudla

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:49:43 GMT

Hi,

I want to pass Hardcoded Value Like My own values to this BAPI. How i can do that? Ex. Plant

'ALB1' Material "100000223" Unit "EA" like this. Is that possible????

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 20:51:43 GMT

CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'
       EXPORTING
            PLANT      = 'ALB1'
            MATERIAL   = '100000223'
            UNIT       = 'EA'
            CHECK_RULE = '03'
       TABLES
            WMDVSX     = LT_WMDVSX
            WMDVEX     = LT_WMDVEX
       EXCEPTIONS
            OTHERS     = 1.
 
  IF SY-SUBRC EQ 0.

Message was edited by: Vijay Babu Dudla

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:01:21 GMT

Please Reward If your Problem solves.

reagards

vijay

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:04:16 GMT

hi,

REPORT YATP.

DATA: LV_TABIX LIKE SY-TABIX,

LT_WMDVSX LIKE BAPIWMDVS OCCURS 0 WITH HEADER LINE,

LT_WMDVEX LIKE BAPIWMDVE OCCURS 0 WITH HEADER LINE.

data ET_PROCUREMENT_ITEM LIKE BBPPOGN.

LV_TABIX = SY-TABIX.

CLEAR: LT_WMDVSX, LT_WMDVEX.

REFRESH: LT_WMDVSX, LT_WMDVEX.

Fill communication table

LT_WMDVSX-REQ_DATE = ET_PROCUREMENT_ITEM-DELIV_DATE.

LT_WMDVSX-REQ_QTY = ET_PROCUREMENT_ITEM-QUANTITY.

APPEND LT_WMDVSX.

Availability check with check rule '03'

CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'

EXPORTING

PLANT = 'ALB1'

MATERIAL = '100000223'

UNIT = 'EA'

CHECK_RULE = '03'

TABLES

WMDVSX = LT_WMDVSX

WMDVEX = LT_WMDVEX

EXCEPTIONS

OTHERS = 1.

IF SY-SUBRC EQ 0.

READ TABLE LT_WMDVEX WITH KEY

COM_DATE = ET_PROCUREMENT_ITEM-DELIV_DATE.

IF SY-SUBRC EQ 0.

ET_PROCUREMENT_ITEM-AVAIL_QTY = LT_WMDVEX-COM_QTY.

ENDIF.

write 😕 et_procurement_item-avail_qty.

Loop at lt_wmdvex.

write : / lt_wmdvex-COM_QTY,

lt_wmdvex-BDCNT,

lt_wmdvex-REQ_QTY.

endloop.

This is my program but no value written for WMDVEX.

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:08:12 GMT

please help mee ........

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:10:31 GMT

Check the materials you have inputted correctly or not

vlaues to mantnr,plant.

Re: CALLING BAPI in ABAP program

RichHeilman — Wed, 30 Nov 2005 21:16:53 GMT

Remember material number is stored internally with leading zeros, so if you really want to access the data using a hardcoded value then you must do it like this...

call function 'BAPI_MATERIAL_AVAILABILITY'
     exporting
          plant      = 'ALB1'
          material   = '000000000100000223'
          unit       = 'EA'
          check_rule = '03'
     tables
          wmdvsx     = lt_wmdvsx
          wmdvex     = lt_wmdvex
     exceptions
          others     = 1.

Regards,

Rich heilman

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:17:09 GMT

hi First what you do

Go to MARC table take one matnr,plant

with this matnr go to mara then select take meins from that and for now don't pass rule, and pass only those.

i suggested you before it self , rules are maintained in one table check and based on that you pass , but now you can check with out any rule.

regards

vijay

Re: CALLING BAPI in ABAP program

RichHeilman — Wed, 30 Nov 2005 21:19:56 GMT

Notice here that in my sample program the conversion is done for you when using parameters.




report zrich_0001.

data: lv_tabix like sy-tabix,
lt_wmdvsx like bapiwmdvs occurs 0 with header line,
lt_wmdvex like bapiwmdve occurs 0 with header line.
data et_procurement_item like bbppogn.
lv_tabix = sy-tabix.

<b>parameters: p_werks type marc-werks.
parameters: p_matnr type mara-matnr.</b>

clear: lt_wmdvsx, lt_wmdvex.
refresh: lt_wmdvsx, lt_wmdvex.

* Fill communication table
lt_wmdvsx-req_date = et_procurement_item-deliv_date.
lt_wmdvsx-req_qty = et_procurement_item-quantity.
append lt_wmdvsx.

* Availability check with check rule '03'
call function 'BAPI_MATERIAL_AVAILABILITY'
     exporting
<b>          plant      = P_werks
          material   = p_matnr</b>
          unit       = 'EA'
          check_rule = '03'
     tables
          wmdvsx     = lt_wmdvsx
          wmdvex     = lt_wmdvex
     exceptions
          others     = 1.

if sy-subrc eq 0.
  read table lt_wmdvex with key
  com_date = et_procurement_item-deliv_date.
  if sy-subrc eq 0.
    et_procurement_item-avail_qty = lt_wmdvex-com_qty.
  endif.
endif.

write :/ et_procurement_item-avail_qty.

loop at lt_wmdvex.
  write : / lt_wmdvex-com_qty,
  lt_wmdvex-bdcnt,
  lt_wmdvex-req_qty.

endloop.

Regards,

Rich Heilman

Re: CALLING BAPI in ABAP program

Former Member — Wed, 30 Nov 2005 21:20:36 GMT

Hi I think Now you got the solution,

if you got the solution try to reward points .

Go to tables and get the values....pass them to FM

thanks

vijay