<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en">
	<id>https://sapwiki.cl/wiki/index.php?action=history&amp;feed=atom&amp;title=SAP_PM_BAPI_CA01</id>
	<title>SAP PM BAPI CA01 - Revision history</title>
	<link rel="self" type="application/atom+xml" href="https://sapwiki.cl/wiki/index.php?action=history&amp;feed=atom&amp;title=SAP_PM_BAPI_CA01"/>
	<link rel="alternate" type="text/html" href="https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;action=history"/>
	<updated>2026-10-26T13:42:47Z</updated>
	<subtitle>Revision history for this page on the wiki</subtitle>
	<generator>MediaWiki 1.34.0</generator>
	<entry>
		<id>https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;diff=508&amp;oldid=prev</id>
		<title>WikiSysop at 19:00, 5 April 2020</title>
		<link rel="alternate" type="text/html" href="https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;diff=508&amp;oldid=prev"/>
		<updated>2020-04-05T19:00:44Z</updated>

		<summary type="html">&lt;p&gt;&lt;/p&gt;
&lt;a href=&quot;https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;amp;diff=508&amp;amp;oldid=507&quot;&gt;Show changes&lt;/a&gt;</summary>
		<author><name>WikiSysop</name></author>
		
	</entry>
	<entry>
		<id>https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;diff=507&amp;oldid=prev</id>
		<title>WikiSysop: Created page with &quot; &lt;nowiki&gt;*&amp;---------------------------------------------------------------------* *&amp; Report  ZPP_CREAR_HR *&amp; *&amp;----------------------------------------------------------------...&quot;</title>
		<link rel="alternate" type="text/html" href="https://sapwiki.cl/wiki/index.php?title=SAP_PM_BAPI_CA01&amp;diff=507&amp;oldid=prev"/>
		<updated>2020-04-05T18:54:18Z</updated>

		<summary type="html">&lt;p&gt;Created page with &amp;quot; &amp;lt;nowiki&amp;gt;*&amp;amp;---------------------------------------------------------------------* *&amp;amp; Report  ZPP_CREAR_HR *&amp;amp; *&amp;amp;----------------------------------------------------------------...&amp;quot;&lt;/p&gt;
&lt;p&gt;&lt;b&gt;New page&lt;/b&gt;&lt;/p&gt;&lt;div&gt; &amp;lt;nowiki&amp;gt;*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp; Report  ZPP_CREAR_HR&lt;br /&gt;
*&amp;amp;&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp; Descripcion   : Creación de Hojas de Ruta (CA01)&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
&lt;br /&gt;
REPORT  ZPP_CREAR_HR.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
type-POOLs : SLIS.&lt;br /&gt;
&lt;br /&gt;
Data: Begin of gs_data,&lt;br /&gt;
      MATERIAL        like BAPI1012_MTK_C-MATERIAL,         &amp;quot;Material&lt;br /&gt;
      PLANT           like BAPI1012_MTK_C-PLANT,            &amp;quot;Centro&lt;br /&gt;
      TASK_LIST_GROUP like BAPI1012_TSK_C-TASK_LIST_GROUP,  &amp;quot;Grp. Hoja de Ruta&lt;br /&gt;
      GROUP_COUNTER   like BAPI1012_TSK_C-GROUP_COUNTER,    &amp;quot;Contador&lt;br /&gt;
      IDENT_KEY       like BAPI1012_TSK_C-IDENT_KEY,        &amp;quot;Pto. Inspección&lt;br /&gt;
      INSPPOINT_PARTIALLOT_ASSGNMT like BAPI1012_TSK_C-INSPPOINT_PARTIALLOT_ASSGNMT, &amp;quot;Datos Parciales&lt;br /&gt;
      DYN_MODIF_LEVEL like BAPI1012_TSK_C-DYN_MODIF_LEVEL,  &amp;quot;Nivel Dinamizacion&lt;br /&gt;
      ACTIVITY        like BAPI1012_OPR_C-ACTIVITY,         &amp;quot;Numero de Operacion&lt;br /&gt;
      WORK_CNTR       like BAPI1012_OPR_C-WORK_CNTR,        &amp;quot;Puesto de Trabajo&lt;br /&gt;
      CONTROL_KEY     like BAPI1012_OPR_C-CONTROL_KEY,      &amp;quot;Clave de Control&lt;br /&gt;
      DESCRIPTION     like BAPI1012_OPR_C-DESCRIPTION,      &amp;quot;Descrip. Operación&lt;br /&gt;
      INSP_POINT_COMPLT_FLOW_VARIANT like BAPI1012_OPR_C-INSP_POINT_COMPLT_FLOW_VARIANT, &amp;quot;Variante de Proceso&lt;br /&gt;
      TIME_GRID       like BAPI1012_OPR_C-TIME_GRID,        &amp;quot;Secuencial Hora&lt;br /&gt;
      TIME_FACTOR     like BAPI1012_OPR_C-TIME_FACTOR,      &amp;quot; Factor de Tiempo&lt;br /&gt;
      TIME_UNIT       like BAPI1012_OPR_C-TIME_UNIT,        &amp;quot;Unidad de Tiempo&lt;br /&gt;
      DENOMINATOR     like BAPI1012_OPR_C-DENOMINATOR,      &amp;quot;Denominador para conversión u.medida hoja ruta y operación&lt;br /&gt;
      NOMINATOR       like BAPI1012_OPR_C-NOMINATOR,        &amp;quot;Contador para conversión u.medida hoja de ruta y operación&lt;br /&gt;
      base_quantity   like BAPI1012_OPR_C-base_quantity,    &amp;quot;Cantidad base&lt;br /&gt;
      INSPCHAR        like BAPI1012_CHA_C-INSPCHAR,         &amp;quot;Numero de Caracteristica&lt;br /&gt;
      CHAR_DESCR      like BAPI1012_CHA_C-CHAR_DESCR,       &amp;quot;Texto breve para característica inspección&lt;br /&gt;
      MSTR_CHAR       like BAPI1012_CHA_C-MSTR_CHAR,        &amp;quot;Caracteristica&lt;br /&gt;
      SMPL_PROCEDURE  like BAPI1012_CHA_C-SMPL_PROCEDURE,   &amp;quot;Procedimiento&lt;br /&gt;
      SMPL_UNIT       like BAPI1012_CHA_C-SMPL_UNIT,        &amp;quot;Unidad de Medida&lt;br /&gt;
      SMPL_QUANT      like BAPI1012_CHA_C-SMPL_QUANT,       &amp;quot;Cantidad para muestra&lt;br /&gt;
      DYN_MODIF_RULE  like BAPI1012_CHA_C-DYN_MODIF_RULE,   &amp;quot;Regla Dinamizacion&lt;br /&gt;
      SPC_CRITERION_KEY like BAPI1012_CHA_C-SPC_CRITERION_KEY,&amp;quot;Criterio SPC&lt;br /&gt;
      UP_TOL_LMT      like BAPI1012_CHA_C-UP_TOL_LMT,        &amp;quot;Tolerancia Superior&lt;br /&gt;
      LW_TOL_LMT      like BAPI1012_CHA_C-LW_TOL_LMT,        &amp;quot;Tolerancia Inferior&lt;br /&gt;
      FORMULA_CHECK_BY_SAP like BAPI1012_CHA_C-FORMULA_CHECK_BY_SAP, &amp;quot;Verificar y calcular fórmula en QM&lt;br /&gt;
      FORMULA_FIELD_1 like BAPI1012_CHA_C-FORMULA_FIELD_1,&lt;br /&gt;
      FORMULA_FIELD_2 like BAPI1012_CHA_C-FORMULA_FIELD_2,&lt;br /&gt;
      TASK_MEASURE_UNIT like BAPI1012_TSK_C-TASK_MEASURE_UNIT,&lt;br /&gt;
      end of gs_data.&lt;br /&gt;
data gt_data like TABLE OF gs_data.&lt;br /&gt;
&lt;br /&gt;
data: begin of gs_data_material,&lt;br /&gt;
  MATERIAL like BAPI1012_MTK_C-MATERIAL,            &amp;quot;Material&lt;br /&gt;
PLANT like BAPI1012_MTK_C-PLANT,                  &amp;quot;Centro&lt;br /&gt;
TASK_LIST_GROUP like BAPI1012_TSK_C-TASK_LIST_GROUP, &amp;quot;Grp. Hoja de Ruta&lt;br /&gt;
GROUP_COUNTER like BAPI1012_TSK_C-GROUP_COUNTER,  &amp;quot;Contador&lt;br /&gt;
IDENT_KEY like BAPI1012_TSK_C-IDENT_KEY,          &amp;quot;Pto. Inspección&lt;br /&gt;
INSPPOINT_PARTIALLOT_ASSGNMT like BAPI1012_TSK_C-INSPPOINT_PARTIALLOT_ASSGNMT, &amp;quot;Datos Parciales&lt;br /&gt;
DYN_MODIF_LEVEL like BAPI1012_TSK_C-DYN_MODIF_LEVEL, &amp;quot;Nivel Dinamizacion&lt;br /&gt;
  end of gs_data_material.&lt;br /&gt;
&lt;br /&gt;
data: begin of gs_data_operacion,&lt;br /&gt;
MATERIAL like BAPI1012_MTK_C-MATERIAL,            &amp;quot;Material&lt;br /&gt;
PLANT like BAPI1012_MTK_C-PLANT,                  &amp;quot;Centro&lt;br /&gt;
TASK_LIST_GROUP like BAPI1012_TSK_C-TASK_LIST_GROUP, &amp;quot;Grp. Hoja de Ruta&lt;br /&gt;
GROUP_COUNTER like BAPI1012_TSK_C-GROUP_COUNTER,  &amp;quot;Contador&lt;br /&gt;
  ACTIVITY like BAPI1012_OPR_C-ACTIVITY,            &amp;quot;Numero de Operacion&lt;br /&gt;
WORK_CNTR like BAPI1012_OPR_C-WORK_CNTR,          &amp;quot;Puesto de Trabajo&lt;br /&gt;
CONTROL_KEY like BAPI1012_OPR_C-CONTROL_KEY,      &amp;quot;Clave de Control&lt;br /&gt;
DESCRIPTION like BAPI1012_OPR_C-DESCRIPTION,      &amp;quot;Descrip. Operación&lt;br /&gt;
INSP_POINT_COMPLT_FLOW_VARIANT like BAPI1012_OPR_C-INSP_POINT_COMPLT_FLOW_VARIANT, &amp;quot;Variante de Proceso&lt;br /&gt;
TIME_GRID like BAPI1012_OPR_C-TIME_GRID,          &amp;quot;Secuencial Hora&lt;br /&gt;
TIME_FACTOR like BAPI1012_OPR_C-TIME_FACTOR,      &amp;quot; Factor de Tiempo&lt;br /&gt;
TIME_UNIT like BAPI1012_OPR_C-TIME_UNIT,          &amp;quot;Unidad de Tiempo&lt;br /&gt;
  DENOMINATOR like BAPI1012_OPR_C-DENOMINATOR,&lt;br /&gt;
NOMINATOR     like BAPI1012_OPR_C-NOMINATOR,&lt;br /&gt;
base_quantity like BAPI1012_OPR_C-base_quantity,&lt;br /&gt;
  end of gs_data_operacion.&lt;br /&gt;
&lt;br /&gt;
data: begin of gs_data_cha,&lt;br /&gt;
MATERIAL like BAPI1012_MTK_C-MATERIAL,            &amp;quot;Material&lt;br /&gt;
PLANT like BAPI1012_MTK_C-PLANT,                  &amp;quot;Centro&lt;br /&gt;
TASK_LIST_GROUP like BAPI1012_TSK_C-TASK_LIST_GROUP, &amp;quot;Grp. Hoja de Ruta&lt;br /&gt;
GROUP_COUNTER like BAPI1012_TSK_C-GROUP_COUNTER,  &amp;quot;Contador&lt;br /&gt;
ACTIVITY like BAPI1012_OPR_C-ACTIVITY,            &amp;quot;Numero de Operacion&lt;br /&gt;
INSPCHAR like BAPI1012_CHA_C-INSPCHAR,            &amp;quot;Numero de Caracteristica&lt;br /&gt;
CHAR_DESCR like BAPI1012_CHA_C-CHAR_DESCR,&lt;br /&gt;
MSTR_CHAR like BAPI1012_CHA_C-MSTR_CHAR,          &amp;quot;Caracteristica&lt;br /&gt;
SMPL_PROCEDURE like BAPI1012_CHA_C-SMPL_PROCEDURE,&amp;quot;Procedimiento&lt;br /&gt;
SMPL_UNIT like BAPI1012_CHA_C-SMPL_UNIT,          &amp;quot;Unidad de Medida&lt;br /&gt;
SMPL_QUANT like BAPI1012_CHA_C-SMPL_QUANT,        &amp;quot;Cantidad para muestra&lt;br /&gt;
DYN_MODIF_RULE like BAPI1012_CHA_C-DYN_MODIF_RULE,&amp;quot;Regla Dinamizacion&lt;br /&gt;
SPC_CRITERION_KEY like BAPI1012_CHA_C-SPC_CRITERION_KEY,&amp;quot;Criterio SPC&lt;br /&gt;
UP_TOL_LMT like BAPI1012_CHA_C-UP_TOL_LMT,        &amp;quot;Tolerancia Superior&lt;br /&gt;
LW_TOL_LMT like BAPI1012_CHA_C-LW_TOL_LMT,        &amp;quot;Tolerancia Inferior&lt;br /&gt;
FORMULA_CHECK_BY_SAP like BAPI1012_CHA_C-FORMULA_CHECK_BY_SAP,&lt;br /&gt;
FORMULA_FIELD_1 like BAPI1012_CHA_C-FORMULA_FIELD_1,&lt;br /&gt;
FORMULA_FIELD_2 like BAPI1012_CHA_C-FORMULA_FIELD_2,&lt;br /&gt;
END OF gs_data_cha.&lt;br /&gt;
&lt;br /&gt;
data gt_data_material like table of gs_data_material.&lt;br /&gt;
data gt_data_operacion like table of gs_data_operacion.&lt;br /&gt;
data gt_data_cha like table of gs_data_cha.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
data DECSTEL(2) TYPE C.&lt;br /&gt;
&lt;br /&gt;
data gd_tfile type IBIPPARMS-PATH.&lt;br /&gt;
&lt;br /&gt;
types: begin of ty_log,&lt;br /&gt;
MATERIAL like BAPI1012_MTK_C-MATERIAL,            &amp;quot;Material&lt;br /&gt;
PLANT like BAPI1012_MTK_C-PLANT,                  &amp;quot;Centro&lt;br /&gt;
TASK_LIST_GROUP like BAPI1012_TSK_C-TASK_LIST_GROUP, &amp;quot;Grp. Hoja de Ruta&lt;br /&gt;
GROUP_COUNTER like BAPI1012_TSK_C-GROUP_COUNTER,  &amp;quot;Contador&lt;br /&gt;
        type type BAPI_MTYPE,&lt;br /&gt;
        message type BAPI_MSG,&lt;br /&gt;
end of ty_log.&lt;br /&gt;
&lt;br /&gt;
data gt_log type TABLE OF ty_log.&lt;br /&gt;
data gs_log like LINE OF gt_log.&lt;br /&gt;
&lt;br /&gt;
*alv data&lt;br /&gt;
data gr_table  type ref to cl_salv_table.&lt;br /&gt;
data: gr_selections type ref to cl_salv_selections,&lt;br /&gt;
      gt_rows       type salv_t_row.&lt;br /&gt;
data: gr_functions type ref to cl_salv_functions_list.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
PARAMETERS: p_file type string LOWER CASe OBLIGATORY,&lt;br /&gt;
            p_test type BAPIFLAG DEFAULT &amp;#039;X&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
at selection-screen on value-request for p_file.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
  gd_tfile = p_file.&lt;br /&gt;
&lt;br /&gt;
  call function &amp;#039;F4_FILENAME&amp;#039;&lt;br /&gt;
    EXPORTING&lt;br /&gt;
      field_name = &amp;#039;P_FILE&amp;#039;&lt;br /&gt;
    IMPORTING&lt;br /&gt;
      file_name  = gd_tfile.&lt;br /&gt;
&lt;br /&gt;
  move gd_tfile to p_file.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
START-OF-SELECTION.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
&lt;br /&gt;
  PERFORM upload.&lt;br /&gt;
&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
end-of-SELECTION.&lt;br /&gt;
*--------------------------------------------------------------------*&lt;br /&gt;
  if gt_data[] is INITIAL.&lt;br /&gt;
    write:/ &amp;#039;No se seleccionaron datos&amp;#039;.&lt;br /&gt;
    RETURN.&lt;br /&gt;
  endif.&lt;br /&gt;
&lt;br /&gt;
  PERFORM crear_hoja_de_ruta.&lt;br /&gt;
&lt;br /&gt;
  PERFORM display_log.&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp;      Form  get_task_list_group&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*       text&lt;br /&gt;
*----------------------------------------------------------------------*&lt;br /&gt;
*  --&amp;gt;  p1        text&lt;br /&gt;
*  &amp;lt;--  p2        text&lt;br /&gt;
*----------------------------------------------------------------------*&lt;br /&gt;
FORM get_task_list_group using i_change&lt;br /&gt;
                               gs_bapi_mtk type BAPI1012_MTK_C&lt;br /&gt;
                                gs_bapi_tsk  type BAPI1012_TSK_C.&lt;br /&gt;
&lt;br /&gt;
  DATA: BEGIN OF ls_h,&lt;br /&gt;
          valid_to TYPE sydatum,&lt;br /&gt;
          lin      TYPE i,&lt;br /&gt;
        END OF ls_h,&lt;br /&gt;
        ls_mtk_int TYPE maplb,&lt;br /&gt;
        lt_mtk_int TYPE TABLE OF maplb,&lt;br /&gt;
        ls_tsk_int TYPE plko.&lt;br /&gt;
&lt;br /&gt;
  ls_h-valid_to = sy-datum.&lt;br /&gt;
* read material task allocation&lt;br /&gt;
  CALL FUNCTION &amp;#039;CP_DB_MAPL_READ&amp;#039;&lt;br /&gt;
    EXPORTING&lt;br /&gt;
      datub      = ls_h-valid_to&lt;br /&gt;
      datuv      = gs_bapi_mtk-valid_from&lt;br /&gt;
      matnr      = gs_bapi_mtk-material&lt;br /&gt;
      werks      = gs_bapi_mtk-plant&lt;br /&gt;
    TABLES&lt;br /&gt;
      matpl      = lt_mtk_int&lt;br /&gt;
    EXCEPTIONS&lt;br /&gt;
      no_records = 1&lt;br /&gt;
      OTHERS     = 2.&lt;br /&gt;
  CHECK: sy-subrc = 0.&lt;br /&gt;
* delete deleted material task allocations&lt;br /&gt;
  DELETE lt_mtk_int WHERE loekz = &amp;#039;X&amp;#039;.&lt;br /&gt;
*  IF gs_cntrl-flg_change_mode = const-flg_yes.&lt;br /&gt;
  if i_change = &amp;#039;X&amp;#039;.&lt;br /&gt;
    DELETE lt_mtk_int WHERE plnal &amp;lt;&amp;gt; gs_bapi_mtk-group_counter.&lt;br /&gt;
  ENDIF.&lt;br /&gt;
  DESCRIBE TABLE lt_mtk_int LINES ls_h-lin.&lt;br /&gt;
  IF ls_h-lin = 1 OR i_change is INITIAL.&lt;br /&gt;
    READ TABLE lt_mtk_int INTO ls_mtk_int INDEX 1.&lt;br /&gt;
    CHECK: sy-subrc = 0.&lt;br /&gt;
*    gs_cntrl-task_list_group = ls_mtk_int-plnnr.&lt;br /&gt;
  ELSE.&lt;br /&gt;
    SORT lt_mtk_int BY datuv DESCENDING.&lt;br /&gt;
    LOOP AT lt_mtk_int INTO ls_mtk_int.&lt;br /&gt;
* read task list header&lt;br /&gt;
      CALL FUNCTION &amp;#039;CI03_READ_PLKO&amp;#039;&lt;br /&gt;
        EXPORTING&lt;br /&gt;
          i_plnty         = ls_mtk_int-plnty&lt;br /&gt;
          i_plnnr         = ls_mtk_int-plnnr&lt;br /&gt;
          i_plnal         = ls_mtk_int-plnal&lt;br /&gt;
          i_date          = ls_mtk_int-datuv&lt;br /&gt;
        IMPORTING&lt;br /&gt;
          e_plko          = ls_tsk_int&lt;br /&gt;
        EXCEPTIONS&lt;br /&gt;
          tl_not_existent = 1&lt;br /&gt;
          tl_not_valid    = 2&lt;br /&gt;
          OTHERS          = 3.&lt;br /&gt;
      CHECK: sy-subrc = 0.&lt;br /&gt;
      IF ls_tsk_int-verwe = gs_bapi_tsk-task_list_usage.&lt;br /&gt;
*        gs_cntrl-task_list_group = ls_tsk_int-plnnr.&lt;br /&gt;
        EXIT.&lt;br /&gt;
      ENDIF.&lt;br /&gt;
    ENDLOOP.&lt;br /&gt;
  ENDIF.&lt;br /&gt;
&lt;br /&gt;
ENDFORM.                    &amp;quot; get_task_list_group&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp;      Form  select_data&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*       text&lt;br /&gt;
*----------------------------------------------------------------------*&lt;br /&gt;
form crear_hoja_de_ruta.&lt;br /&gt;
&lt;br /&gt;
  data lt_MATERIALTASKALLOCATION type TABLE OF BAPI1012_MTK_C .&lt;br /&gt;
  data lt_task type TABLE OF BAPI1012_TSK_C.&lt;br /&gt;
  data lt_OPERATION type TABLE OF BAPI1012_OPR_C.&lt;br /&gt;
  data lt_INSPCHARACTERISTIC type TABLE OF BAPI1012_CHA_C.&lt;br /&gt;
&lt;br /&gt;
  data ls_MATERIALTASKALLOCATION type BAPI1012_MTK_C .&lt;br /&gt;
  data ls_task type BAPI1012_TSK_C.&lt;br /&gt;
  data ls_OPERATION type BAPI1012_OPR_C.&lt;br /&gt;
  data ls_INSPCHARACTERISTIC type BAPI1012_CHA_C.&lt;br /&gt;
&lt;br /&gt;
  data lt_return type TABLE OF bapiret2.&lt;br /&gt;
  data ls_return like LINE OF lt_return.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
  loop at gt_data into gs_data.&lt;br /&gt;
    clear: gt_data_material[].&lt;br /&gt;
    clear: gt_data_operacion[].&lt;br /&gt;
    clear: gt_data_cha[].&lt;br /&gt;
&lt;br /&gt;
    CALL FUNCTION &amp;#039;CONVERSION_EXIT_ALPHA_INPUT&amp;#039;&lt;br /&gt;
      EXPORTING&lt;br /&gt;
        INPUT  = gs_data-GROUP_COUNTER&lt;br /&gt;
      IMPORTING&lt;br /&gt;
        OUTPUT = gs_data-GROUP_COUNTER.&lt;br /&gt;
&lt;br /&gt;
    CALL FUNCTION &amp;#039;CONVERSION_EXIT_MATN1_INPUT&amp;#039;&lt;br /&gt;
      EXPORTING&lt;br /&gt;
        INPUT        = gs_data-MATERIAL&lt;br /&gt;
      IMPORTING&lt;br /&gt;
        OUTPUT       = gs_data-MATERIAL&lt;br /&gt;
      EXCEPTIONS&lt;br /&gt;
        LENGTH_ERROR = 1&lt;br /&gt;
        OTHERS       = 2.&lt;br /&gt;
    IF SY-SUBRC &amp;lt;&amp;gt; 0.&lt;br /&gt;
      clear gs_data-MATERIAL.&lt;br /&gt;
    ENDIF.&lt;br /&gt;
&lt;br /&gt;
    CALL FUNCTION &amp;#039;CONVERSION_EXIT_NUMCV_INPUT&amp;#039;&lt;br /&gt;
      EXPORTING&lt;br /&gt;
        INPUT  = gs_data-ACTIVITY&lt;br /&gt;
      IMPORTING&lt;br /&gt;
        OUTPUT = gs_data-ACTIVITY.&lt;br /&gt;
&lt;br /&gt;
    MOVE-CORRESPONDING gs_data to gs_data_material.&lt;br /&gt;
    MOVE-CORRESPONDING gs_data to gs_data_operacion.&lt;br /&gt;
    MOVE-CORRESPONDING gs_data to gs_data_cha.&lt;br /&gt;
&lt;br /&gt;
    append gs_data_material to gt_data_material.&lt;br /&gt;
    append gs_data_operacion to gt_data_operacion.&lt;br /&gt;
    append gs_data_cha to gt_data_cha.&lt;br /&gt;
*  ENDLOOP.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
    loop at gt_data_material into gs_data_material.&lt;br /&gt;
      clear: lt_OPERATION[],&lt;br /&gt;
             lt_INSPCHARACTERISTIC[],&lt;br /&gt;
             lt_MATERIALTASKALLOCATION[],&lt;br /&gt;
             lt_task[],&lt;br /&gt;
             lt_return[].&lt;br /&gt;
&lt;br /&gt;
*    clear gs_data-TASK_LIST_GROUP.&lt;br /&gt;
*    gs_data-GROUP_COUNTER = 2.&lt;br /&gt;
&lt;br /&gt;
      MOVE-CORRESPONDING gs_data to ls_MATERIALTASKALLOCATION.&lt;br /&gt;
      if ls_MATERIALTASKALLOCATION-MATERIAL is NOT INITIAL.&lt;br /&gt;
        append ls_MATERIALTASKALLOCATION to lt_MATERIALTASKALLOCATION.&lt;br /&gt;
      endif.&lt;br /&gt;
&lt;br /&gt;
      MOVE-CORRESPONDING gs_data to ls_task.&lt;br /&gt;
      ls_task-TASK_LIST_USAGE = &amp;#039;1&amp;#039;.&lt;br /&gt;
      ls_task-TASK_LIST_STATUS = &amp;#039;4&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
      ls_task-valid_from = sy-datum.&lt;br /&gt;
      ls_task-valid_to_date = &amp;#039;99991231&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
*    ls_task-TASK_MEASURE_UNIT = &amp;#039;KI&amp;#039;.  &amp;quot;CA&lt;br /&gt;
      APPEND ls_task to lt_task.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
      loop at gt_data_operacion into gs_data_operacion where&lt;br /&gt;
           MATERIAL =  gs_data_material-MATERIAL&lt;br /&gt;
           and PLANT    = gs_data_material-plant&lt;br /&gt;
           and TASK_LIST_GROUP = gs_data_material-TASK_LIST_GROUP&lt;br /&gt;
           and GROUP_COUNTER  = gs_data_material-GROUP_COUNTER&lt;br /&gt;
        and ACTIVITY is NOT INITIAL.&lt;br /&gt;
&lt;br /&gt;
        ls_OPERATION-TASK_LIST_GROUP = gs_data_material-TASK_LIST_GROUP.&lt;br /&gt;
        ls_OPERATION-GROUP_COUNTER   = gs_data_material-GROUP_COUNTER.&lt;br /&gt;
        ls_OPERATION-ACTIVITY = gs_data_operacion-ACTIVITY.&lt;br /&gt;
        ls_OPERATION-WORK_CNTR  = gs_data_operacion-WORK_CNTR.&lt;br /&gt;
        ls_OPERATION-CONTROL_KEY  = gs_data_operacion-CONTROL_KEY.&lt;br /&gt;
        ls_OPERATION-DESCRIPTION  = gs_data_operacion-DESCRIPTION.&lt;br /&gt;
        ls_OPERATION-INSP_POINT_COMPLT_FLOW_VARIANT  = gs_data_operacion-INSP_POINT_COMPLT_FLOW_VARIANT.&lt;br /&gt;
        ls_OPERATION-TIME_GRID  = gs_data_operacion-TIME_GRID.&lt;br /&gt;
        ls_OPERATION-TIME_FACTOR  = gs_data_operacion-TIME_FACTOR.&lt;br /&gt;
        ls_OPERATION-TIME_UNIT  = gs_data_operacion-TIME_UNIT.&lt;br /&gt;
        ls_OPERATION-DENOMINATOR  = gs_data_operacion-DENOMINATOR.&lt;br /&gt;
        ls_OPERATION-NOMINATOR   = gs_data_operacion-NOMINATOR.&lt;br /&gt;
        ls_OPERATION-base_quantity = gs_data_operacion-base_quantity.&lt;br /&gt;
&lt;br /&gt;
        append ls_OPERATION to lt_OPERATION.&lt;br /&gt;
&lt;br /&gt;
        loop at gt_data_cha into gs_data_cha where&lt;br /&gt;
                 MATERIAL =  gs_data_material-MATERIAL&lt;br /&gt;
                 and PLANT    = gs_data_material-plant&lt;br /&gt;
                 and TASK_LIST_GROUP = gs_data_material-TASK_LIST_GROUP&lt;br /&gt;
                 and GROUP_COUNTER  = gs_data_material-GROUP_COUNTER&lt;br /&gt;
                 and ACTIVITY = gs_data_operacion-ACTIVITY&lt;br /&gt;
                 and INSPCHAR is NOT INITIAL.&lt;br /&gt;
&lt;br /&gt;
          ls_INSPCHARACTERISTIC-TASK_LIST_GROUP = gs_data_material-TASK_LIST_GROUP.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-GROUP_COUNTER   = gs_data_material-GROUP_COUNTER.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-ACTIVITY = gs_data_cha-ACTIVITY.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-INSPCHAR  = gs_data_cha-INSPCHAR.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-MSTR_CHAR  = gs_data_cha-MSTR_CHAR.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-SMPL_PROCEDURE  = gs_data_cha-SMPL_PROCEDURE.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-SMPL_UNIT  = gs_data_cha-SMPL_UNIT.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-SMPL_QUANT  = gs_data_cha-SMPL_QUANT.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-DYN_MODIF_RULE  = gs_data_cha-DYN_MODIF_RULE.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-SPC_CRITERION_KEY  = gs_data_cha-SPC_CRITERION_KEY .&lt;br /&gt;
          ls_INSPCHARACTERISTIC-UP_TOL_LMT  = gs_data_cha-UP_TOL_LMT.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-LW_TOL_LMT  = gs_data_cha-LW_TOL_LMT.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-FORMULA_CHECK_BY_SAP  = gs_data_cha-FORMULA_CHECK_BY_SAP.&lt;br /&gt;
          ls_INSPCHARACTERISTIC-FORMULA_FIELD_1  = gs_data_cha-FORMULA_FIELD_1 .&lt;br /&gt;
          ls_INSPCHARACTERISTIC-FORMULA_FIELD_2  = gs_data_cha-FORMULA_FIELD_2 .&lt;br /&gt;
          ls_INSPCHARACTERISTIC-CHAR_DESCR = gs_data_cha-CHAR_DESCR.&lt;br /&gt;
&lt;br /&gt;
          append ls_INSPCHARACTERISTIC to lt_INSPCHARACTERISTIC.&lt;br /&gt;
&lt;br /&gt;
        endloop.&lt;br /&gt;
&lt;br /&gt;
      endloop.&lt;br /&gt;
&lt;br /&gt;
*    MOVE-CORRESPONDING gs_data to ls_OPERATION.&lt;br /&gt;
*    MOVE-CORRESPONDING gs_data to ls_INSPCHARACTERISTIC.&lt;br /&gt;
*    append ls_OPERATION to lt_OPERATION.&lt;br /&gt;
*    APPEND ls_INSPCHARACTERISTIC to lt_INSPCHARACTERISTIC.&lt;br /&gt;
&lt;br /&gt;
      data ld_testrun TYPE  BAPIFLAG.&lt;br /&gt;
&lt;br /&gt;
      ld_testrun = &amp;#039;X&amp;#039;.&lt;br /&gt;
&lt;br /&gt;
      data ld_BOMUSAGE type  BAPI1012_CONTROL_DATA-BOM_USAGE .&lt;br /&gt;
&lt;br /&gt;
      ld_BOMUSAGE = &amp;#039;1&amp;#039;. &amp;quot;fabricacion&lt;br /&gt;
&lt;br /&gt;
      CALL FUNCTION &amp;#039;BAPI_ROUTING_CREATE&amp;#039;&lt;br /&gt;
       EXPORTING&lt;br /&gt;
         TESTRUN                      = p_test&lt;br /&gt;
*   PROFILE                      =&lt;br /&gt;
         BOMUSAGE                     = ld_BOMUSAGE&lt;br /&gt;
*   APPLICATION                  =&lt;br /&gt;
* IMPORTING&lt;br /&gt;
*   GROUP                        =&lt;br /&gt;
*   GROUPCOUNTER                 =&lt;br /&gt;
        TABLES&lt;br /&gt;
           TASK                         = lt_task&lt;br /&gt;
           MATERIALTASKALLOCATION       = lt_MATERIALTASKALLOCATION&lt;br /&gt;
*   SEQUENCE                     =&lt;br /&gt;
           OPERATION                    = lt_OPERATION&lt;br /&gt;
*   LENGTHCALCULATION            =&lt;br /&gt;
*   SUBOPERATION                 =&lt;br /&gt;
*   REFERENCEOPERATION           =&lt;br /&gt;
*   WORKCENTERREFERENCE          =&lt;br /&gt;
*   COMPONENTALLOCATION          =&lt;br /&gt;
*   PRODUCTIONRESOURCE           =&lt;br /&gt;
           INSPCHARACTERISTIC           = lt_INSPCHARACTERISTIC&lt;br /&gt;
*   TEXTALLOCATION               =&lt;br /&gt;
*   TEXT                         =&lt;br /&gt;
           RETURN                       = lt_return&lt;br /&gt;
                  .&lt;br /&gt;
&lt;br /&gt;
      MOVE-CORRESPONDING gs_data_material to gs_log.&lt;br /&gt;
      loop at lt_return into ls_return where type = &amp;#039;E&amp;#039; or type = &amp;#039;A&amp;#039;.&lt;br /&gt;
        MOVE-CORRESPONDING ls_return to gs_log.&lt;br /&gt;
        append gs_log to gt_log.&lt;br /&gt;
      endloop.&lt;br /&gt;
&lt;br /&gt;
      if sy-subrc &amp;lt;&amp;gt; 0.&lt;br /&gt;
        CALL FUNCTION &amp;#039;BAPI_TRANSACTION_COMMIT&amp;#039;&lt;br /&gt;
*     EXPORTING&lt;br /&gt;
*       WAIT          =&lt;br /&gt;
*     IMPORTING&lt;br /&gt;
*       RETURN        =&lt;br /&gt;
                  .&lt;br /&gt;
        gs_log-type = &amp;#039;S&amp;#039;.&lt;br /&gt;
        gs_log-message = &amp;#039;Hoja de ruta creada&amp;#039;.&lt;br /&gt;
        append gs_log to gt_log.&lt;br /&gt;
      endif.&lt;br /&gt;
*    BREAK-POINT.&lt;br /&gt;
    ENDLOOP.&lt;br /&gt;
  ENDLOOP.&lt;br /&gt;
*PERFORM get_task_list_group using &amp;#039;X&amp;#039;&lt;br /&gt;
*                               ls_MATERIALTASKALLOCATION&lt;br /&gt;
*                                ls_task.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
endform.                    &amp;quot;select_data&lt;br /&gt;
&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp;      Form  upload&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*       text&lt;br /&gt;
*----------------------------------------------------------------------*&lt;br /&gt;
form upload.&lt;br /&gt;
&lt;br /&gt;
  CALL FUNCTION &amp;#039;GUI_UPLOAD&amp;#039;&lt;br /&gt;
    EXPORTING&lt;br /&gt;
      FILENAME                = p_file&lt;br /&gt;
      FILETYPE                = &amp;#039;DAT&amp;#039;&lt;br /&gt;
    TABLES&lt;br /&gt;
      DATA_TAB                = gt_data&lt;br /&gt;
    EXCEPTIONS&lt;br /&gt;
      FILE_OPEN_ERROR         = 1&lt;br /&gt;
      FILE_READ_ERROR         = 2&lt;br /&gt;
      NO_BATCH                = 3&lt;br /&gt;
      GUI_REFUSE_FILETRANSFER = 4&lt;br /&gt;
      INVALID_TYPE            = 5&lt;br /&gt;
      NO_AUTHORITY            = 6&lt;br /&gt;
      UNKNOWN_ERROR           = 7&lt;br /&gt;
      BAD_DATA_FORMAT         = 8&lt;br /&gt;
      HEADER_NOT_ALLOWED      = 9&lt;br /&gt;
      SEPARATOR_NOT_ALLOWED   = 10&lt;br /&gt;
      HEADER_TOO_LONG         = 11&lt;br /&gt;
      UNKNOWN_DP_ERROR        = 12&lt;br /&gt;
      ACCESS_DENIED           = 13&lt;br /&gt;
      DP_OUT_OF_MEMORY        = 14&lt;br /&gt;
      DISK_FULL               = 15&lt;br /&gt;
      DP_TIMEOUT              = 16&lt;br /&gt;
      OTHERS                  = 17.&lt;br /&gt;
  IF SY-SUBRC &amp;lt;&amp;gt; 0.&lt;br /&gt;
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO&lt;br /&gt;
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.&lt;br /&gt;
  ENDIF.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
endform.                    &amp;quot;upload&lt;br /&gt;
&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*&amp;amp;      Form  display_log&lt;br /&gt;
*&amp;amp;---------------------------------------------------------------------*&lt;br /&gt;
*       text&lt;br /&gt;
*----------------------------------------------------------------------*&lt;br /&gt;
FORM display_log.&lt;br /&gt;
*... Create Instance&lt;br /&gt;
  TRY.&lt;br /&gt;
    cl_salv_table=&amp;gt;factory( IMPORTING r_salv_table = DATA(gr_table)&lt;br /&gt;
                             CHANGING t_table = gt_log ).&lt;br /&gt;
    CATCH cx_salv_msg.&lt;br /&gt;
  ENDTRY.&lt;br /&gt;
&lt;br /&gt;
*... Enable Generic ALV functions&lt;br /&gt;
  data(gr_functions) = gr_table-&amp;gt;get_functions( ).&lt;br /&gt;
**  gr_functions-&amp;gt;set_default( ).&lt;br /&gt;
  gr_functions-&amp;gt;set_all( ).&lt;br /&gt;
&lt;br /&gt;
  data(lr_columns) = gr_table-&amp;gt;get_columns( ).&lt;br /&gt;
&lt;br /&gt;
* set column text&lt;br /&gt;
  TRY.&lt;br /&gt;
      data(lr_column) = lr_columns-&amp;gt;get_column( &amp;#039;EQUIPMENT_O&amp;#039; ).&lt;br /&gt;
      lr_column-&amp;gt;set_long_text( &amp;#039;Equipo Original&amp;#039; ).&lt;br /&gt;
      lr_column-&amp;gt;set_medium_text( &amp;#039;Equi.Ori.&amp;#039; ).&lt;br /&gt;
      lr_column-&amp;gt;set_short_text( &amp;#039;Equi.Ori.&amp;#039; ).&lt;br /&gt;
    CATCH cx_salv_not_found.&lt;br /&gt;
    CATCH cx_salv_existing.&lt;br /&gt;
    CATCH cx_salv_data_error.&lt;br /&gt;
  ENDTRY.&lt;br /&gt;
&lt;br /&gt;
*... Display table&lt;br /&gt;
  gr_table-&amp;gt;display( ).&lt;br /&gt;
&lt;br /&gt;
ENDFORM.                    &amp;quot;display_log&amp;lt;/nowiki&amp;gt;&lt;/div&gt;</summary>
		<author><name>WikiSysop</name></author>
		
	</entry>
</feed>