Enterprise Resource Planning Blogs by Members
Gain new perspectives and knowledge about enterprise resource planning in blog posts from community members. Share your own comments and ERP insights today!
cancel
Showing results for 
Search instead for 
Did you mean: 
former_member348242
Participant
Introduction

After GST implementation in India, Our distributor ask discount bifurcation, serial number blank for free line item and HSNWISE Summary to easily understanding invoice format, to achieve this working around the same and write the blog.

Functionality Description:

  • Create driver program (DP).

  • Create smart form

  • Assign DP and Smart form to output type.


Processing Requirements and Technical Explanation.

  1. Using the NACE setting we get the Billing document(VBELN) pass that vbeln to smart form using the below FM.
    * call smartform invoice
    CALL FUNCTION lf_fm_name
    EXPORTING
    archive_index = toa_dara
    * ARCHIVE_INDEX_TAB =
    archive_parameters = arc_params
    control_parameters = ls_control_param
    * MAIL_APPL_OBJ =
    mail_recipient = ls_recipient
    mail_sender = ls_sender
    output_options = ls_composer_param
    user_settings = space
    i_vbeln = ls_bil_invoice-hd_gen-bil_number
    i_ctext = l_text
    l_flagemail = l_flagemail
    IMPORTING
    job_output_info = ls_job_info
    EXCEPTIONS
    formatting_error = 1
    internal_error = 2
    send_error = 3
    user_canceled = 4
    OTHERS = 5.
    IF sy-subrc = 0.
    ls_control_param-no_open = 'X'.
    ls_control_param-no_close = 'X'.
    ENDIF.​


  2. IN smartform,Global Definition --> Initialization, pass the vbeln to VBRK and VBRP table and store into internal table gt_vbrk and gt_vbrp.

  3. loop the gt_vbrp internal table and update the HSNCODE to TXJCD field in the gt_vbrp .
    **********append  HSN CODE  to invoice line items
    LOOP AT gt_vbrp INTO gw_vbrp.
    DATA: l_steuc TYPE marc-steuc,
    l_text1 TYPE t604n-text1.
    CLEAR: gv_tab_hsnsac.
    CLEAR: l_steuc, l_text1.
    SELECT SINGLE steuc FROM marc
    INTO l_steuc
    WHERE matnr EQ gw_vbrp-matnr
    AND werks EQ gw_vbrp-werks.
    IF sy-subrc = 0.
    gv_tab_hsnsac = ''.
    CONCATENATE gv_tab_hsnsac
    l_steuc
    INTO gv_tab_hsnsac.
    ENDIF.
    CONDENSE gv_tab_hsnsac.
    gw_vbrp-TXJCD = gv_tab_hsnsac.
    MODIFY gt_vbrp FROM gw_vbrp INDEX sy-tabix.
    ENDLOOP.
    **********End of append HSN CODE to invoice line items

    ***For HSNWISE Summary
    gt_vbrp_hsn[] = gt_vbrp[].
    sort gt_vbrp_hsn by TXJCD.
    DELETE ADJACENT DUPLICATES
    FROM gt_vbrp_hsn COMPARING TXJCD.


  4. create Three tables in Main areaFirst table for billing line item : Loop table gt_vbrp.Append discount condition description and value to discount internal table.
              CLEAR : gw_spd_rdd.
    DATA : lv_name TYPE thead-tdname.
    DATA : char_name(20) TYPE c,
    lines TYPE tline OCCURS 0 WITH HEADER LINE,
    lv_con_text TYPE string,
    lv_crecno TYPE string.
    CLEAR : lv_name,char_name,lines[],lv_con_text,lv_crecno.
    break nandeesha.
    CONCATENATE lw_konv-knumh '01' INTO lv_crecno.
    char_name = lv_crecno.
    lv_name = char_name.


    *&---- Transporter
    CALL FUNCTION 'READ_TEXT'
    EXPORTING
    client = sy-mandt
    id = '0001'
    language = sy-langu
    name = lv_name
    object = 'KONP'
    TABLES
    lines = lines
    EXCEPTIONS
    id = 1
    language = 2
    name = 3
    not_found = 4
    object = 5
    reference_check = 6
    wrong_access_to_archive = 7
    OTHERS = 8.
    IF sy-subrc <> 0.
    * Implement suitable error handling here
    ENDIF.
    DELETE lines WHERE tdline IS INITIAL.
    IF lines[] IS NOT INITIAL.
    CLEAR lv_con_text.
    LOOP AT lines.
    CONCATENATE lv_con_text lines-tdline INTO lv_con_text.
    ENDLOOP.
    ENDIF.
    CONDENSE lv_con_text.
    REFRESH: lines[].

    IF lv_con_text IS NOT INITIAL.
    gw_spd_rdd-pro_txt = lv_con_text.
    ELSE.
    SELECT SINGLE vtext FROM t685t INTO gw_spd_rdd-pro_txt
    WHERE kschl = lw_cond_tab-kschl AND spras = 'EN'
    AND kvewe = 'A'.
    ENDIF.


    gw_spd_rdd-kschl = lw_cond_tab-kschl.
    gw_spd_rdd-amnt = lw_konv-kwert.
    gw_spd_rdd-remarks = 'RDD'.

    APPEND gw_spd_rdd TO gt_spd_rdd.

    Second table for HSNWISE Summary : Loop gt_vbrp_hsn.

    Third table for Discount provided details : loop gt_spd_rdd.

     

     

    Out Put.

     

  5. Conclusion

    SAP Smart forms is the wonder full design tool for design the industrial/Management/Stakeholder expected invoice print out designed with dynamically ,effectively, please comment if any queries to meet this requirement.

1 Comment