投稿
  1. 云图网首页
  2. 技术专区
  3. 编程笔记

创建会计凭证详解编程语言

• 编程笔记 • 阅读 58

AB类会计凭证 计提

*&---------------------------------------------------------------------* 
*&      Form  FRM_CREATE_JT_BELNR 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM FRM_CREATE_JT_BELNR . 
  DATA: L_INDEX  TYPE I, 
        L_DMBTR1 TYPE BSEG-DMBTR, 
        L_DMBTR2 TYPE BSEG-DMBTR, 
        L_DMBTR3 TYPE BSEG-DMBTR, 
        L_DMBTR4 TYPE BSEG-DMBTR. 
 
  CLEAR L_INDEX. 
 
*调用BAPI生成类型为AB的会计凭证 
  DOCUMENTHEADER-DOC_TYPE   = 'AB'. 
  DOCUMENTHEADER-DOC_DATE   = P_BLDAT. 
  DOCUMENTHEADER-PSTNG_DATE = P_BUDAT. 
  DOCUMENTHEADER-FIS_PERIOD = P_BUDAT+4(2). 
  DOCUMENTHEADER-COMP_CODE  = P_BUKRS. 
  DOCUMENTHEADER-USERNAME   = SY-UNAME. 
  DOCUMENTHEADER-BUS_ACT = 'RFBU'. 
  DOCUMENTHEADER-HEADER_TXT = '珠宝工资分配'. 
 
  SORT IT_OUTPUT_ITAB BY KOSTL. 
 
  LOOP AT IT_OUTPUT_ITAB. 
    MOVE IT_OUTPUT_ITAB TO WA_OUTPUT_LINE. 
    AT NEW KOSTL. 
      CLEAR: L_DMBTR1, L_DMBTR2. 
    ENDAT. 
 
    L_DMBTR1 = L_DMBTR1 + WA_OUTPUT_LINE-DMBTR1. 
*    l_dmbtr2 = l_dmbtr1 + wa_output_line-dmbtr9. 
    L_DMBTR2 = L_DMBTR2 + WA_OUTPUT_LINE-DMBTR2 + WA_OUTPUT_LINE-DMBTR3 + WA_OUTPUT_LINE-DMBTR4 + WA_OUTPUT_LINE-DMBTR5 
                        + WA_OUTPUT_LINE-DMBTR6 + WA_OUTPUT_LINE-DMBTR7 + WA_OUTPUT_LINE-DMBTR8. 
 
    AT END OF KOSTL. 
      ADD 1 TO L_INDEX. 
      ACCOUNTGL-ITEMNO_ACC  = L_INDEX. 
      IF WA_OUTPUT_LINE-KOSTL EQ 'C2I000012I'."Change By Ly 20150323 
*      IF wa_output_line-kostl EQ 'C202000006'. 
        ACCOUNTGL-GL_ACCOUNT  = '5001030000'. 
*       ELSEif wa_output_line-kostl eq 'C202000005'.“DELETE BY LY 20150304 
*        accountgl-gl_account  = '5101010000'. 
      ELSE. 
        ACCOUNTGL-GL_ACCOUNT  = '6601010000'. 
      ENDIF. 
      ACCOUNTGL-COSTCENTER  = WA_OUTPUT_LINE-KOSTL. 
      ACCOUNTGL-ITEM_TEXT   = '珠宝工资分配'. 
      APPEND ACCOUNTGL. 
      CLEAR ACCOUNTGL. 
 
      CURRENCYAMOUNT-ITEMNO_ACC = L_INDEX. 
      CURRENCYAMOUNT-AMT_DOCCUR = L_DMBTR1. 
      CURRENCYAMOUNT-CURRENCY = 'CNY'. 
      APPEND CURRENCYAMOUNT. 
      CLEAR CURRENCYAMOUNT. 
 
      CLEAR: ZACC_DOCUMENT. 
      ZACC_DOCUMENT-POSNR = L_INDEX. 
*      zacc_document-bschl = '40'.Changed By Ly 20150323 
      IF L_DMBTR1 < 0.                            "更改  shirumeng  20150506 
        ZACC_DOCUMENT-BSCHL = '50'. 
        ZACC_DOCUMENT-XNEGP = 'X'. 
      ELSE. 
        ZACC_DOCUMENT-BSCHL = '40'. 
      ENDIF. 
      EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
      EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
      APPEND EXTENSION2. 
      CLEAR EXTENSION2. 
 
      ADD 1 TO L_INDEX. 
      ACCOUNTGL-ITEMNO_ACC  = L_INDEX. 
      ACCOUNTGL-GL_ACCOUNT  = '2211010100'.                "更改   shiruemng  20150429 
      ACCOUNTGL-COSTCENTER  = WA_OUTPUT_LINE-KOSTL. 
      ACCOUNTGL-ITEM_TEXT   = '珠宝工资分配'. 
      APPEND ACCOUNTGL. 
      CLEAR ACCOUNTGL. 
 
      CURRENCYAMOUNT-ITEMNO_ACC = L_INDEX. 
      CURRENCYAMOUNT-AMT_DOCCUR = L_DMBTR2. 
      CURRENCYAMOUNT-CURRENCY = 'CNY'. 
      APPEND CURRENCYAMOUNT. 
      CLEAR CURRENCYAMOUNT. 
 
      CLEAR: ZACC_DOCUMENT. 
      ZACC_DOCUMENT-POSNR = L_INDEX. 
*      zacc_document-bschl = '40'. 
      IF L_DMBTR2 < 0. 
        ZACC_DOCUMENT-BSCHL = '50'. 
        ZACC_DOCUMENT-XNEGP = 'X'. 
      ELSE. 
        ZACC_DOCUMENT-BSCHL = '40'. 
      ENDIF. 
      EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
      EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
      APPEND EXTENSION2. 
      CLEAR EXTENSION2. 
 
      ADD 1 TO L_INDEX. 
      ACCOUNTGL-ITEMNO_ACC  = L_INDEX. 
      ACCOUNTGL-GL_ACCOUNT  = '2211010100'.      "更改   shiruemng  20150429 
      ACCOUNTGL-COSTCENTER  = WA_OUTPUT_LINE-KOSTL. 
      ACCOUNTGL-ITEM_TEXT   = '珠宝工资分配'. 
      APPEND ACCOUNTGL. 
      CLEAR ACCOUNTGL. 
 
      CURRENCYAMOUNT-ITEMNO_ACC = L_INDEX. 
      CURRENCYAMOUNT-AMT_DOCCUR = L_DMBTR1 * -1. 
      CURRENCYAMOUNT-CURRENCY = 'CNY'. 
      APPEND CURRENCYAMOUNT. 
      CLEAR CURRENCYAMOUNT. 
 
      CLEAR: ZACC_DOCUMENT. 
      ZACC_DOCUMENT-POSNR = L_INDEX. 
*  和  6601010000  效果相反。 
      IF L_DMBTR1 < 0. 
        ZACC_DOCUMENT-BSCHL = '40'. 
        ZACC_DOCUMENT-XNEGP = 'X'. 
      ELSE. 
        ZACC_DOCUMENT-BSCHL = '50'. 
      ENDIF. 
      " ZACC_DOCUMENT-BSCHL = '50'. 
      EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
      EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
      APPEND EXTENSION2. 
      CLEAR EXTENSION2. 
    ENDAT. 
  ENDLOOP. 
 
  READ TABLE IT_TOTAL_ITAB INDEX 1. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241010100' IT_TOTAL_ITAB-DMBTR2. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241010200' IT_TOTAL_ITAB-DMBTR3. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241010300' IT_TOTAL_ITAB-DMBTR4. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241010500' IT_TOTAL_ITAB-DMBTR5. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241010600' IT_TOTAL_ITAB-DMBTR7. 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2241019900' IT_TOTAL_ITAB-DMBTR8.      "更改   shiruemng  20150429 
  ADD 1 TO L_INDEX. 
  PERFORM FRM_FILL_ITEM USING L_INDEX '2221110000' IT_TOTAL_ITAB-DMBTR6. 
 
  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST' 
    EXPORTING 
      DOCUMENTHEADER    = DOCUMENTHEADER 
    TABLES 
      ACCOUNTRECEIVABLE = ACCOUNTRECEIVABLE 
      ACCOUNTPAYABLE    = ACCOUNTPAYABLE 
      ACCOUNTGL         = ACCOUNTGL 
      CURRENCYAMOUNT    = CURRENCYAMOUNT 
      EXTENSION2        = EXTENSION2 
      RETURN            = RETURN. 
ENDFORM.                    " FRM_CREATE_JT_BELNR
*&---------------------------------------------------------------------* 
*&      Form  FRM_FILL_ITEM 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*      -->P_L_INDEX  text 
*      -->P_1149   text 
*      -->P_IT_TOTAL_ITAB_DMBTR4  text 
*----------------------------------------------------------------------* 
FORM FRM_FILL_ITEM  USING    P_L_INDEX 
                             VALUE(P_1149) 
                             P_IT_TOTAL_ITAB_DMBTR4. 
  ACCOUNTGL-ITEMNO_ACC  = P_L_INDEX. 
  ACCOUNTGL-GL_ACCOUNT  = P_1149. 
  ACCOUNTGL-ITEM_TEXT   = '珠宝工资分配'. 
  APPEND ACCOUNTGL. 
  CLEAR ACCOUNTGL. 
 
  CURRENCYAMOUNT-ITEMNO_ACC = P_L_INDEX. 
  CURRENCYAMOUNT-AMT_DOCCUR = P_IT_TOTAL_ITAB_DMBTR4 * -1. 
  CURRENCYAMOUNT-CURRENCY = 'CNY'. 
  APPEND CURRENCYAMOUNT. 
  CLEAR CURRENCYAMOUNT. 
 
  CLEAR: ZACC_DOCUMENT. 
  ZACC_DOCUMENT-POSNR = P_L_INDEX. 
  IF P_IT_TOTAL_ITAB_DMBTR4 < 0. 
    ZACC_DOCUMENT-BSCHL = '40'. 
    ZACC_DOCUMENT-XNEGP = 'X'. 
  ELSE. 
    ZACC_DOCUMENT-BSCHL = '50'. 
  ENDIF. 
  EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
  EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
  APPEND EXTENSION2. 
  CLEAR EXTENSION2. 
ENDFORM.                    " FRM_FILL_ITEM

创建类型为SK的会计凭证

*&---------------------------------------------------------------------* 
*&      Form  FRM_CREATE_FF_BELNR 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM FRM_CREATE_FF_BELNR . 
  DATA: L_INDEX  TYPE I, 
        L_DMBTR1 TYPE BSEG-DMBTR, 
        L_DMBTR2 TYPE BSEG-DMBTR, 
        L_DMBTR3 TYPE BSEG-DMBTR, 
        L_DMBTR4 TYPE BSEG-DMBTR. 
  DATA:LV_DMBTR5 TYPE BSEG-DMBTR. 
 
  CLEAR L_INDEX. 
*调用BAPI生成类型为SK会计凭证 
  DOCUMENTHEADER-DOC_TYPE   = 'SK'. 
  DOCUMENTHEADER-DOC_DATE   = P_BLDAT. 
  DOCUMENTHEADER-PSTNG_DATE = P_BUDAT. 
  DOCUMENTHEADER-FIS_PERIOD = P_BUDAT+4(2). 
  DOCUMENTHEADER-COMP_CODE  = P_BUKRS. 
  DOCUMENTHEADER-USERNAME   = SY-UNAME. 
  DOCUMENTHEADER-BUS_ACT = 'RFBU'. 
  DOCUMENTHEADER-HEADER_TXT = '珠宝工资发放'. 
 
  CHECK IT_TOTAL_ITAB[] IS NOT INITIAL. 
 
  SORT IT_TOTAL_ITAB[] BY KOSTL. 
  LOOP AT IT_TOTAL_ITAB. 
    ADD 1 TO L_INDEX. 
*  read table it_total_itab index 1. 
 
    ACCOUNTGL-ITEMNO_ACC  = L_INDEX."1. 
    ACCOUNTGL-GL_ACCOUNT  = '2211010100'.    "更改  shiruemng  20150429 
    ACCOUNTGL-COSTCENTER  = IT_TOTAL_ITAB-KOSTL. 
    ACCOUNTGL-ITEM_TEXT   = '珠宝工资发放'. 
    APPEND ACCOUNTGL. 
    CLEAR ACCOUNTGL. 
 
    CURRENCYAMOUNT-ITEMNO_ACC = L_INDEX."1. 
    CURRENCYAMOUNT-AMT_DOCCUR = IT_TOTAL_ITAB-DMBTR1 - IT_TOTAL_ITAB-DMBTR2 - IT_TOTAL_ITAB-DMBTR3 - IT_TOTAL_ITAB-DMBTR4 
                                - IT_TOTAL_ITAB-DMBTR5 - IT_TOTAL_ITAB-DMBTR6 - IT_TOTAL_ITAB-DMBTR7 - IT_TOTAL_ITAB-DMBTR8. 
    CURRENCYAMOUNT-CURRENCY = 'CNY'. 
    APPEND CURRENCYAMOUNT. 
 
 
    CLEAR: ZACC_DOCUMENT. 
    ZACC_DOCUMENT-POSNR = L_INDEX."1. 
    IF CURRENCYAMOUNT-AMT_DOCCUR < 0. 
      ZACC_DOCUMENT-BSCHL = '50'. 
      ZACC_DOCUMENT-XNEGP = 'X'. 
    ELSE. 
      ZACC_DOCUMENT-BSCHL = '40'. 
    ENDIF. 
*    zacc_document-bschl = '40'. 
    ZACC_DOCUMENT-RSTGR = '-07'. 
    EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
    EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
    APPEND EXTENSION2. 
    CLEAR EXTENSION2. 
    CLEAR CURRENCYAMOUNT.                                   "20150506 
*    add 1 to l_index. 
*    accountgl-itemno_acc  = l_index. 
*    accountgl-gl_account  = p_saknr. 
*    accountgl-item_text   = '珠宝工资发放'. 
*    append accountgl. 
*    clear accountgl. 
* 
*    currencyamount-itemno_acc = l_index. 
**  currencyamount-amt_doccur = it_total_itab-dmbtr1 * -1. 
*    currencyamount-amt_doccur = ( it_total_itab-dmbtr1 - it_total_itab-dmbtr2 - it_total_itab-dmbtr3 - it_total_itab-dmbtr4 
*                                - it_total_itab-dmbtr5 - it_total_itab-dmbtr6 - it_total_itab-dmbtr7 - it_total_itab-dmbtr8 ) * -1. 
    LV_DMBTR5 = IT_TOTAL_ITAB-DMBTR1 - IT_TOTAL_ITAB-DMBTR2 - IT_TOTAL_ITAB-DMBTR3 - IT_TOTAL_ITAB-DMBTR4 
                 - IT_TOTAL_ITAB-DMBTR5 - IT_TOTAL_ITAB-DMBTR6 - IT_TOTAL_ITAB-DMBTR7 - IT_TOTAL_ITAB-DMBTR8 + LV_DMBTR5. 
*    currencyamount-currency = 'CNY'. 
*    append currencyamount. 
*    clear currencyamount. 
* 
*    clear: zacc_document. 
*    zacc_document-posnr = l_index. 
*    zacc_document-bschl = '50'. 
*    extension2-structure = 'ZACC_DOCUMENT'. 
*    extension2-valuepart1 = zacc_document. 
*    append extension2. 
*    clear extension2. 
*    clear it_total_itab. 
  ENDLOOP. 
 
  "Changed by ly 20150311 
  ADD 1 TO L_INDEX. 
  ACCOUNTGL-ITEMNO_ACC  = L_INDEX. 
  ACCOUNTGL-GL_ACCOUNT  = P_SAKNR. 
  ACCOUNTGL-ITEM_TEXT   = '珠宝工资发放'. 
  APPEND ACCOUNTGL. 
  CLEAR ACCOUNTGL. 
 
  CURRENCYAMOUNT-ITEMNO_ACC = L_INDEX. 
  CURRENCYAMOUNT-AMT_DOCCUR = LV_DMBTR5 * -1. 
*    currencyamount-amt_doccur = ( it_total_itab-dmbtr1 - it_total_itab-dmbtr2 - it_total_itab-dmbtr3 - it_total_itab-dmbtr4 
*                                - it_total_itab-dmbtr5 - it_total_itab-dmbtr6 - it_total_itab-dmbtr7 - it_total_itab-dmbtr8 ) * -1. 
  CURRENCYAMOUNT-CURRENCY = 'CNY'. 
  APPEND CURRENCYAMOUNT. 
 
 
  CLEAR: ZACC_DOCUMENT. 
  ZACC_DOCUMENT-POSNR = L_INDEX. 
  IF LV_DMBTR5 < 0. 
    ZACC_DOCUMENT-BSCHL = '40'. 
 "   ZACC_DOCUMENT-XNEGP = 'X'. 
  ELSE. 
    ZACC_DOCUMENT-BSCHL = '50'. 
  ENDIF. 
  " ZACC_DOCUMENT-BSCHL = '50'. 
  EXTENSION2-STRUCTURE = 'ZACC_DOCUMENT'. 
  EXTENSION2-VALUEPART1 = ZACC_DOCUMENT. 
  APPEND EXTENSION2. 
  CLEAR EXTENSION2. 
  CLEAR IT_TOTAL_ITAB. 
  CLEAR CURRENCYAMOUNT.                                     "20150506 
  "Changed by ly 20150311 
 
 
 
  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST' 
    EXPORTING 
      DOCUMENTHEADER    = DOCUMENTHEADER 
    TABLES 
      ACCOUNTRECEIVABLE = ACCOUNTRECEIVABLE 
      ACCOUNTPAYABLE    = ACCOUNTPAYABLE 
      ACCOUNTGL         = ACCOUNTGL 
      CURRENCYAMOUNT    = CURRENCYAMOUNT 
      EXTENSION2        = EXTENSION2 
      RETURN            = RETURN. 
ENDFORM.                    " FRM_CREATE_FF_BELNR

会计凭证增强：

BADI:ACC_DOCUMENT

IF:IF_EX_ACC_DOCUMENT

属性：多次使用，过滤器相关   过滤器类型   AWTYP

过滤器值：BKPFF

METH:IF_EX_ACC_DOCUMENT~CHANGE

  method if_ex_acc_document~change. 
    data: wa_extension   type        bapiparex, 
          ext_value(960) type        c, 
          wa_accit       type        accit, 
          l_ref          type ref to data. 
 
    field-symbols: <l_struc> type any, 
                   <l_field> type any. 
 
    sort c_extension2 by structure. 
 
    loop at c_extension2 into wa_extension. 
      at new structure. 
        create data l_ref type (wa_extension-structure). 
        assign l_ref->* to <l_struc>. 
      endat. 
      concatenate wa_extension-valuepart1 wa_extension-valuepart2 
                  wa_extension-valuepart3 wa_extension-valuepart4 
             into ext_value. 
      move ext_value to <l_struc>. 
      assign component 'POSNR' of structure <l_struc> to <l_field>. 
      read table c_accit with key posnr = <l_field> 
            into wa_accit. 
      if sy-subrc is initial. 
        move-corresponding <l_struc> to wa_accit. 
        modify c_accit from wa_accit index sy-tabix. 
      endif. 
    endloop. 
  endmethod.

原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/tech/pnotes/18698.html

赞 (0)
0 0
上一篇 2021年7月19日 21:22
下一篇 2021年7月19日 21:22

相关推荐

发表回复

登录后才能评论