solve please

Former Member — Fri, 13 Apr 2007 05:35:39 GMT

Previously this logic was there as per some requirement i have to

add new logic in that loop only.

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

LOOP AT it_behdr.

SELECT SINGLE adrnr

INTO addr FROM lfa1

WHERE sortl = it_behdr-zzchanumber.

SELECT SINGLE name1 name2 name3 street house_num1 str_suppl1

str_suppl2 city1 post_code1

INTO (w_cname1, w_cname2, w_cname3, w_cstreet,w_chouse_num1,

w_cstr_suppl1, w_cstr_suppl2, w_ccity1, w_cpost_code1)

FROM adrc

WHERE addrnumber = addr.

SELECT SINGLE *

FROM /ivl/zmb_beref

*Begin of modification for change $02

WHERE refdocno = it_behdr-bondno.

WHERE boerefno = it_behdr-pdocno AND

boeyr = it_behdr-pdocyear.

*End of modification for change $02

IF sy-subrc = 0.

it_behdr-linno = /ivl/zmb_beref-linno.

it_behdr-ablno = /ivl/zmb_beref-ablno.

it_behdr-abldat = /ivl/zmb_beref-abldat.

ENDIF.

SELECT SINGLE *

FROM t005t

WHERE land1 = /ivl/zmb_behdr-orgcntry

AND spras = 'E'.

IF sy-subrc = 0.

it_behdr-orgicnty = t005t-landx.

ENDIF.

SELECT SINGLE *

FROM /ivl/zcm_codmas

WHERE codtyp = 'PCOD'

AND code = it_behdr-arivport.

IF sy-subrc = 0.

it_behdr-portcode = /ivl/zcm_codmas-coddesc.

ENDIF.

SELECT SINGLE *

FROM /ivl/zcm_codmas

WHERE code = it_behdr-concntry.

IF sy-subrc = 0.

it_behdr-coddesc = /ivl/zcm_codmas-coddesc.

ENDIF.

SELECT SINGLE *

FROM /ivl/zcm_codmas

WHERE codtyp = 'PORT'

AND code = it_behdr-loadport.

IF sy-subrc = 0.

it_behdr-portdesc = /ivl/zcm_codmas-coddesc.

ENDIF.

SELECT SINGLE *

FROM t005t

WHERE land1 = it_behdr-concntry.

IF sy-subrc = 0.

it_behdr-coname = t005t-landx.

ENDIF.

SELECT *

FROM kna1

WHERE kunnr = it_behdr-zzkunnr.

IF sy-subrc = 0.

it_behdr-name1 = kna1-name1.

it_behdr-name2 = kna1-name2.

it_behdr-ort01 = kna1-ort01.

it_behdr-pstl2 = kna1-pstl2.

it_behdr-telfx = kna1-telfx.

ENDIF.

ENDSELECT.

SELECT *

FROM zvincust

WHERE kunnr = it_behdr-zzkunnr.

IF sy-subrc = 0.

it_behdr-notinum1 = zvincust-notinum1.

it_behdr-dsirregno = zvincust-dsirregno.

it_behdr-iecode1 = zvincust-iecode.

ENDIF.

ENDSELECT.

SELECT SINGLE *

FROM /ivl/zmb_tarnt

WHERE tarntno = it_behdr-notinum1.

IF sy-subrc = 0.

it_behdr-notinum1 = /ivl/zmb_tarnt-tarntno.

it_behdr-descs1 = /ivl/zmb_tarnt-descs.

ENDIF.

SELECT iecode

INTO it_behdr-iecode

FROM zvincust

WHERE kunnr = 'IN02'.

ENDSELECT.

MODIFY it_behdr TRANSPORTING name1 name2 ort01 pstl2 telfx

linno ablno abldat coname portdesc portcode

coddesc notinum1 dsirregno iecode1 conscnty iecode descs1.

ENDLOOP.

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

Now as per my requirement i have to add this logic . I dont know how it will work .

Please let me know to already defined logic can i add this logic in the same manner.

If any changes needed pleaes let me know.

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

data:l_vbeln type vbeln_va.

SELECT SINGLE vbeln INTO l_vbeln

FROM LTAP

WHERE tanum = tonumber

AND lgnum = w_lgnum.

LOOP AT it_behdr.

SELECT SINGLE kunnr

INTO it_behdr-kunnr

FROM VBPA

WHERE vbeln = l_vbeln.

AND PARVW = 'AG'.

ENDLOOP.

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

Thanks

Re: solve please

Former Member — Fri, 13 Apr 2007 05:39:32 GMT

Hi..

u can use the same ...

U Have to Reward points if useful......

<b>close all the previous threads......</b>

Suresh.......

topic solve please in Application Development and Automation Discussions

solve please

Re: solve please