SHARE
TWEET

Untitled

a guest Nov 18th, 2019 134 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
  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.       IF sy-index = 100.
  17.         "Błąd podczas maskowania NRB &1.
  18.         RAISE EXCEPTION TYPE zcx_wl_taxpayer MESSAGE ID c_msg_id TYPE 'E' NUMBER '002' WITH iv_bank_acc_number.
  19.       ENDIF.
  20.  
  21.       IF lv_masked_bank_acc_n+sy-index(1) = lv_char_for_mask. "Default Y
  22.         lv_masked_bank_acc_n+sy-index(1) = iv_bank_acc_number+sy-index(1).
  23.       ENDIF.
  24.  
  25.     ENDDO.
  26.  
  27.  
  28.     rv_bank_acc_number = lv_masked_bank_acc_n.
  29.  
  30.   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