SAP PM BAPI HOJARUTA
From SapWiki
Contents
Leer Hoja de Ruta de Equipos (IA01)
FORM select_data.
DATA ld_lines_o TYPE i.
DATA ld_lines_m TYPE i.
* data para puesto de trabajo (ARBPL)
SELECT DISTINCT objid arbpl
FROM crhd
INTO TABLE lt_crhd
FOR ALL ENTRIES IN gt_plpo
WHERE objid = gt_plpo-arbid.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_eapl FROM eapl
WHERE iwerk = p_werks
AND equnr IN s_equnr
AND plnty = p_plnty
AND loekz <> 'X'.
CLEAR: gt_plko[],
gt_plpo[],
gt_plmk[].
DESCRIBE TABLE gt_eapl LINES lin.
LOOP AT gt_eapl INTO gs_eapl.
succ = 100 / lin * sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = succ
text = text-001.
gs_data_h-code = '1'.
gs_data_h-equnr = gs_eapl-equnr.
gs_data_h-werks = gs_eapl-iwerk.
gs_data_h-plnal = gs_eapl-plnal.
CALL FUNCTION 'CP_EX_PLAN_READ'
EXPORTING
plnty_imp = gs_eapl-plnty
plnnr_imp = gs_eapl-plnnr
plnal_imp = gs_eapl-plnal
sttag_imp = sy-datum
TABLES
plko_exp = gt_plko
plmz_exp = gt_plmz
plpo_exp = gt_plpo
pltx_exp = gt_pltxd
plmk_exp = gt_plmk
EXCEPTIONS
not_found = 1
plnal_initial = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT gt_plko INTO gs_plko WHERE plnty = gs_eapl-plnty
AND plnnr = gs_eapl-plnnr
AND plnal = gs_eapl-plnal.
gs_data_h-sttag = gs_plko-datuv.
gs_data_h-ktext = gs_plko-ktext.
gs_data_h-werks = gs_plko-werks.
READ TABLE lt_crhd INTO ls_crhd WITH KEY objid = gs_plko-arbid.
IF sy-subrc = 0.
gs_data_h-arbpl = ls_crhd-arbpl.
ENDIF.
gs_data_h-verwe = gs_plko-verwe.
gs_data_h-vagrp = gs_plko-vagrp.
gs_data_h-statu = gs_plko-statu.
gs_data_h-anlzu = gs_plko-anlzu.
gs_data_h-strat = gs_plko-strat.
gs_data_h-istru = gs_plko-istru.
PERFORM set_nuevos_valores_h.
APPEND gs_data_h TO gt_salida.
DATA ls_stpo TYPE stpo.
DATA gt_stpo TYPE TABLE OF stpo.
DATA gt_plwp TYPE TABLE OF plwp.
DATA gs_stpo LIKE LINE OF gt_stpo.
DATA gs_plwp LIKE LINE OF gt_plwp.
DATA ld_equi(8) TYPE n.
DATA ld_name LIKE thead-tdname.
DATA lt_lines LIKE TABLE OF tline.
DATA ls_lines LIKE LINE OF lt_lines.
ld_equi = gs_eapl-equnr.
LOOP AT gt_plpo INTO gs_plpo.
CLEAR: gt_stpo[],
gt_plwp[].
gs_data_d-code = '2'.
MOVE-CORRESPONDING gs_plpo TO gs_data_d.
READ TABLE lt_crhd INTO ls_crhd WITH KEY objid = gs_plpo-arbid.
IF sy-subrc = 0.
gs_data_d-arbpl = ls_crhd-arbpl.
ENDIF.
PERFORM set_nuevos_valores_d.
APPEND gs_data_d TO gt_salida.
ENDLOOP. "operaciones
ENDLOOP. "grupo hoja ruta
ENDLOOP. "EAPL
==Leer Hoja de Ruta Materiales (CA01)==
<nowiki>FORM select_data.
DATA: BEGIN OF lt_hoja,
plnnr LIKE mapl-plnnr,
werks LIKE mapl-werks,
matnr LIKE mapl-matnr,
END OF lt_hoja.
DATA ld_lines_o TYPE i.
DATA ld_lines_m TYPE i.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_mapl FROM mapl
WHERE werks = p_werks
AND matnr IN s_matnr
AND plnty = p_plnty
AND loekz <> 'X'.
CLEAR: gt_plko[],
gt_plpo[],
gt_plmk[].
DESCRIBE TABLE gt_mapl LINES lin.
LOOP AT gt_mapl INTO gs_mapl.
succ = 100 / lin * sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = succ
text = text-001.
CLEAR gs_data.
gs_data-datuv = gs_mapl-datuv.
gs_data-material = gs_mapl-matnr.
gs_data-plant = gs_mapl-werks.
gs_data-task_list_group = gs_mapl-plnnr.
gs_data-group_counter = gs_mapl-plnal.
CALL FUNCTION 'CP_EX_PLAN_READ'
EXPORTING
plnty_imp = gs_mapl-plnty
plnnr_imp = gs_mapl-plnnr
plnal_imp = gs_mapl-plnal
sttag_imp = sy-datum
TABLES
plko_exp = gt_plko =
plpo_exp = gt_plpo
plmk_exp = gt_plmk
EXCEPTIONS
not_found = 1
plnal_initial = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT gt_plko INTO gs_plko WHERE plnty = gs_mapl-plnty
AND plnnr = gs_mapl-plnnr
AND plnal = gs_mapl-plnal.
gs_data-ident_key = gs_plko-slwbez.
gs_data-insppoint_partiallot_assgnmt = gs_plko-ppkztlzu.
gs_data-dyn_modif_level = gs_plko-qdynhead.
gs_data-dyn_modif_rule = gs_plko-qdynregel.
gs_data-quantonce = gs_plko-ppkztlzu.
gs_data-task_measure_unit = gs_plko-plnme.
ENDLOOP. "PLKO
ENDLOOP. "MAPL
LOOP AT gt_data INTO gs_data.
MOVE gs_data-task_list_group TO gs_data_o-group.
MOVE gs_data-group_counter TO gs_data_o-grcnt.
MOVE gs_data-datuv TO gs_data_o-date.
MOVE gs_data-ident_key TO gs_data_o-insp_point.
MOVE gs_data-quantonce TO gs_data_o-part_lot.
MOVE gs_data-dyn_modif_level TO gs_data_o-dm_level.
MOVE gs_data-dyn_modif_rule TO gs_data_o-dm_rule.
APPEND gs_data_o TO gt_data_o.
ENDLOOP.
ENDFORM. "select_data
Leer Hoja de Ruta de Ubicaciones Técnicas (IA11)
FORM select_data.
DATA ld_lines_o TYPE i.
DATA ld_lines_m TYPE i.
* data para puesto de trabajo (ARBPL)
SELECT DISTINCT objid
arbpl
FROM crhd
INTO TABLE lt_crhd
FOR ALL ENTRIES IN gt_plpo
WHERE objid = gt_plpo-arbid. "#EC CI_NOFIRST
SELECT * INTO TABLE gt_tapl from tapl
WHERE tplnr IN s_tplnr
AND plnty = p_plnty
AND iwerk = p_werks
AND loekz = space.
CLEAR: gt_plko[],
gt_plpo[],
gt_plmk[].
DESCRIBE TABLE gt_tapl LINES lin.
LOOP AT gt_tapl INTO gs_tapl.
succ = 100 / lin * sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = succ
text = text-001.
gs_data-tplnr = gs_tapl-tplnr.
gs_data-werks = gs_tapl-iwerk.
gs_data-plnal = gs_tapl-plnal.
CALL FUNCTION 'CP_EX_PLAN_READ'
EXPORTING
plnty_imp = gs_tapl-plnty
plnnr_imp = gs_tapl-plnnr
plnal_imp = gs_tapl-plnal
sttag_imp = sy-datum
TABLES
plko_exp = gt_plko
plmz_exp = gt_plmz
plpo_exp = gt_plpo
plmk_exp = gt_plmk
EXCEPTIONS
not_found = 1
plnal_initial = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA ld_cont(2) TYPE n.
LOOP AT gt_plko INTO gs_plko WHERE plnty = gs_tapl-plnty
AND plnnr = gs_tapl-plnnr
AND plnal = gs_tapl-plnal.
gs_data-sttag = gs_plko-datuv.
gs_data-ktext = gs_plko-ktext.
gs_data-werks = gs_plko-werks.
READ TABLE lt_crhd INTO ls_crhd WITH KEY objid = gs_plko-arbid.
IF sy-subrc = 0.
gs_data-arbpl = ls_crhd-arbpl.
ENDIF.
gs_data-verwe = gs_plko-verwe.
gs_data-vagrp = gs_plko-vagrp.
gs_data-statu = gs_plko-statu.
gs_data-anlzu = gs_plko-anlzu.
gs_data-strat = gs_plko-strat.
* data gt_PLMZ type TABLE OF PLMZPM.
DATA ls_stpo TYPE stpo.
DATA gt_stpo TYPE TABLE OF stpo.
DATA gt_plwp TYPE TABLE OF plwp.
DATA gs_stpo LIKE LINE OF gt_stpo.
DATA gs_plwp LIKE LINE OF gt_plwp.
DATA ld_name LIKE thead-tdname.
DATA lt_lines LIKE TABLE OF tline.
DATA ls_lines LIKE LINE OF lt_lines.
ld_cont = 0.
LOOP AT gt_plpo INTO gs_plpo.
CLEAR: gt_stpo[],
gt_plwp[].
ADD 1 TO ld_cont.
IF ld_cont = 1.
mc_set_plpo 01.
gs_data-indet_01 = gs_plpo-indet.
ELSEIF ld_cont = 2.
mc_set_plpo 02.
ELSEIF ld_cont = 3.
mc_set_plpo 03.
EXIT.
ENDIF.
ENDLOOP. "operaciones
MOVE-CORRESPONDING gs_data TO gs_data_o.
APPEND gs_data_o TO gt_data_o.
ENDLOOP. "grupo hoja ruta
ENDLOOP. "EAPL
Leer Hoja de Ruta Instrucciones (IA05)
FORM select_data.
DATA ld_lines_o TYPE i.
DATA ld_lines_m TYPE i.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_plko_a FROM plko
WHERE werks = p_werks
AND plnty = p_plnty
AND loekz <> 'X'.
* data para puesto de trabajo (ARBPL)
SELECT DISTINCT objid
arbpl
werks
FROM crhd
INTO TABLE lt_crhd
FOR ALL ENTRIES IN gt_plko_a
WHERE objid = gt_plko_a-arbid.
CLEAR: gt_plko[],
gt_plpo[],
gt_plmk[].
DESCRIBE TABLE gt_plko_a LINES lin.
LOOP AT gt_plko_a INTO gs_plko.
succ = 100 / lin * sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = succ
text = text-001.
gs_data-werks_h = gs_plko-werks.
gs_data-plnnr = gs_plko-plnnr.
gs_data-plnal = gs_plko-plnal.
CALL FUNCTION 'CP_EX_PLAN_READ'
EXPORTING
plnty_imp = gs_plko-plnty
plnnr_imp = gs_plko-plnnr
plnal_imp = gs_plko-plnal
sttag_imp = sy-datum
TABLES
plko_exp = gt_plko
plmz_exp = gt_plmz
plpo_exp = gt_plpo
plmk_exp = gt_plmk
EXCEPTIONS
not_found = 1
plnal_initial = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT gt_plko INTO gs_plko .
gs_data-ktext = gs_plko-ktext.
gs_data-werks_h = gs_plko-werks.
READ TABLE lt_crhd INTO ls_crhd WITH KEY objid = gs_plko-arbid.
IF sy-subrc = 0.
gs_data-arbpl_h = ls_crhd-arbpl.
gs_data-werks = ls_crhd-werks.
ENDIF.
gs_data-verwe = gs_plko-verwe.
gs_data-vagrp = gs_plko-vagrp.
gs_data-statu = gs_plko-statu.
gs_data-datuv = gs_plko-datuv.
ENDLOOP. "grupo hoja ruta
ENDLOOP. "EAPL
Leer Hoja de Ruta de Materiales (CA01)
FORM select_data.
DATA: BEGIN OF lt_hoja,
plnnr LIKE mapl-plnnr,
werks LIKE mapl-werks,
matnr LIKE mapl-matnr,
END OF lt_hoja.
DATA ld_lines_o TYPE i.
DATA ld_lines_m TYPE i.
* data para puesto de trabajo (ARBPL)
SELECT DISTINCT objid
arbpl
FROM crhd
INTO TABLE lt_crhd
FOR ALL ENTRIES IN gt_plpo
WHERE objid = gt_plpo-arbid.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_mapl FROM mapl
WHERE werks = p_werks
AND matnr IN s_matnr
AND plnty = p_plnty
AND loekz <> 'X'.
CLEAR: gt_plko[],
gt_plpo[],
gt_plmk[].
DESCRIBE TABLE gt_mapl LINES lin.
LOOP AT gt_mapl INTO gs_mapl.
succ = 100 / lin * sy-tabix.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = succ
text = text-001.
CLEAR gs_data.
gs_data-matnr = gs_mapl-matnr.
gs_data-werks = gs_mapl-werks.
gs_data-plnnr = gs_mapl-plnnr.
gs_data-plnal = gs_mapl-plnal.
CALL FUNCTION 'CP_EX_PLAN_READ'
EXPORTING
plnty_imp = gs_mapl-plnty
plnnr_imp = gs_mapl-plnnr
plnal_imp = gs_mapl-plnal
sttag_imp = sy-datum
TABLES
plko_exp = gt_plko
plpo_exp = gt_plpo
plmk_exp = gt_plmk
EXCEPTIONS
not_found = 1
plnal_initial = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT gt_plko INTO gs_plko WHERE plnty = gs_mapl-plnty
AND plnnr = gs_mapl-plnnr
AND plnal = gs_mapl-plnal.
READ TABLE lt_crhd INTO ls_crhd WITH KEY objid = gs_plpo-arbid.
IF sy-subrc = 0.
gs_data-arbpl = ls_crhd-arbpl.
ENDIF.
MOVE-CORRESPONDING gs_plpo TO gs_data.
MOVE-CORRESPONDING gs_data TO gs_data_o.
PERFORM set_nuevos_valores.
APPEND gs_data_o TO gt_data_o.
ENDLOOP. "plpo
IF sy-subrc <> 0.
MOVE-CORRESPONDING gs_data TO gs_data_o.
PERFORM set_nuevos_valores.
APPEND gs_data_o TO gt_data_o.
ENDIF.
ENDLOOP. "PLKO
ENDLOOP. "MAPL
ENDFORM. "select_data
