SAP ZFI19135处理银行账号

LOOP AT ITAB INTO ITAB_WA .
CLEAR IT_KMYE .
IT_KMYE-HKONT = ITAB_WA-SAKNR.
IT_KMYE-TXT50 = ITAB_WA-TXT50.
IT_KMYE-ERP_ZZFI02 = ITAB_WA-ZZFI02.
IT_KMYE-ERP_ZZFI03 = ITAB_WA-ZZFI03.
IT_KMYE-ERP_ZZFI04 = ITAB_WA-ZZFI04.
IT_KMYE-ERP_ZZFI09 = ITAB_WA-ZZFI09.
IT_KMYE-ERP_ZZFI10 = ITAB_WA-ZZFI10.
IT_KMYE-ERP_ZDNLX = ITAB_WA-ZZFIELD1.
IT_KMYE-ERP_ZRZLX = ITAB_WA-ZZFIELD2.
IF ITAB_WA-ZZHSX IS NOT INITIAL.
CLEAR:LSTR1,LSTR2,ZBANKN,ZBNKN2.
SPLIT ITAB_WA-ZZHSX AT ‘-’ INTO LSTR1 LSTR2.
SELECT SINGLE BANKN BNKN2 INTO (ZBANKN,ZBNKN2)
FROM T012K WHERE HBKID = LSTR1 AND HKTID = LSTR2 AND BUKRS = P_BUKRS.
CONCATENATE ZBANKN ZBNKN2 INTO IT_KMYE-ERP_ZYHZH.
IT_KMYE-ERP_ZZHSX = ITAB_WA-ZZHSX.
ITAB_WA-ZYHZH = IT_KMYE-ERP_ZYHZH.
MODIFY ITAB FROM ITAB_WA.
ENDIF.

ENDLOOP.