SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

BAPI_ACC_INVOICE_RECEIPT_POST



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Interfaces | Интерфейсы -> BAPI
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639
PostPosted: Sat Apr 12, 2008 9:53 am    Post subject: BAPI_ACC_INVOICE_RECEIPT_POST Reply with quote
BAPI_ACC_INVOICE_RECEIPT_POST - Учет и отчетность: проводка входящих счетов

Code:
REPORT zacm_test NO STANDARD PAGE HEADING
                 LINE-COUNT 65
                 LINE-SIZE 132.
 
DATA:
wait          TYPE bapita-wait,
comm_return   TYPE bapiret2,
obj_type      TYPE bapiache02-obj_type,
obj_key       TYPE bapiache02-obj_key,
obj_sys       TYPE bapiache02-obj_sys,
 
accountgl     LIKE STANDARD TABLE OF bapiacgl03,    "Structure
wa_accountgl  LIKE LINE OF accountgl,
 
docheader     TYPE bapiache03,                      "Structure
 
accountpay    TYPE STANDARD TABLE OF bapiacap03,    "Structure
wa_accountpay LIKE LINE OF accountpay,
 
accounttax    TYPE STANDARD TABLE OF bapiactx01,    "Structure
wa_accounttax LIKE LINE OF accounttax,
 
curramount    TYPE STANDARD TABLE OF bapiaccr01,    "Structure
wa_curramount LIKE LINE OF curramount,
 
return        TYPE STANDARD TABLE OF bapiret2,      "Structure
wa_return     LIKE LINE OF return,
 
extension1    TYPE STANDARD TABLE OF bapiextc,      "Structure
wa_extension1 LIKE LINE OF extension1.
 
 
START-OF-SELECTION.
 
  PERFORM build_header_rec.
  PERFORM build_bapi_parameters1.
  PERFORM build_bapi_parameters2.
  PERFORM build_bapi_parameters3.
  PERFORM build_bapi_parameters4.
  PERFORM update_gl.
 
 
*&---------------------------------------------------------------------*
*&      Form  build_header_rec
*&---------------------------------------------------------------------*
FORM build_header_rec.
*build header data for bapi
  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      own_logical_system = docheader-obj_sys.
 
  docheader-obj_type   = 'BKPFF'.
  docheader-obj_key    = 'test1'.
  docheader-username     = sy-uname.
  docheader-comp_code    = '0050'.      " Company Code
  docheader-fisc_year    = '2006'.      " Fiscal Year
  docheader-doc_date     = '12012006'.  " Document Date
  docheader-pstng_date   = '12012006'.  " Posting Date
  docheader-trans_date   = '12012006'.  " Translation Date
  docheader-fis_period   = '12'.        " Fiscal Period
  docheader-doc_type     = 'KQ'.        " Document Type
  docheader-ref_doc_no   = 'T&S'.       " Reference
ENDFORM.                    " build_header_rec
 
*&---------------------------------------------------------------------*
*&      Form  build_bapi_parameters1
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM build_bapi_parameters1.
 
*Build Accounts Payable data for BAPI
  wa_accountpay-itemno_acc = 1.                 " Line Item Number
  wa_accountpay-vendor_no  = 'TSA01004'.        " Vendor Number
  wa_accountpay-gl_account = '0000290430'.      " GL Account Number
  wa_accountpay-pmnttrms   = 'NT00'.            " Payment Terms
  wa_accountpay-bline_date = '12012006'.        " Bline Date
  wa_accountpay-pmtmthsupl = '06'.              " Payment Method Supplement
  wa_accountpay-pymt_meth  = 'S'.               " Payment Method
  wa_accountpay-item_text  = '*T&S Withdrawal'. " Text
  wa_accountpay-w_tax_code = '**'.              " Tax Code
  APPEND wa_accountpay TO accountpay.
  CLEAR wa_accountpay.
 
*Build account GL data for BAPI
  wa_accountgl-itemno_acc   = 1.             " Line Item Number
  wa_accountgl-gl_account   = '0000290430'.  " GL Account Number
  wa_accountgl-comp_code    = '0050'.        " Company Code
  wa_accountgl-pstng_date   = '12012006'.    " Posting Date
  wa_accountgl-doc_type     = 'KQ'.          " Document Type
  wa_accountgl-fisc_year    = '2006'.        " Fiscal Year
  wa_accountgl-fis_period   = '12'.          " Fiscal Period
  wa_accountgl-item_text    = ''.            " Item Text
  APPEND wa_accountgl TO accountgl.
  CLEAR wa_accountgl.
 
*Build currency data for BAPI
  wa_curramount-itemno_acc   = 1.             " Line Item Number
  wa_curramount-curr_type    = '00'.          " Currency Type
  wa_curramount-currency     = 'USD'.          " Currency Key
  wa_curramount-currency_iso = 'USD'.         " ISO Code
  wa_curramount-amt_doccur   = '-3750.00'.     " Amount
  wa_curramount-amt_base     = '5000.00'.     " Base Amount
  APPEND wa_curramount TO curramount.
  CLEAR wa_curramount.
 
ENDFORM.                    " build_bapi_parameters
 
*&---------------------------------------------------------------------*
*&      Form  build_bapi_parameters2
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM build_bapi_parameters2.
 
*Build account GL data for BAPI
  wa_accountgl-itemno_acc   = 2.             " Line Item Number
  wa_accountgl-gl_account   = '0000720300'.  " GL Account Number
  wa_accountgl-comp_code    = '0050'.        " Company Code
  wa_accountgl-pstng_date   = '12012006'.    " Posting Date
  wa_accountgl-doc_type     = 'KQ'.          " Document Type
  wa_accountgl-fisc_year    = '2006'.        " Fiscal Year
  wa_accountgl-fis_period   = '12'.          " Fiscal Period
  wa_accountgl-item_text    = ''.            " Item Text
  APPEND wa_accountgl TO accountgl.
  CLEAR wa_accountgl.
 
*Build currency data for BAPI
  wa_curramount-itemno_acc   = 2.             " Line Item Number
  wa_curramount-curr_type    = '00'.          " Currency Type
  wa_curramount-currency     = 'USD'.          " Currency Key
  wa_curramount-currency_iso = 'USD'.         " ISO Code
  wa_curramount-amt_doccur   = '5000.00'.     " Amount
  wa_curramount-amt_base     = ''.            " Base Amount
  APPEND wa_curramount TO curramount.
  CLEAR wa_curramount.
 
ENDFORM.                    " build_bapi_parameters
 
*&---------------------------------------------------------------------*
*&      Form  build_bapi_parameters3
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
 
FORM build_bapi_parameters3.
 
*Build account GL data for BAPI
  wa_accountgl-itemno_acc   = 3.             " Line Item Number
  wa_accountgl-gl_account   = '0000256166'.  " GL Account Number
  wa_accountgl-comp_code    = '0050'.        " Company Code
  wa_accountgl-pstng_date   = '12012006'.    " Posting Date
  wa_accountgl-doc_type     = 'KQ'.          " Document Type
  wa_accountgl-fisc_year    = '2006'.        " Fiscal Year
  wa_accountgl-fis_period   = '12'.          " Fiscal Period
  wa_accountgl-item_text    = ''.            " Item Text
  APPEND wa_accountgl TO accountgl.
  CLEAR wa_accountgl.
 
*Build currency data for BAPI
  wa_curramount-itemno_acc   = 3.             " Line Item Number
  wa_curramount-curr_type    = '00'.          " Currency Type
  wa_curramount-currency     = 'USD'.          " Currency Key
  wa_curramount-currency_iso = 'USD'.         " ISO Code
  wa_curramount-amt_doccur   = '-1000.00'.     " Amount
  wa_curramount-amt_base     = ''.            " Base Amount
  APPEND wa_curramount TO curramount.
  CLEAR wa_curramount.
 
ENDFORM.               " build_bapi_parameters
 
*&---------------------------------------------------------------------*
*&      Form  build_bapi_parameters4
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM build_bapi_parameters4.
 
*Build account GL data for BAPI
  wa_accountgl-itemno_acc   = 4.             " Line Item Number
  wa_accountgl-gl_account   = '0000256167'.  " GL Account Number
  wa_accountgl-comp_code    = '0050'.        " Company Code
  wa_accountgl-pstng_date   = '12012006'.    " Posting Date
  wa_accountgl-doc_type     = 'KQ'.          " Document Type
  wa_accountgl-fisc_year    = '2006'.        " Fiscal Year
  wa_accountgl-fis_period   = '12'.          " Fiscal Period
  wa_accountgl-item_text    = ''.            " Item Text
  APPEND wa_accountgl TO accountgl.
  CLEAR wa_accountgl.
 
*Build currency data for BAPI
  wa_curramount-itemno_acc   = 4.             " Line Item Number
  wa_curramount-curr_type    = '00'.          " Currency Type
  wa_curramount-currency     = 'USD'.          " Currency Key
  wa_curramount-currency_iso = 'USD'.         " ISO Code
  wa_curramount-amt_doccur   = '-250.00'.     " Amount
  wa_curramount-amt_base     = ''.            " Base Amount
  APPEND wa_curramount TO curramount.
  CLEAR wa_curramount.
 
ENDFORM.                    " build_bapi_parameters
 
*&---------------------------------------------------------------------*
*&      Form  update_gl
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM update_gl.
 
  CALL FUNCTION 'BAPI_ACC_INVOICE_RECEIPT_POST'
    EXPORTING
      documentheader = docheader
    IMPORTING
      obj_type       = obj_type
      obj_key        = obj_key
      obj_sys        = obj_sys
    TABLES
      accountpayable = accountpay
      accountgl      = accountgl
      accounttax     = accounttax
      currencyamount = curramount
      return         = return
      extension1     = extension1.
 
  LOOP AT return INTO wa_return.
    WRITE: / 'Return Type: ', wa_return-type.
    WRITE: / 'Return ID: ', wa_return-id.
    WRITE: / 'Return #: ', wa_return-number.
    WRITE: / 'Message 1: ', wa_return-message.
    WRITE: / 'Message 2: ', wa_return-message_v1.
    WRITE: / 'Message 3: ', wa_return-message_v2.
    WRITE: / 'Parameter: ', wa_return-parameter.
    WRITE: / 'Row: ', wa_return-row.
    WRITE: / 'Field: ', wa_return-field.
    WRITE: / 'System: ', wa_return-system.
    SKIP.
    ULINE.
    SKIP.
  ENDLOOP.
 
*  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*    EXPORTING
*      wait   = wait
*    IMPORTING
*      return = comm_return.
*
*  REFRESH: accountgl, curramount, return, extension1.
*  CLEAR:   docheader.
 
 
ENDFORM.                    " update_gl
 
END-OF-SELECTION.
 

Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Interfaces | Интерфейсы -> BAPI All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.