Code: Alles auswählen.
* Belegkopf
DOCUMENTHEADER-OBJ_TYPE = 'BKPFF'. "'BKPF '.
DOCUMENTHEADER-OBJ_KEY = '50000003172004'. "'Test'.
DOCUMENTHEADER-OBJ_SYS = sy-mandt.
DOCUMENTHEADER-COMP_CODE = '1000'.
DOCUMENTHEADER-PSTNG_DATE = sy-datum.
DOCUMENTHEADER-BUS_ACT = 'RFBU'.
DOCUMENTHEADER-USERNAME = sy-uname.
DOCUMENTHEADER-FISC_YEAR = '2004'.
DOCUMENTHEADER-FIS_PERIOD = '06'.
DOCUMENTHEADER-DOC_TYPE = 'AR'. "Belegart
DOCUMENTHEADER-DOC_DATE = sy-datum.
DOCUMENTHEADER-PSTNG_DATE = sy-datum.
* Currency-Werte
CURRENCYAMOUNT-ITEMNO_ACC = '1'. "Belegposition
CURRENCYAMOUNT-CURR_TYPE = '00'. "Transaktionswährung verwenden
CURRENCYAMOUNT-CURRENCY = 'EUR'. "Transaktionswährung
CURRENCYAMOUNT-AMT_DOCCUR = '600'. "100 Tacken
append CURRENCYAMOUNT. clear CURRENCYAMOUNT.
CURRENCYAMOUNT-ITEMNO_ACC = '2'. "Belegposition
CURRENCYAMOUNT-CURR_TYPE = '00'. "Transaktionswährung verwenden
CURRENCYAMOUNT-CURRENCY = 'EUR'. "Transaktionswährung
CURRENCYAMOUNT-AMT_DOCCUR = '600'. "100 Tacken
CURRENCYAMOUNT-AMT_DOCCUR = CURRENCYAMOUNT-AMT_DOCCUR * -1.
*CURRENCYAMOUNT-AMT_BASE = CURRENCYAMOUNT-AMT_DOCCUR.
append CURRENCYAMOUNT. clear CURRENCYAMOUNT.
CURRENCYAMOUNT-ITEMNO_ACC = '3'. "Belegposition
CURRENCYAMOUNT-CURR_TYPE = '00'. "Transaktionswährung verwenden
*CURRENCYAMOUNT-AMT_DOCCUR = '100'. "100 Tacken
CURRENCYAMOUNT-AMT_DOCCUR = CURRENCYAMOUNT-AMT_DOCCUR * -1.
CURRENCYAMOUNT-AMT_BASE = CURRENCYAMOUNT-AMT_DOCCUR.
CURRENCYAMOUNT-CURRENCY = 'EUR'. "Transaktionswährung
append CURRENCYAMOUNT. clear CURRENCYAMOUNT.
* Sachkontenposition
ACCOUNTGL-ITEMNO_ACC = '1'.
ACCOUNTGL-GL_ACCOUNT = '0000003601'.
ACCOUNTGL-ITEM_TEXT = 'Verrkto. POS(Bar)'.
append ACCOUNTGL.
ACCOUNTGL-ITEMNO_ACC = '2'.
ACCOUNTGL-GL_ACCOUNT = '0000004010'.
ACCOUNTGL-ITEM_TEXT = 'BARERL.10%'.
*ACCOUNTGL-TAX_CODE = 'A1'.
append ACCOUNTGL.
* Steuerinformationen
ACCOUNTTAX-ITEMNO_ACC = '3'.
*ACCOUNTTAX-GL_ACCOUNT = '0000004010'.
*ACCOUNTTAX-COND_KEY
*ACCOUNTTAX-ACCT_KEY
ACCOUNTTAX-ITEMNO_TAX = '2'.
ACCOUNTTAX-TAX_CODE = 'A1'.
append ACCOUNTTAX.
* Debitorenposition
*ACCOUNTRECEIVABLE-ITEMNO_ACC = '1'.
*ACCOUNTRECEIVABLE-CUSTOMER = '0001138110'.
*append ACCOUNTRECEIVABLE.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = documentheader
* CUSTOMERCPD =
* CONTRACTHEADER =
TABLES
ACCOUNTGL = ACCOUNTGL
ACCOUNTRECEIVABLE = ACCOUNTRECEIVABLE
* ACCOUNTPAYABLE =
ACCOUNTTAX = ACCOUNTTAX
CURRENCYAMOUNT = CURRENCYAMOUNT
* CRITERIA =
* VALUEFIELD =
* EXTENSION1 =
RETURN = return
* PAYMENTCARD =
* CONTRACTITEM =
.
commit work.