SAP PM BAPI CA01

*&---------------------------------------------------------------------*
*& Report  ZPP_CREAR_HR
*&
*&---------------------------------------------------------------------*
*& Descripcion   : Creación de Hojas de Ruta (CA01)
*&---------------------------------------------------------------------*

REPORT  zpp_crear_hr.
*--------------------------------------------------------------------*
TYPE-POOLS : slis.

DATA: BEGIN OF gs_data,
        material                       LIKE bapi1012_mtk_c-material,         "Material
        plant                          LIKE bapi1012_mtk_c-plant,            "Centro
        task_list_group                LIKE bapi1012_tsk_c-task_list_group,  "Grp. Hoja de Ruta
        group_counter                  LIKE bapi1012_tsk_c-group_counter,    "Contador
        ident_key                      LIKE bapi1012_tsk_c-ident_key,        "Pto. Inspección
        insppoint_partiallot_assgnmt   LIKE bapi1012_tsk_c-insppoint_partiallot_assgnmt, "Datos Parciales
        dyn_modif_level                LIKE bapi1012_tsk_c-dyn_modif_level,  "Nivel Dinamizacion
        activity                       LIKE bapi1012_opr_c-activity,         "Numero de Operacion
        work_cntr                      LIKE bapi1012_opr_c-work_cntr,        "Puesto de Trabajo
        control_key                    LIKE bapi1012_opr_c-control_key,      "Clave de Control
        description                    LIKE bapi1012_opr_c-description,      "Descrip. Operación
        insp_point_complt_flow_variant LIKE bapi1012_opr_c-insp_point_complt_flow_variant, "Variante de Proceso
        time_grid                      LIKE bapi1012_opr_c-time_grid,        "Secuencial Hora
        time_factor                    LIKE bapi1012_opr_c-time_factor,      " Factor de Tiempo
        time_unit                      LIKE bapi1012_opr_c-time_unit,        "Unidad de Tiempo
        denominator                    LIKE bapi1012_opr_c-denominator,      "Denominador para conversión u.medida hoja ruta y operación
        nominator                      LIKE bapi1012_opr_c-nominator,        "Contador para conversión u.medida hoja de ruta y operación
        base_quantity                  LIKE bapi1012_opr_c-base_quantity,    "Cantidad base
        inspchar                       LIKE bapi1012_cha_c-inspchar,         "Numero de Caracteristica
        char_descr                     LIKE bapi1012_cha_c-char_descr,       "Texto breve para característica inspección
        mstr_char                      LIKE bapi1012_cha_c-mstr_char,        "Caracteristica
        smpl_procedure                 LIKE bapi1012_cha_c-smpl_procedure,   "Procedimiento
        smpl_unit                      LIKE bapi1012_cha_c-smpl_unit,        "Unidad de Medida
        smpl_quant                     LIKE bapi1012_cha_c-smpl_quant,       "Cantidad para muestra
        dyn_modif_rule                 LIKE bapi1012_cha_c-dyn_modif_rule,   "Regla Dinamizacion
        spc_criterion_key              LIKE bapi1012_cha_c-spc_criterion_key, "Criterio SPC
        up_tol_lmt                     LIKE bapi1012_cha_c-up_tol_lmt,        "Tolerancia Superior
        lw_tol_lmt                     LIKE bapi1012_cha_c-lw_tol_lmt,        "Tolerancia Inferior
        formula_check_by_sap           LIKE bapi1012_cha_c-formula_check_by_sap, "Verificar y calcular fórmula en QM
        formula_field_1                LIKE bapi1012_cha_c-formula_field_1,
        formula_field_2                LIKE bapi1012_cha_c-formula_field_2,
        task_measure_unit              LIKE bapi1012_tsk_c-task_measure_unit,
      END OF gs_data.
DATA gt_data LIKE TABLE OF gs_data.

DATA: BEGIN OF gs_data_material,
        material                     LIKE bapi1012_mtk_c-material,            "Material
        plant                        LIKE bapi1012_mtk_c-plant,                  "Centro
        task_list_group              LIKE bapi1012_tsk_c-task_list_group, "Grp. Hoja de Ruta
        group_counter                LIKE bapi1012_tsk_c-group_counter,  "Contador
        ident_key                    LIKE bapi1012_tsk_c-ident_key,          "Pto. Inspección
        insppoint_partiallot_assgnmt LIKE bapi1012_tsk_c-insppoint_partiallot_assgnmt, "Datos Parciales
        dyn_modif_level              LIKE bapi1012_tsk_c-dyn_modif_level, "Nivel Dinamizacion
      END OF gs_data_material.

DATA: BEGIN OF gs_data_operacion,
        material                       LIKE bapi1012_mtk_c-material,            "Material
        plant                          LIKE bapi1012_mtk_c-plant,                  "Centro
        task_list_group                LIKE bapi1012_tsk_c-task_list_group, "Grp. Hoja de Ruta
        group_counter                  LIKE bapi1012_tsk_c-group_counter,  "Contador
        activity                       LIKE bapi1012_opr_c-activity,            "Numero de Operacion
        work_cntr                      LIKE bapi1012_opr_c-work_cntr,          "Puesto de Trabajo
        control_key                    LIKE bapi1012_opr_c-control_key,      "Clave de Control
        description                    LIKE bapi1012_opr_c-description,      "Descrip. Operación
        insp_point_complt_flow_variant LIKE bapi1012_opr_c-insp_point_complt_flow_variant, "Variante de Proceso
        time_grid                      LIKE bapi1012_opr_c-time_grid,          "Secuencial Hora
        time_factor                    LIKE bapi1012_opr_c-time_factor,      " Factor de Tiempo
        time_unit                      LIKE bapi1012_opr_c-time_unit,          "Unidad de Tiempo
        denominator                    LIKE bapi1012_opr_c-denominator,
        nominator                      LIKE bapi1012_opr_c-nominator,
        base_quantity                  LIKE bapi1012_opr_c-base_quantity,
      END OF gs_data_operacion.

DATA: BEGIN OF gs_data_cha,
        material             LIKE bapi1012_mtk_c-material,            "Material
        plant                LIKE bapi1012_mtk_c-plant,                  "Centro
        task_list_group      LIKE bapi1012_tsk_c-task_list_group, "Grp. Hoja de Ruta
        group_counter        LIKE bapi1012_tsk_c-group_counter,  "Contador
        activity             LIKE bapi1012_opr_c-activity,            "Numero de Operacion
        inspchar             LIKE bapi1012_cha_c-inspchar,            "Numero de Caracteristica
        char_descr           LIKE bapi1012_cha_c-char_descr,
        mstr_char            LIKE bapi1012_cha_c-mstr_char,          "Caracteristica
        smpl_procedure       LIKE bapi1012_cha_c-smpl_procedure, "Procedimiento
        smpl_unit            LIKE bapi1012_cha_c-smpl_unit,          "Unidad de Medida
        smpl_quant           LIKE bapi1012_cha_c-smpl_quant,        "Cantidad para muestra
        dyn_modif_rule       LIKE bapi1012_cha_c-dyn_modif_rule, "Regla Dinamizacion
        spc_criterion_key    LIKE bapi1012_cha_c-spc_criterion_key, "Criterio SPC
        up_tol_lmt           LIKE bapi1012_cha_c-up_tol_lmt,        "Tolerancia Superior
        lw_tol_lmt           LIKE bapi1012_cha_c-lw_tol_lmt,        "Tolerancia Inferior
        formula_check_by_sap LIKE bapi1012_cha_c-formula_check_by_sap,
        formula_field_1      LIKE bapi1012_cha_c-formula_field_1,
        formula_field_2      LIKE bapi1012_cha_c-formula_field_2,
      END OF gs_data_cha.

DATA gt_data_material LIKE TABLE OF gs_data_material.
DATA gt_data_operacion LIKE TABLE OF gs_data_operacion.
DATA gt_data_cha LIKE TABLE OF gs_data_cha.

DATA decstel(2) TYPE c.

DATA gd_tfile TYPE ibipparms-path.

TYPES: BEGIN OF ty_log,
         material        LIKE bapi1012_mtk_c-material,            "Material
         plant           LIKE bapi1012_mtk_c-plant,                  "Centro
         task_list_group LIKE bapi1012_tsk_c-task_list_group, "Grp. Hoja de Ruta
         group_counter   LIKE bapi1012_tsk_c-group_counter,  "Contador
         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.

*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
PARAMETERS: p_file TYPE string LOWER CASE OBLIGATORY,
            p_test TYPE bapiflag DEFAULT 'X'.

*--------------------------------------------------------------------*
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_hoja_de_ruta.

  PERFORM display_log.
*&---------------------------------------------------------------------*
*&      Form  get_task_list_group
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_task_list_group USING i_change
                               gs_bapi_mtk TYPE bapi1012_mtk_c
                                gs_bapi_tsk  TYPE bapi1012_tsk_c.

  DATA: BEGIN OF ls_h,
          valid_to TYPE sydatum,
          lin      TYPE i,
        END OF ls_h,
        ls_mtk_int TYPE maplb,
        lt_mtk_int TYPE TABLE OF maplb,
        ls_tsk_int TYPE plko.

  ls_h-valid_to = sy-datum.
* read material task allocation
  CALL FUNCTION 'CP_DB_MAPL_READ'
    EXPORTING
      datub      = ls_h-valid_to
      datuv      = gs_bapi_mtk-valid_from
      matnr      = gs_bapi_mtk-material
      werks      = gs_bapi_mtk-plant
    TABLES
      matpl      = lt_mtk_int
    EXCEPTIONS
      no_records = 1
      OTHERS     = 2.
  CHECK: sy-subrc = 0.
* delete deleted material task allocations
  DELETE lt_mtk_int WHERE loekz = 'X'.
*  IF gs_cntrl-flg_change_mode = const-flg_yes.
  IF i_change = 'X'.
    DELETE lt_mtk_int WHERE plnal <> gs_bapi_mtk-group_counter.
  ENDIF.
  DESCRIBE TABLE lt_mtk_int LINES ls_h-lin.
  IF ls_h-lin = 1 OR i_change IS INITIAL.
    READ TABLE lt_mtk_int INTO ls_mtk_int INDEX 1.
    CHECK: sy-subrc = 0.
*    gs_cntrl-task_list_group = ls_mtk_int-plnnr.
  ELSE.
    SORT lt_mtk_int BY datuv DESCENDING.
    LOOP AT lt_mtk_int INTO ls_mtk_int.
* read task list header
      CALL FUNCTION 'CI03_READ_PLKO'
        EXPORTING
          i_plnty         = ls_mtk_int-plnty
          i_plnnr         = ls_mtk_int-plnnr
          i_plnal         = ls_mtk_int-plnal
          i_date          = ls_mtk_int-datuv
        IMPORTING
          e_plko          = ls_tsk_int
        EXCEPTIONS
          tl_not_existent = 1
          tl_not_valid    = 2
          OTHERS          = 3.
      CHECK: sy-subrc = 0.
      IF ls_tsk_int-verwe = gs_bapi_tsk-task_list_usage.
*        gs_cntrl-task_list_group = ls_tsk_int-plnnr.
        EXIT.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDFORM.                    " get_task_list_group
*&---------------------------------------------------------------------*
*&      Form  select_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM crear_hoja_de_ruta.

  DATA lt_materialtaskallocation TYPE TABLE OF bapi1012_mtk_c .
  DATA lt_task TYPE TABLE OF bapi1012_tsk_c.
  DATA lt_operation TYPE TABLE OF bapi1012_opr_c.
  DATA lt_inspcharacteristic TYPE TABLE OF bapi1012_cha_c.

  DATA ls_materialtaskallocation TYPE bapi1012_mtk_c .
  DATA ls_task TYPE bapi1012_tsk_c.
  DATA ls_operation TYPE bapi1012_opr_c.
  DATA ls_inspcharacteristic TYPE bapi1012_cha_c.

  DATA lt_return TYPE TABLE OF bapiret2.
  DATA ls_return LIKE LINE OF lt_return.


  LOOP AT gt_data INTO gs_data.
    CLEAR: gt_data_material[].
    CLEAR: gt_data_operacion[].
    CLEAR: gt_data_cha[].

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = gs_data-group_counter
      IMPORTING
        output = gs_data-group_counter.

    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        input        = gs_data-material
      IMPORTING
        output       = gs_data-material
      EXCEPTIONS
        length_error = 1
        OTHERS       = 2.
    IF sy-subrc <> 0.
      CLEAR gs_data-material.
    ENDIF.

    CALL FUNCTION 'CONVERSION_EXIT_NUMCV_INPUT'
      EXPORTING
        input  = gs_data-activity
      IMPORTING
        output = gs_data-activity.

    MOVE-CORRESPONDING gs_data TO gs_data_material.
    MOVE-CORRESPONDING gs_data TO gs_data_operacion.
    MOVE-CORRESPONDING gs_data TO gs_data_cha.

    APPEND gs_data_material TO gt_data_material.
    APPEND gs_data_operacion TO gt_data_operacion.
    APPEND gs_data_cha TO gt_data_cha.
*  ENDLOOP.


    LOOP AT gt_data_material INTO gs_data_material.
      CLEAR: lt_operation[],
             lt_inspcharacteristic[],
             lt_materialtaskallocation[],
             lt_task[],
             lt_return[].

*    clear gs_data-TASK_LIST_GROUP.
*    gs_data-GROUP_COUNTER = 2.

      MOVE-CORRESPONDING gs_data TO ls_materialtaskallocation.
      IF ls_materialtaskallocation-material IS NOT INITIAL.
        APPEND ls_materialtaskallocation TO lt_materialtaskallocation.
      ENDIF.

      MOVE-CORRESPONDING gs_data TO ls_task.
      ls_task-task_list_usage = '1'.
      ls_task-task_list_status = '4'.

      ls_task-valid_from = sy-datum.
      ls_task-valid_to_date = '99991231'.

*    ls_task-TASK_MEASURE_UNIT = 'KI'.  "CA
      APPEND ls_task TO lt_task.


      LOOP AT gt_data_operacion INTO gs_data_operacion WHERE
           material =  gs_data_material-material
           AND plant    = gs_data_material-plant
           AND task_list_group = gs_data_material-task_list_group
           AND group_counter  = gs_data_material-group_counter
        AND activity IS NOT INITIAL.

        ls_operation-task_list_group = gs_data_material-task_list_group.
        ls_operation-group_counter   = gs_data_material-group_counter.
        ls_operation-activity = gs_data_operacion-activity.
        ls_operation-work_cntr  = gs_data_operacion-work_cntr.
        ls_operation-control_key  = gs_data_operacion-control_key.
        ls_operation-description  = gs_data_operacion-description.
        ls_operation-insp_point_complt_flow_variant  = gs_data_operacion-insp_point_complt_flow_variant.
        ls_operation-time_grid  = gs_data_operacion-time_grid.
        ls_operation-time_factor  = gs_data_operacion-time_factor.
        ls_operation-time_unit  = gs_data_operacion-time_unit.
        ls_operation-denominator  = gs_data_operacion-denominator.
        ls_operation-nominator   = gs_data_operacion-nominator.
        ls_operation-base_quantity = gs_data_operacion-base_quantity.

        APPEND ls_operation TO lt_operation.

        LOOP AT gt_data_cha INTO gs_data_cha WHERE
                 material =  gs_data_material-material
                 AND plant    = gs_data_material-plant
                 AND task_list_group = gs_data_material-task_list_group
                 AND group_counter  = gs_data_material-group_counter
                 AND activity = gs_data_operacion-activity
                 AND inspchar IS NOT INITIAL.

          ls_inspcharacteristic-task_list_group = gs_data_material-task_list_group.
          ls_inspcharacteristic-group_counter   = gs_data_material-group_counter.
          ls_inspcharacteristic-activity = gs_data_cha-activity.
          ls_inspcharacteristic-inspchar  = gs_data_cha-inspchar.
          ls_inspcharacteristic-mstr_char  = gs_data_cha-mstr_char.
          ls_inspcharacteristic-smpl_procedure  = gs_data_cha-smpl_procedure.
          ls_inspcharacteristic-smpl_unit  = gs_data_cha-smpl_unit.
          ls_inspcharacteristic-smpl_quant  = gs_data_cha-smpl_quant.
          ls_inspcharacteristic-dyn_modif_rule  = gs_data_cha-dyn_modif_rule.
          ls_inspcharacteristic-spc_criterion_key  = gs_data_cha-spc_criterion_key .
          ls_inspcharacteristic-up_tol_lmt  = gs_data_cha-up_tol_lmt.
          ls_inspcharacteristic-lw_tol_lmt  = gs_data_cha-lw_tol_lmt.
          ls_inspcharacteristic-formula_check_by_sap  = gs_data_cha-formula_check_by_sap.
          ls_inspcharacteristic-formula_field_1  = gs_data_cha-formula_field_1 .
          ls_inspcharacteristic-formula_field_2  = gs_data_cha-formula_field_2 .
          ls_inspcharacteristic-char_descr = gs_data_cha-char_descr.

          APPEND ls_inspcharacteristic TO lt_inspcharacteristic.

        ENDLOOP.

      ENDLOOP.

*    MOVE-CORRESPONDING gs_data to ls_OPERATION.
*    MOVE-CORRESPONDING gs_data to ls_INSPCHARACTERISTIC.
*    append ls_OPERATION to lt_OPERATION.
*    APPEND ls_INSPCHARACTERISTIC to lt_INSPCHARACTERISTIC.

      DATA ld_testrun TYPE  bapiflag.

      ld_testrun = 'X'.

      DATA ld_bomusage TYPE  bapi1012_control_data-bom_usage .

      ld_bomusage = '1'. "fabricacion

      CALL FUNCTION 'BAPI_ROUTING_CREATE'
        EXPORTING
          testrun                = p_test
*         PROFILE                =
          bomusage               = ld_bomusage
*         APPLICATION            =
* IMPORTING
*         GROUP                  =
*         GROUPCOUNTER           =
        TABLES
          task                   = lt_task
          materialtaskallocation = lt_materialtaskallocation
*         SEQUENCE               =
          operation              = lt_operation
*         LENGTHCALCULATION      =
*         SUBOPERATION           =
*         REFERENCEOPERATION     =
*         WORKCENTERREFERENCE    =
*         COMPONENTALLOCATION    =
*         PRODUCTIONRESOURCE     =
          inspcharacteristic     = lt_inspcharacteristic
*         TEXTALLOCATION         =
*         TEXT                   =
          return                 = lt_return.

      MOVE-CORRESPONDING gs_data_material TO gs_log.
      LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.
        MOVE-CORRESPONDING ls_return TO gs_log.
        APPEND gs_log TO gt_log.
      ENDLOOP.

      IF sy-subrc <> 0.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*     EXPORTING
*       WAIT          =
*     IMPORTING
*       RETURN        =
          .
        gs_log-type = 'S'.
        gs_log-message = 'Hoja de ruta creada'.
        APPEND gs_log TO gt_log.
      ENDIF.
*    BREAK-POINT.
    ENDLOOP.
  ENDLOOP.
*PERFORM get_task_list_group using 'X'
*                               ls_MATERIALTASKALLOCATION
*                                ls_task.



ENDFORM.                    "select_data

*&---------------------------------------------------------------------*
*&      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  display_log
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM display_log.
*... Create Instance
  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = DATA(gr_table)
                               CHANGING t_table = gt_log ).
    CATCH cx_salv_msg.
  ENDTRY.

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

  DATA(lr_columns) = gr_table->get_columns( ).

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

ENDFORM.                    "display_log