Re: Function Module for Outbound process code

Former Member — Tue, 09 Feb 2010 06:45:01 GMT

hi...

please find the below code.

&----

*& Report ZPROGRAM11

&----

REPORT ZPROGRAM11.

tables : likp,vbuk,vbfa,ibin,vbap,vbak,kna1.

types : begin of iy_tab,

vbeln type vbfa-vbeln,

vbelv type vbfa-vbelv,

posnv type vbfa-posnv,

end of iy_tab.

types : begin of iy_tab1,

vbeln type vbuk-vbeln,

wbstk type vbuk-wbstk,

end of iy_tab1.

types : begin of iy_tab2,

vbeln type vbak-vbeln,

kunnr type vbak-kunnr,

vkorg type vbak-vkorg,

vtweg type vbak-vtweg,

spart type vbak-spart,

end of iy_tab2.

data : i_ibase type ib_ibase.

data : i_kunnr type vbak-kunnr.

data : it_tab type table of iy_tab with header line,

it_tab1 type standard table of iy_tab1 ,

wa_tab1 type iy_tab1,

it_tab2 type standard table of iy_tab2 ,

wa_tab2 type iy_tab2.

data : t_edidd type standard table of edidd .

data : t_edidc type edidc.

data : t_edidc1 type standard table of edidc .

data : wa type edidd.

data : wa1 type e1edl20.

data : wa2 type zibase.

data : wa3 type e1edl32.

data : wa4 type e1edl44.

data : wa5 type e1edl37.

data : wa6 type e1edl28.

data : wa7 type e1edl30.

data : wa8 type e1edl24.

data : wa9 type e1adrm1.

data : begin of it_tab3 occurs 10,

vbeln type iy_tab-vbelv,

posnr type iy_tab-posnv,

i_ibase type ib_ibase,

end of it_tab3.

types : begin of iy_tab4 ,

valfr type ibin-valfr,

ibase type ibin-ibase,

amount type ibin-amount,

unit type ibin-unit,

end of iy_tab4.

data : it_tab4 type standard table of iy_tab4,

wa_tab4 type iy_tab4.

data : begin of it_tab5 occurs 10,

vbeln type vbfa-vbelv,

posnr type vbfa-posnv,

ibase type ibib-ibase,

valfr type ibin-valfr,

amount type ibin-amount,

unit type ibin-unit,

matnr type vbap-matnr,

kunnr type vbak-kunnr,

vkorg type vbak-vkorg,

vtweg type vbak-vtweg,

spart type vbak-spart,

name1 type kna1-name1,

end of it_tab5.

types : begin of iy_tab6,

vbeln type vbap-vbeln,

posnr type vbap-posnr,

matnr type vbap-matnr,

end of iy_tab6.

data : it_tab6 type standard table of iy_tab6,

wa_tab6 type iy_tab6.

types : begin of iy_tab7,

kunnr type kna1-kunnr,

name1 type kna1-name1,

end of iy_tab7.

data: it_tab7 type standard table of iy_tab7,

wa_tab7 type iy_tab7.

data : wa_table type ytable1.

selection-screen: begin of block b1 with frame title text-t00.

parameters: p_vbeln type vbfa-vbeln.

selection-screen: end of block b1.

start-of-selection.

select vbeln vbelv posnv from vbfa into table it_tab

where vbeln = p_vbeln.

if sy-subrc eq 0.

loop at it_tab.

select vbeln wbstk from vbuk into table it_tab1

for all entries in it_tab

where vbeln = it_tab-vbeln.

endloop.

endif.

loop at it_tab1 into wa_tab1.

if wa_tab1-wbstk = 'C'.

loop at it_tab.

call function 'IBSD_CREATE_IBASE'

exporting

i_vbeln = it_tab-vbelv

i_posnr = it_tab-posnv

i_as_sold = '0'

i_as_build = '0'

i_capid = '0'

I_CHANGE = ' '

i_commit = 'X'

I_COMMIT_WAIT = ' '

importing

e_ibase = i_ibase

exceptions

order_not_found = 1

position_not_found = 2

nothing_to_do = 3

too_much_to_do = 4

missing_authorization = 5

foreign_lock = 6

others = 7

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

else.

move it_tab-vbelv to it_tab3-vbeln.

move it_tab-posnv to it_tab3-posnr.

move i_ibase to it_tab3-i_ibase.

append it_tab3.

if sy-subrc eq 0.

select valfr ibase amount unit from ibin into table it_tab4

for all entries in it_tab3

where ibase = it_tab3-i_ibase.

if sy-subrc eq 0.

select vbeln posnr matnr from vbap into table it_tab6

for all entries in it_tab3

where vbeln = it_tab3-vbeln and posnr = it_tab3-posnr .

if sy-subrc eq 0.

select vbeln kunnr vkorg vtweg spart from vbak into table it_tab2

for all entries in it_tab

where vbeln = it_tab-vbelv.

sort it_tab2 by vbeln.

delete adjacent duplicates from it_tab2 comparing all fields.

if sy-subrc <> 0.

select kunnr name1 from kna1 into table it_tab7

for all ENTRIES IN it_tab2

where kunnr = it_tab2-kunnr.

endif.

endloop.

else.

exit.

if sy-subrc eq 0.

endif.

endif.

endloop.

loop at it_tab3.

move it_tab3-vbeln to it_tab5-vbeln.

move it_tab3-posnr to it_tab5-posnr.

move it_tab3-i_ibase to it_tab5-ibase.

if sy-subrc eq 0.

read table it_tab4 into wa_tab4 with key ibase = it_tab3-i_ibase.

move wa_tab4-valfr to it_tab5-valfr.

move wa_tab4-amount to it_tab5-amount.

move wa_tab4-unit to it_tab5-unit.

if sy-subrc eq 0.

read table it_tab6 into wa_tab6 with key vbeln = it_tab3-vbeln posnr = it_tab3-posnr.

move wa_tab6-matnr to it_tab5-matnr.

if sy-subrc eq 0.

read table it_tab2 into wa_tab2 with key vbeln = it_tab3-vbeln.

move wa_tab2-kunnr to it_tab5-kunnr.

move wa_tab2-vkorg to it_tab5-vkorg.

move wa_tab2-vtweg to it_tab5-vtweg.

move wa_tab2-spart to it_tab5-spart.

if sy-subrc eq 0.

read table it_tab7 into wa_tab7 with key kunnr = wa_tab2-kunnr.

move wa_tab7-name1 to it_tab5-name1.

append it_tab5.

endif.

append it_tab5.

endloop.

loop at it_tab5.
move it_tab5-vbeln to wa_table-vbeln.
move it_tab5-kunnr to wa_table-kunnr.
move it_tab5-vbeln to wa_table-vbeln.
move it_tab5-ibase to wa_table-ibase.
move it_tab5-matnr to wa_table-matnr.
move it_tab5-valfr to wa_table-valfr.
move it_tab5-unit to wa_table-unit.
move it_tab5-amount to wa_table-amount.
move it_tab5-vkorg to wa_table-vkorg.
move it_tab5-vtweg to wa_table-vtweg.
move it_tab5-spart to wa_table-spart.
move it_tab5-name1 to wa_table-name1.
insert ytable1 from wa_table.
endloop.

*INSERT ytable1 FROM TABLE it_tab5.

loop at it_tab5.

wa1-vbeln = it_tab-vbeln.

wa1-vkorg = it_tab5-vkorg.

wa-segnam = 'E1EDL20'.

wa-sdata = wa1.

wa-hlevel = 2.

append wa to t_edidd.

loop at it_tab3.

wa2-i_ibase = it_tab5-ibase.

wa2-i_qty = it_tab5-amount.

wa2-i_dat = it_tab5-valfr.

wa-segnam = 'ZIBASE'.

wa-sdata = wa2.

wa-hlevel = 3.

append wa to t_edidd.

endloop.

wa9-name1 = it_tab5-name1.

wa-segnam = 'E1ADRM1'.

wa-sdata = wa9.

wa-hlevel = 3.

append wa to t_edidd.

wa-segnam = 'E1EDL28'.

wa-sdata = wa6.

wa-hlevel = 3.

append wa to t_edidd.

wa-segnam = 'E1EDL30'.

wa-sdata = wa7.

wa-hlevel = 4.

append wa to t_edidd.

wa3-kunnr = it_tab5-kunnr.

wa-segnam = 'E1EDL32'.

wa-sdata = wa3.

wa-hlevel = 5.

append wa to t_edidd.

wa8-meins = it_tab5-unit.

wa8-vtweg = it_tab5-vtweg.

wa8-spart = it_tab5-spart.

wa-segnam = 'E1EDL24'.

wa-sdata = wa8.

wa-hlevel = 3.

append wa to t_edidd.

wa-segnam = 'E1EDL37'.

wa-sdata = wa5.

wa-hlevel = 3.

append wa to t_edidd.

wa4-vbeln = it_tab5-vbeln.

wa4-posnr = it_tab5-posnr.

wa4-matnr = it_tab5-matnr.

wa-segnam = 'E1EDL44'.

wa-sdata = wa4.

wa-hlevel = 4.

append wa to t_edidd.

endloop.

t_edidc-mandt = sy-mandt.

t_edidc-direct = '1'.

t_edidc-rcvpor = 'A000000062'.

t_edidc-rcvprt = 'LS'.

t_edidc-rcvprn = 'O2C_ASSET'.

t_edidc-rcvpfc = 'LS'.

t_edidc-sndpor = 'SAPSIT'.

t_edidc-sndprt = 'LS'.

t_edidc-sndprn = 'T90CLNT090'.

t_edidc-sndpfc = 'LS'.

t_edidc-mestyp = 'DELVRY'.

t_edidc-idoctp = 'DELVRY03'.

*t_edidc-rcvpfc = 'LS'.

t_edidc-sndpfc = 'LS'.

t_edidc-cimtyp = 'ZDELVRY03'.

append t_edidc to t_edidc1.

call function 'MASTER_IDOC_DISTRIBUTE'

exporting

master_idoc_control = t_edidc

OBJ_TYPE = ''
CHNUM = ''

tables

communication_idoc_control = t_edidc1

master_idoc_data = t_edidd

exceptions

error_in_idoc_control = 1

error_writing_idoc_status = 2

error_in_idoc_data = 3

sending_logical_system_unknown = 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.

else.

CALL FUNCTION 'DB_COMMIT'

CALL FUNCTION 'DEQUEUE_ALL'

EXPORTING
_SYNCHRON = ' '

COMMIT WORK.

endif.

endloop.

topic Re: Function Module for Outbound process code in Application Development and Automation Discussions

Function Module for Outbound process code

Re: Function Module for Outbound process code

Re: Function Module for Outbound process code

Re: Function Module for Outbound process code