[转载]供应商主数据创建_SAP刘梦_新浪博客

原文地址：供应商主数据创建 作者：Harvey

供应商主数据创建有三种方法：第一种是BDC 第二种是用SAP自身的一个方法VMD_EI_API=>MAINTAIN_BAPI 第三种是用IDOC的方式。IDOC的方式比较简单，通过配置IDOC然后就可以实现。IDOC TYPE为CREMAS03或者CREMAS05都可以 看你的需要啦。如果有些字段在IDOC TYPE里面没有的（比如EMAIL这样的字段）那么就要写IDOC增强，不过写增强还得找出口还得去增强标准的一些代码我觉得很烦，我是把它的IDOC关联的标准FUNCTION COPY出来创建完成后生成了供应商代码，然后再写一个更新EMAIL的function去更新email信息和其他IDOC TYPE 里面没有的字段信息。以下为通过VMD_EI_API=>MAINTAIN_BAPI 去创建供应商主数据的部分数据代码。

*&---------------------------------------------------------------------*
*& Report  ZVENDOR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZVENDOR.
*&---------------------------------------------------------------------*
*&      Form  FRM_CREATE_VENDOR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      --> text
*----------------------------------------------------------------------*
              " FRM_CREATE_VENDOR

*&---------------------------------------------------------------------*
*&      Form  FRM_CREATE_VENDOR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      --> text
*----------------------------------------------------------------------*

  DATA: LS_RETURN TYPE BAPIRET2.
  DATA: LS_MASTER_DATA TYPE VMDS_EI_MAIN.
  DATA: LS_MASTER_DATA_CORRECT  TYPE  VMDS_EI_MAIN,
        LS_MESSAGE_CORRECT  TYPE  CVIS_MESSAGE,
        LS_MASTER_DATA_DEFECTIVE  TYPE  VMDS_EI_MAIN,
        LS_MESSAGE_DEFECTIVE  TYPE  CVIS_MESSAGE.
  DATA: LS_VMDS_EI_EXTERN TYPE VMDS_EI_EXTERN.
  DATA: LS_CORRECT_EXTERN TYPE VMDS_EI_EXTERN.
  DATA: LS_REMARKS TYPE CVIS_EI_REM.
  DATA: LS_BANK TYPE CVIS_EI_CVI_BANKDETAIL.
  DATA: LS_COMMUNICATION_PHONE TYPE CVIS_EI_PHONE_STR,
        LS_COMMUNICATION_FAX TYPE  CVIS_EI_FAX_STR,
        LS_COMMUNICATION_SMTP TYPE CVIS_EI_SMTP_STR.
  DATA: LV_STRING TYPE STRING .
  DATA: LV_APPROVED_DATE TYPE STRING,
        LV_APPROVED_DATE1 TYPE STRING.
  DATA: LV_ADRNR TYPE ADRNR,
        LS_KNVK TYPE KNVK,
*        LS_ZMMR1010 TYPE ZMMR1010,
        LV_RETCODE TYPE NRRETURN,
        LV_PERSON_NUMBER TYPE AD_PERSNUM.
  DATA: LS_CVI_BANKDETAIL TYPE CVIS_EI_CVI_BANKDETAIL,
        LS_BANKDETAIL_KEY TYPE CVIS_EI_BANKDETAIL_KEY,
        LS_BANKDETAIL_DATA TYPE CVIS_EI_BANKDETAIL_DATA,
        LS_BANKDETAIL_DATAX TYPE CVIS_EI_BANKDETAIL_DATAX.
  DATA: LV_MAX_LIFNR TYPE LIFNR.
  DATA: LS_VMDS_CMP TYPE VMDS_EI_COMPANY,
        LS_VMDS_PUR TYPE VMDS_EI_PURCHASING,
        LS_VMDS_FUN TYPE VMDS_EI_FUNCTIONS.
  DATA: ZLFBK TYPE LFBK.
  DATA:IV_FLAG  TYPE C .
  CLEAR:LS_RETURN ,
        LS_MASTER_DATA ,
        LS_MASTER_DATA_CORRECT ,
        LS_MESSAGE_CORRECT  ,
        LS_MASTER_DATA_DEFECTIVE  ,
        LS_MESSAGE_DEFECTIVE  ,
        LS_VMDS_EI_EXTERN ,
        LS_CORRECT_EXTERN ,
        LS_REMARKS ,
        LS_BANK ,
        LS_COMMUNICATION_PHONE ,
        LS_COMMUNICATION_FAX ,
        LS_COMMUNICATION_SMTP ,
        LV_STRING ,
        LV_APPROVED_DATE ,
        LV_APPROVED_DATE1 ,