Code: Alles auswählen.
method H_BDET_ALV_DOUBLE_CLICK.
case E_COLUMN-FIELDNAME.
when 'VENDOR_NO' or 'CUSTOMER'.
AR_BDETS_GR->RAISE_EVENT( 'MASTERDATA' ).
when others.
endcase.
endmethod.Code: Alles auswählen.
method BDET_MASTERDATA.
field-symbols <AT_CL> like line of AT_CL.
data: LT_RETURN1 type BAPIRET1.
read table AT_CL assigning <ATL_CL>
index I_ROW_ID.
if SY-SUBRC = 0.
case I_FIELDNAME.
when 'VENDOR_NO'.
set parameter id 'BUK' field <AT_CL>-COMP_CODE_VC.
call function 'BAPI_VENDOR_DISPLAY'
exporting
VENDORNO = <AT_CL>-VENDOR_NO
importing
RETURN = LT_RETURN1.
endcase.
endif.