PO条件在交货后更改控制点
GR之后無法進(jìn)行Change的情況解決方案:
新增斷點(diǎn)在程序:SAPLV69A ?- ?LV69AF22 / 18
Form : KONDITION_LOESCHEN
*----------------------------------------------------------------------*
***INCLUDE?LV69AF22?.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&??????Form??KONDITION_LOESCHEN
*&---------------------------------------------------------------------*
FORM?kondition_loeschen.
??DATA:?ls_mess?TYPE?balmi,
????????lo_pricing_cpf?TYPE?REF?TO?if_pricing_cpf.
*?loop?selected?lines
??LOOP?AT?xkomv?WHERE?selkz?=?'X'.
????IF?xkomv-kschl?NE?space?AND
???????xkomv-kherk?NA?'BD'?AND
???????xkomv-kmanu?NE?'D'.
??????IF?(?xkomv-kaend_loe?=?'X'?OR?xkomv-kherk?=?'C'?)?AND
?????????(?xkomv-kntyp?NA?komp-kaend_typ?OR
???????????xkomv-kntyp?EQ?space?OR?komp-kaend_typ?EQ?space?).
*?????????Delete?CPE?Formula?Data
????????IF?xkomv-krech?=?'Q'.
??????????CALL?FUNCTION?'CPE_ERP_FORMULA_DELETE'
????????????EXPORTING
??????????????iv_application????=?xkomv-kappl
??????????????iv_knumv??????????=?xkomv-knumv
??????????????iv_kposn??????????=?xkomv-kposn
??????????????iv_kschl??????????=?xkomv-kschl
????????????EXCEPTIONS
??????????????cpe_not_active????=?0
??????????????formula_not_found?=?0.
????????ENDIF.
*???????delete?CPF?data
????????IF?cl_prc_switch_check=>get_instance(?)->mv_log_prc_sfws_cs_617?EQ?abap_true.
??????????IF?xkomv-is_cpf_enabled?=?abap_true.
????????????lo_pricing_cpf?=?cl_pricing_cpf_factory=>if_pricing_cpf_factory~get_instance(?)->get_pricing_cpf(?iv_knumv?=?xkomv-knumv?).
????????????IF?lo_pricing_cpf?IS?BOUND.
??????????????TRY.
??????????????????lo_pricing_cpf->remove_condition_guid(?iv_kposn?=?xkomv-kposn
?????????????????????????????????????????????????????????iv_stunr?=?xkomv-stunr
?????????????????????????????????????????????????????????iv_zaehk?=?xkomv-zaehk?).
????????????????CATCH?cx_pricing_cpf?##no_handler.
??????????????ENDTRY.
????????????ENDIF.
??????????ENDIF.
????????ENDIF.
????????ENHANCEMENT-POINT?KONDITION_LOESCHEN_01?SPOTS?ES_SAPLV69A?.
*$*$-Start:?KONDITION_LOESCHEN_01---------------------------------------------------------------$*$*
ENHANCEMENT?11??OIC_SAPLV69A.????"active?version
??????????IF?XKOMV-KRECH?=?'Q'?AND?XKOMV-KHERK?=?'C'.????"SO4K003992?MMU
????????????PERFORM?OIC_FORMULA_DELETE.??????????????????"SO4K003992?MMU
??????????ENDIF.?????????????????????????????????????????"SO4K003992?MMU
ENDENHANCEMENT.
*$*$-End:???KONDITION_LOESCHEN_01---------------------------------------------------------------$*$*
*?preparations?for?deletion,?which?will?take?place?later
????????IF?xkomv-kherk?NE?'E'.
*?sepecial?handling?for?multi-dimensional?conditions?(freight)
??????????IF?NOT?xkomv-mdflg?IS?INITIAL.
????????????IF?<vfkomv>?IS?ASSIGNED.
??????????????CALL?FUNCTION?'SD_VFKOMV_DELETE'
????????????????EXPORTING
??????????????????i_komv???=?xkomv
????????????????CHANGING
??????????????????c_vfkomv?=?<vfkomv>.
????????????ENDIF.
??????????ENDIF.
??????????xkomv-kschl?=?space.
????????ELSE.
*?mark?item?sum?for?deletion
??????????xkomv-updkz?=?'D'.
????????ENDIF.
??????ELSE.
????????xkomv-selkz?=?space.
????????MESSAGE?i226?WITH?xkomv-kschl.
????????IF?NOT?gf_called_by_lord?IS?INITIAL.
??????????MOVE-CORRESPONDING?sy?TO?ls_mess.
??????????CALL?FUNCTION?'APPL_LOG_WRITE_SINGLE_MESSAGE'
????????????EXPORTING
??????????????object??=?'LORD'
??????????????MESSAGE?=?ls_mess.
????????ENDIF.
??????ENDIF.
????ELSE.
??????xkomv-selkz?=?space.
??????MESSAGE?i204?WITH?xkomv-kschl.
??????IF?NOT?gf_called_by_lord?IS?INITIAL.
????????MOVE-CORRESPONDING?sy?TO?ls_mess.
????????CALL?FUNCTION?'APPL_LOG_WRITE_SINGLE_MESSAGE'
??????????EXPORTING
????????????object??=?'LORD'
????????????MESSAGE?=?ls_mess.
??????ENDIF.
????ENDIF.
????MODIFY?xkomv.
??ENDLOOP.
??rv61a-ksteu?=?'A'.
ENDFORM.????????????????????"kondition_loeschen
完成。
總結(jié)
以上是生活随笔為你收集整理的PO条件在交货后更改控制点的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: SO抬头信息增强
- 下一篇: 黑火药跟黄火药的区别在哪里?