ABAP - PO增强 - IF_EX_ME_PROCESS_PO_CUST~CHECK - 变更凭证日期
来源:互联网 发布:nginx日志格式配置 编辑:程序博客网 时间:2024/04/28 11:07
*&---------更新凭证日期、价格
* DATA:title TYPE char20 VALUE '凭证日期<变更>',
* question TYPE char50,
* icon_button_1 TYPE icon-name VALUE 'ICON_CHECKED',
* icon_button_2 TYPE icon-name VALUE 'ICON_INCOMPLETE',
* answer(1).
* DATA: l_cl_po TYPE REF TO cl_po_header_handle_mm.
* DATA: l_field TYPE string VALUE '(SAPLMEPO)EKKO-BEDAT'.
* DATA: lt_mmpur_tkomv TYPE mmpur_tkomv.
*
*
* IF sy-uname = '00103808' .
* IF l_header-zzgjahr IS NOT INITIAL AND l_header-aedat > '20110720' AND ( l_header-bsart BETWEEN 'ZNB1' AND 'ZNB2' ).
*
* IF l_header-bedat+0(4) <> l_header-zzgjahr.
* CONCATENATE '凭证日期' l_header-bedat ' 与旬的年度不一致,是否更新凭证日期及价格' INTO question.
* ELSEIF l_header-bedat+4(2) <> l_header-zzmonat.
* CONCATENATE '凭证日期' l_header-bedat ' 与旬的月份不一致,是否更新凭证日期及价格' INTO question.
* ENDIF.
* IF NOT question IS INITIAL.
* CALL FUNCTION 'POPUP_TO_CONFIRM'
* EXPORTING
* titlebar = title
* text_question = question
* default_button = 1
* display_cancel_button = ''
* text_button_1 = '是'(001)
* icon_button_1 = icon_button_1
* text_button_2 = '否'(002)
* icon_button_2 = icon_button_2
* IMPORTING
* answer = answer
* EXCEPTIONS
* text_not_found = 1
* OTHERS = 2.
* IF answer = 1. "更新PO数据
* IF l_header-bedat+4(2) NE 12.
* l_header-bedat+4(2) = l_header-bedat+4(2) + 1.
* l_header-bedat+6(2) = '01'.
* ELSE.
* l_header-bedat+0(4) = l_header-bedat+0(4) + 1.
* l_header-bedat+4(4) = '0101'.
* ENDIF.
*
* FIELD-SYMBOLS:<fs_bedat> TYPE ekko-bedat.
* l_cl_po ?= im_header.
* l_cl_po->my_ibs_firewall_on = 'X'.
* CALL METHOD l_cl_po->set_data( im_data = l_header ).
* CALL METHOD im_header->set_changed( ).
*&--------强制数据
* ASSIGN (l_field) TO <fs_bedat>.
* IF <fs_bedat> IS ASSIGNED.
* <fs_bedat> = l_header-bedat.
* ENDIF.
* EXIT.
* ENDIF.
* ENDIF.
* ENDIF.
* ENDIF.
- ABAP - PO增强 - IF_EX_ME_PROCESS_PO_CUST~CHECK - 变更凭证日期
- 物料凭证增强
- 凭证流的增强
- [abap] sort po components
- PO增强BADI
- abap物料凭证冲销BAPI_GOODSMVT_CANCEL
- ABAP MIR7预制凭证BAPI
- BAPI_ACC_DOCUMENT_POST生成预制凭证增强
- BAPI_ACC_DOCUMENT_POST生成预制凭证增强
- BAPI_ACC_DOCUMENT_POST生成预制凭证增强
- 财务凭证过账增强 BAPI_ACC_DOCUMENT_POST
- ABAP : Check (Ctrl + F2)
- ABAP : Check (Ctrl + F2)
- PO Delivery Completed 收货增强
- ABAP增强相关文档
- 转: ABAP增强介绍
- ABAP增强发展史
- ABAP增强查找方法
- 男人和女人的经典误会(转载)
- struts2_result-type
- 软件项目管理
- 对libpq进行简单的c++封装
- [一分钟学会系列之三]一分钟学会实现透明窗口度效果(待续)
- ABAP - PO增强 - IF_EX_ME_PROCESS_PO_CUST~CHECK - 变更凭证日期
- Windows 7中怎样安装oracle 10g我已成功!!
- 关于内存对齐
- ★☆ Visual Studio 2008 每日小窍门 【持续发布中~】 Tips:076
- [Oracle]ASP.NET+Oracle连接类conn.cs
- 初学C#破解之一-简单了解C#破解
- Linux的集群系统的文件系统介绍
- Oracle读取Blob数据-通过hibernate
- 网页效果获取鼠标点击的位置