*----------------------------------------------------------------------*
* Program name : ZSD_BDC_ORDERITEM_NEW Date written: 07-11-10 *
* Author\'s name: HouZhiYu Last update : *
* Program title: 销售订单行项目批量导入 *
*----------------------------------------------------------------------*
REPORT ZSD_BDC_ORDERITEM.
TABLES: VBAK,"销售凭证:抬头数据
VBAP,"销售凭证:项目数据
VBEP,"销售凭证:细目数据
TVAP,"销售凭证:项目类别
KONV."条件（事务数据）
*****************************************************************
* INTERNAL TABLES
*****************************************************************
DATA: BEGIN OF L_VBAK OCCURS 0,
VBELN LIKE VBAP-VBELN, "订单号
POSNR LIKE VBAP-POSNR, "项目号
MATNR LIKE RV45A-MABNR, "物料编号
KWMENG(15) TYPE C, "数量
KDMAT LIKE VBAP-KDMAT, "客户物料编号
PSTYV LIKE VBAP-PSTYV, "项目类型
UEPOS LIKE VBAP-UEPOS, "上层项
PR01_KBETR(11) TYPE C, "PR01价格
PR01_KOEIN(5) TYPE C, "PR01币种
ETDAT LIKE RV45A-ETDAT, "首次日期
PS_PSP_PNR(24) TYPE C,"WBS元素
PN00_KBETR(11) TYPE C, "PN00价格
PN00_KOEIN(5) TYPE C, "PN00币种
* PN002_KBETR(5) TYPE C, "PN00价格
* PN002_KOEIN LIKE RV45A-KOEIN, "PN00币种
ZP01_KBETR(11) TYPE C, "ZP01价格
ZP01_KOEIN(5) TYPE C, "ZP01币种
ZP21_KBETR(11) TYPE C, "ZP21价格
ZP21_KOEIN(5) TYPE C, "ZP21币种
ZP03_KBETR(11) TYPE C, "ZP03价格
ZP03_KOEIN(5) TYPE C, "ZP03币种
ZP23_KBETR(11) TYPE C, "ZP23价格
ZP23_KOEIN(5) TYPE C, "ZP23币种
ZP05_KBETR(11) TYPE C, "ZP05价格
ZP05_KOEIN(5) TYPE C, "ZP05币种
ZP25_KBETR(11) TYPE C, "ZP25价格
ZP25_KOEIN(5) TYPE C, "ZP25币种
ZP08_KBETR(11) TYPE C, "ZP08价格
ZP08_KOEIN(5) TYPE C, "ZP08币种
ZP28_KBETR(11) TYPE C, "ZP28价格
ZP28_KOEIN(5) TYPE C, "ZP28币种
ZP09_KBETR(11) TYPE C, "ZP09价格
ZP09_KOEIN(5) TYPE C, "ZP09币种
ZP29_KBETR(11) TYPE C, "ZP29价格
ZP29_KOEIN(5) TYPE C, "ZP29币种
ZP11_KBETR(11) TYPE C, "ZP11价格
ZP11_KOEIN(5) TYPE C, "ZP11币种
ZP31_KBETR(11) TYPE C, "ZP31价格
ZP31_KOEIN(5) TYPE C, "ZP31币种
ZTERM LIKE VBKD-ZTERM,"付款方式
S_PARTNER LIKE SDPARTNERLIST-PARTNER,"送达方
JUMING(50) TYPE C, "局名
IHREZ LIKE VBKD-IHREZ,"售达方中您的参考
POSEX LIKE VBAP-POSEX,"售达方中采购订单项目
IHREZ_E LIKE VBKD-IHREZ_E,"送达方中您的参考
END OF L_VBAK.
*---bdc专用-------------------------
DATA:T_BDC LIKE STANDARD TABLE OF BDCDATA INITIAL SIZE 0
WITH HEADER LINE. "STANDARD BDC TABLE
DATA: BEGIN OF MESSTAB OCCURS 0."输出消息号
INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF MESSTAB.
REFRESH T_BDC.
DATA: MODE TYPE C.
*-------输出错误信息内表--------------------------
DATA: BEGIN OF ITAB_MESSTAB OCCURS 0.
INCLUDE STRUCTURE L_VBAK.
DATA: FLAG(10)."错误标记
DATA: MESSAGE(100)."信息
DATA: END OF ITAB_MESSTAB.
*--------------------------------------------
DATA: IT_UPLOAD LIKE L_VBAK OCCURS 0 WITH HEADER LINE.
DATA: IT_UPLOAD_SO LIKE L_VBAK OCCURS 0 WITH HEADER LINE.
DATA: P_VBELN LIKE VBAK-VBELN.
DATA L_NAME LIKE THEAD-TDNAME.
RANGES: R_PSTYV FOR VBAP-PSTYV.
DATA: SUM TYPE I.
*----------alv所需变量定义----------------------------------------------
TYPE-POOLS: SLIS.
DATA:
V_REPID LIKE SY-REPID,
I_PERIOD TYPE STRING.
DATA:
GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
"ALV 字段
V_ALV_LAYOUT TYPE SLIS_LAYOUT_ALV. "ALV 样式
DATA GIT_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA GIT_EVENTS TYPE SLIS_T_EVENT.
*****************************************************************
* SELECTION-SCREEN
*****************************************************************
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: R1 TYPE C
RADIOBUTTON GROUP MOD.
SELECTION-SCREEN COMMENT 3(20) TEXT-005 FOR FIELD R1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: R2 TYPE C
RADIOBUTTON GROUP MOD.
SELECTION-SCREEN COMMENT 3(20) TEXT-006 FOR FIELD R2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: R3 TYPE C
RADIOBUTTON GROUP MOD DEFAULT \'X\'.
SELECTION-SCREEN COMMENT 3(20) TEXT-007 FOR FIELD R3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLOCK1.
*&-------------------------------------------------------------------*
* AT SELECTION-SCREEN
*&-------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM GET_FILENAME USING P_FILE.
*&-------------------------------------------------------------------*
* START-OF-SELECTION
*&-------------------------------------------------------------------*
START-OF-SELECTION.
IF R1 = \'X\'.
MODE = \'A\'.
ENDIF.
START-OF-SELECTION.
IF R2 = \'X\'.
MODE = \'E\'.
ENDIF.
START-OF-SELECTION.
IF R3 = \'X\'.
MODE = \'N\'.
ENDIF.
PERFORM MAIN.
*&---------------------------------------------------------------------*
*& Form main
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM MAIN.
PERFORM UPOLOAD_FILE.
SORT IT_UPLOAD_SO BY VBELN.
SORT IT_UPLOAD BY VBELN.
LOOP AT IT_UPLOAD_SO.
*--检查订单是否存在--------------------------
P_VBELN = IT_UPLOAD_SO-VBELN.
*-------------在P_VBELN前面补零-----
CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\'
EXPORTING
INPUT = P_VBELN
IMPORTING
OUTPUT = P_VBELN.
CLEAR VBAK.
SELECT SINGLE VBELN FROM VBAK
INTO VBAK-VBELN
WHERE VBELN = P_VBELN.
IF SY-SUBRC <> 0.
MOVE-CORRESPONDING IT_UPLOAD_SO TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'该订单没有被创建，无法更新ITEM！！\'."信息
APPEND ITAB_MESSTAB.
DELETE IT_UPLOAD WHERE VBELN = IT_UPLOAD_SO-VBELN.
DELETE IT_UPLOAD_SO WHERE VBELN = IT_UPLOAD_SO-VBELN.
CONTINUE.
ENDIF.
*-----将外部数据赋值给要执行BDC的内表-------
LOOP AT IT_UPLOAD WHERE VBELN = IT_UPLOAD_SO-VBELN.
MOVE-CORRESPONDING IT_UPLOAD TO L_VBAK.
APPEND L_VBAK.
ENDLOOP.
*----判断当前表头合作伙伴个数-----------------
SELECT COUNT( DISTINCT PARVW ) FROM VBPA
INTO SUM
WHERE VBELN = P_VBELN
AND POSNR = \'000000\'.
*--数据检查如果没有问题则执行BDC------------------
PERFORM CHECK_INPUT.
CLEAR: L_VBAK[],IT_UPLOAD,L_VBAK,P_VBELN,
SUM.
ENDLOOP.
*---输出日志信息-----------
PERFORM OUTPUT_LOG.
ENDFORM. " main
*&---------------------------------------------------------------------*
*& Form check_input
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CHECK_INPUT.
SORT L_VBAK BY VBELN POSNR.
LOOP AT L_VBAK.
*---数据检查-------
*以下数据为必填项，如果为空则报系统错误---------
*订单行项目/物料/数量/项目类型/首次日期/送达方/送达方中您的参考
IF L_VBAK-POSNR = \'\'."订单行项目
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'订单行项目不能为空\'."信息
APPEND ITAB_MESSTAB.
DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
AND POSNR = L_VBAK-POSNR.
CONTINUE.
ENDIF.
IF L_VBAK-MATNR = \'\'."物料
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'物料不能为空\'."信息
APPEND ITAB_MESSTAB.
DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
AND POSNR = L_VBAK-POSNR.
CONTINUE.
ENDIF.
IF L_VBAK-KWMENG = \'\'."数量
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'数量不能为空\'."信息
APPEND ITAB_MESSTAB.
DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
AND POSNR = L_VBAK-POSNR.
CONTINUE.
ENDIF.
IF L_VBAK-PSTYV = \'\'."项目类型
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'项目类型不能为空\'."信息
APPEND ITAB_MESSTAB.
DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
AND POSNR = L_VBAK-POSNR.
CONTINUE.
ENDIF.
IF L_VBAK-ETDAT = \'\'."首次日期
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
ITAB_MESSTAB-FLAG = \'失败\'."错误标记
ITAB_MESSTAB-MESSAGE = \'首次日期不能为空\'."信息
APPEND ITAB_MESSTAB.
DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
AND POSNR = L_VBAK-POSNR.
CONTINUE.
ENDIF.
* IF L_VBAK-IHREZ_E = \'\'."送达方中您的参考
* MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
* ITAB_MESSTAB-FLAG = \'失败\'."错误标记
* ITAB_MESSTAB-MESSAGE = \'送达方中您的参考不能为空\'."信息
* APPEND ITAB_MESSTAB.
* DELETE L_VBAK WHERE VBELN = L_VBAK-VBELN
* AND POSNR = L_VBAK-POSNR.
* CONTINUE.
* ENDIF.
*&数量 ，价格处理。
CONDENSE L_VBAK-KWMENG NO-GAPS.
CONDENSE L_VBAK-PR01_KBETR NO-GAPS.
CONDENSE L_VBAK-PN00_KBETR NO-GAPS.
* CONDENSE L_VBAK-PN002_KBETR NO-GAPS.
CONDENSE L_VBAK-ZP01_KBETR NO-GAPS. "ZP01价格
CONDENSE L_VBAK-ZP21_KBETR NO-GAPS. "ZP21价格
CONDENSE L_VBAK-ZP03_KBETR NO-GAPS. "ZP03价格
CONDENSE L_VBAK-ZP23_KBETR NO-GAPS. "ZP23价格
CONDENSE L_VBAK-ZP05_KBETR NO-GAPS. "ZP05价格
CONDENSE L_VBAK-ZP25_KBETR NO-GAPS. "ZP25价格
CONDENSE L_VBAK-ZP08_KBETR NO-GAPS. "ZP08价格
CONDENSE L_VBAK-ZP28_KBETR NO-GAPS. "ZP28价格
CONDENSE L_VBAK-ZP09_KBETR NO-GAPS. "ZP09价格
CONDENSE L_VBAK-ZP29_KBETR NO-GAPS. "ZP29价格
CONDENSE L_VBAK-ZP11_KBETR NO-GAPS. "ZP11价格
CONDENSE L_VBAK-ZP31_KBETR NO-GAPS. "ZP31价格
*----取得带 billing plan 的Item category(项目类型)-----------------
MOVE: \'I\' TO R_PSTYV-SIGN,
\'EQ\' TO R_PSTYV-OPTION,
\'ZTAO\' TO R_PSTYV-LOW.
APPEND R_PSTYV.
MOVE \'ZAO2\'TO R_PSTYV-LOW.
APPEND R_PSTYV.
MOVE \'TAO\'TO R_PSTYV-LOW.
APPEND R_PSTYV.
MOVE \'ZAO\'TO R_PSTYV-LOW.
APPEND R_PSTYV.
MOVE \'YYAO\'TO R_PSTYV-LOW.
APPEND R_PSTYV.
*---执行BDC---------
PERFORM RUN_BDC.
ENDLOOP.
ENDFORM. " check_input
*&---------------------------------------------------------------------*
*& Form upoload_file
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM UPOLOAD_FILE.
CALL FUNCTION \'UPLOAD\'
EXPORTING
CODEPAGE = \'8400\'
* FILENAME = SOURCEFILE
FILENAME = P_FILE
FILETYPE = \'DAT\'
TABLES
DATA_TAB = IT_UPLOAD
EXCEPTIONS
OTHERS = 7.
SORT IT_UPLOAD BY VBELN.
REFRESH IT_UPLOAD_SO.
CLEAR IT_UPLOAD_SO.
MOVE IT_UPLOAD[] TO IT_UPLOAD_SO[].
SORT IT_UPLOAD_SO BY VBELN.
*--删除重复行-------
DELETE ADJACENT DUPLICATES FROM IT_UPLOAD_SO COMPARING VBELN.
ENDFORM. " upoload_file
*&---------------------------------------------------------------------*
*& Form get_filename
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_FILE1 text
*----------------------------------------------------------------------*
FORM GET_FILENAME USING P_P_FILE.
"出现打开文件的对话框
CALL FUNCTION \'WS_FILENAME_GET\'
EXPORTING
MASK = \',*.*,*.*.\'
MODE = \'O\'
IMPORTING
FILENAME = P_P_FILE
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
ENDFORM. " get_filename
*&---------------------------------------------------------------------*
*& Form RUN_BDC
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM RUN_BDC.
REFRESH T_BDC.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'0102\',
\' \' \'BDC_CURSOR\' \'VBAK-VBELN\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'VBAK-VBELN\' L_VBAK-VBELN."订单号
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4001\',
\' \' \'BDC_OKCODE\' \'=POAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV45W\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_CURSOR\' \'RV45A-MABNR(02)\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
*----------行项目概览数据输出----------------
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4001\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV45W\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'RV45A-MABNR(02)\' L_VBAK-MATNR,"物料编号
\' \' \'VBAP-POSNR(02)\' L_VBAK-POSNR,"行项目
* \' \' \'RV45A-KWMENG(02)\' \'1\',
\' \' \'RV45A-KWMENG(02)\' L_VBAK-KWMENG, "数量
\' \' \'VBAP-PSTYV(02)\' L_VBAK-PSTYV, "项目类型
\' \' \'RV45A-ETDAT(02)\' L_VBAK-ETDAT, "首次日期
\' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
*如果客户物料编号/WBS元素/上层物料编号/PR01价格/PR01币种为空则以默认显示
IF L_VBAK-KDMAT NE SPACE."客户物料编号
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'VBAP-KDMAT(02)\' L_VBAK-KDMAT."客户物料编号
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
IF L_VBAK-UEPOS NE SPACE."上层项
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'VBAP-UEPOS(02)\' L_VBAK-UEPOS. "上层项
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
IF L_VBAK-PS_PSP_PNR NE SPACE."WBS元素
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'VBAP-PS_PSP_PNR(02)\' L_VBAK-PS_PSP_PNR. "WBS元素
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
IF L_VBAK-PR01_KBETR NE SPACE. "PR01价格
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'KOMV-KBETR(02)\' L_VBAK-PR01_KBETR. "PR01价格
* \' \' \'KOMV-KBETR(02)\' \'1000\'.
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
IF L_VBAK-PR01_KOEIN NE SPACE. "PR01币种
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
\' \' \'RV45A-KOEIN(02)\' L_VBAK-PR01_KOEIN. "PR01币种
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
*---付款方式输入-------------------------------
IF L_VBAK-ZTERM <> \'\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\' \' \'VBKD-ZTERM(02)\' L_VBAK-ZTERM."付款条款
ENDIF.
*------------------原始代码-----------------------
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4001\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV45W\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(02)\',
* \' \' \'RV45A-MABNR(02)\' L_VBAK-MATNR,"物料编号
* \' \' \'VBAP-KDMAT(02)\' L_VBAK-KDMAT,"客户物料编号
* \' \' \'VBAP-POSNR(02)\' L_VBAK-POSNR,"行项目
* \' \' \'RV45A-KWMENG(02)\' L_VBAK-KWMENG, "数量
* \' \' \'VBAP-PSTYV(02)\' L_VBAK-PSTYV, "项目类型
* \' \' \'VBAP-UEPOS(02)\' L_VBAK-UEPOS, "上层项
* \' \' \'KOMV-KBETR(02)\' L_VBAK-PR01_KBETR, "PR01价格
* \' \' \'RV45A-KOEIN(02)\' L_VBAK-PR01_KOEIN, "PR01币种
* \' \' \'RV45A-ETDAT(02)\' L_VBAK-ETDAT, "首次日期
* \' \' \'VBAP-PS_PSP_PNR(02)\' L_VBAK-PS_PSP_PNR, "WBS元素
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
*-------------------END OF--------------------------------------------
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4001\',
\' \' \'BDC_OKCODE\' \'=ITEM\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV45W\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_CURSOR\' \'RV45A-MABNR(02)\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
*----判断是否是带 billing plan 的Item category---------
IF NOT L_VBAK-PSTYV IN R_PSTYV.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=T/06\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_CURSOR\' \'RV45A-KWMENG\'.
ELSE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=T/07\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
*------------END OF-------------------------
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
*---------价格输入区------------------------
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
*--价格条件可以为空
IF L_VBAK-PN00_KBETR NE SPACE
AND L_VBAK-PN00_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'PN00\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-PN00_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-PN00_KOEIN.
ENDIF.
* IF L_VBAK-PN002_KBETR NE SPACE
* AND L_VBAK-PN002_KOEIN NE SPACE.
*
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
*
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \' \' \'KOMV-KSCHL(10)\' \'PN00\',
* \' \' \'KOMV-KBETR(10)\' L_VBAK-PN002_KBETR,
* \' \' \'RV61A-KOEIN(10)\' L_VBAK-PN002_KOEIN.
* ENDIF.
IF L_VBAK-ZP01_KOEIN NE SPACE
AND L_VBAK-ZP01_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP01\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP01_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP01_KOEIN.
ENDIF.
IF L_VBAK-ZP21_KBETR NE SPACE
AND L_VBAK-ZP21_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP21\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP21_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP21_KOEIN.
ENDIF.
IF L_VBAK-ZP03_KBETR NE SPACE
AND L_VBAK-ZP03_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP03\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP03_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP03_KOEIN.
ENDIF.
IF L_VBAK-ZP23_KBETR NE SPACE
AND L_VBAK-ZP23_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP23\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP23_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP23_KOEIN.
ENDIF.
IF L_VBAK-ZP05_KOEIN NE SPACE
AND L_VBAK-ZP05_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP05\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP05_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP05_KOEIN.
ENDIF.
IF L_VBAK-ZP25_KBETR NE SPACE
AND L_VBAK-ZP25_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP25\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP25_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP25_KOEIN.
ENDIF.
IF L_VBAK-ZP08_KBETR NE SPACE
AND L_VBAK-ZP08_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP08\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP08_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP08_KOEIN.
ENDIF.
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'=V69A_KOAN\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A \',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A \',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\',
* \' \' \'KOMV-KSCHL(02)\' \'PN00\',
* \' \' \'KOMV-KSCHL(03)\' \'PN00\',
* \' \' \'KOMV-KSCHL(04)\' \'ZP01\',
* \' \' \'KOMV-KSCHL(05)\' \'ZP21\',
* \' \' \'KOMV-KSCHL(06)\' \'ZP03\',
* \' \' \'KOMV-KSCHL(07)\' \'ZP23\',
* \' \' \'KOMV-KSCHL(08)\' \'ZP05\',
* \' \' \'KOMV-KSCHL(09)\' \'ZP25\',
* \' \' \'KOMV-KSCHL(10)\' \'ZP08\',
* \' \' \'KOMV-KBETR(02)\' L_VBAK-PN00_KBETR,
* \' \' \'KOMV-KBETR(03)\' L_VBAK-PN002_KBETR,
* \' \' \'KOMV-KBETR(04)\' L_VBAK-ZP01_KBETR,
* \' \' \'KOMV-KBETR(05)\' L_VBAK-ZP21_KBETR,
* \' \' \'KOMV-KBETR(06)\' L_VBAK-ZP03_KBETR,
* \' \' \'KOMV-KBETR(07)\' L_VBAK-ZP23_KBETR,
* \' \' \'KOMV-KBETR(08)\' L_VBAK-ZP05_KBETR,
* \' \' \'KOMV-KBETR(09)\' L_VBAK-ZP25_KBETR,
* \' \' \'KOMV-KBETR(10)\' L_VBAK-ZP08_KBETR,
* \' \' \'RV61A-KOEIN(02)\' L_VBAK-PN00_KOEIN,
* \' \' \'RV61A-KOEIN(03)\' L_VBAK-PN002_KOEIN,
* \' \' \'RV61A-KOEIN(04)\' L_VBAK-ZP01_KOEIN,
* \' \' \'RV61A-KOEIN(05)\' L_VBAK-ZP21_KOEIN,
* \' \' \'RV61A-KOEIN(06)\' L_VBAK-ZP03_KOEIN,
* \' \' \'RV61A-KOEIN(07)\' L_VBAK-ZP23_KOEIN,
* \' \' \'RV61A-KOEIN(08)\' L_VBAK-ZP05_KOEIN,
* \' \' \'RV61A-KOEIN(09)\' L_VBAK-ZP25_KOEIN,
* \' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP08_KOEIN.
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\'.
IF L_VBAK-ZP28_KBETR NE SPACE
AND L_VBAK-ZP28_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP28\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP28_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP28_KOEIN.
ENDIF.
IF L_VBAK-ZP09_KBETR NE SPACE
AND L_VBAK-ZP09_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP09\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP09_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP09_KOEIN.
ENDIF.
IF L_VBAK-ZP29_KBETR NE SPACE
AND L_VBAK-ZP29_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP29\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP29_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP29_KOEIN.
ENDIF.
IF L_VBAK-ZP11_KBETR NE SPACE
AND L_VBAK-ZP11_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP11\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP11_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP11_KOEIN.
ENDIF.
IF L_VBAK-ZP31_KBETR NE SPACE
AND L_VBAK-ZP31_KOEIN NE SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KBETR(10)\'.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
\' \' \'KOMV-KSCHL(10)\' \'ZP31\',
\' \' \'KOMV-KBETR(10)\' L_VBAK-ZP31_KBETR,
\' \' \'RV61A-KOEIN(10)\' L_VBAK-ZP31_KOEIN.
ENDIF.
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'5003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV69A\',
* \' \' \'BDC_CURSOR\' \'KOMV-KBETR(06)\',
* \' \' \'KOMV-KSCHL(02)\' \'ZP28\',
* \' \' \'KOMV-KSCHL(03)\' \'ZP09\',
* \' \' \'KOMV-KSCHL(04)\' \'ZP29\',
* \' \' \'KOMV-KSCHL(05)\' \'ZP11\',
* \' \' \'KOMV-KSCHL(06)\' \'ZP31\',
* \' \' \'KOMV-KBETR(02)\' L_VBAK-ZP28_KBETR,
* \' \' \'KOMV-KBETR(03)\' L_VBAK-ZP09_KBETR,
* \' \' \'KOMV-KBETR(04)\' L_VBAK-ZP29_KBETR,
* \' \' \'KOMV-KBETR(05)\' L_VBAK-ZP11_KBETR,
* \' \' \'KOMV-KBETR(06)\' L_VBAK-ZP31_KBETR,
* \' \' \'RV61A-KOEIN(02)\' L_VBAK-ZP28_KOEIN,
* \' \' \'RV61A-KOEIN(03)\' L_VBAK-ZP09_KOEIN,
* \' \' \'RV61A-KOEIN(04)\' L_VBAK-ZP29_KOEIN,
* \' \' \'RV61A-KOEIN(05)\' L_VBAK-ZP11_KOEIN,
* \' \' \'RV61A-KOEIN(06)\' L_VBAK-ZP31_KOEIN.
*---------------------END OF------------------------
*----判断是否是带 billing plan 的Item category---------
IF NOT L_VBAK-PSTYV IN R_PSTYV.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=T/09\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(07)\'.
ELSE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'5003\',
\' \' \'BDC_OKCODE\' \'=T/10\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV69A\',
\' \' \'BDC_CURSOR\' \'KOMV-KSCHL(07)\'.
ENDIF.
*------------END OF-------------------------
*-------付款方和送达方的判断--------------------
* IF L_VBAK-F_PARTNER = \'\' "付款方
* AND L_VBAK-S_PARTNER = \'\'."送达方
IF L_VBAK-S_PARTNER = \'\'."送达方
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV09C\'.
* \' \' \'BDC_CURSOR\' \'GVS_TC_DATA-REC-PARTNER(06)\',
* \' \' \'GV_FILTER\' \'PARALL\'.
* \' \' \'GVS_TC_DATA-REC-PARTNER(05)\' L_VBAK-F_PARTNER,"付款方
* \' \' \'GVS_TC_DATA-REC-PARTNER(06)\' L_VBAK-S_PARTNER."送达方
ELSE.
* 根据表头合作伙伴的行数来判断送达方的位置
IF SUM = 4.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV09C\',
\' \' \'BDC_CURSOR\' \'GVS_TC_DATA-REC-PARTNER(04)\',
\' \' \'GV_FILTER\' \'PARALL\',
\' \' \'GVS_TC_DATA-REC-PARTNER(04)\' L_VBAK-S_PARTNER."送达方
ELSEIF SUM = 5.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV09C\',
\' \' \'BDC_CURSOR\' \'GVS_TC_DATA-REC-PARTNER(05)\',
\' \' \'GV_FILTER\' \'PARALL\',
\' \' \'GVS_TC_DATA-REC-PARTNER(05)\' L_VBAK-S_PARTNER."送达方
ELSEIF SUM = 6.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'/00\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV09C\',
\' \' \'BDC_CURSOR\' \'GVS_TC_DATA-REC-PARTNER(06)\',
\' \' \'GV_FILTER\' \'PARALL\',
\' \' \'GVS_TC_DATA-REC-PARTNER(06)\' L_VBAK-S_PARTNER."送达方
ENDIF.
* PERFORM FRM_ADD_BDC_TAB_RECORD USING:
* \'1\' \'SAPMV45A\' \'4003\',
* \' \' \'BDC_OKCODE\' \'/00\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPMV45A\',
* \' \' \'BDC_SUBSCR\' \'SAPLV09C\',
* \' \' \'BDC_CURSOR\' \'GVS_TC_DATA-REC-PARTNER(06)\',
* \' \' \'GV_FILTER\' \'PARALL\',
* \' \' \'GVS_TC_DATA-REC-PARTNER(05)\' L_VBAK-F_PARTNER,"付款方
* \' \' \'GVS_TC_DATA-REC-PARTNER(06)\' L_VBAK-S_PARTNER."送达方
ENDIF.
*------------------end of------------------------------------
*----判断是否是带 billing plan 的Item category---------
IF NOT L_VBAK-PSTYV IN R_PSTYV.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=T/11\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPLV70T\'.
ELSE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=T/12\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\'.
ENDIF.
*-----------END OF-------------------------------
*--------采购订单数据的判断--------------------------------
*如果售达方中采购订单项目和售达方中您的参考都为空、送达方中您的参考
IF L_VBAK-POSEX = SPACE AND L_VBAK-IHREZ = SPACE
AND L_VBAK-IHREZ_E = SPACE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=SICH\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'VBKD-IHREZ_E\'.
* \' \' \'VBAP-POSEX\' L_VBAK-POSEX,"售达方中采购订单项目
* \' \' \'VBKD-IHREZ\' L_VBAK-IHREZ,"售达方中您的参考
* \' \' \'VBKD-IHREZ_E\' L_VBAK-IHREZ_E."送达方中您的参考
ELSEIF L_VBAK-POSEX = SPACE."售达方中采购订单项目
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=SICH\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'VBKD-IHREZ_E\',
* \' \' \'VBAP-POSEX\' L_VBAK-POSEX."售达方中采购订单项目
\' \' \'VBKD-IHREZ\' L_VBAK-IHREZ,"售达方中您的参考
\' \' \'VBKD-IHREZ_E\' L_VBAK-IHREZ_E."送达方中您的参考
ELSEIF L_VBAK-IHREZ = SPACE."售达方中您的参考
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=SICH\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'VBKD-IHREZ_E\',
\' \' \'VBAP-POSEX\' L_VBAK-POSEX,"售达方中采购订单项目
\' \' \'VBKD-IHREZ_E\' L_VBAK-IHREZ_E."送达方中您的参考
ELSEIF L_VBAK-IHREZ_E = SPACE."送达方中您的参考
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=SICH\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'VBKD-IHREZ_E\',
\' \' \'VBAP-POSEX\' L_VBAK-POSEX,"售达方中采购订单项目
\' \' \'VBKD-IHREZ\' L_VBAK-IHREZ."售达方中您的参考
* \' \' \'VBKD-IHREZ_E\' L_VBAK-IHREZ_E."送达方中您的参考
ELSE.
PERFORM FRM_ADD_BDC_TAB_RECORD USING:
\'1\' \'SAPMV45A\' \'4003\',
\' \' \'BDC_OKCODE\' \'=SICH\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A\',
\' \' \'BDC_SUBSCR\' \'SAPMV45A \',
\' \' \'BDC_CURSOR\' \'VBKD-IHREZ_E\',
\' \' \'VBAP-POSEX\' L_VBAK-POSEX,"售达方中采购订单项目
\' \' \'VBKD-IHREZ\' L_VBAK-IHREZ,"售达方中您的参考
\' \' \'VBKD-IHREZ_E\' L_VBAK-IHREZ_E."送达方中您的参考
ENDIF.
CLEAR: R_PSTYV[],R_PSTYV.
*-------------------------------------------------------
* CALL TRANSACTION \'VA02\' USING T_BDC MODE \'E\'.
PERFORM SUB_TRANSFER_DATA USING \'VA02\'.
*--处理日志信息-----------------------
*----->message inf.
IF SY-SUBRC = 0.
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
*-----表示肯定成功了
ITAB_MESSTAB-MESSAGE = \'该行项目已成功导入!\'.
ITAB_MESSTAB-FLAG = \'成功\'.
APPEND ITAB_MESSTAB.
*--创建文本--------------------------------------
PERFORM CREATE_TEXT USING L_VBAK-VBELN L_VBAK-POSNR L_VBAK-JUMING.
ELSE.
MOVE-CORRESPONDING L_VBAK TO ITAB_MESSTAB.
LOOP AT MESSTAB WHERE MSGTYP = \'E\'.
ITAB_MESSTAB-FLAG = \'失败\'.
SELECT SINGLE TEXT
FROM T100
INTO ITAB_MESSTAB-MESSAGE
WHERE SPRSL = MESSTAB-MSGSPRA
AND ARBGB = MESSTAB-MSGID
AND MSGNR = MESSTAB-MSGNR.
CALL FUNCTION \'FORMAT_MESSAGE\'
EXPORTING
ID = MESSTAB-MSGID
NO = MESSTAB-MSGNR
IMPORTING
MSG = ITAB_MESSTAB-MESSAGE.
ENDLOOP.
IF SY-SUBRC NE 0."没有E类型信息
LOOP AT MESSTAB WHERE MSGTYP = \'S\'.
ITAB_MESSTAB-FLAG = \'失败\'.
SELECT SINGLE TEXT
FROM T100
INTO ITAB_MESSTAB-MESSAGE
WHERE SPRSL = MESSTAB-MSGSPRA
AND ARBGB = MESSTAB-MSGID
AND MSGNR = MESSTAB-MSGNR.
CALL FUNCTION \'FORMAT_MESSAGE\'
EXPORTING
ID = MESSTAB-MSGID
NO = MESSTAB-MSGNR
IMPORTING
MSG = ITAB_MESSTAB-MESSAGE.
ENDLOOP.
ELSE.
LOOP AT MESSTAB WHERE MSGTYP = \'S\'.
ITAB_MESSTAB-FLAG = \'成功\'.
ITAB_MESSTAB-MESSAGE = \'行项目更新成功！\'.
ENDLOOP.
*--创建文本--------------------------------------
PERFORM CREATE_TEXT USING L_VBAK-VBELN L_VBAK-POSNR L_VBAK-JUMING.
ENDIF.
APPEND ITAB_MESSTAB.
ENDIF.
COMMIT WORK AND WAIT.
REFRESH MESSTAB.
CLEAR MESSTAB.
ENDFORM. " RUN_BDC
*---------------------------------------------------------------------*
* FORM SUB_TRANSFER_DATA *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> T_CODE *
*---------------------------------------------------------------------*
FORM SUB_TRANSFER_DATA USING T_CODE.
CALL TRANSACTION T_CODE
USING T_BDC
MODE MODE " \'N\'-Do not display
* MODE \'A\' " \'A\'-Display the screens
UPDATE \'S\'
MESSAGES INTO MESSTAB.
ENDFORM. " sub_transfer_data
*&---------------------------------------------------------------------*
* FORM FRM_ADD_BDC_TAB_RECORD *
*&---------------------------------------------------------------------*
* FILL BDC *
*&---------------------------------------------------------------------*
FORM FRM_ADD_BDC_TAB_RECORD USING:TMP_FLAG
TMP_VAR1
TMP_VAR2.
CLEAR T_BDC.
IF TMP_FLAG = \'1\'.
T_BDC-PROGRAM = TMP_VAR1.
T_BDC-DYNPRO = TMP_VAR2.
T_BDC-DYNBEGIN = \'X\'.
ELSE.
T_BDC-FNAM = TMP_VAR1.
T_BDC-FVAL = TMP_VAR2.
ENDIF.
APPEND T_BDC.
ENDFORM. "
*&---------------------------------------------------------------------*
*& Form output_LOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM OUTPUT_LOG.
SORT ITAB_MESSTAB BY VBELN.
PERFORM ALV_DISPLAY."ALV输出
ENDFORM. " output_LOG
*&---------------------------------------------------------------------*
*& Form ALV_DISPLAY
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM ALV_DISPLAY .
DATA L_TMP TYPE LVC_TITLE.
* PERFORM FRM_GET_EVENTS."alv表头所用
* PERFORM FRM_COMMENT_BUILD."alv表头所用
* v_alv_layout-colwidth_optimize = \'X\'.
* v_alv_layout-info_fieldname = \'COLOR\'.
PERFORM INIT_FIELDCAT.
* 调用ALV函数显示
CALL FUNCTION \'REUSE_ALV_GRID_DISPLAY\'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
I_GRID_TITLE = L_TMP
IS_LAYOUT = V_ALV_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
I_SAVE = \'X\'
* IS_VARIANT =
* IT_EVENTS = GIT_EVENTS[]"alv表头赋值
* i_callback_user_command = \'FRM_UCOMM\'"ALV事件
TABLES
T_OUTTAB = ITAB_MESSTAB
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM. " ALV_DISPLAY
*&---------------------------------------------------------------------*
*& Form INIT_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM INIT_FIELDCAT .
GT_FIELDCAT-FIELDNAME = \'VBELN\'.
GT_FIELDCAT-SELTEXT_L = \'订单号\'.
GT_FIELDCAT-SELTEXT_S = \'订单号\'.
GT_FIELDCAT-SELTEXT_M = \'订单号\'.
APPEND GT_FIELDCAT.
CLEAR GT_FIELDCAT.
GT_FIELDCAT-FIELDNAME = \'POSNR\'.
GT_FIELDCAT-SELTEXT_L = \'项目号\'.
GT_FIELDCAT-SELTEXT_S = \'项目号\'.
GT_FIELDCAT-SELTEXT_M = \'项目号\'.
APPEND GT_FIELDCAT.
CLEAR GT_FIELDCAT.
GT_FIELDCAT-FIELDNAME = \'KWMENG\'.
GT_FIELDCAT-SELTEXT_L = \'数量\'.
GT_FIELDCAT-SELTEXT_S = \'数量\'.
GT_FIELDCAT-SELTEXT_M = \'数量\'.
APPEND GT_FIELDCAT.
CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'KDMAT\'.
* GT_FIELDCAT-SELTEXT_L = \'客户物料编号\'.
* GT_FIELDCAT-SELTEXT_S = \'客户物料编号\'.
* GT_FIELDCAT-SELTEXT_M = \'客户物料编号\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PSTYV\'.
* GT_FIELDCAT-SELTEXT_L = \'项目类型\'.
* GT_FIELDCAT-SELTEXT_S = \'项目类型\'.
* GT_FIELDCAT-SELTEXT_M = \'项目类型\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'UEPOS\'.
* GT_FIELDCAT-SELTEXT_L = \'上层项\'.
* GT_FIELDCAT-SELTEXT_S = \'上层项\'.
* GT_FIELDCAT-SELTEXT_M = \'上层项\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PR01价格\'.
* GT_FIELDCAT-SELTEXT_L = \'PR01_KBETR\'.
* GT_FIELDCAT-SELTEXT_S = \'PR01_KBETR\'.
* GT_FIELDCAT-SELTEXT_M = \'PR01_KBETR\'.
** gt_fieldcat-hotspot = \'X\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PR01币种\'.
* GT_FIELDCAT-SELTEXT_L = \'PR01_KOEIN\'.
* GT_FIELDCAT-SELTEXT_S = \'PR01_KOEIN\'.
* GT_FIELDCAT-SELTEXT_M = \'PR01_KOEIN\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'ETDAT\'.
* GT_FIELDCAT-SELTEXT_L = \'首次日期\'.
* GT_FIELDCAT-SELTEXT_S = \'首次日期\'.
* GT_FIELDCAT-SELTEXT_M = \'首次日期\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PS_PSP_PNR\'.
* GT_FIELDCAT-SELTEXT_L = \'WBS元素\'.
* GT_FIELDCAT-SELTEXT_S = \'WBS元素\'.
* GT_FIELDCAT-SELTEXT_M = \'WBS元素\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PN00_KBETR\'.
* GT_FIELDCAT-SELTEXT_L = \'PN00价格\'.
* GT_FIELDCAT-SELTEXT_S = \'PN00价格\'.
* GT_FIELDCAT-SELTEXT_M = \'PN00价格\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
* GT_FIELDCAT-FIELDNAME = \'PN00_KOEIN\'.
* GT_FIELDCAT-SELTEXT_L = \'PN00币种\'.
* GT_FIELDCAT-SELTEXT_S = \'PN00币种\'.
* GT_FIELDCAT-SELTEXT_M = \'PN00币种\'.
* APPEND GT_FIELDCAT.
* CLEAR GT_FIELDCAT.
GT_FIELDCAT-FIELDNAME = \'FLAG\'.
GT_FIELDCAT-SELTEXT_L = \'是否成功\'.
GT_FIELDCAT-SELTEXT_S = \'是否成功\'.
GT_FIELDCAT-SELTEXT_M = \'是否成功\'.
APPEND GT_FIELDCAT.
CLEAR GT_FIELDCAT.
GT_FIELDCAT-FIELDNAME = \'MESSAGE\'.
GT_FIELDCAT-SELTEXT_L = \'备注\'.
GT_FIELDCAT-SELTEXT_S = \'备注\'.
GT_FIELDCAT-SELTEXT_M = \'备注\'.
APPEND GT_FIELDCAT.
CLEAR GT_FIELDCAT.
ENDFORM. " INIT_FIELDCAT
*&---------------------------------------------------------------------*
*& Form CREATE_TEXT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_I_VBAK_VBELN text
* -->P_I_VBAK_POSNR text
*----------------------------------------------------------------------*
FORM CREATE_TEXT USING P_I_VBAK_VBELN
P_I_VBAK_POSNR
P_L_VBAK-JUMING.
DATA:L_TLINE LIKE TLINE OCCURS 0 WITH HEADER LINE.
****局名
L_TLINE-TDFORMAT = \'01\'.
L_TLINE-TDLINE = P_L_VBAK-JUMING.
APPEND L_TLINE.
*-------------在P_I_VBAK_VBELN前面补零-----
CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\'
EXPORTING
INPUT = P_I_VBAK_VBELN
IMPORTING
OUTPUT = P_I_VBAK_VBELN.
*-------------在P_I_VBAK_POSNR前面补零-----
CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\'
EXPORTING
INPUT = P_I_VBAK_POSNR
IMPORTING
OUTPUT = P_I_VBAK_POSNR.
* L_NAME = P_I_VBAK_VBELN.
CONCATENATE P_I_VBAK_VBELN P_I_VBAK_POSNR INTO L_NAME.
CALL FUNCTION \'CREATE_TEXT\'
EXPORTING
FID = \'Z003\'
FLANGUAGE = \'1\'
FNAME = L_NAME
FOBJECT = \'VBBP\'
SAVE_DIRECT = \'X\'
FFORMAT = \'*\'
TABLES
FLINES = L_TLINE
EXCEPTIONS
NO_INIT = 1
NO_SAVE = 2
OTHERS = 3.
CLEAR: L_TLINE[],L_TLINE,L_NAME.
ENDFORM. " CREATE_TEXT