PO增强,明细动抬头动
生活随笔
收集整理的这篇文章主要介绍了
PO增强,明细动抬头动
小编觉得挺不错的,现在分享给大家,帮大家做个参考.
METHOD IF_EX_ME_PROCESS_PO_CUST
~PROCESS_HEADER
.
DATA : LS_MEPOHEADER TYPE MEPOHEADER ,
LT_MEPOITEM TYPE PURCHASE_ORDER_ITEMS ,
LO_MEPOITEM TYPE PURCHASE_ORDER_ITEM ,
LS_MEPOITEM TYPE MEPOITEM .
DATA :
LV_ZZCGKH TYPE ZE_CGKH , "采购客服
LV_ZZCGXZ TYPE ZE_CGXZ , "采购协助
LV_ZZZCRY TYPE ZE_ZCRY . "驻厂人员
LS_MEPOHEADER = IM_HEADER ->GET_DATA ( ) .
LT_MEPOITEM = IM_HEADER ->GET_ITEMS ( ) .
"采购客服 从合同取默认
LOOP AT LT_MEPOITEM INTO LO_MEPOITEM .
LS_MEPOITEM = LO_MEPOITEM -ITEM ->GET_DATA ( ) .
IF LS_MEPOITEM -KONNR <> '' .
EXIT .
ENDIF .
ENDLOOP .
IF LS_MEPOHEADER -ZZPRTIME IS INITIAL .
LS_MEPOHEADER -ZZPRTIME = SY -UZEIT .
ENDIF .
IM_HEADER ->SET_DATA ( LS_MEPOHEADER ) .
ENDMETHOD .
DATA : LS_MEPOHEADER TYPE MEPOHEADER ,
LT_MEPOITEM TYPE PURCHASE_ORDER_ITEMS ,
LO_MEPOITEM TYPE PURCHASE_ORDER_ITEM ,
LS_MEPOITEM TYPE MEPOITEM .
DATA :
LV_ZZCGKH TYPE ZE_CGKH , "采购客服
LV_ZZCGXZ TYPE ZE_CGXZ , "采购协助
LV_ZZZCRY TYPE ZE_ZCRY . "驻厂人员
LS_MEPOHEADER = IM_HEADER ->GET_DATA ( ) .
LT_MEPOITEM = IM_HEADER ->GET_ITEMS ( ) .
"采购客服 从合同取默认
LOOP AT LT_MEPOITEM INTO LO_MEPOITEM .
LS_MEPOITEM = LO_MEPOITEM -ITEM ->GET_DATA ( ) .
IF LS_MEPOITEM -KONNR <> '' .
EXIT .
ENDIF .
ENDLOOP .
IF LS_MEPOHEADER -ZZPRTIME IS INITIAL .
LS_MEPOHEADER -ZZPRTIME = SY -UZEIT .
ENDIF .
IM_HEADER ->SET_DATA ( LS_MEPOHEADER ) .
ENDMETHOD .
总结
以上是生活随笔为你收集整理的PO增强,明细动抬头动的全部内容,希望文章能够帮你解决所遇到的问题。
- 上一篇: ABAP长文本
- 下一篇: ABAP 锁对象与加锁机制