METHOD if_qrbill_ch_badi_print~get_reference_number.
DATA : lv_doc_no TYPE belnr_d,
lv_cusno TYPE kunnr,
lv_ref_num TYPE glo_ref_num,
ls_t049q TYPE t049q.
IF is_billingdoc_header-vbeln IS NOT INITIAL .
lv_doc_no = is_billingdoc_header-vbeln.
IF is_billingdoc_header-kunrg IS NOT INITIAL.
lv_cusno = is_billingdoc_header-kunrg.
ELSE.
lv_cusno = is_billingdoc_header-kunag.
ENDIF.
CALL METHOD cl_swiss_qr_ref=>get_t049q_data
EXPORTING
iv_vkorg = is_billingdoc_header-vkorg
iv_bukrs = is_billingdoc_header-bukrs
iv_waerk = is_billingdoc_header-waerk
CHANGING
cs_t049q = ls_t049q.
CALL METHOD cl_swiss_qr_ref=>gen_reference_number
EXPORTING
iv_custno = lv_cusno
iv_docno = lv_doc_no
is_t049q = ls_t049q
CHANGING
cv_qr_ref_number = lv_ref_num.
cv_qr_ref_number = lv_ref_num.
CLEAR : lv_cusno,lv_doc_no,lv_cusno.
ENDIF.
ENDMETHOD.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
6 | |
6 | |
5 | |
5 | |
4 | |
4 | |
4 | |
3 | |
3 | |
3 |