原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VF02-输出到EDI生成会计凭证的增强
VF02-输出到EDI生成会计凭证的增强
开票凭证-EDI 会计凭证
EXIT_SAPLIEDI_001
*---------------------------------------------------------------------*
* 包括 ZXF06U01
*---------------------------------------------------------------------*
DATA V_MATNR LIKE VBRP-MATNR.
DATA V_CHARG LIKE VBRP-CHARG.
DATA V_VBELN LIKE VBRK-VBELN.
DATA V_POSNR LIKE VBRP-POSNR.
data test_log type ztest_log.
DATA V_POSNR1 LIKE VBRP-POSNR.
*开票凭证明细
*参考凭证
*data begin of IT_E1EDK02 OCCURS 0.
* INCLUDE STRUCTURE E1EDK02.
*DATA END OF IT_E1EDK02.
data begin of wa_e1edk14.
include structure e1edk14.
data end of wa_e1edk14.
DATA BEGIN OF WA_E1EDP01.
INCLUDE STRUCTURE E1EDP01.
DATA END OF WA_E1EDP01.
DATA BEGIN OF WA_E1EDK02.
INCLUDE STRUCTURE E1EDK02.
DATA END OF WA_E1EDK02.
data begin of it_posnr occurs 0.
DATA ID TYPE I.
DATA posnr type vbrp-posnr.
data end of it_posnr.
DATA V_ID TYPE I VALUE 1.
DATA V_ID1 TYPE I.
*
FIELD-SYMBOLS LS_EDIDD TYPE ANY TABLE.
DATA LT_EDIDD TYPE TABLE OF EDIDD.
DATA WA_EDIDD TYPE EDIDD.
DATA NAME(30) VALUE (SAPLIEDI)IDOC_DATA[].
ASSIGN (NAME) TO LS_EDIDD.
CHECK SY-SUBRC = 0.
LT_EDIDD = LS_EDIDD.
loop at LT_EDIDD INTO WA_EDIDD .
case wa_edidd-segnam.
when E1EDK02.
MOVE WA_EDIDD-SDATA TO WA_E1EDK02.
IF WA_E1EDK02-QUALF = 009.
MOVE WA_E1EDK02-BELNR TO V_VBELN.
ENDIF.
WHEN E1EDK14.
MOVE WA_EDIDD-SDATA TO WA_E1EDK14.
IF WA_E1EDK14-QUALF = 011.
MOVE WA_E1EDK14-ORGID TO GL_COMPANY_CODE.
ENDIF.
WHEN E1EDP01.
MOVE WA_EDIDD-SDATA TO WA_E1EDP01.
MOVE WA_E1EDP01-POSEX TO IT_POSNR-POSNR.
MOVE V_ID TO IT_POSNR-ID.
APPEND IT_POSNR.
CLEAR WA_E1EDP01.
CLEAR IT_POSNR.
V_ID = V_ID + 1.
ENDCASE.
endloop.
V_ID1 = V_ID.
CLEAR WA_EDIDD.
FIELD-SYMBOLS L_EDIDD TYPE EDIDD.ANY TABLE.
DATA NAME1(30) VALUE (SAPLIEDI)IDOC_DATA.
ASSIGN (NAME1) TO L_EDIDD.
CHECK SY-SUBRC = 0.
WA_EDIDD = L_EDIDD.
V_POSNR1 = 000010.
V_ID1 = V_ID1 - 1.
IF WA_EDIDD IS NOT INITIAL.
开票凭证只有一条记录
文档评论（0）