topic BADI AC_DOCUMENT in Application Development and Automation Discussions

BADI AC_DOCUMENT

Former Member — Mon, 06 Apr 2009 15:02:54 GMT

Hi guys: Please help me....

i am trying to substitute the internal order on a line item if a vendor master has the internal order stored in a special field. the BADI doesnt seem to substitue it...here is my code

method IF_EX_AC_DOCUMENT~CHANGE_AFTER_CHECK.

break bdaniells.

DATA: ex_item type ACCIT,

wa_ex_item type ACCIT_SUB,

w_KONZS type lfa1-KONZS,

w_lifnr type lfa1-lifnr.

LOOP AT im_document-item INTO ex_item.

if ex_item-koart eq 'K'.

move ex_item-lifnr to w_lifnr.

endif.

if ex_item-koart eq 'S'.

select single KONZS into w_KONZS from lfa1

WHERE lifnr eq w_lifnr.

wa_ex_item-aufnr = w_KONZS.

APPEND wa_ex_item to ex_document-item.

endif.

endloop.

endmethod.

Re: BADI AC_DOCUMENT

former_member194669 — Mon, 06 Apr 2009 15:12:16 GMT

Try this way


method IF_EX_AC_DOCUMENT~CHANGE_AFTER_CHECK.

break bdaniells.

DATA: ex_item type ACCIT,
wa_ex_item type ACCIT_SUB,
w_KONZS type lfa1-KONZS,
w_lifnr type lfa1-lifnr.

LOOP AT im_document-item INTO ex_item.

if ex_item-koart eq 'K'.
move ex_item-lifnr to w_lifnr.
endif.

if ex_item-koart eq 'S'.
select single KONZS into w_KONZS from lfa1
WHERE lifnr eq w_lifnr.

wa_ex_item-aufnr = w_KONZS.
"APPEND wa_ex_item to ex_document-item.  <<< Comment this line >>>
modify ex_document from wa_ex_item.   " <<< Use modify instead of Append >>>
endif.
endloop.

endmethod.

a®

Re: BADI AC_DOCUMENT

former_member156446 — Mon, 06 Apr 2009 15:15:23 GMT

   DATA: ex_item type ACCIT,
         wa_ex_item type ACCIT_SUB,
         w_KONZS type lfa1-KONZS,
         w_lifnr type lfa1-lifnr.
 
   LOOP AT im_document-item INTO ex_item.
 
     if ex_item-koart eq 'K'.
         move ex_item-lifnr to w_lifnr.
     endif.
 
     if ex_item-koart eq 'S'.               " this its S here by that time w_lifnr doesnt have a value as above move cannot be done..
       select single KONZS into w_KONZS from lfa1
                           WHERE lifnr eq w_lifnr.
   if sy-subrc eq 0.  "change..
       wa_ex_item-aufnr = w_KONZS.
       APPEND wa_ex_item to ex_document-item. " try modify too..

     endif.
endif. "change.
   endloop. 
 endmethod.

Re: BADI AC_DOCUMENT

Former Member — Mon, 06 Apr 2009 15:27:28 GMT

Modify causes the program to short dump.....

Re: BADI AC_DOCUMENT

Former Member — Mon, 06 Apr 2009 15:28:13 GMT

w_lifnr has the required value....i think thats okay.

Re: BADI AC_DOCUMENT

Former Member — Fri, 17 Jul 2009 23:24:46 GMT

answered