检修三费程序判断报错

最新推荐文章于 2024-07-31 02:54:58 发布

zq35185

最新推荐文章于 2024-07-31 02:54:58 发布

阅读量318

点赞数

文章标签： abap

本文链接：https://blog.csdn.net/zq35185/article/details/105053994

版权

检修三费程序判断报错

IF BSEG-ZZFI09(4) = ‘CO02’ AND ( BSEG-HKONT = ‘5001020000’ OR BSEG-HKONT = ‘5001030000’ OR BSEG-HKONT = ‘5001040000’ ) AND BSEG-GJAHR >= ‘2019’."输配电成本的检修三费
*

    IF BSEG-AUFNR IS INITIAL AND WA_PROJ-PSPID IS INITIAL. "如果没有输入工单或6开头营销项目，则报错  (1) <> '6'
  CONCATENATE '检修三费，只能通过'  '项目化工单或非项目化工单或营销内部订单或营销成本项目归集费用！' INTO LV_MSG .
  MESSAGE E000(ZFI01) WITH LV_MSG.
  B_RESULT = 'F'.
      
    ELSEIF BSEG-AUFNR IS INITIAL AND WA_PROJ-PSPID IS NOT INITIAL AND LW_PROJ-ZFI13(2) <> 'FC'.
      CONCATENATE '检修三费，只能通过'  '项目化工单或非项目化工单或营销内部订单或营销成本项目归集费用！' INTO LV_MSG .
      MESSAGE E000(ZFI01) WITH LV_MSG.
      B_RESULT = 'F'.

    ELSEIF BSEG-AUFNR IS NOT INITIAL AND WA_PROJ-PSPID IS NOT INITIAL AND LW_PROJ-ZFI13(2) <> 'FC'.
      CONCATENATE '检修三费，只能通过'  '项目化工单或非项目化工单或营销内部订单或营销成本项目归集费用！' INTO LV_MSG .
      MESSAGE E000(ZFI01) WITH LV_MSG.
      B_RESULT = 'F'.

    ELSEIF BSEG-AUFNR IS NOT INITIAL AND WA_PROJ-PSPID IS INITIAL AND LW_AUFNR-AUTYP = '01' AND LW_AUFNR-ZZFI13(2) <> 'FC'. "如果输入的不是工单，是非营销类内部订单也报错
      CONCATENATE '检修三费，只能通过'  '项目化工单或非项目化工单或营销内部订单或营销成本项目归集费用！' INTO LV_MSG .
      MESSAGE E000(ZFI01) WITH LV_MSG.
      B_RESULT = 'F'.
    ENDIF.
  ENDIF.