SHARE
TWEET

Untitled

a guest Nov 18th, 2019 123 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. * IMPORTING IV_MASK             TYPE ZWL_MASK_VALUE Wartość maski
  2. * IMPORTING IV_BANK_ACC_NUMBER  TYPE ZWL_BANK_ACC_NUMBER    Numer rachunku bankowego
  3. * RETURNING RV_BANK_ACC_NUMBER  TYPE ZWL_BANK_ACC_NUMBER    Zamaskowany numer rachunku
  4. * EXCEPTION ZCX_WL_TAXPAYER     Biała Lista: klasa wyjątków
  5.  
  6. METHOD mask_key.
  7.  
  8.     DATA(lv_mask) = iv_mask.
  9.     DATA lv_masked_bank_acc_n LIKE iv_bank_acc_number.
  10.     DATA(lv_char_for_mask) = me->get_file_char_for_mask( ).
  11.  
  12.     lv_masked_bank_acc_n = iv_mask.
  13.  
  14.     DO strlen( lv_masked_bank_acc_n ) TIMES.
  15.  
  16.       DATA(lv_index) = sy-index - 1.
  17.  
  18.       IF sy-index = 100.
  19.         "Błąd podczas maskowania NRB &1.
  20.         RAISE EXCEPTION TYPE zcx_wl_taxpayer MESSAGE ID c_msg_id TYPE 'E' NUMBER '002' WITH iv_bank_acc_number.
  21.       ENDIF.
  22.  
  23.       IF lv_masked_bank_acc_n+lv_index(1) = lv_char_for_mask. "Default Y
  24.         lv_masked_bank_acc_n+lv_index(1) = iv_bank_acc_number+lv_index(1).
  25.       ENDIF.
  26.  
  27.     ENDDO.
  28.  
  29.     rv_bank_acc_number = lv_masked_bank_acc_n.
  30.  
  31.   ENDMETHOD.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top