table link

[Former Member]

how to link the table

vbak table to adr6 table,

In table adr6 field name smtp_addr.

i need link between smtp_addr field and vbak table field

pls explain,,

step by step......

using select statement..

[Former Member]

Hi,

take a field KUNNR from VBAK correspoding to document number then select data form ADRC tabel on the basis of KUNNR and get the Personnal number from this. last go to ADR6 select the data on the basis of personnal number.

Regards

Mukesh

[Former Member]

i run this program its comes a error msg..

memory low,leave the transcation...

this is the error msg,,

then pls correct the error ,

in this program how to calculate the amount band pls explain,,

output format...

1)amount band,

2)customer

3)name

4)address

5)postalcode

6)email

7)telephone number

8)ssid.

pls correct it this output format.....

TABLES : vbak, vbap, vbkd, konv, kna1,adr6.

DATA :BEGIN OF i_vbak OCCURS 0,

vbeln LIKE vbak-vbeln,

ernam LIKE vbak-ernam, "Name Of Person who Created the object

telf1 LIKE vbak-telf1, "Telephone Number

kunnr LIKE vbak-kunnr, "Customer

knumv LIKE vbak-knumv,

ps_psp_pnr LIKE vbak-ps_psp_pnr, "Work Breakdown Structure Element

END OF i_vbak.

DATA :BEGIN OF i_vbap OCCURS 0,

vbeln LIKE vbak-vbeln,

netwr LIKE vbap-netwr, " Net value of the order item in document currency

ernam LIKE vbap-ernam,

ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Element

knumh LIKE vbap-knumh,

END OF i_vbap.

DATA :BEGIN OF i_vbkd OCCURS 0,

vbeln LIKE vbkd-vbeln,

kdgrp LIKE vbkd-kdgrp, "Customer Group

bzirk LIKE vbkd-bzirk, "Sales District

gjahr LIKE vbkd-gjahr, "Fiscal year

END OF i_vbkd.

DATA :BEGIN OF i_konv OCCURS 0,

knumv LIKE konv-knumv,

kwert LIKE konv-kwert,

knumh LIKE konv-knumh,

END OF i_konv.

DATA :BEGIN OF i_kna1 OCCURS 0,

kunnr LIKE kna1-kunnr, "Customer

name1 LIKE kna1-name1, "Name

adrnr LIKE kna1-adrnr, "Address

pstlz LIKE kna1-pstlz, "Postal Code

telf1 LIKE kna1-telf1, "Telephone number

END OF i_kna1.

DATA : BEGIN OF i_adr6 OCCURS 0,

smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.

END OF i_adr6.

DATA :BEGIN OF i_data OCCURS 0,

kunnr LIKE vbak-kunnr, "Customer

ernam LIKE vbak-ernam, "Contact person

telf1 LIKE vbak-telf1, "Telephone Number

ps_psp_pnr LIKE vbap-ps_psp_pnr, "Work Breakdown Structure Elemen

netwr LIKE vbap-netwr,

kdgrp LIKE vbkd-kdgrp, "Customer Group

bzirk LIKE vbkd-bzirk, "Sales District

gjahr LIKE vbkd-gjahr, "Fiscal year

kwert LIKE konv-kwert,

name1 LIKE kna1-name1, "Name

adrnr LIKE kna1-adrnr, "Address

pstlz LIKE kna1-pstlz, "Postal Code

smtp_addr LIKE adr6-smtp_addr, "Customer Email ID.

END OF i_data.

• ********* ********* ********* ********* ********* ********* ******

• Selection - Screen

• ********* ********* ********* ********* ********* ********* ******

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETER : session RadioButton Group A.

SELECT-OPTIONS : s_kwrt1 FOR konv-kwert. " Condition value

SELECT-OPTIONS : s_kwrt2 FOR konv-kwert. " type n.

SELECT-OPTIONS : s_kwrt3 FOR konv-kwert.

SELECT-OPTIONS : s_kwrt4 FOR konv-kwert.

SELECT-OPTIONS : s_kwrt5 FOR konv-kwert.

SELECT-OPTIONS : s_kdgrp FOR vbkd-kdgrp. "Customer Group

SELECT-OPTIONS : s_kunnr FOR vbak-kunnr. "Customer

SELECT-OPTIONS : s_pspnr FOR vbak-ps_psp_pnr. "Project ID

SELECT-OPTIONS : s_bzirk FOR vbkd-bzirk. "Occasion ID

skip 1.

PARAMETER : sessio RadioButton Group A.

skip 1.

SELECT-OPTIONS : s_pspnr1 FOR vbap-ps_psp_pnr. "Project ID

SELECT-OPTIONS : s_bzirk2 FOR vbkd-bzirk. "Occasion ID

PARAMETER : s_gjahr1 type vbkd-gjahr.

PARAMETER : s_gjahr2 type vbkd-gjahr.

SELECT-OPTIONS : s_kdgrp1 FOR vbkd-kdgrp. "Customer Group

SELECT-OPTIONS : s_kunnr1 FOR vbak-kunnr. "Customer

SELECT-OPTIONS : s_auart FOR vbak-auart. "Order Type

SELECTION-SCREEN : END OF BLOCK b1.

SELECT vbeln ernam telf1 kunnr knumv ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbak FROM vbak WHERE kunnr IN s_kunnr AND

ps_psp_pnr IN s_pspnr.

IF NOT i_vbak[] IS INITIAL.

SELECT vbeln netwr ps_psp_pnr INTO CORRESPONDING FIELDS OF TABLE i_vbap FROM vbap FOR ALL ENTRIES IN i_vbak

WHERE vbeln = i_vbak-vbeln.

SELECT knumv kwert INTO CORRESPONDING FIELDS OF TABLE i_konv FROM konv FOR ALL ENTRIES IN i_vbak

WHERE knumv = i_vbak-knumv.

SELECT vbeln bzirk kdgrp gjahr INTO CORRESPONDING FIELDS OF TABLE i_vbkd FROM vbkd FOR ALL ENTRIES IN i_vbak

WHERE vbeln = i_vbak-vbeln

AND bzirk IN s_bzirk

AND kdgrp IN s_kdgrp.

• AND gjahr IN s_gjahr.

SELECT kunnr name1 adrnr pstlz telf1 INTO CORRESPONDING FIELDS OF TABLE i_kna1 FROM kna1 WHERE kunnr IN s_kunnr .

ENDIF.

LOOP AT i_vbkd.

LOOP AT i_vbap WHERE vbeln = i_vbkd-vbeln.

LOOP AT i_konv WHERE knumh = i_vbap-knumh .

LOOP AT i_vbak WHERE vbeln = i_vbkd-vbeln.

CLEAR i_data.

MOVE i_vbak-kunnr TO i_data-kunnr. "Customer

MOVE i_vbap-netwr TO i_data-netwr.

MOVE i_konv-kwert TO i_data-kwert.

• MOVE i_vbap-vbeln TO i_data-vbeln.

MOVE i_vbkd-bzirk TO i_data-bzirk. "Occasion ID

MOVE i_vbap-ps_psp_pnr TO i_data-ps_psp_pnr. "Project ID

MOVE i_kna1-name1 TO i_data-name1. "Name

MOVE i_kna1-adrnr TO i_data-adrnr. "Address

MOVE i_kna1-pstlz TO i_data-pstlz. "Postal Code

MOVE i_vbap-ernam TO i_data-ernam. "Contact Person

MOVE i_kna1-telf1 TO i_data-telf1. "Telephone number

APPEND i_data.

CLEAR i_data.

ENDLOOP.

ENDLOOP.

ENDLOOP.

ENDLOOP.

LOOP AT i_data.

write: / i_data-kunnr,i_data-name1,i_data-adrnr,i_data_pstlz,i_data_ernam,i_data_telf1.

endloop.

[Former Member]

Hi,

don't use loops with in the loop. try to use read statement instead of loop.

eg:-

Loop at itab.

read table itab2 with key .....

then use append or modify what ever u want to use.

endloop.

[Former Member]

Hi,

Take a field KUNNR from VBAK correspoding to document number

then select data form LFA! tabel on the basis of KUNNR and get ADRNR (Address) from this.

go to ADR6 select the data on the basis of ADDRNUMBER.

<b>Reward with points if helpful.</b>

Regards

Vijay