SAP会计凭证批导

墨蓝 2022-12-25 00:53 1331阅读 0赞

report zfi005.  
  
*\*----------------------------------------------------------------------\**  
*\* **数据库表声明*  
*\*----------------------------------------------------------------------\**  
tables sscrfields.*"**选择屏幕控件定义*  
*\*----------------------------------------------------------------------\**  
*\* **声明类型*  
*\*----------------------------------------------------------------------\**  
*\*&---**文件上载**/file upload*  
types: begin of ty\_upload,  
         number     type text20,                                      *" **序号*  
         comp\_code  type bapiache09\-comp\_code,                        *" **公司代码*  
         pstng\_date type bapiache09\-pstng\_date,                       *" **过账日期*  
         doc\_date   type bapiache09\-doc\_date,                         *" **凭证日期*  
         doc\_type   type bapiache09\-doc\_type,                         *" **凭证类型*  
         currency   type bapiaccr09\-currency ,                        *" **货币*  
         kursf      type bapiaccr09\-exch\_rate,                        *" **汇率*  
         ref\_doc\_no type bapiache09\-ref\_doc\_no,                       *" **参照*  
         numpg      type char03,                                      *" **页数*  
         header\_txt type bapiache09\-header\_txt,                       *" **凭证抬头文本*  
         buzei      type buzei,                                       *" **行项目*  
         bschl      type bschl,                                       *" **过账码*  
         gl\_account type bapiacap09\-gl\_account ,                      *" **总账科目*  
         customer   type bapiacar09\-customer ,                        *" **客户编号*  
         vendor\_no  type bapiacap09\-vendor\_no ,                       *" **供应商编号*  
         umskz      type bseg\-umskz ,                                 *" **特别总账标识*  
         asset\_no   type bapiacgl09\-asset\_no ,                        *" **资产号*  
         anln2      type anla\-anln2,                                  *" **资产子编号*  
         anbwa      type bseg\-anbwa,                                  *" **事物类型*  
         wrbtr      type bseg\-wrbtr,                                  *" **交易货币金额*  
         dmbtr      type bseg\-dmbtr,                                  *" **本位币金额*  
         dmbe2      type bseg\-dmbe2,                                  *" **本位币**2**金额*  
         gsber      type bseg\-gsber,                                  *" **业务范围*  
         kkber      type bseg\-kkber,                                  *" **信用控制范围*  
         costcenter type bapiacgl09\-costcenter ,                      *" **成本中心*  
         orderid    type bapiacgl09\-orderid ,                         *" **订单（统计型内部订单）*  
         pernr      type bseg\-pernr,                                  *" **人员编号*  
         zuonr      type bapiacgl09\-alloc\_nmbr,                       *" **分配*  
         item\_text  type bapiacgl09\-item\_text ,                       *" **文本（凭证行文本）*  
         xnegp      type bseg\-xnegp ,                                 *" **反记账*  
         menge      type bseg\-menge,                                  *" **数量*  
         meins      type bseg\-meins,                                  *" **单位*  
         xref1      type bseg\-xref1 ,                                 *" **参考代码**1*  
         xref2      type bseg\-xref2 ,                                 *" **参考代码**2*  
         xref3      type bseg\-xref3 ,                                 *" **参考代码**3*  
         zfbdt      type bseg\-zfbdt ,                                 *" **基限日期（汇票到期日）*  
         zterm      type bseg\-zterm,                                  *" **付款条件*  
         rstgr      type bseg\-rstgr,                                  *" **原因代码*  
         vbund      type bseg\-vbund,                                  *" **贸易伙伴*  
         *"**获利能力段*  
         kndnr      type kunde\_pa,                                    *" **客户*  
         artnr      type artnr,                                       *" **生产*  
         fkart      type fkart,                                       *" **开票类型*  
         kaufn      type kdauf,                                       *" **销售订单*  
         kdpos      type kdpos,                                       *" **销售订单项目*  
         rkaufnr    type aufnr,                                       *" **订单*  
         werks      type werks\_d,                                     *" **工厂*  
         fkber      type fkber,                                       *" **功能范围*  
         segment    type fb\_segment,                                  *" **段*  
         vkorg      type vkorg,                                       *" **销售机构*  
         vtweg      type vtweg,                                       *" **分销渠道*  
         spart      type spart,                                       *" **产品组*  
         pspnr      type ps\_psp\_pnr,                                  *" WBS **要素*  
         copa\_kostl type copa\_kostl,                                  *" **成本中心*  
         kstrg      type kstrg,                                       *" **成本对象*  
         prctr      type prctr,                                       *" **利润中心*  
         pprctr     type pprctr,                                      *" **伙伴** PC*  
         budget\_pd  type bseg\-budget\_pd,                              *" **预算期间*  
         zlsch      type bseg\-zlsch,                                  *" **付款方式*  
         zzcoalr    type bseg\-zzcoalr,                                *" **辅助核算科目*  
  
         kmmakl     type matkl,                                       *" **物料组*  
         kmvkbu     type vkbur,                                       *" **销售办事处*  
         kmvkgr     type vkgrp,                                       *" **销售组*  
  
*\*&---**用来显示消息的字段*  
         belnr      type bseg\-belnr,                                  *" **会计凭证编号*  
         gjahr      type bseg\-gjahr,                                  *" **财年*  
         bukrs      type bseg\-bukrs,                                  *" **公司代码*  
         msg        type string,                                      *" **返回消息*  
         msg\_belnr  type string,                                      *" **返回凭证号*  
         light      type c length 4,                                  *" **消息指示灯*  
         type       type c length 1,                                  *" **消息类型*  
*\*         slbox,*  
*\*         newbw      TYPE bwasl,                                       " **事物类型*   *模板已将该字段删除该字段在该程序中已无用*  
       end of ty\_upload,  
  
       begin of ty\_criteria\_field,  
         name type fieldname,  
       end of ty\_criteria\_field.  
  
*\*&---------------------------------------------------------------------\**  
*\*& globle/**全局变量声明*  
*\*&---------------------------------------------------------------------\**  
*\*&---**接收上传数据的内表和工作区*  
  
data:  
  gt\_upload         type standard table of ty\_upload,  
  gt\_criteria\_field type table of ty\_criteria\_field,  
  gt\_t001           type sorted table of t001 with unique key bukrs,  
  gt\_finsc\_001a     type sorted table of finsc\_001a with unique key bukrs curtype.  
data: gs\_upload type ty\_upload.  
data: gt\_upload\_add type standard table of ty\_upload.  
data: g\_flag.  
data: gt\_bak type standard table of ty\_upload.  
field-symbols: <fs\_upload> type ty\_upload.  
  
*\*&---ALV**参数*  
  
data: gt\_fieldcat type lvc\_t\_fcat.  
data: gs\_layout type lvc\_s\_layo.  
  
data: gt\_tbsl type table of tbsl,  
      gs\_tbsl type tbsl.  
  
data: g\_re.  
  
*\*&---------------------------------------------------------------------\**  
*\*& **宏声明*  
*\*&---------------------------------------------------------------------\**  
define build\_fieldcat.  
  CLEAR ls\_fieldcat.  
  
  ls\_fieldcat\-fieldname = &1.  
  ls\_fieldcat\-coltext   = &2.  
*\*  ls\_fieldcat-outputlen = &3.*  
  
 *"**读取定义的长度和小数位*  
  READ TABLE lr\_struct\->components INTO ls\_components  
     WITH KEY name = &1.  
   IF sy\-subrc = 0.  
     ls\_fieldcat\-inttype   = ls\_components\-type\_kind.  
     ls\_fieldcat\-outputlen = ls\_components\-length.  
     ls\_fieldcat\-decimals  = ls\_components\-decimals.  
   ENDIF.  
  
  IF ls\_fieldcat\-fieldname = 'GL\_ACCOUNT' OR  
     ls\_fieldcat\-fieldname = 'CUSTOMER' OR  
     ls\_fieldcat\-fieldname = 'VENDOR\_NO' OR  
     ls\_fieldcat\-fieldname = 'COSTCENTER' OR  
     ls\_fieldcat\-fieldname = 'ORDERID' OR  
     ls\_fieldcat\-fieldname = 'VBUND' OR  
     ls\_fieldcat\-fieldname = 'ASSET\_NO' OR  
     ls\_fieldcat\-fieldname = 'ANLN2' OR  
     ls\_fieldcat\-fieldname = 'KNDNR' OR  
     ls\_fieldcat\-fieldname = 'KAUFN' OR  
     ls\_fieldcat\-fieldname = 'RKAUFNR' OR  
     ls\_fieldcat\-fieldname = 'COPA\_KOSTL' OR  
     ls\_fieldcat\-fieldname = 'PRCTR' OR  
     ls\_fieldcat\-fieldname = 'PPRCTR' OR  
     ls\_fieldcat\-fieldname = 'MSG\_BELNR'.  
     ls\_fieldcat\-convexit = 'ALPHA'.  
  ENDIF.  
  
  IF ls\_fieldcat\-fieldname = 'MEINS'.  
    ls\_fieldcat\-convexit = 'CUNIT'.  
  ENDIF.  
  
  IF ls\_fieldcat\-fieldname = 'ARTNR'.  
    ls\_fieldcat\-convexit = 'MATN1'.  
  ENDIF.  
  
  IF ls\_fieldcat\-fieldname = 'MSG' OR  
     ls\_fieldcat\-fieldname = 'LIGHT' OR  
     ls\_fieldcat\-fieldname = 'MSG\_BELNR' OR  
     ls\_fieldcat\-fieldname = 'TYPE'.  
    ls\_fieldcat\-key  = 'X'.  
  ENDIF.  
  APPEND ls\_fieldcat TO gt\_fieldcat.  
  
end-of-definition.  
define  fill\_ftpost.  
  clear ls\_ftpost.  
  ls\_ftpost\-stype = &1.  
  ls\_ftpost\-count = &2.  
  ls\_ftpost\-fnam  = &3.  
  ls\_ftpost\-fval  = &4.  
  condense ls\_ftpost\-fval no\-gaps.  
  append ls\_ftpost to lt\_ftpost.  
end-of-definition.  
*\*&---------------------------------------------------------------------\**  
*\*& selection screen/**选择屏幕*  
*\*&---------------------------------------------------------------------\**  
selection-screen begin of block blk1 with frame title text\-001.  
  parameters: p\_up   radiobutton group grp1 default 'X' user-command create, *"EXCEL**导入*  
              p\_down radiobutton group grp1.                *"EXCEL**下载*  
  parameters: p\_file type rlgrap\-filename modif id m4.*"**文件名*  
selection-screen end of block blk1.  
*\*--------------------------------------------------------------------\**  
*\* initialization/**选择屏幕前初始化*  
*\*--------------------------------------------------------------------\**  
initialization.  
*\*&---**初始化变量*  
  perform initializtion.  
  
*\*&---------------------------------------------------------------------\**  
*\*& at selection-screen/**选择屏幕开始**                                    \**  
*\*&---------------------------------------------------------------------\**  
at selection-screen.  
  
*\*&---**文件路径搜索帮助*  
at selection-screen on value-request for p\_file.  
  
  data: l\_filename like rlgrap\-filename.  
  
  call function 'WS\_FILENAME\_GET'  
    exporting  
*\*     DEF\_FILENAME     = ',\*.XLSX,\*.XLSX;,\*.XLS,\*.XLS;'*  
*\*     DEF\_PATH         = ' '*  
      mask             = ',Excel file,\*.xls;\*.xlsx;'  *"*  
      mode             = 'O'  
*\*     TITLE            = ' '*  
    importing  
      filename         = l\_filename  
*\*     RC               =*  
    exceptions  
      inv\_winsys       = 1  
      no\_batch         = 2  
      selection\_cancel = 3  
      selection\_error  = 4  
      others           = 5.  
  if sy\-subrc = 0.  
    p\_file = l\_filename.  
  endif.  
  
*\**  
*\*  CALL FUNCTION 'KD\_GET\_FILENAME\_ON\_F4'*  
*\*    CHANGING*  
*\*      file\_name = p\_file.*  
  
*\*&---**屏幕动态显示隐藏设置*  
at selection-screen output.  
  
*\*&---------------------------------------------------------------------\**  
*\*& start-of-selection/**开始选择屏幕*  
*\*&---------------------------------------------------------------------\**  
start-of-selection.  
  
  if p\_up = abap\_true .  
*\*&---**检查文件格式*  
    perform frm\_check\_filename.  
*\*&---**上载数据*  
    perform frm\_get\_data\_from\_file.  
*\*&---ALV **展示（**file data VS itab data check**）*  
    perform get\_tbsl\_data.  
    perform frm\_alv\_show.  
*\*&---EXCEL**模板下载*  
  elseif p\_down = abap\_true .  
    perform frm\_download.  
  endif.  
  
*\*&---------------------------------------------------------------------\**  
*\*& end-of-selection/**结束选择屏幕（程序结束处理，输出等）**               \**  
*\*&---------------------------------------------------------------------\**  
end-of-selection.  
*\*&---------------------------------------------------------------------\**  
*\*&      form  check\_filename*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
form frm\_check\_filename .  
  
  data: lv\_s1 type string,  
        lv\_s2 type string.  
  
  split p\_file at '.' into lv\_s1 lv\_s2.  
  translate lv\_s2 to upper case.  
  if p\_file is initial.  
    message  text\-013 type 'S' display like 'W'. *"**请输入数据路径**!*  
    leave list-processing.  
  endif.  
  
endform. *" CHECK\_FILENAME*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  get\_data\_from\_file*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
form frm\_get\_data\_from\_file .  
  data:  
*\*    lt\_return TYPE bapiret2\_t,*  
*\*    ls\_return TYPE LINE OF bapiret2\_t,*  
    l\_string type string,  
    ls\_path  type rlgrap\-filename.  
  
  field-symbols: <fs>.  
  
  data:l\_filename type rlgrap\-filename,  
       l\_endrow   type i.  
  
  data:itab type table of zsalsmex\_tabline2 with header line.  
  
  clear: gt\_upload.  
  
  if p\_file is initial .  
    message text\-012  type 'E'. *"'**文件路径不存在**'*  
  endif.  
  
*\*  ls\_path = p\_file.*  
  l\_filename = p\_file.  
  l\_endrow   = 900000.  
  
  call function 'ZALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
    exporting  
      filename                = l\_filename  
      i\_begin\_col             = 1  
      i\_begin\_row             = 2  
      i\_end\_col               = 59  
      i\_end\_row               = l\_endrow  
    tables  
      intern                  = itab  
    exceptions  
      inconsistent\_parameters = 1  
      upload\_ole              = 2  
      others                  = 3.  
  if sy\-subrc <> 0.  
  endif.  
  
  if itab\[\] is not initial.  
    loop at itab.  
      on change of itab\-row.  
        if sy\-tabix ne 1.  
          append gs\_upload to gt\_upload.  
          clear  gs\_upload.  
        endif.  
      endon.  
  
      try.  
          assign component itab\-col of structure gs\_upload to <fs>.  
          <fs> = itab\-value.  
        catch cx\_sy\_conversion\_no\_number.  
  
          call function 'UNITS\_STRING\_CONVERT'  
            exporting  
              units\_string  = itab\-value  
              dcpfm         = 'X'  
            importing  
              units         = <fs>  
            exceptions  
              invalid\_type  = 1  
              error\_message = 2  
              others        = 3.  
  
      endtry.  
    endloop.  
    append gs\_upload to gt\_upload.  
    clear  gs\_upload.  
  endif.  
  
*\*\*  TYPES truxs\_t\_text\_data(4096) TYPE c OCCURS 0.*  
*\*  TYPE-POOLS truxs.*  
*\*  DATA: tab\_raw\_data TYPE truxs\_t\_text\_data."**局部变量**——**导入**excel**文件时用到的工作区*  
*\*  CALL FUNCTION 'TEXT\_CONVERT\_XLS\_TO\_SAP'*  
*\*    EXPORTING*  
*\*\*     I\_FIELD\_SEPERATOR    =*  
*\*      i\_line\_header        = 'X' "**不带表头*  
*\*      i\_tab\_raw\_data       = tab\_raw\_data "**导入**excel**文件时用到的工作区*  
*\*      i\_filename           = ls\_path "**文件的全路径*  
*\*    TABLES*  
*\*      i\_tab\_converted\_data = gt\_upload*  
*\*    EXCEPTIONS*  
*\*      conversion\_failed    = 1*  
*\*      OTHERS               = 2.*  
*\*  IF sy-subrc <> 0.*  
*\*\* Implement suitable error handling here*  
*\*  ENDIF.*  
  
*\*  CALL FUNCTION 'Z\_UPLOAD\_FILE'*  
*\*    EXPORTING*  
*\*      i\_filename = ls\_path*  
*\*      i\_skip     = 'X'*  
*\*    TABLES*  
*\*      t\_data     = gt\_upload\[\]*  
*\*      t\_return   = lt\_return.*  
  
  
*\*  READ TABLE lt\_return WITH KEY type = 'E' TRANSPORTING NO FIELDS.*  
*\*  IF sy-subrc EQ 0.*  
*\**  
*\*    LOOP AT lt\_return INTO ls\_return WHERE type = 'E'.*  
*\**  
*\*      CONCATENATE l\_string ls\_return-message INTO l\_string SEPARATED BY space.*  
*\**  
*\*    ENDLOOP.*  
*\**  
*\*    MESSAGE l\_string TYPE 'I' .*  
*\*    LEAVE LIST-PROCESSING.*  
*\**  
*\*  ENDIF.*  
  
  if gt\_upload is initial.  
    message text\-014 type 'E'. *"**上传文件不包含任何有效数据！*  
    stop.  
  endif.  
  
  loop at gt\_upload assigning <fs\_upload>.  
    *" **补充前导**0*  
    <fs\_upload>\-gl\_account = |\{ <fs\_upload>\-gl\_account alpha = in \}|.  
    <fs\_upload>\-customer   = |\{ <fs\_upload>\-customer   alpha = in \}|.  
    <fs\_upload>\-vendor\_no  = |\{ <fs\_upload>\-vendor\_no  alpha = in \}|.  
    <fs\_upload>\-costcenter = |\{ <fs\_upload>\-costcenter alpha = in \}|.  
    <fs\_upload>\-orderid    = |\{ <fs\_upload>\-orderid    alpha = in \}|.  
    <fs\_upload>\-vbund      = |\{ <fs\_upload>\-vbund      alpha = in \}|.  
    <fs\_upload>\-asset\_no   = |\{ <fs\_upload>\-asset\_no   alpha = in \}|.  
    <fs\_upload>\-anln2      = |\{ <fs\_upload>\-anln2      alpha = in \}|.  
    <fs\_upload>\-kndnr      = |\{ <fs\_upload>\-kndnr      alpha = in \}|.  
    <fs\_upload>\-kaufn      = |\{ <fs\_upload>\-kaufn      alpha = in \}|.  
    <fs\_upload>\-rkaufnr    = |\{ <fs\_upload>\-rkaufnr    alpha = in \}|.  
    <fs\_upload>\-copa\_kostl = |\{ <fs\_upload>\-copa\_kostl alpha = in \}|.  
    <fs\_upload>\-prctr      = |\{ <fs\_upload>\-prctr      alpha = in \}|.  
    <fs\_upload>\-pprctr     = |\{ <fs\_upload>\-pprctr     alpha = in \}|.  
    if <fs\_upload>\-zzcoalr is not initial.  
      <fs\_upload>\-zzcoalr    = |\{ <fs\_upload>\-zzcoalr    alpha = in \}|.  
    endif.  
  
    call function 'CONVERSION\_EXIT\_MATN1\_INPUT'  
      exporting  
        input        = <fs\_upload>\-artnr  
      importing  
        output       = <fs\_upload>\-artnr  
      exceptions  
        length\_error = 1  
        others       = 2.  
  
    call function 'CONVERSION\_EXIT\_CUNIT\_INPUT'  
      exporting  
        input          = <fs\_upload>\-meins  
      importing  
        output         = <fs\_upload>\-meins  
      exceptions  
        unit\_not\_found = 1.  
  
  endloop.  
  
  gt\_bak = gt\_upload.  
  
endform. *" GET\_DATA\_FROM\_FILE*  
  
  
*\*&---------------------------------------------------------------------\**  
*\*&      form  call\_bapi*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
form call\_bapi using flag type abap\_bool.  
*\*&---bapi**参数*  
  data:  
    ls\_documentheader    type bapiache09,  
    lt\_accountgl         type standard table of bapiacgl09,      *" **总账*  
    lt\_accountreceivable type standard table of bapiacar09,      *" **客户*  
    lt\_accountpayable    type standard table of bapiacap09,      *" **供应商*  
    lt\_currencyamount    type standard table of bapiaccr09,      *" **金额*  
    lt\_extension2        type standard table of bapiparex,       *" **自定义字段增强*  
    lt\_return            type standard table of bapiret2,        *" **返回参数*  
    lt\_criteria          type standard table of bapiackec9.      *" **获利能力段*  
  
  data:  
    ls\_criteria\_field    type ty\_criteria\_field, *"**获利能力字段*  
    ls\_accountgl         type bapiacgl09,      *" **总账*  
    ls\_accountreceivable type bapiacar09,      *" **客户*  
    ls\_accountpayable    type bapiacap09,      *" **供应商*  
    ls\_currencyamount    type bapiaccr09,      *" **金额*  
    ls\_criteria          type bapiackec9,      *" **获利能力段*  
    ls\_extension2        type bapiparex,       *" **自定义字段增强*  
    ls\_return            type bapiret2,        *" **返回参数。*  
    ls\_zsfi001           type zsfi001 .        *" **增强结构*  
  
*\*&---**根据客户编号和公司代码取出付款条件*  
  data: begin of ls\_knb1,  
          kunnr like knb1\-kunnr,  
          bukrs like knb1\-bukrs,  
          zterm like knb1\-zterm,  
        end of ls\_knb1.  
  data: lt\_knb1 like table of ls\_knb1.  
  
*\*&---**根据供应商编号和公司代码取出付款条件*  
  data: begin of ls\_lfb1,  
          lifnr like lfb1\-lifnr,  
          bukrs like lfb1\-bukrs,  
          zterm like lfb1\-zterm,  
          akont like lfb1\-akont,  
        end of ls\_lfb1.  
  data: lt\_lfb1 like table of ls\_lfb1.  
  
  data: begin of ls\_skb1,  
          bukrs like skb1\-bukrs,  
          saknr like skb1\-saknr,  
          xintb like skb1\-xintb,  
        end of ls\_skb1.  
  data lt\_skb1 like table of ls\_skb1 .  
  
  data:lv\_str\_count type i.  
*\*&---**其它字段定义*  
  data lv\_num type i value 0.        *" **凭证行项目编号*  
  data lv\_umskz\_flag type flag.      *" **用来判断要创建的会计凭证是否有特别总账标识*  
  data:  
    lv\_flag\_case,  
    lv\_funcname   type rs38l\_fnam,  
    ls\_t001       type t001,  
    ls\_finsc\_001a type finsc\_001a,  
    ls\_upload     type ty\_upload.  
  field-symbols: <fs\_field> type any.  
  
  clear gt\_upload.  
  
  if flag = abap\_true.  
    lv\_funcname = 'BAPI\_ACC\_DOCUMENT\_POST'.  
  else.  
    lv\_funcname = 'BAPI\_ACC\_DOCUMENT\_CHECK'.  
  endif.  
  
  gt\_upload = gt\_bak.*" **获取最原始的备份值*  
  
  if gt\_upload is not initial .  
    select kunnr  
         bukrs  
         zterm  
    into corresponding fields of table lt\_knb1  
    from knb1  
     for all entries in gt\_upload  
   where kunnr = gt\_upload\-customer  
     and bukrs = gt\_upload\-comp\_code.  
  
  endif.  
  
  if gt\_upload is not initial .  
    select bukrs  
           saknr  
           xintb  
      into corresponding fields of table lt\_skb1  
      from skb1  
       for all entries in gt\_upload  
     where saknr = gt\_upload\-gl\_account .  
  
  endif.  
  
  if gt\_upload is not initial .  
    select lifnr  
           bukrs  
           zterm  
           akont  
      into corresponding fields of table lt\_lfb1  
      from lfb1  
       for all entries in gt\_upload  
     where lifnr = gt\_upload\-vendor\_no  
       and bukrs = gt\_upload\-comp\_code.  
  
  endif.  
  
  select \*  
    from ztfi007  
    into table @data(lt\_ztfi007).  
  
  sort lt\_knb1 by kunnr bukrs.  
  sort lt\_lfb1 by lifnr bukrs.  
  sort lt\_skb1 by bukrs saknr .  
  sort lt\_ztfi007 by bukrs hkont zzcoalr.  
*\*&---**凭证数据整理*  
  loop at gt\_upload assigning <fs\_upload>.  
  
    lv\_num = lv\_num + 1.  
  
    at new number.  
      clear:  
        ls\_documentheader,  
        ls\_t001.  
      free: lt\_accountgl,  
            lt\_accountreceivable,  
            lt\_accountpayable,  
            lt\_currencyamount,  
            lt\_extension2,  
            lt\_criteria,  
            lt\_return.  
  
      ls\_documentheader\-comp\_code  = <fs\_upload>\-comp\_code.       *" **公司代码*  
      ls\_documentheader\-doc\_date   = <fs\_upload>\-doc\_date.        *" **凭证日期*  
      ls\_documentheader\-pstng\_date = <fs\_upload>\-pstng\_date.      *" **过账日期*  
      ls\_documentheader\-doc\_type   = <fs\_upload>\-doc\_type.        *" **凭证类型*  
      ls\_documentheader\-ref\_doc\_no = <fs\_upload>\-ref\_doc\_no.      *" **参考凭证号*  
      ls\_documentheader\-header\_txt = <fs\_upload>\-header\_txt.      *" **凭证抬头文本*  
      ls\_documentheader\-username   = sy\-uname.  
  
      read table gt\_t001 into ls\_t001 with key bukrs = <fs\_upload>\-comp\_code.  
    endat.  
  
    clear:  
      ls\_accountgl,  
      ls\_accountreceivable,  
      ls\_accountpayable,  
      ls\_currencyamount,  
      ls\_extension2.  
  
    if <fs\_upload>\-xnegp eq 'X' or <fs\_upload>\-xnegp eq 'x' or <fs\_upload>\-xnegp is initial.  
  
    else.  
  
      <fs\_upload>\-msg   = text\-015 . *"'**反记账标识只能为**x'*  
      <fs\_upload>\-type  = 'E'.  
      <fs\_upload>\-light = '@5C@'.  
      return.  
  
    endif.  
  
    clear lv\_flag\_case.  
  
    perform frm\_upper\_lower\_case changing  lv\_flag\_case   <fs\_upload>\-xnegp.  
  
    if lv\_flag\_case eq 'E'.  
  
      <fs\_upload>\-msg   = text\-016 .*"'**大小写转化异常**'*  
      <fs\_upload>\-type  = 'E'.  
      <fs\_upload>\-light = '@5C@'.  
      return.  
  
    endif.  
  
    *"**检查辅助科目*  
    if <fs\_upload>\-zzcoalr is not initial.  
      if <fs\_upload>\-vendor\_no is initial.  
        read table lt\_ztfi007 with key bukrs = <fs\_upload>\-comp\_code  
                                       hkont = <fs\_upload>\-gl\_account  
                                       zzcoalr = <fs\_upload>\-zzcoalr  
                                       binary search  
                                       transporting no fields.  
      else.  
        if line\_exists( lt\_lfb1\[ lifnr = <fs\_upload>\-vendor\_no bukrs = <fs\_upload>\-comp\_code \] ).  
          read table lt\_ztfi007 with key bukrs = <fs\_upload>\-comp\_code  
                                         hkont = lt\_lfb1\[ lifnr = <fs\_upload>\-vendor\_no bukrs = <fs\_upload>\-comp\_code \]\-akont  
                                         zzcoalr = <fs\_upload>\-zzcoalr  
                                         binary search  
                                         transporting no fields.  
        endif.  
      endif.  
      if sy\-subrc <> 0.  
        <fs\_upload>\-msg   = text\-022 .  
        <fs\_upload>\-type  = 'E'.  
        <fs\_upload>\-light = '@5C@'.  
        return.  
  
      endif.  
    endif.  
  
    *"**当**FS00**的**“**创建**/**银行**/**利息**” TAB**页勾选了**“**只能自动过账**” **时，对应的总账科目不能通过**F-02**做账，必须报错*  
    read table lt\_skb1 into ls\_skb1 with key bukrs = <fs\_upload>\-comp\_code  
                                             saknr = <fs\_upload>\-gl\_account  
                                             binary search .  
    if sy\-subrc = 0 .  
      if ls\_skb1\-xintb = 'X'.  
        *"  CONCATENATE '**账户**' <fs\_upload>-gl\_account '**只能内部记帐到公司代码**' <fs\_upload>-comp\_code '**中**' INTO <fs\_upload>-msg .*  
        concatenate text\-017 <fs\_upload>\-gl\_account text\-018 <fs\_upload>\-comp\_code text\-019 into <fs\_upload>\-msg .  
        <fs\_upload>\-type  = 'E'.  
        <fs\_upload>\-light = '@5C@'.  
        return.  
      endif.  
    endif.  
  
    if <fs\_upload>\-customer is not initial.  
      ls\_accountreceivable\-itemno\_acc = <fs\_upload>\-buzei.                *" **行项目编号*  
      ls\_accountreceivable\-customer   = <fs\_upload>\-customer.     *" **客户*  
  
      if <fs\_upload>\-umskz is not initial .  
        ls\_accountreceivable\-sp\_gl\_ind = <fs\_upload>\-umskz.     *" **特别总账标识*  
      endif.  
  
      read table lt\_knb1 into ls\_knb1 with key kunnr = <fs\_upload>\-customer  
                                               bukrs = <fs\_upload>\-comp\_code  
                                               binary search.  
      if sy\-subrc = 0.  
        ls\_accountreceivable\-pmnttrms = ls\_knb1\-zterm   .        *" **付款条件*  
      endif.  
  
      ls\_accountreceivable\-pmnttrms   = <fs\_upload>\-zterm.       *" **付款条件*  
      ls\_accountreceivable\-bline\_date = <fs\_upload>\-zfbdt.       *" **付款基准日期*  
  
*\*      ls\_accountreceivable-tax\_code = <fs\_upload>-tax\_code.         " **税码*  
      ls\_accountreceivable\-item\_text  = <fs\_upload>\-item\_text.    *" **凭证行文本*  
      ls\_accountreceivable\-ref\_key\_1  = <fs\_upload>\-xref1.        *" **参考代码**1*  
      ls\_accountreceivable\-ref\_key\_2  = <fs\_upload>\-xref2.        *" **参考代码**2*  
      ls\_accountreceivable\-ref\_key\_3  = <fs\_upload>\-xref3.        *" **参考代码**3*  
      ls\_accountreceivable\-bus\_area   = <fs\_upload>\-gsber.        *" **业务范围*  
      ls\_accountreceivable\-alloc\_nmbr = <fs\_upload>\-zuonr.        *" **分配*  
      ls\_accountreceivable\-gl\_account = <fs\_upload>\-gl\_account.   *" **科目代码*  
      ls\_accountreceivable\-c\_ctr\_area = <fs\_upload>\-kkber.        *" **信用控制范围*  
      ls\_accountreceivable\-budget\_period = <fs\_upload>\-budget\_pd. *" **预算期间*  
      ls\_accountreceivable\-pymt\_meth = <fs\_upload>\-zlsch. *"**付款方式*  
      append ls\_accountreceivable to lt\_accountreceivable.  
    elseif <fs\_upload>\-vendor\_no is not initial.  
      ls\_accountpayable\-itemno\_acc = <fs\_upload>\-buzei.                   *" **行项目编号*  
      ls\_accountpayable\-vendor\_no  = <fs\_upload>\-vendor\_no.      *" **供应商*  
  
      if <fs\_upload>\-umskz is not initial .  
        ls\_accountpayable\-sp\_gl\_ind = <fs\_upload>\-umskz.     *" **特别总账标识*  
      endif.  
      read table lt\_lfb1 into ls\_lfb1 with key lifnr = <fs\_upload>\-vendor\_no  
                                               bukrs = <fs\_upload>\-comp\_code  
                                               binary search.  
      if sy\-subrc = 0.  
        ls\_accountpayable\-pmnttrms = ls\_lfb1\-zterm   .        *" **付款条件*  
      endif.  
*\*      ls\_accountpayable-tax\_code = <fs\_upload>-tax\_code.         " **税码*  
  
      ls\_accountpayable\-pmnttrms = <fs\_upload>\-zterm .        *" **付款条件*  
  
      ls\_accountpayable\-bline\_date = <fs\_upload>\-zfbdt.          *" **付款基准日期*  
      ls\_accountpayable\-item\_text  = <fs\_upload>\-item\_text.      *" **凭证行文本*  
      ls\_accountpayable\-ref\_key\_1  = <fs\_upload>\-xref1.          *" **参考代码**1*  
      ls\_accountpayable\-ref\_key\_2  = <fs\_upload>\-xref2.          *" **参考代码**2*  
      ls\_accountpayable\-ref\_key\_3  = <fs\_upload>\-xref3.          *" **参考代码**3*  
      ls\_accountpayable\-bus\_area   = <fs\_upload>\-gsber.          *" **业务范围*  
      ls\_accountpayable\-alloc\_nmbr = <fs\_upload>\-zuonr.          *" **分配*  
      ls\_accountpayable\-gl\_account = <fs\_upload>\-gl\_account.     *" **科目代码*  
      ls\_accountpayable\-budget\_period = <fs\_upload>\-budget\_pd.   *" **预算期间*  
      ls\_accountpayable\-pymt\_meth  = <fs\_upload>\-zlsch.          *" **付款方式*  
      append ls\_accountpayable to lt\_accountpayable.  
    else.  
      if <fs\_upload>\-asset\_no is not initial .  
        ls\_accountgl\-asset\_no   = <fs\_upload>\-asset\_no.             *" **资产号*  
        ls\_accountgl\-sub\_number = <fs\_upload>\-anln2.  
        ls\_accountgl\-acct\_type  = 'A'.  
      endif.  
  
      ls\_accountgl\-itemno\_acc = <fs\_upload>\-buzei.              *" **行项目编号*  
      ls\_accountgl\-gl\_account = <fs\_upload>\-gl\_account.         *" **科目代码*  
      ls\_accountgl\-costcenter = <fs\_upload>\-costcenter.         *" **成本中心*  
      ls\_accountgl\-orderid    = <fs\_upload>\-orderid.            *" **统计型内部订单*  
      ls\_accountgl\-item\_text  = <fs\_upload>\-item\_text.          *" **凭证行文本*  
      ls\_accountgl\-ref\_key\_1  = <fs\_upload>\-xref1.              *" **参考代码**1*  
      ls\_accountgl\-ref\_key\_2  = <fs\_upload>\-xref2.              *" **参考代码**2*  
      ls\_accountgl\-ref\_key\_3  = <fs\_upload>\-xref3.              *" **参考代码**3*  
      ls\_accountgl\-bus\_area   = <fs\_upload>\-gsber.              *" **业务范围*  
      ls\_accountgl\-person\_no  = <fs\_upload>\-pernr.              *" **员工号*  
      ls\_accountgl\-quantity   = <fs\_upload>\-menge.  
      ls\_accountgl\-base\_uom   = <fs\_upload>\-meins.  
      ls\_accountgl\-alloc\_nmbr = <fs\_upload>\-zuonr.               *" **分配*  
      ls\_accountgl\-trade\_id   = <fs\_upload>\-vbund.               *" **贸易伙伴*  
      ls\_accountgl\-budget\_period = <fs\_upload>\-budget\_pd.        *" **预算期间*  
      append ls\_accountgl to lt\_accountgl.  
    endif.  
  
    clear gs\_tbsl.  
    read table gt\_tbsl into gs\_tbsl with key bschl = <fs\_upload>\-bschl binary search.  
    if sy\-subrc eq 0 and gs\_tbsl\-shkzg = 'H'.  
  
      <fs\_upload>\-dmbtr  =  \- <fs\_upload>\-dmbtr.  
      <fs\_upload>\-wrbtr  =  \- <fs\_upload>\-wrbtr.  
      <fs\_upload>\-dmbe2  =  \- <fs\_upload>\-dmbe2.  
  
    endif.  
  
    if <fs\_upload>\-wrbtr is not initial.  
      clear: ls\_currencyamount.  
      ls\_currencyamount\-itemno\_acc = <fs\_upload>\-buzei.                     *" **行项目编号*  
      ls\_currencyamount\-currency   = <fs\_upload>\-currency.       *" **货币码*  
      ls\_currencyamount\-curr\_type  = '00'.                       *" **凭证中输入的币别类型*  
      ls\_currencyamount\-amt\_doccur = <fs\_upload>\-wrbtr.          *" **交易货币金额*  
      ls\_currencyamount\-exch\_rate  = <fs\_upload>\-kursf.  
      append ls\_currencyamount to lt\_currencyamount.  
    endif.  
  
    if <fs\_upload>\-dmbtr is not initial and  
       <fs\_upload>\-currency <> ls\_t001\-waers.                   *" **输入的货币类别不是公司币种*  
      clear: ls\_currencyamount.  
      ls\_currencyamount\-itemno\_acc = <fs\_upload>\-buzei.         *" **行项目编号*  
      ls\_currencyamount\-currency   = ls\_t001\-waers.             *" **货币码*  
      ls\_currencyamount\-curr\_type  = '10'.                      *" **本位币类型*  
      ls\_currencyamount\-amt\_doccur = <fs\_upload>\-dmbtr.  
      ls\_currencyamount\-exch\_rate  = <fs\_upload>\-kursf.  
      append ls\_currencyamount to lt\_currencyamount.  
    endif.  
  
    if <fs\_upload>\-dmbe2 is not initial.  
      read table gt\_finsc\_001a into ls\_finsc\_001a with key bukrs = <fs\_upload>\-comp\_code  
                                                           curtype = '30'.  
      if sy\-subrc = 0.  
        clear: ls\_currencyamount.  
        ls\_currencyamount\-itemno\_acc = <fs\_upload>\-buzei.         *" **行项目编号*  
        ls\_currencyamount\-currency   = SWITCH \#( ls\_finsc\_001a\-waers when '' then ls\_t001\-waers else ls\_finsc\_001a\-waers ).      *" **货币码*  
        ls\_currencyamount\-curr\_type  = '30'.                      *" **本位币类型*  
        ls\_currencyamount\-amt\_doccur = <fs\_upload>\-dmbe2.  
        ls\_currencyamount\-exch\_rate  = <fs\_upload>\-kursf.  
        append ls\_currencyamount to lt\_currencyamount.  
      endif.  
    endif.  
  
    *"**另外还需要在**ACC\_DOCUMENT change**中加一个增强*  
    ls\_zsfi001\-posnr = <fs\_upload>\-buzei.  
    ls\_zsfi001\-rstgr = <fs\_upload>\-rstgr. *"**原因代码*  
    ls\_zsfi001\-xnegp = <fs\_upload>\-xnegp. *"**反记账*  
    ls\_zsfi001\-bschl = <fs\_upload>\-bschl. *"**过账码*  
    ls\_zsfi001\-anbwa = <fs\_upload>\-anbwa. *"**资产交易类型*  
    ls\_zsfi001\-numpg = <fs\_upload>\-numpg. *"**页数*  
    ls\_zsfi001\-zzcoalr = <fs\_upload>\-zzcoalr.  
  
    clear ls\_extension2 .  
    ls\_extension2\-structure = 'ZSFI001' .  
    ls\_extension2+30        = ls\_zsfi001 .  
    append ls\_extension2 to lt\_extension2 .  
  
    *" **获利能力段*  
    loop at gt\_criteria\_field into ls\_criteria\_field.  
      assign component ls\_criteria\_field\-name of structure <fs\_upload> to <fs\_field>.  
      if <fs\_field> is assigned and <fs\_field> is not initial.  
        clear ls\_criteria.  
        ls\_criteria\-itemno\_acc = lv\_num.  
        ls\_criteria\-fieldname  = ls\_criteria\_field\-name.  
        ls\_criteria\-character  = <fs\_field>.  
        append ls\_criteria to lt\_criteria.  
        unassign:  
          <fs\_field>.  
      endif.  
    endloop.  
  
    at end of number.  
  
      perform frm\_author\_check using ls\_documentheader\-comp\_code .  
      if g\_re is not initial.  
        continue.  
      endif.  
  
*\*&---**检查凭证是否正确*  
      call function lv\_funcname  
        exporting  
          documentheader    = ls\_documentheader  
        tables  
          accountgl         = lt\_accountgl  
          accountreceivable = lt\_accountreceivable  
          accountpayable    = lt\_accountpayable  
          currencyamount    = lt\_currencyamount  
          criteria          = lt\_criteria  
          return            = lt\_return  
          extension2        = lt\_extension2.  
  
      sort lt\_return by type .  
  
      read table lt\_return with key type = 'E' transporting no fields.  
      if sy\-subrc = 0.  
        call function 'BAPI\_TRANSACTION\_ROLLBACK'.  
        loop at lt\_return into ls\_return from sy\-tabix.  
          if ls\_return\-type = 'E'.  
            concatenate <fs\_upload>\-msg ls\_return\-message  '\_' into <fs\_upload>\-msg.  
          else.  
            exit.  
          endif.  
        endloop.  
  
        clear:lv\_str\_count.  
        lv\_str\_count = strlen( <fs\_upload>\-msg ) \- 1. *"**去掉最后一个** \_*  
        <fs\_upload>\-msg = <fs\_upload>\-msg+(lv\_str\_count).  
  
        <fs\_upload>\-type  = 'E'.  
        <fs\_upload>\-light = '@5C@'.  
      else.  
        read table lt\_return with key type = 'A' transporting no fields.  
        if sy\-subrc = 0.  
          call function 'BAPI\_TRANSACTION\_ROLLBACK'.  
          loop at lt\_return into ls\_return from sy\-tabix.  
            if ls\_return\-type = 'A'.  
              concatenate <fs\_upload>\-msg ls\_return\-message '\_' into <fs\_upload>\-msg.  
            else.  
              exit.  
            endif.  
          endloop.  
  
          clear:lv\_str\_count.  
          lv\_str\_count = strlen( <fs\_upload>\-msg ) \- 1. *"**去掉最后一个** \_*  
          <fs\_upload>\-msg = <fs\_upload>\-msg+(lv\_str\_count).  
  
          <fs\_upload>\-type  = 'A'.  
          <fs\_upload>\-light = '@5C@'.  
        else.  
          read table lt\_return into ls\_return with key id = 'RW' number = '605'.  
          if sy\-subrc <> 0.  
            read table lt\_return into ls\_return with key id = 'RW' number = '614'.  
          endif.  
          if sy\-subrc = 0.  
            <fs\_upload>\-type  = 'S'.  
            <fs\_upload>\-light = '@5B@'.  
            concatenate <fs\_upload>\-msg ls\_return\-message into <fs\_upload>\-msg.  
            <fs\_upload>\-msg\_belnr = ls\_return\-message\_v2+0(10).  
            <fs\_upload>\-belnr     = ls\_return\-message\_v2+0(10).  
            <fs\_upload>\-bukrs     = ls\_return\-message\_v2+10(4).  
            <fs\_upload>\-gjahr     = ls\_return\-message\_v2+14(4).  
          endif.  
*\*&---**正式凭证创建*  
  
          if flag = abap\_true.  
            call function 'BAPI\_TRANSACTION\_COMMIT'  
              exporting  
                wait = 'X'.  
          endif.  
        endif.  
      endif.  
      *"**清空工作**&**内表*  
      clear:  
        ls\_documentheader,  
        ls\_return,  
        lv\_num.  
      refresh:lt\_accountgl,  
              lt\_accountreceivable,  
              lt\_accountpayable,  
              lt\_currencyamount,  
              lt\_criteria,  
              lt\_extension2,  
              lt\_return.  
  
      *"**更新所有* *相同**number**的* *相同* *提示* *信息相同；*  
      clear ls\_upload.  
      loop at gt\_upload into ls\_upload where  number = <fs\_upload>\-number.  
  
        ls\_upload\-msg =  <fs\_upload>\-msg.  
        ls\_upload\-type =  <fs\_upload>\-type.  
        ls\_upload\-light =  <fs\_upload>\-light.  
        ls\_upload\-msg\_belnr =  <fs\_upload>\-msg\_belnr.  
        ls\_upload\-belnr =  <fs\_upload>\-belnr.  
        ls\_upload\-bukrs =  <fs\_upload>\-bukrs.  
        ls\_upload\-gjahr =  <fs\_upload>\-gjahr.  
  
        modify gt\_upload from ls\_upload .  
  
      endloop.  
  
    endat.  
  endloop.  
  
endform. *" CALL\_BAPI*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_alv\_fieldcat*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
form frm\_alv\_fieldcat .  
  data:  
    ls\_fieldcat   type lvc\_s\_fcat,  
    ls\_upload     type ty\_upload,  
    lr\_struct     type ref to cl\_abap\_structdescr,  
    ls\_components type abap\_compdescr.  
  
  
  clear: gt\_fieldcat.  
  
  lr\_struct ?= cl\_abap\_typedescr=>describe\_by\_data( ls\_upload ).  
  
  build\_fieldcat  'MSG' text\-h57. *"**返回消息*  
  build\_fieldcat  'TYPE' text\-h58.*"**消息类型*  
  build\_fieldcat  'LIGHT' text\-h59.*"**消息指示灯*  
  build\_fieldcat  'MSG\_BELNR' text\-h60.*"**会计凭证号*  
  build\_fieldcat  'NUMBER' text\-h01. *"**序号*  
  build\_fieldcat  'COMP\_CODE' text\-h02 .*"**公司代码*  
  build\_fieldcat  'PSTNG\_DATE' text\-h03.*"**过账日期*  
  build\_fieldcat  'DOC\_DATE' text\-h04.*"**凭证日期*  
  build\_fieldcat  'DOC\_TYPE' text\-h05.*"**凭证类型*  
  build\_fieldcat  'CURRENCY' text\-h06.*"**凭证类型*  
  build\_fieldcat  'KURSF' text\-h07.*"**汇率*  
  build\_fieldcat  'REF\_DOC\_NO' text\-h08.*"**参照*  
  build\_fieldcat  'NUMPG' text\-h61.*"**页数*  
  build\_fieldcat  'HEADER\_TXT' text\-h09.*"**凭证抬头文本*  
  build\_fieldcat  'BUZEI' text\-h10.*"**凭证行项目*  
  build\_fieldcat  'BSCHL' text\-h11.*"**记账码*  
  build\_fieldcat  'GL\_ACCOUNT' text\-h12.*"**总账科目*  
  build\_fieldcat  'CUSTOMER' text\-h13.*"**客户编码*  
  build\_fieldcat  'VENDOR\_NO' text\-h14.*"**供应商编码*  
  build\_fieldcat  'UMSKZ' text\-h15.*"**特殊总账标识*  
  build\_fieldcat  'ASSET\_NO' text\-h16.*"**资产编号*  
  build\_fieldcat  'ANLN2' text\-h17.*"**次级资产编号*  
  build\_fieldcat  'ANBWA' text\-h18.*"**资产操作事务类型*  
  build\_fieldcat  'WRBTR' text\-h19.*"**交易货币金额*  
  build\_fieldcat  'DMBTR' text\-h20.*"**本位币金额*  
  build\_fieldcat  'DMBE2' text\-h62.*"**本位币**2**金额*  
  build\_fieldcat  'GSBER' text\-h21.*"**业务范围*  
  build\_fieldcat  'KKBER' text\-h63.*"**信用控制范围*  
  build\_fieldcat  'COSTCENTER' text\-h22.*"**成本中心*  
  build\_fieldcat  'ORDERID' text\-h23.*"**内部订单*  
  build\_fieldcat  'PERNR' text\-h24.*"**人员编号*  
  build\_fieldcat  'ZUONR' text\-h25.*"**分配*  
  build\_fieldcat  'ITEM\_TEXT' text\-h26.*"**凭证行项目文本*  
  build\_fieldcat  'XNEGP' text\-h27.*"**反记账标识*  
  build\_fieldcat  'MENGE' text\-h28.*"**数量*  
  build\_fieldcat  'MEINS' text\-h29.*"**单位*  
  build\_fieldcat  'XREF1' text\-h30.*"**参考码**1*  
  build\_fieldcat  'XREF2' text\-h31.*"**参考码**2*  
  build\_fieldcat  'XREF3' text\-h32.*"**参考码**3*  
  build\_fieldcat  'ZFBDT' text\-h33.*"**基准日期（汇票到日期）*  
  build\_fieldcat  'ZTERM' text\-h34.*"**付款条件*  
  build\_fieldcat  'RSTGR' text\-h35.*"**原因代码*  
  build\_fieldcat  'VBUND' text\-h36.*"**贸易伙伴*  
  build\_fieldcat  'KNDNR' text\-h37.*"COPA**客户号*  
  build\_fieldcat  'ARTNR' text\-h38.*"COPA**物料号*  
  build\_fieldcat  'FKART' text\-h39.*"COPA**开票类型*  
  build\_fieldcat  'KAUFN' text\-h40.*"COPA**销售订单*  
  build\_fieldcat  'KDPOS' text\-h41.*"COPA**销售订单行项目*  
  build\_fieldcat  'RKAUFNR' text\-h42.*"COPA**订单*  
  build\_fieldcat  'WERKS' text\-h43.*"COPA**工厂*  
  build\_fieldcat  'FKBER' text\-h44.*"COPA**功能范围*  
  build\_fieldcat  'SEGMENT' text\-h45.*"COPA**段*  
  build\_fieldcat  'VKORG' text\-h46.*"COPA**销售组织*  
  build\_fieldcat  'VTWEG' text\-h47.*"COPA**分销渠道*  
  build\_fieldcat  'SPART' text\-h48.*"COPA**产品组*  
  build\_fieldcat  'PSPNR' text\-h49.*"COPA WBS**元素*  
  build\_fieldcat  'COPA\_KOSTL' text\-h50.*"COPA**成本中心*  
  build\_fieldcat  'KSTRG' text\-h51.*"COPA**成本对象*  
  build\_fieldcat  'PRCTR' text\-h52.*"COPA**利润中心*  
  build\_fieldcat  'PPRCTR' text\-h53.*"COPA**伙伴利润中心*  
*\*  build\_fieldcat  'KMMAKL' text-h54."COPA**物料组*  
*\*  build\_fieldcat  'KMVKBU' text-h55."COPA**销售办公室*  
*\*  build\_fieldcat  'KMVKGR' text-h56."COPA**销售组*  
  build\_fieldcat  'BUDGET\_PD' text\-h64. *"**预算期间*  
  build\_fieldcat  'ZLSCH' text\-h65. *"**付款方式*  
  build\_fieldcat  'ZZCOALR' text\-h66. *"**辅助核算科目*  
  
endform. *" F\_ALV\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_layout*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
form frm\_layout .  
  gs\_layout\-zebra      = 'X'.  
  gs\_layout\-cwidth\_opt = 'X'.  
endform. *" F\_LAYOUT*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_display*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
form frm\_display .  
*\*&---**设置变式保存*  
  
  call function 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    exporting  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_SET\_STATUS'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
      is\_layout\_lvc            = gs\_layout  
      it\_fieldcat\_lvc          = gt\_fieldcat  
      i\_save                   = 'A'  
    tables  
      t\_outtab                 = gt\_upload.  
  
  if sy\-subrc <> 0.  
  endif.  
  
endform. *"F\_DISPLAY*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_set\_status*  
*\*&---------------------------------------------------------------------\**  
*\*       alv**状态栏设置*  
*\*----------------------------------------------------------------------\**  
form frm\_set\_status using pt\_extab type slis\_t\_extab .  
  set pf-status 'STANDARD' excluding pt\_extab.  
endform. *"Frm\_SET\_STATUS*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_set\_status*  
*\*&---------------------------------------------------------------------\**  
*\*       alv**按钮处理*  
*\*----------------------------------------------------------------------\**  
form frm\_user\_command using pv\_ucomm like sy\-ucomm  
                            ps\_selfield type slis\_selfield.  
  
  ps\_selfield\-refresh    = abap\_true.  
  ps\_selfield\-row\_stable = abap\_true.  
  ps\_selfield\-col\_stable = abap\_true.  
  
  case pv\_ucomm.  
    when 'SAVE1'.  
*\*&--------------**调用**BAPI*  
      if g\_flag = 1.  
        message text\-020 type 'E'. *"'**该界面不允许连续两次过账**'*  
      endif.  
  
      perform save using abap\_true.  
  
  
      g\_flag = 1.  
  
    when 'TEST'.  
*\*&--------------**调用**BAPI*  
      perform save using abap\_false.  
  
    when others.  
  endcase.  
  
endform. *"user\_command*  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_download*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p\_1        text*  
*\*  <--  p\_2        text*  
*\*----------------------------------------------------------------------\**  
form frm\_download .  
  
*\*&---**变量定义*  
  
  data: lv\_text       type string,                    *"message*  
        lv\_filename   type string,                    *"download file name*  
        lv\_path       type string,                    *"download file path*  
        ls\_functxt    type smp\_dyntxt,                *"menu name*  
        lv\_filepath   type rlgrap\-filename value 'c', *"file patch*  
        lv\_title      type string ,                   *"title*  
        lv\_title\_name type string,                    *"title name*  
        lv\_mod(20)    type c,                         *"model*  
        lv\_fullpath   type string,                    *"full path*  
        ls\_object     type wwwdatatab,                *"object name*  
        lv\_rc         type sy\-subrc.                  *"return code*  
  
*\*&---SMWO **模板名称*  
  
  lv\_mod = 'ZFI005'. *"**下载文件名*  
  
*\*&---**调用**OS **操作系统对话框*  
  
  lv\_title      = text\-002. *"**会计凭证导入模板下载*  
  lv\_title\_name = text\-003. *"**会计凭证导入模板*  
  
  call method cl\_gui\_frontend\_services=>file\_save\_dialog  
    exporting  
      window\_title              = lv\_title  
      default\_extension         = 'xlsx'  
      default\_file\_name         = lv\_title\_name  
    *" with\_encoding             =*  
      file\_filter               = 'EXCEL文件(\*.XLSX)|\*.XLSX|全部文件 (\*.\*)|\*.\*|'  
      initial\_directory         = 'D:\\'  
      prompt\_on\_overwrite       = 'X'  
    changing  
      filename                  = lv\_filename  *"**默认文件名称*  
      path                      = lv\_path   *"**文件路径*  
      fullpath                  = lv\_fullpath  *"**文件路径*  
    *" user\_action               =*  
    *" file\_encoding             =*  
    exceptions  
      cntl\_error                = 1  
      error\_no\_gui              = 2  
      not\_supported\_by\_gui      = 3  
      invalid\_default\_file\_name = 4  
      others                    = 5.  
  if sy\-subrc <> 0.  
*\*   Implement suitable error handling here*  
  endif.  
  
*\*&---**操作系统文件路径*  
  
  concatenate lv\_path  
    lv\_filename  
*\*    '.xlsx'*  
    into lv\_filepath.  
  
  check lv\_filepath is not initial.  
  
*\*&---OS**长度控制**/\*&---**下载模板*  
  
  if strlen( lv\_filepath ) <> 4.  
  
*\*&---**查询模板**.*  
    select single  
       relid objid  
     from wwwdata  
     into corresponding fields of ls\_object  
     where srtf2 = '0'  
       and objid = lv\_mod.                         *"smw0**里对象名称*  
    if sy\-subrc <> 0 or ls\_object\-objid = space .  
      lv\_text = text\-010. *"**模板文件不存在，请联系相关人员维护！*  
      message lv\_text type 'E'.  
      stop.  
    endif.  
  
*\*&---**下载模板*  
  
    call function 'DOWNLOAD\_WEB\_OBJECT'  
      exporting  
        key         = ls\_object  
        destination = lv\_filepath  
      importing  
        rc          = lv\_rc.  
    if lv\_rc <> 0.  
      lv\_text = text\-011. *"**下载失败，请联系技术人员！*  
      message lv\_text type 'E'.  
      stop.  
    endif.  
  
*\*&---'**已成功下载**'*  
  
    message text\-106 type 'S'.  
  else.  
  
*\*&---'**已取消下载**'*  
  
    message text\-107 type 'S'.  
  endif.  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& form get\_tbsl\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form get\_tbsl\_data .  
  
  select \*  
    into corresponding fields of table gt\_tbsl  
    from tbsl.  
  
  sort gt\_tbsl by bschl.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*&      form  frm\_alv\_show*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
*\*  -->  p1        text*  
*\*  <--  p2        text*  
*\*----------------------------------------------------------------------\**  
form frm\_alv\_show .  
  perform frm\_alv\_fieldcat.        *" **设置**ALV**要显示的字段和字段格式*  
  perform frm\_layout.              *" ALV**整体布局设置*  
  perform frm\_display.             *" ALV**展示*  
endform. *" FRM\_ALV\_SHOW*  
*\*&---------------------------------------------------------------------\**  
*\*& form frm\_author\_check*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*      -->p\_ls\_documentheader\_comp\_code  text*  
*\*&---------------------------------------------------------------------\**  
form frm\_author\_check using p\_comp\_code type bukrs .  
  
  clear g\_re.  
  
  authority-check object 'F\_BKPF\_BUK'  
   id 'BUKRS' field p\_comp\_code  
   id 'ACTVT'  dummy.  
  if sy\-subrc <> 0.  
  
    <fs\_upload>\-msg = text\-021. *"'**公司代码权限检查不通过**'*  
  
    <fs\_upload>\-type = 'E'.  
    <fs\_upload>\-light = '@5C@'.  
  
    g\_re = '1'.  
  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& form frm\_add\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form frm\_add\_data .  
  
  data num\_add(5).  
  
  data num\_now(20).  
  
  data number\_new(20).  
  
  data account(4) type p.  
  
  data l\_dmbtr type dmbtr.  
  
  loop at gt\_upload into gs\_upload.  
    at new number.  
  
      if num\_now is not initial .  
  
        gs\_upload\-dmbtr = \- l\_dmbtr.  
        gs\_upload\-gl\_account = '9999990030'.  
        clear: gs\_upload\-dmbtr ,gs\_upload\-gl\_account,gs\_upload\-bschl.  
        if l\_dmbtr > 0.  
  
          gs\_upload\-bschl = '50'.  
  
          append gs\_upload to gt\_upload\_add.  
  
  
        elseif l\_dmbtr < 0.  
  
          gs\_upload\-bschl = '40'.  
  
          append gs\_upload to gt\_upload\_add.  
  
        endif.  
  
      endif.  
  
      clear account.  
      clear num\_now.  
      clear l\_dmbtr.  
  
    endat.  
  
    if num\_now is not initial .  
  
      gs\_upload\-number = number\_new.  
      append gs\_upload to gt\_upload\_add.  
  
    else.  
  
      append gs\_upload to gt\_upload\_add.  
  
    endif.  
  
  
    if gs\_upload\-bschl eq '19'.  
      l\_dmbtr = l\_dmbtr \- gs\_upload\-dmbtr.  
    else.  
      l\_dmbtr = l\_dmbtr + gs\_upload\-dmbtr.  
    endif.  
  
  
    account = account + 1.  
    if account = 900.  
  
  
      gs\_upload\-dmbtr = \- l\_dmbtr.  
      gs\_upload\-gl\_account = '9999990030'.  
      clear: gs\_upload\-dmbtr ,gs\_upload\-gl\_account,gs\_upload\-bschl.  
      if l\_dmbtr > 0.  
  
        gs\_upload\-bschl = '50'.  
  
        append gs\_upload to gt\_upload\_add.  
  
  
      elseif l\_dmbtr < 0.  
  
        gs\_upload\-bschl = '40'.  
  
        append gs\_upload to gt\_upload\_add.  
  
      endif.  
      num\_now = gs\_upload\-number. *"**记录超过** 900 **的当前行* *用来判断后续需要从新生成**number**的行*  
  
      num\_add = num\_add + 1.*"**超过** 900**行* *的次数* *用于生成新的** number*  
  
      shift num\_add left deleting leading space.  
  
*\*      SHIFT num\_now RIGHT DELETING TRAILING  space.*  
  
      condense num\_now no\-gaps.  
  
      concatenate num\_now 'a' num\_add into number\_new.  
  
      clear account.  
      clear l\_dmbtr.  
  
  
    endif.  
  
  endloop.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& form frm\_upper\_lower\_case*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form frm\_upper\_lower\_case changing p\_re type c p\_str type c .  
  
  data p\_dem.  
  if p\_str is initial.  
    p\_re = 'S'.  
    return.  
  endif.  
  call function 'STRING\_UPPER\_LOWER\_CASE'  
    exporting  
      delimiter = p\_dem  
      string1   = p\_str  
    importing  
      string    = p\_str  
    exceptions  
      not\_valid = 1  
      too\_long  = 2  
      too\_small = 3  
      others    = 4.  
  if sy\-subrc <> 0.  
  
*\* Implement suitable error handling here*  
    p\_re = 'E'.  
  else.  
    p\_re = 'S'.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form INITIALIZTION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form initializtion .  
  
  *" **获利能力段字段*  
  gt\_criteria\_field = value \#(  
                              ( name = 'KNDNR' )*"**客户*  
                              ( name = 'ARTNR' )*"**生产*  
                              ( name = 'FKART' )*"**开票类型*  
                              ( name = 'KAUFN' )*"**销售订单*  
                              ( name = 'KDPOS' )*"**销售订单项目*  
                              ( name = 'RKAUFNR' )*"**订单*  
                              ( name = 'WERKS' )*"**工厂*  
                              ( name = 'FKBER' )*"**功能范围*  
                              ( name = 'SEGMENT' )*"**段*  
                              ( name = 'VKORG' )*"**销售机构*  
                              ( name = 'VTWEG' )*"**分销渠道*  
                              ( name = 'SPART' )*"**产品组*  
                              ( name = 'PSPNR' )*"WBS **要素*  
                              ( name = 'COPA\_KOSTL' )*"**成本中心*  
                              ( name = 'KSTRG' )*"**成本对象*  
                              ( name = 'PRCTR' )*"**利润中心*  
                              ( name = 'PPRCTR' )*"**伙伴** PC*  
                              ( name = 'KMMAKL' )*"**物料组*  
                              ( name = 'KMVKBU' )*"**销售办事处*  
                              ( name = 'KMVKGR' )*"**销售组*  
                             ).  
  
  select \*  
    into corresponding fields of table gt\_t001  
    from t001.  
  
  select \*  
    into corresponding fields of table gt\_finsc\_001a  
    from finsc\_001a.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form save*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> ABAP\_TRUE*  
*\*&---------------------------------------------------------------------\**  
form save  using    p\_post type abap\_bool.  
  data:  
    lt\_t074u type table of t074u,  
    ls\_t074u type t074u,  
    lv\_bdc   type char01,  
    lv\_koart type t074u\-koart.  
  
  select \*  
    into corresponding fields of table lt\_t074u  
    from t074u.  
  
  sort lt\_t074u by koart umskz.  
  
  loop at gt\_upload into data(ls\_upload) where customer <> space  
                                             or vendor\_no <> space.  
  
    if ls\_upload\-customer <> space.  
      lv\_koart = 'D'.  
  
    endif.  
  
    if ls\_upload\-vendor\_no <> space.  
      lv\_koart = 'K'.  
  
    endif.  
  
    clear: ls\_t074u.  
    read table lt\_t074u into ls\_t074u with key koart = lv\_koart  
                                               umskz = ls\_upload\-umskz  
                                               binary search.  
    if ls\_t074u\-umsks = 'W'.  
      lv\_bdc = abap\_true.  
      exit.  
    endif.  
  endloop.  
  
  if lv\_bdc = abap\_true.  
    perform call\_bdc using p\_post.  
  else.  
    perform call\_bapi using p\_post.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form call\_bdc*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> P\_POST*  
*\*&---------------------------------------------------------------------\**  
form call\_bdc  using    p\_post type abap\_bool.  
  data:  
    lt\_ftpost type table of ftpost,  
    ls\_ftpost type ftpost,  
    lt\_blntab type table of blntab,  
    lt\_fttax  type table of fttax,  
    lv\_bschl  type bschl,  
    lv\_index  type i,  
    lv\_mode   type rfpdo\-allgazmd value 'N',  
    ls\_sy     type syst.  
  
  if p\_post <> abap\_true.  
    message e001(00)  with '票据类型不支持凭证检查' .  
    exit.  
  endif.  
  
  loop at gt\_upload assigning <fs\_upload>.  
  
  
    at new number.  
      clear:  
        lt\_ftpost,  
        lv\_index,  
        lt\_fttax,  
        lt\_blntab.  
  
      fill\_ftpost 'K' '0001' 'BKPF-BUKRS' <fs\_upload>\-comp\_code.          *" **公司代码*  
      fill\_ftpost 'K' '0001' 'BKPF-BLART' <fs\_upload>\-doc\_type.           *" **凭证类型*  
      fill\_ftpost 'K' '0001' 'BKPF-MONAT' <fs\_upload>\-pstng\_date+4(2).              *" **期间*  
      fill\_ftpost 'K' '0001' 'BKPF-BLDAT' <fs\_upload>\-doc\_date.           *" **凭证日期*  
      fill\_ftpost 'K' '0001' 'BKPF-BUDAT' <fs\_upload>\-pstng\_date.         *" **过账日期*  
      fill\_ftpost 'K' '0001' 'BKPF-BKTXT' <fs\_upload>\-header\_txt.         *" **凭证抬头文本*  
      fill\_ftpost 'K' '0001' 'BKPF-XBLNR' <fs\_upload>\-ref\_doc\_no.         *" **参考凭证号*  
      fill\_ftpost 'K' '0001' 'BKPF-WAERS' <fs\_upload>\-currency.  
      fill\_ftpost 'K' '0001' 'BKPF-NUMPG' <fs\_upload>\-numpg.  
  
      if <fs\_upload>\-kursf is not initial.  
        fill\_ftpost 'K' '0001' 'BKPF-KURSF' <fs\_upload>\-kursf.              *" **汇率*  
      endif.  
  
*\*      if <fs\_upload>-xmwst is not initial .*  
*\*        fill\_ftpost 'K' '0001' 'BKPF-XMWST' <fs\_upload>-xmwst."**计算税额*  
*\*      endif.*  
    endat.  
  
    lv\_index = lv\_index + 1.  
  
    fill\_ftpost 'P' lv\_index 'BSEG-BSCHL' <fs\_upload>\-bschl.             *" **记账码*  
    fill\_ftpost 'P' lv\_index 'BSEG-UMSKZ' <fs\_upload>\-umskz.  
  
*\*   **如果客户不为空，则为客户行*  
    if <fs\_upload>\-customer is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-KUNNR' <fs\_upload>\-customer.  *" **客户编号*  
    endif.  
  
*\*   **如果供应商不为空，则为供应商行*  
    if <fs\_upload>\-vendor\_no is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-LIFNR' <fs\_upload>\-vendor\_no. *" **供应商编码*  
    endif.  
  
    if <fs\_upload>\-gl\_account is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-HKONT' <fs\_upload>\-gl\_account.*" **科目代码*  
    endif.  
  
    if <fs\_upload>\-xnegp is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-XNEGP' <fs\_upload>\-xnegp.     *" **反记账*  
    endif.  
  
*\*    if <fs\_upload>-wdate is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WDATE' <fs\_upload>-wdate. "**汇票签发日期*  
*\*    endif.*  
  
*\*    if <fs\_upload>-wname is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WNAME' <fs\_upload>-wname. "**收款人*  
*\*    endif.*  
*\**  
*\*    if <fs\_upload>-wbzog is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WBZOG' <fs\_upload>-wbzog. "**付款人*  
*\*    endif.*  
*\**  
*\*    if <fs\_upload>-wlzbp is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WLZBP' <fs\_upload>-wlzbp. "**票据号*  
*\*    endif.*  
*\**  
*\*    if <fs\_upload>-wbank is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WBANK' <fs\_upload>-wbank. "**付款银行*  
*\*    endif.*  
*\**  
*\*    if <fs\_upload>-wstat is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WSTAT' <fs\_upload>-wstat. "**票据状态*  
*\*    endif.*  
*\**  
*\*    if <fs\_upload>-wevwv is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSED-WEVWV' <fs\_upload>-wevwv. "**收票业务类型*  
*\*    endif.*  
  
*\*    fill\_ftpost: 'P' lv\_index 'RF05A-NEWBS' lv\_bschl,      "*  
*\*                 'P' lv\_index 'RF05A-NEWKO' <fs\_upload>-hkont. "*  
    *"'P' lv\_index 'RF05A-NEWUM' <fs\_upload>-newum. "*  
  
    <fs\_upload>\-wrbtr = abs( <fs\_upload>\-wrbtr ).  
  
    fill\_ftpost: 'P' lv\_index 'BSEG-WRBTR' <fs\_upload>\-wrbtr,*"**原币科目余额*  
*\*                 'P' lv\_index 'BSEG-DMBTR' <fs\_upload>-dmbtr,"**本位币金额*  
                 'P' lv\_index 'BSEG-ZUONR' <fs\_upload>\-zuonr,*"**分配**/**接收银行描述*  
                 'P' lv\_index 'BSEG-SGTXT' <fs\_upload>\-item\_text.*"**文本*  
  
    if <fs\_upload>\-rstgr is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-RSTGR' <fs\_upload>\-rstgr. *"**原因代码*  
    endif.  
  
    if <fs\_upload>\-zfbdt is not initial.  
      fill\_ftpost 'P' lv\_index 'BSEG-ZFBDT' <fs\_upload>\-zfbdt.*"    "**付款基准日期**/**到期日*  
    endif.  
  
    if <fs\_upload>\-vbund is not initial.                           *"**贸易伙伴** 200325*  
      fill\_ftpost 'P' lv\_index 'BSEG-VBUND' <fs\_upload>\-vbund.  
    endif.  
  
    if <fs\_upload>\-costcenter is not initial.  
      fill\_ftpost 'P' lv\_index 'COBL-KOSTL' <fs\_upload>\-costcenter.  *"**成本中心*  
    endif.  
  
    if <fs\_upload>\-prctr is not initial.  
      fill\_ftpost 'P' lv\_index 'COBL-PRCTR' <fs\_upload>\-prctr.  *"**利润中心*  
    endif.  
  
    if <fs\_upload>\-orderid is not initial.  
      fill\_ftpost 'P' lv\_index 'COBL-AUFNR' <fs\_upload>\-orderid. *"**内部订单*  
    endif.  
  
*\*    if <fs\_upload>-tax\_code is not initial.*  
*\*      fill\_ftpost 'P' lv\_index 'BSEG-MWSKZ' <fs\_upload>-tax\_code. "**税码*  
*\*    endif.*  
  
    at end of number.  
      call function 'POSTING\_INTERFACE\_START'  
        exporting  
*\*         I\_CLIENT           = SY-MANDT*  
          i\_function         = 'C'  
*\*         I\_GROUP            = ' '*  
*\*         I\_HOLDDATE         = ' '*  
*\*         I\_KEEP             = ' '*  
          i\_mode             = lv\_mode  
          i\_user             = sy\-uname  
        exceptions  
          client\_incorrect   = 1  
          function\_invalid   = 2  
          group\_name\_missing = 3  
          mode\_invalid       = 4  
          update\_invalid     = 5  
          others             = 6.  
      if sy\-subrc <> 0.  
  
      endif.  
  
      call function 'POSTING\_INTERFACE\_DOCUMENT'  
        exporting  
          i\_tcode                  = 'FB01'  
*\*         I\_SGFUNCT                = ' '*  
*\*         i\_no\_auth                = ' '*  
        importing  
          e\_msgid                  = ls\_sy\-msgid  
          e\_msgno                  = ls\_sy\-msgno  
          e\_msgty                  = ls\_sy\-msgty  
          e\_msgv1                  = ls\_sy\-msgv1  
          e\_msgv2                  = ls\_sy\-msgv2  
          e\_msgv3                  = ls\_sy\-msgv3  
          e\_msgv4                  = ls\_sy\-msgv4  
        tables  
          t\_blntab                 = lt\_blntab  
          t\_ftpost                 = lt\_ftpost  
          t\_fttax                  = lt\_fttax  
        exceptions  
          account\_missing          = 1  
          company\_code\_missing     = 2  
          posting\_key\_invalid      = 3  
          posting\_key\_missing      = 4  
          record\_type\_invalid      = 5  
          transaction\_code\_invalid = 6  
          amount\_format\_error      = 7  
          too\_many\_line\_items      = 8  
          company\_code\_invalid     = 9  
          screen\_not\_found         = 10  
          no\_authorization         = 11  
          error\_message            = 12  
          others                   = 13.  
  
      if sy\-subrc <> 0.  
        message id sy\-msgid  
                type sy\-msgty number sy\-msgno  
                with sy\-msgv1  
                     sy\-msgv2  
                     sy\-msgv3  
                     sy\-msgv4  
                into <fs\_upload>\-msg .  
  
        <fs\_upload>\-type  = 'E'.  
        <fs\_upload>\-light = '@5C@'.  
      else.  
  
        if ls\_sy\-msgty = 'S'*"*  
         and ( ls\_sy\-msgno = '312' or ls\_sy\-msgno = '323' ).  
  
          message id ls\_sy\-msgid  
                  type ls\_sy\-msgty number ls\_sy\-msgno  
                  with ls\_sy\-msgv1  
                       ls\_sy\-msgv2  
                       ls\_sy\-msgv3  
                       ls\_sy\-msgv4  
                into <fs\_upload>\-msg .  
  
          <fs\_upload>\-type  = 'S'.  
          <fs\_upload>\-msg\_belnr = ls\_sy\-msgv1.  
          <fs\_upload>\-light = '@5B@'.  
        else.  
          message id ls\_sy\-msgid  
                  type ls\_sy\-msgty number ls\_sy\-msgno  
                  with ls\_sy\-msgv1  
                       ls\_sy\-msgv2  
                       ls\_sy\-msgv3  
                       ls\_sy\-msgv4  
                  into <fs\_upload>\-msg .  
  
          <fs\_upload>\-type  = 'E'.  
          <fs\_upload>\-light = '@5C@'.  
        endif.  
      endif.  
  
      call function 'POSTING\_INTERFACE\_END'  
        exporting  
          i\_bdcimmed              = 'X'  
*\*         I\_BDCSTRTDT             = NO\_DATE*  
*\*         I\_BDCSTRTTM             = NO\_TIME*  
        exceptions  
          session\_not\_processable = 1  
          others                  = 2.  
      if sy\-subrc <> 0.  
  
      endif.  
    endat.  
  endloop.  
  
endform.