SAP MM BAPI MATERIAL QMAT

REPORT  zqm_crear_bi.
*& Descripcion   : Creación de vista calidad materiales
*--------------------------------------------------------------------*
 TYPE-POOLS : slis.
 TABLES qmat.

*-> Tabla para el ingreso de datos
 DATA: BEGIN OF gs_data,
         matnr    LIKE mara-matnr,
         werks    LIKE mard-werks,
         kzdkz    LIKE marc-kzdkz,
         prfrq    LIKE marc-prfrq,
         qmata    LIKE marc-qmata,
         ssqss    LIKE marc-ssqss,
         clinsp01 LIKE rmqam-art,
         actins01 LIKE rmqam-aktiv,
         clinsp02 LIKE rmqam-art,
         actins02 LIKE rmqam-aktiv,
         clinsp03 LIKE rmqam-art,
         actins03 LIKE rmqam-aktiv,
         clinsp04 LIKE rmqam-art,
         actins04 LIKE rmqam-aktiv,
         clinsp05 LIKE rmqam-art,
         actins05 LIKE rmqam-aktiv,
         clinsp06 LIKE rmqam-art,
         actins06 LIKE rmqam-aktiv,
         clinsp07 LIKE rmqam-art,
         actins07 LIKE rmqam-aktiv,
         clinsp08 LIKE rmqam-art,
         actins08 LIKE rmqam-aktiv,
         clinsp09 LIKE rmqam-art,
         actins09 LIKE rmqam-aktiv,
         clinsp10 LIKE rmqam-art,
         actins10 LIKE rmqam-aktiv,
       END OF gs_data.
 DATA gt_data LIKE TABLE OF gs_data.

 DATA gt_qmat LIKE TABLE OF qmat.
 DATA gs_qmat LIKE LINE OF gt_qmat.

 DATA: BEGIN OF gs_header,
         colname TYPE scrtext_l,
       END OF gs_header.
 DATA gt_header LIKE TABLE OF gs_header.
 DATA gd_tfile LIKE ibipparms-path.

 TYPES: BEGIN OF ty_log,
          matnr   TYPE matnr,
          werks   TYPE werks,
          type    TYPE bapi_mtype,
          message TYPE bapi_msg,
        END OF ty_log.

 DATA gt_log TYPE TABLE OF ty_log.
 DATA gs_log LIKE LINE OF gt_log.

*alv data
 DATA gr_table  TYPE REF TO cl_salv_table.
 DATA: gr_selections TYPE REF TO cl_salv_selections,
       gt_rows       TYPE salv_t_row.
 DATA: gr_functions TYPE REF TO cl_salv_functions_list.

*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
 PARAMETERS: p_file TYPE string LOWER CASE OBLIGATORY.

*--------------------------------------------------------------------*
 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
*--------------------------------------------------------------------*
   gd_tfile = p_file.

   CALL FUNCTION 'F4_FILENAME'
     EXPORTING
       field_name = 'P_FILE'
     IMPORTING
       file_name  = gd_tfile.

   MOVE gd_tfile TO p_file.
*--------------------------------------------------------------------*
 START-OF-SELECTION.
*--------------------------------------------------------------------*

   PERFORM upload.

*--------------------------------------------------------------------*
 END-OF-SELECTION.
*--------------------------------------------------------------------*
   IF gt_data[] IS INITIAL.
     WRITE:/ 'No se seleccionaron datos'.
     RETURN.
   ENDIF.

   PERFORM crear_vista_qm.

   PERFORM display_log.

*&---------------------------------------------------------------------*
*&      Form  upload
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
 FORM upload.

   CALL FUNCTION 'GUI_UPLOAD'
     EXPORTING
       filename                = p_file
       filetype                = 'DAT'
     TABLES
       data_tab                = gt_data
     EXCEPTIONS
       file_open_error         = 1
       file_read_error         = 2
       no_batch                = 3
       gui_refuse_filetransfer = 4
       invalid_type            = 5
       no_authority            = 6
       unknown_error           = 7
       bad_data_format         = 8
       header_not_allowed      = 9
       separator_not_allowed   = 10
       header_too_long         = 11
       unknown_dp_error        = 12
       access_denied           = 13
       dp_out_of_memory        = 14
       disk_full               = 15
       dp_timeout              = 16
       OTHERS                  = 17.
   IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.


 ENDFORM.                    "upload
*&---------------------------------------------------------------------*
*&      Form  CREAR_VISTA_QM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
 FORM crear_vista_qm .


*Internal table to store messages returned from BAPI
   DATA:
   ws_return LIKE " To store status
   bapiret2 OCCURS 0 WITH HEADER LINE.

* Internal table to store Inspection details to pass
* as parameter to BAPI
   DATA:
     BEGIN OF ws_qmat OCCURS 0.
       INCLUDE STRUCTURE bapi1001004_qmat.
   DATA:
   END OF ws_qmat.
   DATA:
     ws_insp(2).
   DATA ls_tq34 LIKE tq34.

   DATA ld_cont(2) TYPE n.
   DATA ld_fieldname(40).
   FIELD-SYMBOLS <f1>.
   FIELD-SYMBOLS <f2>.
   LOOP AT gt_data INTO gs_data.

     DO 10 TIMES.
       ADD 1 TO ld_cont.

       CONCATENATE 'CLINSP' ld_cont INTO ld_fieldname.
       ASSIGN COMPONENT ld_fieldname OF STRUCTURE gs_data TO <f1>.
       CONCATENATE 'ACTINS' ld_cont INTO ld_fieldname.
       ASSIGN COMPONENT ld_fieldname OF STRUCTURE gs_data TO <f2>.

       CHECK <f1> IS NOT INITIAL.

* Retrieving Quality Score procedure from TQ34 table
       SELECT SINGLE * INTO ls_tq34
       FROM tq34
       WHERE art = <f1>.
       CHECK sy-subrc = 0.

       ws_qmat-insptype = <f1>.
       ws_qmat-material = gs_data-matnr.
       ws_qmat-plant = gs_data-werks.

       ws_qmat-ind_insp_with_tsk_list = ls_tq34-ppl.
       ws_qmat-ind_spec_matspec = ls_tq34-spezueber.
       ws_qmat-ind_spec_config = ls_tq34-conf.
       ws_qmat-ind_spec_batch = ls_tq34-tls.
       ws_qmat-ind_auto_assign = ls_tq34-app.
       ws_qmat-ind_insp_by_charac = ls_tq34-mer.
       ws_qmat-ind_post_to_insp_stock = ls_tq34-insmk.
       ws_qmat-ind_automatic_ud = ls_tq34-ave.
       ws_qmat-sampling_procedure = ls_tq34-stichprver.
       ws_qmat-dyn_modif_rule = ls_tq34-dynregel.
       ws_qmat-insp_percentage = ls_tq34-sproz.
       ws_qmat-ind_100_percent_inspection = ls_tq34-hpz.
       ws_qmat-ind_skips_allowed = ls_tq34-dyn.
       ws_qmat-ind_manual_sample = ls_tq34-mpb.
       ws_qmat-ind_manual_sample_calc = ls_tq34-mst.
       ws_qmat-ind_single_units_possible = ls_tq34-ein.
       ws_qmat-ave_insp_duration = ls_tq34-mpdau.
       ws_qmat-contr_insp_lot_create = ls_tq34-chg.
       ws_qmat-qual_score_procedure = ls_tq34-qkzverf.
       ws_qmat-allowed_scrap_share = ls_tq34-qpmat.
       ws_qmat-ind_hu_inspection = ls_tq34-afr.
       ws_qmat-ms_flag = ls_tq34-ms_flag.

       ws_qmat-ind_insptype_mat_active = <f2>.

       APPEND ws_qmat.
     ENDDO.

     CALL FUNCTION 'BAPI_MATINSPCTRL_SAVEREPLICA'
       TABLES
         return         = ws_return
         inspectionctrl = ws_qmat.

     IF sy-subrc NE 0.
* No sy-subrc check is required
     ENDIF. " IF SY-SUBRC NE 0

     MOVE-CORRESPONDING gs_data TO gs_log.

     LOOP AT ws_return WHERE type = 'E'.
     ENDLOOP.
     IF sy-subrc <> 0.
* To commit the transation for succesfull records
       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         EXPORTING
           wait = 'X'.
*      write:/ gs_data-matnr,
*              'Se creo vista calidad para material'.
       gs_log-type = 'S'.
       gs_log-message = 'Se creo vista calidad para material'.
     ELSE.
       gs_log-type = 'E'.
       gs_log-message = ws_return-message .
     ENDIF.
     APPEND gs_log TO gt_log.

   ENDLOOP.

 ENDFORM.                    " CREAR_VISTA_QM

*&---------------------------------------------------------------------*
*&      Form  display_log
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
 FORM display_log.
   DATA: lr_events  TYPE REF TO cl_salv_events_table,
         lr_columns TYPE REF TO cl_salv_columns_table,
         lr_column  TYPE REF TO cl_salv_column,
         lr_grid    TYPE REF TO cl_salv_form_layout_grid,
         lr_layout  TYPE REF TO cl_salv_layout,
         ls_key     TYPE salv_s_layout_key,
         lr_sorts   TYPE REF TO cl_salv_sorts,
         lr_sort    TYPE REF TO cl_salv_sort.

   TRY.
*... Create Instance
       CALL METHOD cl_salv_table=>factory
         IMPORTING
           r_salv_table = gr_table
         CHANGING
           t_table      = gt_log.
     CATCH cx_salv_msg.
   ENDTRY.

*... Enable Generic ALV functions
   gr_functions = gr_table->get_functions( ).
**  gr_functions->set_default( ).
   gr_functions->set_all( ).

*... Display table
   gr_table->display( ).

 ENDFORM.                    "display_log