功能Z_INTERFACE_00001650。
 *" ------------------------------------------------  ----------------------
 *" *"本地接口：
 *"正在导入
 *" VALUE（I_POSTAB）类似于RFPOS结构RFPOS
 *"汇出
 *" VALUE（E_POSTAB）类似RFPOS结构RFPOS
 *" ------------------------------------------------  ----------------------

 * --------------使用以下行初始化输出----------
   E_POSTAB = I_POSTAB。

   表格：BSEG，LFA1，KNA1。
   数据：W_NAME1 TYPE LFA1-NAME1，
         W_NAMEC TYPE KNA1-NAME1，
   W_LIFNR LFA1-LIFNR型，
   W_KUNNR类型BSEG-KUNNR，
   W_HKONT TYPE BSEG-HKONT，
   W_TXT TYPE SKAT-TXT20，
   W_EBELN类型EKKO-EBELN。
   IF E_POSTAB-BLART EQ'WE'。
 *"用于MIGO文件
     从BSEG的WHERE BELNR中选择单个EBELN到W_EBELN = E_POSTAB-BELNR
     AND BUKRS = E_POSTAB-BUKRS
     AND GJAHR = E_POSTAB-GJAHR
     AND HKONT = E_POSTAB-HKONT。

 ***用于总帐的指称和费用说明
     从BSEG选择单个HKONT到E_POSTAB-ZHKONT的BELNR = E_POSTAB-BELNR和BSCHL（'81'，'91'）中
      AND KOART ='S'。
     从滑板中选择一个TXT20到E_POSTAB-ZTXT20，其中SAKNR = E_POSTAB-ZHKONT。

     如果SY-SUBRC = 0。

       选择单个LFA1〜NAME1
       LFA1〜LIFNR
       INTO（W_NAME1，W_LIFNR）
       从EKKO内联LFA1到EKKO〜LIFNR =
       LFA1〜LIFNR其中EKKO〜EBELN = W_EBELN。

       如果SY-SUBRC = 0。

         E_POSTAB-ZNAME = W_NAME1。
         E_POSTAB-ZLIFNR = W_LIFNR。

         清除：W_NAME1，W_LIFNR。
       万一。
     万一。
   其他。
 *"对于MIGO doc以外的人
 *即 供应商发票
     选择单个LIFNR
     来自BSEG
     INTO（E_POSTAB-ZLIFNR）
     在哪里BUKRS = I_POSTAB-BUKRS
     AND GJAHR = I_POSTAB-GJAHR
     AND BELNR = I_POSTAB-BELNR
     和BSCHL IN（'31'，'21'）
     AND KOART ='K'。
 ***客户代码

     选择单坤
   来自BSEG
   INTO（E_POSTAB-ZKUNNR）
   在哪里BUKRS = I_POSTAB-BUKRS
   AND GJAHR = I_POSTAB-GJAHR
   AND BELNR = I_POSTAB-BELNR
   和BSCHL IN（'01'，'02'，'11'，'12'，'15'）
   AND KOART ='D'。
 **获取客户名称
     选择单名1
 从KNA1
 进入E_POSTAB-ZNAMEC
 哪里KUNNR = E_POSTAB-ZKUNNR。
 *获取供应商名称
     选择单名1
     从LFA1
     INTO E_POSTAB-ZNAME
     LIFNR = E_POSTAB-ZLIFNR。
   万一。

 ENDFUNCTION。