Sales invoice with HSNWISE Summary /Annexure/ discount bifurcation in sap.

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.