Skip to Content
Technical Articles
Author's profile photo Arijit Dutta

Post Customer and Vendor using BAPI_ACC_DOCUMENT_POST ((40/50 for G/L Accounts, 31/21 for vendor sub-ledger,11/01 for Customer sub-ledger))

Introduction:

This blog post will describe the various steps involved to post a FI document using BAPI ‘BAPI_ACC_DOCUMENT_POST’ from an TXT file.

 

Requirement:

The TXT file should be balanced for the document to be posted i.e. credit amount and debit amount should be equal.

 

STEPS:

 

Steps involved in posting a document from a file are:

  1. Data upload from TXT file into internal table using FM gui_upload.
  2. Using BAPI ‘BAPI_ACC_DOCUMEN_CHECK’ to check the data for document posting and finally post the document using BAPI ‘BAPI_ACC_DOCUMEN_POST’ and commit the work using FM ‘BAPI_TRANSACTION_COMMIT. – Most Challenging task is to map the data in the bapi function module.

ABAP code: Refer Attachment

REPORT  ZFIIM10002 NO STANDARD PAGE HEADING MESSAGE-ID ZFI.


*-----------------------------------------------------------------------
* T A B L E S
*-----------------------------------------------------------------------
*TABLES:

*-----------------------------------------------------------------------
* T Y P E S
*-----------------------------------------------------------------------
*TYPES:

*-----------------------------------------------------------------------
* D A T A
*-----------------------------------------------------------------------
*DATA:
*-> work areas
DATA : G_REMINDER TYPE I.

DATA : G_FILE TYPE STRING.

*-> counters
DATA : CNT_RECORDS      TYPE I,
       CNT_REC_TOT_FILE TYPE I,
       CNT_REC_TOT      TYPE I,
       CNT_SUCCESS_REC  TYPE I,
       CNT_FAIL_REC     TYPE I.

*-> internal tables
*Internal table for GL data from the input file
DATA: BEGIN OF TBL_GL OCCURS 0,
*        zbukrs LIKE zglcnvt-zbukrs,  "Legacy Company Id
        BSCHL LIKE BSEG-BSCHL,       "Posting Key
        HKONT LIKE ZGLCNVT-HKONT,    "GL Account
        WRBTR LIKE BSEG-WRBTR,      "Amount
        MWSKZ LIKE BSEG-MWSKZ,       " Tax code                   "DSL 87/307901+
        KOSTL LIKE ZGLCNVT-KOSTL,    "Cost Center
        PRCTR LIKE ZGLCNVT-PRCTR,    "Profit Center
        RMVCT TYPE RMVCT,            "Transaction Type               285970+
        AUFNR LIKE BSEG-AUFNR,       "Internal order                 3942+
        VBUND TYPE RASSC,            "Trading Partner NR1K952550+
* Added by DEVK906772 - Ernie Tan (Added SGTXT field)
        SGTXT LIKE BSEG-SGTXT,       "Item text
        LDGRP TYPE BKPF-LDGRP,       "Ledger group                 "DSL 87+
*        CUST  TYPE  CHAR1,      "customer
*        VEND  TYPE  CHAR1,      "Vendor
      END OF TBL_GL.


DATA : TBL_BDCTAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA : TBL_MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: LT_RETURN   TYPE STANDARD TABLE OF BAPIRET2,
      LT_RETURN1  TYPE STANDARD TABLE OF BAPIRET2,
      LWA_RETURN  TYPE  BAPIRET2,
      LWA_RETURN1 TYPE  BAPIRET2.
* Internal table for GL data from the input file
DATA : BEGIN OF TBL_INPUT OCCURS 0,
         TEXT(255) TYPE C,
       END OF TBL_INPUT .


*-> variables
DATA LV_NOT TYPE CHAR1.                                     "3466+
*-> totals
DATA : G_TOTAL_AMT    LIKE BSEG-WRBTR,  "Total Amt
       G_DEBIT_TOTAL  LIKE BSEG-WRBTR,
       G_CREDIT_TOTAL LIKE BSEG-WRBTR.

*-> flags
DATA : FL_NEW_TRANSACTION(1) TYPE C,
       FL_SESSION(1)         TYPE C.


*-----------------------------------------------------------------------
* C O N S T A N T S
*-----------------------------------------------------------------------
CONSTANTS: C_X(1)            TYPE C VALUE 'X',    "flag
*Start of DSL 87+
*          c_fb01 LIKE tstc-tcode VALUE 'FB01', "transaction FB01
           GC_FB01L          TYPE TSTC-TCODE VALUE 'FB01L', "transaction FB01L
           GC_DOC_TY_SX(2)   TYPE C VALUE 'SX',   "document type
*End of DSL 87+
           C_SA_DOC_TYPE(2)  TYPE C VALUE 'SA',   "document type
           C_USD(3)          TYPE C VALUE 'USD',  "Currency
           C_COMP_CODE_M9(2) TYPE C VALUE 'M9', "company code
           C_BDC_SESS_GL(6)  TYPE C VALUE 'GL-ALL', "Error BDC session
           C_BDC_SESS_C(6)   TYPE C VALUE 'C-ALL', "Error BDC session
           C_BDC_SESS_V(6)   TYPE C VALUE 'V-ALL', "Error BDC session
           C_CHECK           TYPE CHAR1 VALUE 'X'.          "Constant for 'X'



*-----------------------------------------------------------------------
* F I E L D – S Y M B O L S
*-----------------------------------------------------------------------
*FIELD-SYMBOLS:

*-----------------------------------------------------------------------
* F I E L D – G R O U P S
*-----------------------------------------------------------------------
*FIELD-GROUPS:


*-----------------------------------------------------------------------
* P A R A M E T E R S   &   S E L E C T - O P T I O N S
*-----------------------------------------------------------------------

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TITLE.
PARAMETERS : P_RAD2 RADIOBUTTON GROUP RB1 USER-COMMAND UC1.
PARAMETERS : P_RAD3 RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME.
*PARAMETERS: pfile_gl LIKE filename-fileextern OBLIGATORY.
PARAMETERS: PFILE_GL LIKE IBIPPARMS-PATH OBLIGATORY.

PARAMETERS: P_BUDAT  LIKE BKPF-BUDAT OBLIGATORY,   "Posting Date
            P_BUKRS  LIKE BKPF-BUKRS OBLIGATORY,   "Company Code
            P_WAERS  LIKE BKPF-WAERS OBLIGATORY,   "Currency Key
            P_XBLNR  LIKE BKPF-XBLNR OBLIGATORY MODIF ID IN1 ,   "Reference
            P_GROUP1 LIKE APQI-GROUPID OBLIGATORY MODIF ID IN1 . "BDC Error session
SELECTION-SCREEN: END OF BLOCK B2.
*-----------------------------------------------------------------------
* I N I T I A L I Z A T I O N
*-----------------------------------------------------------------------
INITIALIZATION.
  TITLE = ' Accounts'.
  PFILE_GL = 'C:\data\gl_all.txt'.
  P_BUDAT  = SY-DATUM.
  P_BUKRS  = C_COMP_CODE_M9.
  P_WAERS  = C_USD.
  P_XBLNR  = 'GL-ALL'.
  P_GROUP1 = C_BDC_SESS_GL.



AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF P_RAD2 = 'X'  . " If check box is selected
      IF SCREEN-GROUP1 = 'IN1' .
        SCREEN-ACTIVE = 0.
*        PFILE_GL = 'C:\data\ar_all.txt'.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF P_RAD3 = 'X'.
      IF SCREEN-GROUP1 = 'IN1' .
        SCREEN-ACTIVE = 0.
*        PFILE_GL = 'C:\data\ap_all.txt'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.

*-----------------------------------------------------------------------
* A T   S E L E C T I O N - S C R E E N
*-----------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PFILE_GL.
  CALL FUNCTION 'F4_FILENAME'
    EXPORTING
*     program_name  = syst-cprog
*     dynpro_number = syst-dynnr
      FIELD_NAME = 'PFILE_GL'
    IMPORTING
      FILE_NAME  = PFILE_GL.



* Validate user input on selection screen
  PERFORM VALIDATE_INPUT.


*-----------------------------------------------------------------------
* S T A R T - O F - S E L E C T I O N
*-----------------------------------------------------------------------
START-OF-SELECTION.
*Restriction specific to customer or vendor upload as AP & AR
  PERFORM AUTHORITY_CHECK.
*-> read data

  PERFORM READ_INPUT_FILE.

*-----------------------------------------------------------------------
* E N D - O F - S E L E C T I O N
*-----------------------------------------------------------------------
END-OF-SELECTION.
*-> process data
IF P_RAD2 EQ 'X'.
* Customer Posting
    PERFORM POST_CUST.
  ELSEIF P_RAD3 EQ 'X'.
* Vendor Posting
    PERFORM POST_VEND.
  ENDIF.
* Write report
  PERFORM WRITE_REPORT.

*-----------------------------------------------------------------------
* T O P - O F – P A G E
*-----------------------------------------------------------------------
TOP-OF-PAGE.

*-----------------------------------------------------------------------
* AT LINE-SELECTION
*-----------------------------------------------------------------------
AT LINE-SELECTION.


*-----------------------------------------------------------------------
* F O R M S
*----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Form  validate_input
*&---------------------------------------------------------------------*
*       Validate input on selection screen
*----------------------------------------------------------------------*
FORM VALIDATE_INPUT .

  DATA : L_BUKRS LIKE T001-BUKRS,
         L_WAERS LIKE TCURC-WAERS.

*Validate company code
  SELECT SINGLE BUKRS INTO L_BUKRS
     FROM T001
  WHERE BUKRS = P_BUKRS.
  IF SY-SUBRC NE 0.
    MESSAGE E001.
  ENDIF.


*Validate currency
  SELECT SINGLE WAERS INTO L_WAERS
     FROM TCURC
  WHERE WAERS = P_WAERS.
  IF SY-SUBRC NE 0.
    MESSAGE E017. "Invalid Currency
  ENDIF.

ENDFORM.                       " validate_input


*&---------------------------------------------------------------------*
*&      Form  read_input_file
*&---------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
FORM READ_INPUT_FILE .

* Read input file for payroll work
  PERFORM READ_INPUT_FILE_GL.

ENDFORM.                    " read_input_file

*&---------------------------------------------------------------------*
*&      Form  read_input_file_gl
*&---------------------------------------------------------------------*
*       Read the input file for GL
*----------------------------------------------------------------------*
FORM READ_INPUT_FILE_GL.

  DATA : L_TEXT(300) TYPE C,
         L_F1(2)     TYPE C,
         L_F2(10)    TYPE C,
         L_F3(16)    TYPE C,
         L_F3_1(2)   TYPE C,     "Tax code                          DSL 87/307901+
         L_F4(10)    TYPE C,
         L_F5(10)    TYPE C,
* Added by DEVK906772 - Ernie Tan (Added SGTXT field)
         L_F6(50)    TYPE C,
         L_F7(6)     TYPE C, "Trading Partner NR1K952550+
*Start of changes by lgajulapuri  NR2K962135 285970
*        l_f8(12) TYPE c. "Internal order number                    "3942+
         L_F8(12)    TYPE C, "Internal order number                    "3942+
         L_F9(3)     TYPE C,
         L_F10(4)    TYPE C.                                           "DSL 87+
*End of changes by lgajulapuri  NR2K962135 285970
*Begin of issue 3466
  DATA : LV_F3_PART1 TYPE CHAR16,
         LV_F3_PART2 TYPE CHAR2,
         LV_F3_LEN   TYPE I,
         LV_F3_LEN1  TYPE I.
*End of issue 3466
  CLASS : CL_ABAP_CHAR_UTILITIES  DEFINITION LOAD.
  G_FILE = PFILE_GL.

* Upload file from PC
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                = G_FILE
      FILETYPE                = 'ASC'
    TABLES
      DATA_TAB                = TBL_INPUT
    EXCEPTIONS
      FILE_OPEN_ERROR         = 1
      FILE_READ_ERROR         = 2
      NO_BATCH                = 3
      GUI_REFUSE_FILETRANSFER = 4
      INVALID_TYPE            = 5
      NO_AUTHORITY            = 6
      UNKNOWN_ERROR           = 7
      BAD_DATA_FORMAT         = 8
      HEADER_NOT_ALLOWED      = 9
      SEPARATOR_NOT_ALLOWED   = 10
      HEADER_TOO_LONG         = 11
      UNKNOWN_DP_ERROR        = 12
      ACCESS_DENIED           = 13
      DP_OUT_OF_MEMORY        = 14
      DISK_FULL               = 15
      DP_TIMEOUT              = 16
      OTHERS                  = 17.

  IF SY-SUBRC <> 0.
    MESSAGE E019.  "File could not be opened
  ENDIF.

* populate internal table tbl_gl
  LOOP AT TBL_INPUT.

    SPLIT TBL_INPUT-TEXT AT CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB INTO
             L_F1
             L_F2
             L_F3
             L_F3_1 "Tax code                                       DSL 87/307901+
             L_F4
             L_F5
             L_F9                                           "285970+
             L_F8 "Internal order                                   "3942+
             L_F7 "Trading Partner NR1K952550+
* Added by DEVK906772 - Ernie Tan (Added SGTXT field)
             L_F6
             L_F10.                                                 "DSL 87+




    SHIFT L_F3 RIGHT DELETING TRAILING SPACE.
    SHIFT L_F3 RIGHT DELETING TRAILING
       CL_ABAP_CHAR_UTILITIES=>CR_LF.
*{   INSERT         NR1K920343                                        1
* Begin of change issue TM#1564.
*replace all occurrences of ',' in l_f3 with '.'.
* End of change issue TM#1564.
*}   INSERT

*Begin of issue 3466
    CONDENSE  L_F3 .
    LV_F3_LEN = STRLEN( L_F3 ).
    LV_F3_LEN1 = LV_F3_LEN - 2.
    LV_F3_PART2 = L_F3+LV_F3_LEN1(2).
    LV_F3_PART1 = L_F3+0(LV_F3_LEN1).
    REPLACE ALL OCCURRENCES OF ',' IN LV_F3_PART1 WITH ' '.
    REPLACE ALL OCCURRENCES OF '.' IN LV_F3_PART1 WITH ' '.
    CONDENSE LV_F3_PART1.
    CONCATENATE LV_F3_PART1 LV_F3_PART2 INTO L_F3 SEPARATED BY '.'.
*End of issue 3466
    TBL_GL-BSCHL = L_F1.
    TBL_GL-HKONT = L_F2.
    TBL_GL-WRBTR = L_F3.
    TBL_GL-MWSKZ = L_F3_1."Tax code                                 DSL 87/307901+
    TBL_GL-KOSTL = L_F4.
    TBL_GL-PRCTR = L_F5.
* Added by DEVK906772 - Ernie Tan (Added SGTXT field)
    TBL_GL-SGTXT = L_F6.
    TBL_GL-VBUND = L_F7. "Trading Parnter NR1K952550+
    TBL_GL-AUFNR = L_F8. "Internal order                            "3942+
    TBL_GL-RMVCT = L_F9. "Transaction Type                          "285970+
    TBL_GL-LDGRP = L_F10. "Ledger group                             "DSL 87+
    APPEND TBL_GL.
  ENDLOOP.

  DESCRIBE TABLE TBL_GL LINES CNT_REC_TOT_FILE.


ENDFORM.                    " read_input_file_gl


*&---------------------------------------------------------------------*
*&      Form  write_report
*&---------------------------------------------------------------------*
*       Write report
*----------------------------------------------------------------------*
FORM WRITE_REPORT.

  DATA : L_NUM_ERROR_REC TYPE I.

  IF P_RAD2 EQ 'X'.
    WRITE :/ 'Customer - ALL Posting:'.
    IF LT_RETURN[] IS NOT INITIAL.
      SKIP 3.
      LOOP AT LT_RETURN INTO LWA_RETURN.
        WRITE: LWA_RETURN-TYPE, LWA_RETURN-ID, LWA_RETURN-NUMBER, LWA_RETURN-MESSAGE.
        CLEAR LWA_RETURN.
      ENDLOOP.
    ENDIF.
    IF LT_RETURN1[] IS NOT INITIAL.
      SKIP 3.
      LOOP AT LT_RETURN1 INTO LWA_RETURN1.
        LWA_RETURN1-MESSAGE = 'Document posted successfully:'.
        CONCATENATE  LWA_RETURN1-MESSAGE LWA_RETURN1-MESSAGE_V2(10) LWA_RETURN1-MESSAGE_V2+10(2) INTO LWA_RETURN1-MESSAGE SEPARATED BY SPACE.
        WRITE: LWA_RETURN1-MESSAGE.
        CLEAR LWA_RETURN1.
      ENDLOOP.
    ENDIF.

  ELSEIF P_RAD3 EQ 'X'.
    WRITE :/ 'Vendor - ALL Posting:'.
    IF LT_RETURN[] IS NOT INITIAL.
      SKIP 3.
      LOOP AT LT_RETURN INTO LWA_RETURN.
        WRITE: LWA_RETURN-TYPE, LWA_RETURN-ID, LWA_RETURN-NUMBER, LWA_RETURN-MESSAGE.
        CLEAR LWA_RETURN.
      ENDLOOP.
    ENDIF.
    IF LT_RETURN1[] IS NOT INITIAL.
      SKIP 3.
      LOOP AT LT_RETURN1 INTO LWA_RETURN1.
        LWA_RETURN1-MESSAGE = 'Document posted successfully:'.
        CONCATENATE  LWA_RETURN1-MESSAGE LWA_RETURN1-MESSAGE_V2(10) LWA_RETURN1-MESSAGE_V2+10(2) INTO LWA_RETURN1-MESSAGE SEPARATED BY SPACE.
        WRITE: LWA_RETURN1-MESSAGE.
        CLEAR LWA_RETURN1.

      ENDLOOP.

    ENDIF.
  ENDIF.

ENDFORM.                    " write_report


*&---------------------------------------------------------------------*
*&      Form  BUILD_BDC_VDATA
*&---------------------------------------------------------------------*
*       Vendor posting
*----------------------------------------------------------------------*


*Vendor Posting

FORM POST_VEND.
  DATA : L_POSTING_KEY      LIKE RF05A-NEWBS,
         L_DOC_DATE         LIKE BKPF-BLDAT,
         L_POSTING_DATE     LIKE BKPF-BUDAT,
         L_AMOUNT(16)       TYPE C,
         LWA_BAPI_DOCHEADER TYPE BAPIACHE09,
         LV_TABIX           TYPE SY-TABIX,
         LT_BAPI_ACCTGL     TYPE STANDARD TABLE OF   BAPIACGL09,
         LWA_BAPI_ACCTGL    TYPE    BAPIACGL09,
         LT_BAPI_ACCTRCC    TYPE STANDARD TABLE OF BAPIACAP09,
         LWA_BAPI_ACCTRCC   TYPE  BAPIACAP09,
         LT_CURRENCYAMOUNT  TYPE STANDARD TABLE OF BAPIACCR09,
         LWA_CURRENCYAMOUNT TYPE  BAPIACCR09,
         LV_ITEM            TYPE I,
         LV_OBJKEY          TYPE BAPIACHE09-OBJ_KEY.
  CONSTANTS: LC_CHECK     TYPE CHAR1 VALUE 'X',
             LC_BAPIRET_S TYPE CHAR1 VALUE 'S'.
  CLEAR CNT_RECORDS.
  DESCRIBE TABLE TBL_GL LINES CNT_REC_TOT.


  L_DOC_DATE = SY-DATUM.

  LWA_BAPI_DOCHEADER-DOC_DATE = L_DOC_DATE.
  L_POSTING_DATE = P_BUDAT.
  LWA_BAPI_DOCHEADER-PSTNG_DATE = L_POSTING_DATE.
  IF TBL_GL-LDGRP NE SPACE.
    LWA_BAPI_DOCHEADER-DOC_TYPE = GC_DOC_TY_SX.
  ELSE.
    LWA_BAPI_DOCHEADER-DOC_TYPE = C_SA_DOC_TYPE.
  ENDIF.
  LWA_BAPI_DOCHEADER-COMP_CODE = P_BUKRS.
  LWA_BAPI_DOCHEADER-USERNAME = SY-UNAME.

**Populate line item details



  LV_ITEM  = 1.
  LOOP AT TBL_GL.

*Fill Credit line item data
    IF TBL_GL-BSCHL EQ '50'.
      LWA_BAPI_ACCTGL-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTGL-GL_ACCOUNT = TBL_GL-HKONT.      "GL Account
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTGL-GL_ACCOUNT
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTGL-GL_ACCOUNT.
      LWA_BAPI_ACCTGL-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTGL-PSTNG_DATE = L_POSTING_DATE.
      IF TBL_GL-LDGRP NE SPACE.
        LWA_BAPI_ACCTGL-DOC_TYPE = GC_DOC_TY_SX.
      ELSE.
        LWA_BAPI_ACCTGL-DOC_TYPE = C_SA_DOC_TYPE.
      ENDIF.
      LWA_BAPI_ACCTGL-TAX_CODE = TBL_GL-MWSKZ.       " Tax code
      LWA_BAPI_ACCTGL-ITEM_TEXT = TBL_GL-SGTXT.     "Item text
      LWA_BAPI_ACCTGL-PROFIT_CTR = TBL_GL-PRCTR.     "Profit Center
      LWA_BAPI_ACCTGL-ORDERID = TBL_GL-AUFNR.       "Internal order
      LWA_BAPI_ACCTGL-COSTCENTER = TBL_GL-KOSTL.    "Cost Center
      LWA_BAPI_ACCTGL-CS_TRANS_T = TBL_GL-RMVCT.    "Transaction Type
      LWA_BAPI_ACCTGL-TRADE_ID = TBL_GL-VBUND.    "Trading Partner
      LWA_BAPI_ACCTGL-ACCT_TYPE = 'S'.    "Trading Partner
      APPEND LWA_BAPI_ACCTGL TO LT_BAPI_ACCTGL.

*      * Fill amounts
      CLEAR LWA_CURRENCYAMOUNT.
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR * -1.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_CREDIT_TOTAL = G_CREDIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTGL,
             LWA_CURRENCYAMOUNT.

    ELSEIF TBL_GL-BSCHL EQ '40'.
      LWA_BAPI_ACCTGL-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTGL-GL_ACCOUNT = TBL_GL-HKONT.      "GL Account
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTGL-GL_ACCOUNT
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTGL-GL_ACCOUNT.
      LWA_BAPI_ACCTGL-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTGL-PSTNG_DATE = L_POSTING_DATE.
      IF TBL_GL-LDGRP NE SPACE.
        LWA_BAPI_ACCTGL-DOC_TYPE = GC_DOC_TY_SX.
      ELSE.
        LWA_BAPI_ACCTGL-DOC_TYPE = C_SA_DOC_TYPE.
      ENDIF.
      LWA_BAPI_ACCTGL-TAX_CODE = TBL_GL-MWSKZ.       " Tax code
      LWA_BAPI_ACCTGL-ITEM_TEXT = TBL_GL-SGTXT.     "Item text
      LWA_BAPI_ACCTGL-PROFIT_CTR = TBL_GL-PRCTR.     "Profit Center
      LWA_BAPI_ACCTGL-ORDERID = TBL_GL-AUFNR.       "Internal order
      LWA_BAPI_ACCTGL-COSTCENTER = TBL_GL-KOSTL.    "Cost Center
      LWA_BAPI_ACCTGL-CS_TRANS_T = TBL_GL-RMVCT.    "Transaction Type
      LWA_BAPI_ACCTGL-TRADE_ID = TBL_GL-VBUND.    "Trading Partner
      LWA_BAPI_ACCTGL-ACCT_TYPE = 'S'.    "Trading Partner
      APPEND LWA_BAPI_ACCTGL TO LT_BAPI_ACCTGL.
*      *      * Fill amounts
      CLEAR LWA_CURRENCYAMOUNT.
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_DEBIT_TOTAL = G_DEBIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTGL,
             LWA_CURRENCYAMOUNT.
    ENDIF.
*      *********************Vendor 31(-)/21(+)************
    IF TBL_GL-BSCHL EQ '31'.
** Fill Account payable if it is a Vendor
      LWA_BAPI_ACCTRCC-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTRCC-VENDOR_NO = TBL_GL-HKONT.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTRCC-VENDOR_NO
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTRCC-VENDOR_NO.
      LWA_BAPI_ACCTRCC-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTRCC-TAX_CODE = TBL_GL-MWSKZ.
      LWA_BAPI_ACCTRCC-ITEM_TEXT = TBL_GL-SGTXT.
      LWA_BAPI_ACCTRCC-PROFIT_CTR = TBL_GL-PRCTR.
      LWA_BAPI_ACCTRCC-PMNTTRMS = 'A001'.
      APPEND LWA_BAPI_ACCTRCC TO LT_BAPI_ACCTRCC.
*    * Fill amounts
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR * -1.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_CREDIT_TOTAL = G_CREDIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTRCC,
             LWA_CURRENCYAMOUNT.

    ELSEIF TBL_GL-BSCHL EQ '21'.
      LWA_BAPI_ACCTRCC-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTRCC-VENDOR_NO = TBL_GL-HKONT.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTRCC-VENDOR_NO
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTRCC-VENDOR_NO.
      LWA_BAPI_ACCTRCC-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTRCC-TAX_CODE = TBL_GL-MWSKZ.
      LWA_BAPI_ACCTRCC-ITEM_TEXT = TBL_GL-SGTXT.
      LWA_BAPI_ACCTRCC-PROFIT_CTR = TBL_GL-PRCTR.
      LWA_BAPI_ACCTRCC-PMNTTRMS = 'A001'.
      APPEND LWA_BAPI_ACCTRCC TO LT_BAPI_ACCTRCC.
*      * Fill amounts
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_DEBIT_TOTAL = G_DEBIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTRCC,
             LWA_CURRENCYAMOUNT.
    ENDIF.
    LV_ITEM = LV_ITEM + 1.
  ENDLOOP.



  IF G_CREDIT_TOTAL <> 0 AND G_DEBIT_TOTAL <> 0.
    CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
      EXPORTING
        DOCUMENTHEADER = LWA_BAPI_DOCHEADER
      TABLES
        ACCOUNTGL      = LT_BAPI_ACCTGL
        ACCOUNTPAYABLE = LT_BAPI_ACCTRCC
        CURRENCYAMOUNT = LT_CURRENCYAMOUNT
        RETURN         = LT_RETURN.

    READ TABLE LT_RETURN INTO LWA_RETURN INDEX 1.
    IF LWA_RETURN-TYPE EQ LC_BAPIRET_S.

*  * Post the account document
      CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
        EXPORTING
          DOCUMENTHEADER = LWA_BAPI_DOCHEADER
        IMPORTING
          OBJ_KEY        = LV_OBJKEY
        TABLES
          ACCOUNTGL      = LT_BAPI_ACCTGL
          ACCOUNTPAYABLE = LT_BAPI_ACCTRCC
          CURRENCYAMOUNT = LT_CURRENCYAMOUNT
          RETURN         = LT_RETURN1.
*      if posting is successful
      READ TABLE LT_RETURN1 INTO LWA_RETURN1 INDEX 1.
      IF LWA_RETURN1-TYPE = LC_BAPIRET_S.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = C_CHECK.

**************************************

      ENDIF.
    ENDIF.
  ENDIF.
*ENDIF.
*      LV_ITEM = LV_ITEM + 1.
*    ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  POST_CUST
*&---------------------------------------------------------------------*
*      Customer Posting
*----------------------------------------------------------------------*

FORM POST_CUST .

***************************************
  DATA : L_POSTING_KEY      LIKE RF05A-NEWBS,
         L_DOC_DATE         LIKE BKPF-BLDAT,
         L_POSTING_DATE     LIKE BKPF-BUDAT,
         L_AMOUNT(16)       TYPE C,
         LWA_BAPI_DOCHEADER TYPE BAPIACHE09,
         LV_TABIX           TYPE SY-TABIX,
         LT_BAPI_ACCTGL     TYPE STANDARD TABLE OF   BAPIACGL09,
         LWA_BAPI_ACCTGL    TYPE    BAPIACGL09,
         LT_BAPI_ACCTRCV    TYPE STANDARD TABLE OF BAPIACAR09,
         LWA_BAPI_ACCTRCV   TYPE  BAPIACAR09,
         LT_CURRENCYAMOUNT  TYPE STANDARD TABLE OF BAPIACCR09,
         LWA_CURRENCYAMOUNT TYPE  BAPIACCR09,
         LV_ITEM            TYPE I,
         LV_OBJKEY          TYPE BAPIACHE09-OBJ_KEY.
  CONSTANTS: LC_CHECK     TYPE CHAR1 VALUE 'X',
             LC_BAPIRET_S TYPE CHAR1 VALUE 'S'.
  CLEAR CNT_RECORDS.
  DESCRIBE TABLE TBL_GL LINES CNT_REC_TOT.


  L_DOC_DATE = SY-DATUM.

  LWA_BAPI_DOCHEADER-DOC_DATE = L_DOC_DATE.
  L_POSTING_DATE = P_BUDAT.
  LWA_BAPI_DOCHEADER-PSTNG_DATE = L_POSTING_DATE.
  IF TBL_GL-LDGRP NE SPACE.
    LWA_BAPI_DOCHEADER-DOC_TYPE = GC_DOC_TY_SX.
  ELSE.
    LWA_BAPI_DOCHEADER-DOC_TYPE = C_SA_DOC_TYPE.
  ENDIF.
  LWA_BAPI_DOCHEADER-COMP_CODE = P_BUKRS.
  LWA_BAPI_DOCHEADER-USERNAME = SY-UNAME.

**Populate line item details
  LV_ITEM  = 1.
  LOOP AT TBL_GL.
*    LV_ITEM = LV_ITEM + 1.
*    CNT_RECORDS = CNT_RECORDS + 1.


*Fill Credit line item data
    IF TBL_GL-BSCHL EQ '50'.
      LWA_BAPI_ACCTGL-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTGL-GL_ACCOUNT = TBL_GL-HKONT.      "GL Account
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTGL-GL_ACCOUNT
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTGL-GL_ACCOUNT.
      LWA_BAPI_ACCTGL-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTGL-PSTNG_DATE = L_POSTING_DATE.
      IF TBL_GL-LDGRP NE SPACE.
        LWA_BAPI_ACCTGL-DOC_TYPE = GC_DOC_TY_SX.
      ELSE.
        LWA_BAPI_ACCTGL-DOC_TYPE = C_SA_DOC_TYPE.
      ENDIF.
      LWA_BAPI_ACCTGL-TAX_CODE = TBL_GL-MWSKZ.       " Tax code
      LWA_BAPI_ACCTGL-ITEM_TEXT = TBL_GL-SGTXT.     "Item text
      LWA_BAPI_ACCTGL-PROFIT_CTR = TBL_GL-PRCTR.     "Profit Center
      LWA_BAPI_ACCTGL-ORDERID = TBL_GL-AUFNR.       "Internal order
      LWA_BAPI_ACCTGL-COSTCENTER = TBL_GL-KOSTL.    "Cost Center
      LWA_BAPI_ACCTGL-CS_TRANS_T = TBL_GL-RMVCT.    "Transaction Type
      LWA_BAPI_ACCTGL-TRADE_ID = TBL_GL-VBUND.    "Trading Partner
      LWA_BAPI_ACCTGL-ACCT_TYPE = 'S'.    "Trading Partner
      APPEND LWA_BAPI_ACCTGL TO LT_BAPI_ACCTGL.

*      * Fill amounts
      CLEAR LWA_CURRENCYAMOUNT.
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR * -1.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_CREDIT_TOTAL = G_CREDIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTGL,
             LWA_CURRENCYAMOUNT.

    ELSEIF TBL_GL-BSCHL EQ '40'.
      LWA_BAPI_ACCTGL-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTGL-GL_ACCOUNT = TBL_GL-HKONT.      "GL Account
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTGL-GL_ACCOUNT
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTGL-GL_ACCOUNT.
      LWA_BAPI_ACCTGL-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTGL-PSTNG_DATE = L_POSTING_DATE.
      IF TBL_GL-LDGRP NE SPACE.
        LWA_BAPI_ACCTGL-DOC_TYPE = GC_DOC_TY_SX.
      ELSE.
        LWA_BAPI_ACCTGL-DOC_TYPE = C_SA_DOC_TYPE.
      ENDIF.
      LWA_BAPI_ACCTGL-TAX_CODE = TBL_GL-MWSKZ.       " Tax code
      LWA_BAPI_ACCTGL-ITEM_TEXT = TBL_GL-SGTXT.     "Item text
      LWA_BAPI_ACCTGL-PROFIT_CTR = TBL_GL-PRCTR.     "Profit Center
      LWA_BAPI_ACCTGL-ORDERID = TBL_GL-AUFNR.       "Internal order
      LWA_BAPI_ACCTGL-COSTCENTER = TBL_GL-KOSTL.    "Cost Center
      LWA_BAPI_ACCTGL-CS_TRANS_T = TBL_GL-RMVCT.    "Transaction Type
      LWA_BAPI_ACCTGL-TRADE_ID = TBL_GL-VBUND.    "Trading Partner
      LWA_BAPI_ACCTGL-ACCT_TYPE = 'S'.    "Trading Partner
      APPEND LWA_BAPI_ACCTGL TO LT_BAPI_ACCTGL.
*      *      * Fill amounts
      CLEAR LWA_CURRENCYAMOUNT.
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_DEBIT_TOTAL = G_DEBIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTGL,
             LWA_CURRENCYAMOUNT.
    ENDIF.
*      *********************** Customer 11/01************
    IF TBL_GL-BSCHL EQ '11'.
** Fill Account receivable if it is a customer
      LWA_BAPI_ACCTRCV-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTRCV-CUSTOMER = TBL_GL-HKONT.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTRCV-CUSTOMER
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTRCV-CUSTOMER.
      LWA_BAPI_ACCTRCV-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTRCV-TAX_CODE = TBL_GL-MWSKZ.
      LWA_BAPI_ACCTRCV-ITEM_TEXT = TBL_GL-SGTXT.
      LWA_BAPI_ACCTRCV-PROFIT_CTR = TBL_GL-PRCTR.
      APPEND LWA_BAPI_ACCTRCV TO LT_BAPI_ACCTRCV.
*    * Fill amounts
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR * -1.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_CREDIT_TOTAL = G_CREDIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTRCV,
             LWA_CURRENCYAMOUNT.

    ELSEIF TBL_GL-BSCHL EQ '01'.
      LWA_BAPI_ACCTRCV-ITEMNO_ACC = LV_ITEM.
      LWA_BAPI_ACCTRCV-CUSTOMER = TBL_GL-HKONT.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = LWA_BAPI_ACCTRCV-CUSTOMER
        IMPORTING
          OUTPUT = LWA_BAPI_ACCTRCV-CUSTOMER.
      LWA_BAPI_ACCTRCV-COMP_CODE = P_BUKRS.       " Company code
      LWA_BAPI_ACCTRCV-TAX_CODE = TBL_GL-MWSKZ.
      LWA_BAPI_ACCTRCV-ITEM_TEXT = TBL_GL-SGTXT.
      LWA_BAPI_ACCTRCV-PROFIT_CTR = TBL_GL-PRCTR.
      APPEND LWA_BAPI_ACCTRCV TO LT_BAPI_ACCTRCV.
*      * Fill amounts
      LWA_CURRENCYAMOUNT-ITEMNO_ACC = LV_ITEM.
      LWA_CURRENCYAMOUNT-CURRENCY = P_WAERS.
      LWA_CURRENCYAMOUNT-AMT_DOCCUR = TBL_GL-WRBTR.
      APPEND LWA_CURRENCYAMOUNT TO LT_CURRENCYAMOUNT.
      G_DEBIT_TOTAL = G_DEBIT_TOTAL + TBL_GL-WRBTR.
      CLEAR: LWA_BAPI_ACCTRCV,
             LWA_CURRENCYAMOUNT.
    ENDIF.
    LV_ITEM = LV_ITEM + 1.
  ENDLOOP.



  IF G_CREDIT_TOTAL <> 0 AND G_DEBIT_TOTAL <> 0.
    CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK'
      EXPORTING
        DOCUMENTHEADER    = LWA_BAPI_DOCHEADER
      TABLES
        ACCOUNTGL         = LT_BAPI_ACCTGL
        ACCOUNTRECEIVABLE = LT_BAPI_ACCTRCV
        CURRENCYAMOUNT    = LT_CURRENCYAMOUNT
        RETURN            = LT_RETURN.

    READ TABLE LT_RETURN INTO LWA_RETURN INDEX 1.
    IF LWA_RETURN-TYPE = LC_BAPIRET_S.
*  * Post the account document
      CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
        EXPORTING
          DOCUMENTHEADER    = LWA_BAPI_DOCHEADER
        IMPORTING
          OBJ_KEY           = LV_OBJKEY
        TABLES
          ACCOUNTGL         = LT_BAPI_ACCTGL
          ACCOUNTRECEIVABLE = LT_BAPI_ACCTRCV
          CURRENCYAMOUNT    = LT_CURRENCYAMOUNT
          RETURN            = LT_RETURN1.
*      if posting is successful
      READ TABLE LT_RETURN1 INTO LWA_RETURN1 INDEX 1.
      IF LWA_RETURN1-TYPE = LC_BAPIRET_S.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = C_CHECK.

**************************************

      ENDIF.
    ENDIF.
  ENDIF.
*ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  AUTHORITY_CHECK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM AUTHORITY_CHECK .
  IF P_BUKRS IS NOT INITIAL.
    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
                ID 'BUKRS' FIELD P_BUKRS
                ID 'ACTVT' FIELD '10'.
    IF SY-SUBRC <> 0.
      MESSAGE 'No authorization to post' TYPE 'E'.
      LEAVE LIST-PROCESSING.
    ENDIF.

    AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
                ID 'BUKRS' FIELD P_BUKRS
                ID 'ACTVT' FIELD '77'.
    IF SY-SUBRC <> 0.
      MESSAGE 'No authorization' TYPE 'E'.
      LEAVE LIST-PROCESSING.
    ENDIF.
  ENDIF.
*  ********************************************
*  ********************************************
*  ********************************************
  IF   P_RAD1 EQ 'X'.
    AUTHORITY-CHECK OBJECT 'F_BKPF_KOA'
              ID 'KOART' FIELD 'S'
              ID 'ACTVT' FIELD '01'.

    IF SY-SUBRC <> 0.
      MESSAGE 'No authorization to post GL' TYPE 'E'.
    ENDIF.
  ENDIF.

  IF    P_RAD2 EQ 'X'.
    AUTHORITY-CHECK OBJECT 'F_BKPF_KOA'
              ID 'KOART' FIELD 'D'
              ID 'ACTVT' FIELD '01'.

    IF SY-SUBRC <> 0.
      MESSAGE 'No authorization to post AR' TYPE 'E'.
    ENDIF.
  ENDIF.

  IF   P_RAD3 EQ 'X'.
    AUTHORITY-CHECK OBJECT 'F_BKPF_KOA'
              ID 'KOART' FIELD 'K'
              ID 'ACTVT' FIELD '01'.

    IF SY-SUBRC <> 0.
      MESSAGE 'No authorization to post AP' TYPE 'E'.
    ENDIF.
  ENDIF.


ENDFORM.

Concluding Notes

In this blog post, steps to Post Customer and Vendor using BAPI_ACC_DOCUMENT_POST ((40/50 for G/L Accounts, 31/21 for vendor sub-ledger,11/01 for Customer sub-ledger)) has been explained in detail. Hope this useful to you. Thanks

Assigned Tags

      Be the first to leave a comment
      You must be Logged on to comment or reply to a post.