DATA:
s_lfbk TYPE lfbk,
s_bnka TYPE bnka.
CLEAR: s_lfbk.
SELECT SINGLE * FROM lfbk INTO s_lfbk
WHERE lifnr EQ lfa1-lifnr.
IF sy-subrc EQ 0.
CLEAR: s_bnka.
CALL FUNCTION 'READ_BANK_ADDRESS'
EXPORTING
bank_country = s_lfbk-banks
bank_number = s_lfbk-bankl
IMPORTING
bnka_wa = s_bnka
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
No hay comentarios:
Publicar un comentario