*&---------更新凭证日期、价格
* 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.