***INCLUDE MV45AFZZ .
*---------------------------------------------------------------------*
* FORM ZZEXAMPLE *
*---------------------------------------------------------------------*
* text...................................... *
*---------------------------------------------------------------------*
*FORM ZZEXAMPLE.
* ...
*ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_DELETE_DOCUMENT *
*---------------------------------------------------------------------*
* This userexit can be used to delete data in additional tables *
* when a sales document is deleted. *
* *
* This form is called in dialog at the end of form BELEG_LOESCHEN*
* just before form BELEG_SICHERN is performed to delete the *
* datas on the database. *
* *
*---------------------------------------------------------------------*
FORM userexit_delete_document.
ENDFORM. "USEREXIT_DELETE_DOCUMENT
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_FIELD_MODIFICATION *
*---------------------------------------------------------------------*
* This userexit can be used to modify the attributes of *
* screen fields. *
* This form is processed for each field in the screen. *
* *
* The use of the fields screen-group1 to screen-group4 is: *
* *
* Screen-group1: Automatic modification contolles by transaction*
* MFAW. *
* Screen-group2: Contents 'LOO' for steploop-fields. *
* Screen-group3: Used for modififaction, which are dependent on *
* control tables or other fix information. *
* Screen-group4: Unused *
* *
* For field mofifications, which are dependent on the document *
* status, you can use the status field in the workareas *
* XVBAP for item status and XVBUK for header status. *
* *
* This form is called from module FELDAUSWAHL. *
* *
*---------------------------------------------------------------------*
FORM userexit_field_modification.
* CASE SCREEN-GROUP3.
* WHEN '.
* IF VBAK-VBTYP NE 'A'.
* .
* ENDIF.
* ENDCASE.
* CASE screen-group2.
* WHEN 'LOO'.
* '.
* '.
* ENDIF.
* ENDCASE.
* CASE SCREEN-NAME.
* WHEN 'VBAK-VBELN'.
* .
* ENDCASE.
** Begin v1.
** 以下是免费样品订单（ZFD）对售达方的类型判断，限制售达方只能是内部办事处：账户组为： Susan
IF sy-tcode = 'VA01' OR sy-tcode = 'VA02' .
DATA:zktokd LIKE kna1-ktokd,kunnr LIKE vbak-kunnr.
IF xvbak-auart = 'ZFD' AND xvbak-kunnr IS NOT INITIAL.
* zktokd = kna1-ktokd while kunnr = xvbak-annr.
SELECT SINGLE ktokd FROM kna1
INTO zktokd
WHERE kunnr = xvbak-kunnr.
'.
) WITH '免费样品订单售达方必须是内部销售办事处'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
** End v1.
IF sy-tcode = 'VA01' .
DATA:jhzq LIKE ymara_sd-jhzq,jhzqmax LIKE ymara_sd-jhzq.
DATA:matnr LIKE mara-matnr.
LOOP AT xvbap WHERE matnr IS NOT INITIAL .
CLEAR jhzq.
SELECT SINGLE jhzq FROM ymara_sd
INTO jhzq
WHERE matnr = xvbap-matnr.
IF jhzqmax < jhzq.
jhzqmax = jhzq.
matnr = xvbap-matnr.
ENDIF.
ENDLOOP.
DATA:dat LIKE sy-datum.
IF matnr IS NOT INITIAL AND jhzqmax IS NOT INITIAL.
.
dat = sy-datum .
WHILE i <= jhzqmax.
i = i + .
dat = dat + .
*--------------工厂日历的日期---------------------
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
date = dat
factory_calendar_id = 'CN'
IMPORTING
date = dat.
ENDWHILE.
*------------------end ----------------------------
vbak-vdatu = dat .
xvbep-edatu = dat .
MODIFY xvbep TRANSPORTING edatu WHERE posnr IS NOT INITIAL .
) WITH '该订单最长交货物料为' matnr '天数为：' jhzqmax.
ENDIF.
ENDIF.
ENDFORM. "USEREXIT_FIELD_MODIFICATION
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_VBAK *
*---------------------------------------------------------------------*
* This userexit can be used to move some fields into the sales *
* dokument header workaerea VBAK. *
* *
* SVBAK-TABIX = : Create header *
* SVBAK-TABIX > : Change header *
* *
* This form is called at the end of form VBAK_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_move_field_to_vbak.
*DATA:jhzq LIKE ymara_sd-jhzq,jhzqmax LIKE ymara_sd-jhzq.
*
* LOOP AT xvbap WHERE matnr IS NOT INITIAL .
* CLEAR jhzq.
* select single jhzq FROM ymara_sd
* INTO jhzq
* where matnr = xvbap-matnr.
* IF jhzqmax < jhzq.
* jhzqmax = jhzq.
* ENDIF.
* xvbep-edatu = sy-datum - jhzq .
* xvbep-bddat = sy-datum - jhzq .
* xvbep-tddat = sy-datum - jhzq .
* xvbep-mbdat = sy-datum - jhzq .
* xvbep-lddat = sy-datum - jhzq .
* xvbep-wadat = sy-datum - jhzq .
* MODIFY xvbep TRANSPORTING
* edatu
* bddat
* tddat
* mbdat
* lddat
* wadat
* WHERE posnr = xvbap-posnr. .
* ENDLOOP.
* vbak-vdatu = sy-datum - jhzqmax .
ENDFORM. "USEREXIT_MOVE_FIELD_TO_VBAK
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_VBAP *
*---------------------------------------------------------------------*
* This userexit can be used to move some fields into the sales *
* dokument item workaerea VBAP *
* *
* SVBAP-TABIX = : Create item *
* SVBAP-TABIX > : Change item *
* *
* This form is called at the end of form VBAP_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_move_field_to_vbap.
*
* DATA:jhzq LIKE ymara_sd-jhzq,jhzqmax LIKE ymara_sd-jhzq.
*
* LOOP AT xvbap WHERE matnr IS NOT INITIAL .
* CLEAR jhzq.
* select single jhzq FROM ymara_sd
* INTO jhzq
* where matnr = xvbap-matnr.
* IF jhzqmax < jhzq.
* jhzqmax = jhzq.
* ENDIF.
** xvbep-edatu = sy-datum - jhzq .
** xvbep-bddat = sy-datum - jhzq .
** xvbep-tddat = sy-datum - jhzq .
** xvbep-mbdat = sy-datum - jhzq .
** xvbep-lddat = sy-datum - jhzq .
** xvbep-wadat = sy-datum - jhzq .
** MODIFY xvbep TRANSPORTING
** edatu
** bddat
** tddat
** mbdat
** lddat
** wadat
** WHERE posnr = xvbap-posnr. .
* ENDLOOP.
* vbak-vdatu = sy-datum - jhzqmax .
*
ENDFORM. "USEREXIT_MOVE_FIELD_TO_VBAP
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_VBEP *
*---------------------------------------------------------------------*
* This userexit can be used to move some fields into the sales *
* dokument schedule line workaerea VBEP *
* *
* SVBEP-TABIX = : Create schedule line *
* SVBEP-TABIX > : Change schedule line *
* *
* This form is called at the end of form VBEP_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_move_field_to_vbep.
DATA:jhzq LIKE ymara_sd-jhzq,jhzqmax LIKE ymara_sd-jhzq.
CLEAR jhzq.
*
* LOOP AT xvbep .
*
** CLEAR jhzq.
* READ TABLE xvbap WITH KEY vbeln = xvbep-vbeln posnr = xvbep-posnr.
* SELECT SINGLE jhzq FROM ymara_sd
* INTO jhzq
* WHERE matnr = xvbap-matnr.
* IF jhzqmax < jhzq.
* jhzqmax = jhzq.
* ENDIF.
* xvbep-edatu = sy-datum - jhzq .
* xvbep-bddat = sy-datum - jhzq .
* xvbep-tddat = sy-datum - jhzq .
* xvbep-mbdat = sy-datum - jhzq .
* xvbep-lddat = sy-datum - jhzq .
* xvbep-wadat = sy-datum - jhzq .
* MODIFY xvbep .
* ENDLOOP.
* vbak-vdatu = sy-datum - jhzqmax .
* rv45a-etdat = sy-datum - jhzqmax .
ENDFORM. "USEREXIT_MOVE_FIELD_TO_VBEP
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_VBKD *
*---------------------------------------------------------------------*
* This userexit can be used to move some fields into the sales *
* dokument business data workaerea VBKD *
* *
* SVBKD-TABIX = : Create data *
* SVBKD-TABIX > : Change data *
* *
* This form is called at the end of form VBKD_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_move_field_to_vbkd.
*
* VBKD-zzfield = xxxx-zzfield2.
ENDFORM. "USEREXIT_MOVE_FIELD_TO_VBKD
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_NUMBER_RANGE *
*---------------------------------------------------------------------*
* This userexit can be used to determine the numberranges for *
* the internal document number. *
* *
* US_RANGE_INTERN - internal number range *
* *
* This form is called from form BELEG_SICHERN *
* *
*---------------------------------------------------------------------*
FORM userexit_number_range USING us_range_intern.
* Example: Numer range from TVAK like in standard
* US_RANGE_INTERN = TVAK-NUMKI.
ENDFORM. "USEREXIT_NUMBER_RANGE
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_PRICING_PREPARE_TKOMK *
*---------------------------------------------------------------------*
* This userexit can be used to move additional fields into the *
* communication table which is used for pricing: *
* *
* TKOMK for header fields *
* *
* This form is called from form PREISFINDUNG_VORBEREITEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_pricing_prepare_tkomk.
CLEAR tkomk-vrtnr.
PERFORM xvbpa_lesen(sapfv45k) USING 'VE'
vbap-posnr
sy-tabix.
IF xvbpa-updkz <> 'D'.
tkomk-vrtnr = xvbpa-pernr.
ENDIF.
* TKOMK-zzfield = xxxx-zzfield2.
ENDFORM. "USEREXIT_PRICING_PREPARE_TKOMK
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_PRICING_PREPARE_TKOMP *
*---------------------------------------------------------------------*
* This userexit can be used to move additional fields into the *
* communication table which is used for pricing: *
* *
* TKOMP for item fields *
* *
* This form is called from form PREISFINDUNG_VORBEREITEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_pricing_prepare_tkomp.
* TKOMP-zzfield = xxxx-zzfield2.
ENDFORM. "USEREXIT_PRICING_PREPARE_TKOMP
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_READ_DOCUMENT *
*---------------------------------------------------------------------*
* This userexit can be used to read data in additional tables *
* when the program reads a sales document. *
* *
* This form is called at the end of form BELEG_LESEN. *
* *
*---------------------------------------------------------------------*
FORM userexit_read_document.
ENDFORM. "USEREXIT_READ_DOCUMENT
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_SAVE_DOCUMENT *
*---------------------------------------------------------------------*
* This userexit can be used to save data in additional tables *
* when a document is saved. *
* *
* If field T180-TRTYP contents 'H', the document will be *
* created, else it will be changed. *
* *
* This form is called at from form BELEG_SICHERN, before COMMIT *
* *
*---------------------------------------------------------------------*
FORM userexit_save_document.
* Example:
* CALL FUNCTION 'ZZ_EXAMPLE'
* IN UPDATE TASK
* EXPORTING
* ZZTAB = ZZTAB.
*DATA:jhzq LIKE ymara_sd-jhzq,jhzqmax LIKE ymara_sd-jhzq.
* LOOP AT xvbap WHERE matnr IS NOT INITIAL.
* CLEAR jhzq.
* SELECT SINGLE jhzq FROM ymara_sd
* INTO jhzq
* WHERE matnr = xvbap-matnr.
* IF jhzqmax < jhzq.
* jhzqmax = jhzq.
* ENDIF.
*
*
* ENDLOOP.
* vbak-vdatu = sy-datum - jhzqmax .
* rv45a-etdat = sy-datum - jhzqmax .
ENDFORM. "USEREXIT_SAVE_DOCUMENT
*eject
*&---------------------------------------------------------------------*
*& Form zcheck_ggdd
*&---------------------------------------------------------------------*
* text 广告物料订单判断
*----------------------------------------------------------------------*
* -->EXITFLAG text 检验是否通过
*----------------------------------------------------------------------*
FORM zcheck_ggdd USING exitflag.
* RETURN.
exitflag = .
IF sy-tcode <> 'VA01' AND sy-tcode <> 'VA02'.
RETURN.
ENDIF.
** 销售凭证订单原因 306 促销赠品 307 广告物料 V1.0 ZHOUXU
LOOP AT xvbap.
** 销售凭证类型广告物料凭着
IF xvbak-auart = 'ZGOR'.
IF xvbap-pstyv = 'Z002' ."促销品
* MESSAGE '订单原因促销赠品项目类别只能为促销品' TYPE 'E'.
'.
** begin V1.1暂时取消促销品的增强
* MESSAGE e005(ymess) WITH '项目类别促销品订单原因只能为促销赠品!' .
* exitflag = .
* RETURN.
** end V1.
ENDIF.
ENDIF.
IF xvbap-pstyv = 'ZGAN' OR xvbap-pstyv = 'Z001'." ZGAN 宣传品，展示品
'.
* MESSAGE '订单原因为"广告物料"项目类别只能为宣传品或展示品！' TYPE 'E'.
MESSAGE e005(ymess) WITH '项目类别宣传品或展示品订单原因只能为广告物料！'.
exitflag = .
RETURN.
ENDIF.
ENDIF.
ENDIF.
** Z001 V1. ZHOUXU
IF xvbak-auart = 'Z001'.
IF xvbap-pstyv = 'Z003' OR xvbap-pstyv = 'Z004'.
) <> '.
* MESSAGE '订单原因为"广告物料"项目类别只能为宣传品或展示品！' TYPE 'E'.
MESSAGE e005(ymess) WITH '项目类型为办公用品或样品领用时不能选此订单原因 ！'.
exitflag = .
RETURN.
ENDIF.
ENDIF.
ENDIF .
ENDLOOP.
ENDFORM. "zcheck_ggdd
*---------------------------------------------------------------------*
* FORM USEREXIT_SAVE_DOCUMENT_PREPARE *
*---------------------------------------------------------------------*
* This userexit can be used for changes or checks, before a *
* document is saved. *
* *
* If field T180-TRTYP contents 'H', the document will be *
* created, else it will be changed. *
* *
* This form is called at the beginning of form BELEG_SICHERN *
* *
*---------------------------------------------------------------------*
FORM userexit_save_document_prepare.
IF sy-tcode = 'CO06'.
EXIT.
ENDIF.
DATA:exitflag TYPE i.
*-----------------V1. ZHOUXU 广告订单判断---------------------------
PERFORM zcheck_ggdd USING exitflag.
.
EXIT.
ENDIF.
DATA: lx_vbak LIKE vbak.
DATA: zkbetr LIKE xkomv-kbetr.
DECIMALS VALUE '150.00',
zprice2 DECIMALS VALUE '50.00'.
SELECT SINGLE * INTO lx_vbak
FROM vbak WHERE vbeln = xvbak-vbeln.
IF vbak-kvgr1 <> lx_vbak-kvgr1.
AUTHORITY-CHECK OBJECT 'ZHLSDPR'
'.
.
) WITH '你没有权限审批价格！'.
xvbak-kvgr1 = lx_vbak-kvgr1.
vbak-kvgr1 = lx_vbak-kvgr1.
ENDIF.
ENDIF.
IF vbak-kvgr2 <> lx_vbak-kvgr2.
AUTHORITY-CHECK OBJECT 'ZHLSDPR'
'.
.
) WITH '你没有权限审批价格！'.
xvbak-kvgr2 = lx_vbak-kvgr2.
vbak-kvgr2 = lx_vbak-kvgr2.
ENDIF.
ENDIF.
IF vbak-kvgr3 <> lx_vbak-kvgr3.
AUTHORITY-CHECK OBJECT 'ZHLSDPR'
'.
.
) WITH '你没有权限审批价格！'.
xvbak-kvgr3 = lx_vbak-kvgr3.
vbak-kvgr3 = lx_vbak-kvgr3.
ENDIF.
ENDIF.
IF vbak-kvgr4 <> lx_vbak-kvgr4.
AUTHORITY-CHECK OBJECT 'ZHLSDPR'
'.
.
) WITH '你没有权限审批价格！'.
xvbak-kvgr4 = lx_vbak-kvgr4.
vbak-kvgr4 = lx_vbak-kvgr4.
ENDIF.
ENDIF.
LOOP AT xkomv.
CASE xkomv-kschl.
WHEN 'ZK04'.
IF vbak-kvgr5 IS INITIAL.
CASE xvbak-auart.
WHEN 'OR' OR 'ZTOR' OR 'ZYOR' OR 'ZDOR'.
MESSAGE e005(ymess) WITH '已维护ZK04和ZK07的折扣,请选择折扣性质！'.
ENDCASE.
ENDIF.
.
zkbetr = ABS( xkomv-kbetr ).
IF zkbetr GT zprice1.
'.
xvbak-kvgr3 = '.
vbak-kvgr3 = '.
) WITH '订单折扣率高于15%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr2 = '.
vbak-kvgr2 = '.
) WITH '订单折扣率高于5%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ELSEIF zkbetr GT zprice2.
xvbak-kvgr3 = ' '.
vbak-kvgr3 = ' '.
'.
xvbak-kvgr2 = '.
vbak-kvgr2 = '.
) WITH '订单折扣率高于5%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ELSE.
xvbak-kvgr3 = ' '.
vbak-kvgr3 = ' '.
xvbak-kvgr2 = ' '.
vbak-kvgr2 = ' '.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣率产生，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ENDIF.
ENDIF.
*----------------------------------------------------20081010ZK07增加
WHEN 'ZK07'.
IF vbak-kvgr5 IS INITIAL.
CASE xvbak-auart.
WHEN 'OR' OR 'ZTOR' OR 'ZYOR' OR 'ZDOR'.
MESSAGE e005(ymess) WITH '已维护ZK04和ZK07的折扣！请选择折扣性质！'.
ENDCASE.
ENDIF.
.
zkbetr = ABS( xkomv-kbetr ).
IF zkbetr GT zprice1.
'.
xvbak-kvgr3 = '.
vbak-kvgr3 = '.
) WITH '订单折扣率高于15%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr2 = '.
vbak-kvgr2 = '.
) WITH '订单折扣率高于5%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ELSEIF zkbetr GT zprice2.
xvbak-kvgr3 = ' '.
vbak-kvgr3 = ' '.
'.
xvbak-kvgr2 = '.
vbak-kvgr2 = '.
) WITH '订单折扣率高于5%，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ELSE.
xvbak-kvgr3 = ' '.
vbak-kvgr3 = ' '.
xvbak-kvgr2 = ' '.
vbak-kvgr2 = ' '.
'.
xvbak-kvgr1 = '.
vbak-kvgr1 = '.
) WITH '订单折扣率产生，需要审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
EXIT.
ENDIF.
ENDIF.
ENDCASE.
ENDLOOP.
*----------------------------------------------------20081009增加修改订单冻结判断.
DATA: lx_vbap LIKE vbap.
DATA l_vbap LIKE vbap .
DATA l_vbap2 LIKE vbap .
DATA t_vbap TYPE TABLE OF vbap.
DATA t_vbap2 TYPE TABLE OF vbap.
DATA: lx_vbep LIKE vbep.
DATA: lx_konv LIKE konv.
DATA: lx_konv1 LIKE konv.
DATA: zkbetr1 LIKE xkomv-kbetr.
DATA: lx_jsto LIKE jsto.
DATA: lx_tj30 LIKE tj30.
DATA: lx_jest LIKE jest.
CLEAR zkbetr1.
IF sy-tcode = 'VA02'.
'.
LOOP AT xvbap.
SELECT SINGLE *
INTO lx_vbap
FROM vbap
WHERE vbeln = xvbap-vbeln AND posnr = xvbap-posnr.
.
xvbak-kvgr4 = '.
vbak-kvgr4 = '.
) WITH '订单折扣率已经审批，修改后需要再次审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
EXIT.
ENDIF.
SELECT SINGLE *
INTO lx_konv
FROM konv
WHERE knumv = xvbak-knumv AND kposn = xvbap-posnr AND kschl = 'ZK04'.
SELECT SINGLE *
INTO lx_konv1
FROM konv
WHERE knumv = xvbak-knumv AND kposn = xvbap-posnr AND kschl = 'ZK07'.
IF lx_konv-kbetr NE space .
zkbetr1 = ABS( lx_konv-kbetr ).
IF xvbap-matnr NE lx_vbap-matnr OR
xvbap-kwmeng GT lx_vbap-kwmeng OR
zkbetr GT zkbetr1.
xvbak-kvgr4 = '.
vbak-kvgr4 = '.
) WITH '订单折扣率已经审批，修改后需要再次审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
EXIT.
ENDIF.
ENDIF.
IF lx_konv1-kbetr NE space .
zkbetr1 = ABS( lx_konv1-kbetr ).
IF xvbap-matnr NE lx_vbap-matnr OR
xvbap-kwmeng GT lx_vbap-kwmeng OR
zkbetr GT zkbetr1.
xvbak-kvgr4 = '.
vbak-kvgr4 = '.
) WITH '订单折扣率已经审批，修改后需要再次审批 '.
xvbak-lifsk = '.
vbak-lifsk = '.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
****增加有条件未审批时,不允许修改订单交货状态 add by LKJ 2009/02/25
' ).
AUTHORITY-CHECK OBJECT 'ZHLSDPR'
'.
.
) WITH '订单价格、折扣未审批，无权修改状态！'.
xvbak-lifsk = '.
vbak-lifsk = '.
ENDIF.
ENDIF.
***** add end
**** 订单的对象状态审核
**** 如果未审核,可以修改数据,如果已审核,不能做任何更改 *****
IF lx_vbak-objnr NE space." AND ( sy-uname = 'E464503' or sy-uname = 'E422038' or sy-uname = 'E422083' or sy-uname = 'E423726').
DATA role TYPE c VALUE 'Y'.
SELECT SINGLE * INTO lx_jest
FROM jest WHERE objnr EQ lx_vbak-objnr AND inact EQ 'X'.
IF lx_jest-stat EQ 'E0001'.
AUTHORITY-CHECK OBJECT 'B_USERSTAT'
ID 'BERSL' FIELD 'ZSDAU001'.
."无审核权限,检查已修改的数据条件(刷可用量)
role = 'N'.
* ) WITH '订单对象状态审批通过，无反审核权限！'.
* LEAVE TO CURRENT TRANSACTION.
ELSE.
role = 'Y'.
ENDIF.
DATA:netwr LIKE vbap-netwr .
DATA:temp TYPE string.
LOOP AT xvbap INTO l_vbap.
APPEND l_vbap TO t_vbap2.
SELECT SINGLE *
INTO l_vbap2
FROM vbap
WHERE vbeln = l_vbap-vbeln AND posnr = l_vbap-posnr.
* l_vbap2-aedat = sy-datum."del v1.6
l_vbap2-aedat = l_vbap-aedat. "add v1.6
l_vbap2-klmeng = l_vbap-klmeng.
l_vbap2-kbmeng = l_vbap-kbmeng.
l_vbap2-abgru = l_vbap-abgru.
**
CLEAR netwr.
netwr = l_vbap-netwr - l_vbap2-netwr.
netwr = ABS( netwr ).
temp = netwr.
CONDENSE temp.
' .
l_vbap2-netwr = l_vbap-netwr.
ENDIF.
**end v1.
**begin v1.
CLEAR netwr.
netwr = l_vbap-mwsbp - l_vbap2-mwsbp.
netwr = ABS( netwr ).
temp = netwr.
CONDENSE temp.
' .
l_vbap2-mwsbp = l_vbap-mwsbp.
ENDIF.
**end v1.5
**begin v1..
CLEAR netwr.
netwr = l_vbap-netpr - l_vbap2-netpr.
netwr = ABS( netwr ).
temp = netwr.
CONDENSE temp.
' .
l_vbap2-netpr = l_vbap-netpr.
ENDIF.
**end v1.
** Begin v1.
**以下是免费样品订单(ZFD),广告物料订单(ZGOR)审核后不允许修改的字段内容:
**
**,订单抬头:售达方,送达方,成本中心;
**,订单明细:物料编码,数量,增删行项目.
IF xvbak-auart = 'ZGOR' OR xvbak-auart = 'ZFD'.
l_vbap2-netwr = l_vbap-netwr.
l_vbap2-mwsbp = l_vbap-mwsbp.
l_vbap2-netpr = l_vbap-netpr.
ENDIF.
** End v1.8
** Begin v1.
** 以下是免费样品订单（ZFD）对售达方的类型判断，限制售达方只能是内部办事处：账户组为： Susan
DATA:zktokd LIKE kna1-ktokd,kunnr LIKE vbak-kunnr.
IF xvbak-auart = 'ZFD'.
* zktokd = kna1-ktokd while kunnr = xvbak-annr.
SELECT SINGLE ktokd FROM kna1
INTO zktokd
WHERE kunnr = xvbak-kunnr.
'.
MESSAGE e005(ymess) WITH '免费样品订单售达方必须是内部销售办事处'.
EXIT.
ENDIF.
ENDIF.
** End v1.9
APPEND l_vbap2 TO t_vbap.
CLEAR: l_vbap,l_vbap2.
ENDLOOP.
lx_vbak-faksk = vbak-faksk .
xvbak-faksk = vbak-faksk .
**Begin v1.2
lx_vbak-kvgr1 = vbak-kvgr1.
lx_vbak-kvgr2 = vbak-kvgr2.
lx_vbak-kvgr3 = vbak-kvgr3.
lx_vbak-kvgr4 = vbak-kvgr4.
lx_vbak-kvgr5 = vbak-kvgr5.
lx_vbak-lifsk = vbak-lifsk.
**End v1.
**Begin v1.6
lx_vbak-aedat = vbak-aedat.
**End v1.
**
* DATA:netwr LIKE vbak-netwr .
CLEAR netwr.
netwr = lx_vbak-netwr - vbak-netwr.
netwr = ABS( netwr ).
temp = netwr.
CONDENSE temp.
' .
lx_vbak-netwr = vbak-netwr.
ENDIF.
**
** Begin v1.
**以下是免费样品订单(ZFD),广告物料订单(ZGOR)审核后不允许修改的字段内容:
**
**,订单抬头:售达方,送达方,成本中心;
**,订单明细:物料编码,数量,增删行项目.
IF xvbak-auart = 'ZGOR' OR xvbak-auart = 'ZFD'.
lx_vbak-netwr = vbak-netwr.
ENDIF.
** End v1.8
* LOOP AT xvbep.
* SELECT SINGLE *
* INTO lx_vbep
* FROM vbep
* WHERE vbeln = xvbep-vbeln AND posnr = xvbep-posnr AND bmeng = xvbep-bmeng AND edatu = sy-datum.
* ENDLOOP.
IF xvbak EQ lx_vbak OR vbak EQ lx_vbak . "如果订单抬头被更改
IF t_vbap2 EQ t_vbap.
* if role = 'N'.
* ) WITH '订单对象状态审批通过，无反审核权限！'.
* LEAVE TO CURRENT TRANSACTION.
* else.
* exit.
* endif.
EXIT.
ELSE.
) WITH '订单对象状态审批通过，不允许修改订单行项目数据！'.
LEAVE TO CURRENT TRANSACTION.
ENDIF.
EXIT.
ELSE.
) WITH '订单对象状态审批通过，不允许修改抬头订单数据！'.
LEAVE TO CURRENT TRANSACTION.
ENDIF.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "USEREXIT_SAVE_DOCUMENT_PREPARE *eject