07-30-2007 3:30 PM
May i knw how can we retrieve the company address based on the company code.Need relation between the company code and company address.
07-30-2007 3:34 PM
hi aditiya
do like this.
*SELECTING ADDRESS NUMBER FOR PARTICULAR COMPANY CODE
SELECT SINGLE ADRNR
FROM T001
INTO V_ADRNR
WHERE BUKRS = companycode.
*SELECTING ADDRESS FOR THAT ADRNR
IF SY-SUBRC EQ 0.
SELECT SINGLE *
FROM ADRC
INTO IT_ADDRESS
WHERE ADDRNUMBER = V_ADRNR.
ENDIF.
reward if helpfull.
07-30-2007 3:32 PM
07-30-2007 3:33 PM
07-30-2007 3:34 PM
hi aditiya
do like this.
*SELECTING ADDRESS NUMBER FOR PARTICULAR COMPANY CODE
SELECT SINGLE ADRNR
FROM T001
INTO V_ADRNR
WHERE BUKRS = companycode.
*SELECTING ADDRESS FOR THAT ADRNR
IF SY-SUBRC EQ 0.
SELECT SINGLE *
FROM ADRC
INTO IT_ADDRESS
WHERE ADDRNUMBER = V_ADRNR.
ENDIF.
reward if helpfull.
07-30-2007 4:53 PM
07-30-2007 3:41 PM
try this code
REPORT zpwtest.
TYPE-POOLS szadr .
DATA : v_adrnr TYPE t001-adrnr ,
address TYPE szadr_printform_table ,
w_ad TYPE szadr_printform_table_line .
PARAMETERS : p_bukrs TYPE t001-bukrs OBLIGATORY .
SELECT SINGLE adrnr
INTO v_adrnr
FROM t001
WHERE bukrs = p_bukrs .
CALL FUNCTION 'ADDRESS_INTO_PRINTFORM'
EXPORTING
address_type = '1'
address_number = v_adrnr
IMPORTING
address_printform_table = address.
LOOP AT address INTO w_ad.
WRITE / w_ad-address_line .
ENDLOOP.