分类: 系统运维
2012-04-28 17:24:14
BOTVINNIK2015-06-26 15:02:24
BOTVINNIK:EDI_DOCUMENT_DEQUEUE_LATER 这个方法有可能无效,可以直接用WE14里面的方式。
FORM EDI_OUTPUT_NEW USING DOCNUM TYPE EDI_DOCNUM.
DATA: BEGIN OF INT_EDIDC OCCURS 0,
OUTMOD_SORT LIKE EDIDC-OUTMOD,
RCVPOR_SORT LIKE EDIDC-RCVPOR.
INCLUDE STRUCTURE EDIDC.
DATA: END OF INT_EDIDC,
IF INT_EDIDC[] IS NOT INITIAL.
LOOP AT INT_EDIDC.
INT_EDIDC-OUTMOD_SORT = INT_EDIDC-OUTMOD.
INT_EDIDC-RCVPOR_SORT = INT_EDIDC-RCVPOR.
MODIFY INT_EDIDC.
CLEAR COM_EDIDC.
MOVE INT_EDIDC+11 TO COM_EDIDC.
APPEND COM_EDIDC.
&nb