Invoice Upload Program in FB50

Question

Hi Experts,
   I need to develop an invoice upload program for transaction code FB50. The data will be from an Excel file.
   As I'm new to program in accounting, is there anyone has sample code?
   I'm not sure what function module to use to save the invoice.
   Hope someone can help me. Many thanks in advance.

Answer 1

Hi Sam,
     It generally depends on what sort of postings you are doing.
You can refer to following code, it is for the posting of invoices.
    Document Header
           wa_document_header-comp_code  = c_company_2001.
    One time vendor
     Concatenate the text and account number and pass it as a line item text
     Check for the Payee name and use vendor number accordingly
     Check if amount value is more than '0'
     Vendor line item
     GL Account line item
     Get currency details for vendor line item
     Get currency details for GL Account line item
     Pass suitable posting key
     Pass suitable posting key
             When posting amount is less than zero
     Vendor line item
     Get currency details for vendor line item
     Get currency details for GL Account line item
     GL Account line item
     Pass suitable posting key
     Pass suitable posting key
     Check if one time vendor data is available
     Call the BAPI 'BAPI_ACC_DOCUMENT_POST' to create the invoices
      Check if bapi return table is intial
     Maintain a error log with all BAPI returned messages
     Get only error\abort messages into error table
     check if flag has been enabled
     Check for the message type in the return table and
     if it is success then commit the transaction.
     Concatenate the message text and refund id into a variable
     append success messge to the error table
     Refresh the internal tables
     Clear the work areas and variables
         LOOP AT it_record INTO wa_record.
              wa_document_header-username   = sy-uname.
              wa_document_header-comp_code  = v_compcode.
              wa_document_header-doc_date   = wa_record-bkpf_bldat.
              wa_document_header-pstng_date = sy-datum.
              wa_document_header-doc_type   = v_doctype.
              wa_document_header-ref_doc_no = wa_record-bkpf_xblnr.
              wa_customercpd-name       = wa_record-bsec_name1.
              wa_customercpd-name_2     = wa_record-bsec_name2.
              wa_customercpd-postl_code = wa_record-bsec_pstlz.
              wa_customercpd-city       = wa_record-bsec_ort01.
              wa_customercpd-country    = v_country.
              wa_customercpd-street     = wa_record-bsec_stras.
              wa_customercpd-tax_no_1   = wa_record-bsec_stcd1.
              wa_customercpd-tax_no_2   = wa_record-bsec_stcd2.
              wa_customercpd-region     = wa_record-bsec_regio.
              CONCATENATE text-008 wa_record-bseg_sgtxt INTO v_item_text              " Refund for Acc no
                                                        SEPARATED BY space.
              IF wa_record-bsec_name1 = c_name_heap.
                v_vendor_no = v_vendor_heap.
              ELSE.
                v_vendor_no = v_vendor_onetime.
              ENDIF.
              IF wa_record-bseg_wrbtr GT 0.
                wa_acc_payable-itemno_acc = c_itemno_1.
                wa_acc_payable-vendor_no  = v_vendor_no.
                wa_acc_payable-item_text  = v_item_text.
                APPEND wa_acc_payable TO it_acc_payable.
                CLEAR: wa_acc_payable.
                wa_accountgl-itemno_acc = c_itemno_2.
                wa_accountgl-gl_account = v_glaccount.
                wa_accountgl-item_text  = v_item_text.
                APPEND wa_accountgl TO it_accountgl.
                CLEAR: wa_accountgl.
                wa_currency_amount-itemno_acc  = c_itemno_1.
                wa_currency_amount-currency    = c_currency_usd .
                wa_currency_amount-amt_doccur  = - ( wa_record-bseg_wrbtr ).
                APPEND wa_currency_amount TO it_currency_amount.
                CLEAR: wa_currency_amount.
                wa_currency_amount-itemno_acc  = c_itemno_2.
                wa_currency_amount-currency    = c_currency_usd .
                wa_currency_amount-amt_doccur  = wa_record-bseg_wrbtr.
                APPEND wa_currency_amount TO it_currency_amount.
                CLEAR: wa_currency_amount.
                wa_extension2-structure   = c_structure.
                wa_extension2-valuepart1  = c_itemno_1.
                wa_extension2-valuepart2  = c_newbs_31.          " Credit indicator( Vendor side )
                APPEND wa_extension2 TO it_extension2.
                CLEAR: wa_extension2.
                wa_extension2-structure   = c_structure.
                wa_extension2-valuepart1  = c_itemno_2.
                wa_extension2-valuepart2  = c_newbs_40.          " Debit indicator( GL Account side )
                APPEND wa_extension2 TO it_extension2.
                CLEAR: wa_extension2.
              ELSE.
                wa_acc_payable-itemno_acc = c_itemno_1.
                wa_acc_payable-vendor_no  = v_vendor_no.
                wa_acc_payable-item_text  = v_item_text.
                APPEND wa_acc_payable TO it_acc_payable.
                CLEAR: wa_acc_payable.
                wa_currency_amount-itemno_acc  = c_itemno_1.
                wa_currency_amount-currency    = c_currency_usd .
                wa_currency_amount-amt_doccur  = wa_record-bseg_wrbtr.
                APPEND wa_currency_amount TO it_currency_amount.
                CLEAR: wa_currency_amount.
                wa_currency_amount-itemno_acc  = c_itemno_2.
                wa_currency_amount-currency    = c_currency_usd .
                wa_currency_amount-amt_doccur  = - ( wa_record-bseg_wrbtr ).
                APPEND wa_currency_amount TO it_currency_amount.
                CLEAR: wa_currency_amount.
                wa_accountgl-itemno_acc = c_itemno_2.
                wa_accountgl-gl_account = v_glaccount.
                wa_accountgl-item_text  = v_item_text.
                APPEND wa_accountgl TO it_accountgl.
                CLEAR: wa_accountgl.
                wa_extension2-structure   = c_structure.
                wa_extension2-valuepart1  = c_itemno_1.
                wa_extension2-valuepart2  = c_newbs_21.          " Debit indicator( Vendor side )
                APPEND wa_extension2 TO it_extension2.
                CLEAR: wa_extension2.
                wa_extension2-structure   = c_structure.
                wa_extension2-valuepart1  = c_itemno_2.
                wa_extension2-valuepart2  = c_newbs_50.          " Credit indicator( GL Account side )
                APPEND wa_extension2 TO it_extension2.
                CLEAR: wa_extension2.
              ENDIF.
              IF wa_customercpd IS NOT INITIAL.
                CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
                  EXPORTING
                    documentheader = wa_document_header
                    customercpd    = wa_customercpd
                  TABLES
                    accountgl      = it_accountgl
                    accountpayable = it_acc_payable
                    currencyamount = it_currency_amount
                    return         = it_return
                    extension2     = it_extension2.
                IF it_return IS NOT INITIAL.
                  LOOP AT it_return INTO wa_return WHERE type = c_msgtype_e OR
                                                         type = c_msgtype_a.
                    CONCATENATE wa_return-message text-013 wa_record-bkpf_xblnr INTO v_msg_text
                                                           SEPARATED BY space.
                    MOVE v_msg_text TO wa_return-message.
                    APPEND wa_return TO it_error.
                    CLEAR: wa_return,
                           v_msg_text.
                    f_error_ind = c_true.
                  ENDLOOP.
                  IF f_error_ind EQ c_true.
                    EXIT.
                  ELSE.
                    DESCRIBE TABLE it_return LINES v_tabix.
                    READ TABLE it_return INDEX v_tabix INTO wa_return.
                    IF sy-subrc = 0.
                      v_total_amount = ABS( wa_record-bseg_wrbtr ) + v_total_amount.    " Total posting amount
                      CONCATENATE wa_return-message text-013 wa_record-bkpf_xblnr INTO v_msg_text
                                                             SEPARATED BY space.
                      MOVE v_msg_text TO wa_return-message.
                      APPEND wa_return TO it_success.
                      CLEAR: wa_return,
                             v_msg_text,
                             v_tabix.
                    ENDIF.
                  ENDIF.
                ENDIF.
              ELSE.
                wa_return-type     = c_msgtype_e.
                wa_return-message  = text-009.                   " One time vendor details are not found
                APPEND wa_return TO it_error.
                CLEAR: wa_return.
                EXIT.
              ENDIF.
              REFRESH: it_return,
                       it_acc_payable,
                       it_currency_amount,
                       it_accountgl,
                       it_extension2.
              CLEAR: wa_document_header,
                     wa_customercpd,
                     wa_record,
                     v_vendor_no,
                     v_item_text.
            ENDLOOP.
Sam, before making the postings directly, try using 'BAPI_ACC_DOCUMENT_CHECK' so that
you will get to mo
I hope, it will be helpful to you.
If you want any more help, get back to me.
Regards,
Jallu