‎2009 Aug 04 5:05 PM
Hi everyone,
I'm using the following function modules to transfer data to FB01 :
POSTING_INTERFACE_START
POSTING_INTERFACE_DOCUMENT
POSTING_INTERFACE_END
i'm filling data into T_FTPOST table of POSTING_INTERFACE_DOCUMENT and also provided values for other parameters.
It is also creating the session.
The problem is when i run the session it runs only for first screen of FB01. Its giving error : BATCH SESSION NOT CREATED FOR SCREEN 300.
How to post Doc Currency amount, Sales tax code, payment method, profit center,cost center.........
could anybody help me with this.
Thanks.
‎2009 Aug 04 6:26 PM
hi every one,
this is how i have written the code
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BLDAT'.
w_ftpost-fval = '31.07.2009'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BLART'.
w_ftpost-fval = 'SA'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BUKRS'.
w_ftpost-fval = '2000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BUDAT'.
w_ftpost-fval = '04.08.2009'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-WAERS'.
w_ftpost-fval = 'GBP'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-XBLNR'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BKTXT'.
w_ftpost-fval = 'Interest Upload'.
APPEND w_ftpost TO t_ftpost.
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BLDAT'.
*w_ftpost-fval = '31.07.2009'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BLART'.
*w_ftpost-fval = 'SA'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BUKRS'.
*w_ftpost-fval = '2000'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BUDAT'.
*w_ftpost-fval = '04.08.2009'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-WAERS'.
*w_ftpost-fval = 'GBP'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-XBLNR'.
*w_ftpost-fval = 'Testing'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BKTXT'.
*w_ftpost-fval = 'Interest Upload'.
*APPEND w_ftpost TO t_ftpost.
*---------------ITEM----------------
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-BSCHL'.
w_ftpost-fval = '40'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SAKNR'.
w_ftpost-fval = '420000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ANBWA'.
w_ftpost-fval = 'Z01'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-WRBTR'.
w_ftpost-fval = '1000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-KOSTL'.
w_ftpost-fval = '12300101'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-PS_POSID'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SGTXT'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ZLSCH'.
w_ftpost-fval = 'I'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-MWSKZ'.
w_ftpost-fval = 'A0'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'KMZEI-PRCTR'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
*ITEM2
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-BSCHL'.
w_ftpost-fval = '50'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SAKNR'.
w_ftpost-fval = '220000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ANBWA'.
w_ftpost-fval = 'Z01'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-WRBTR'.
w_ftpost-fval = '1000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-KOSTL'.
w_ftpost-fval = '2100'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-PS_POSID'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SGTXT'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ZLSCH'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-MWSKZ'.
w_ftpost-fval = 'V0'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'KMZEI-PRCTR'.
w_ftpost-fval = '20200'.
APPEND w_ftpost TO t_ftpost.
CALL FUNCTION 'POSTING_INTERFACE_START'
EXPORTING
* I_CLIENT = SY-MANDT
i_function = 'B'
i_group = 'FB01'
* I_HOLDDATE = ' '
* I_KEEP = ' '
* I_MODE = 'N'
* I_UPDATE = 'S'
i_user = sy-uname
* I_XBDCC = ' '
EXCEPTIONS
client_incorrect = 1
function_invalid = 2
group_name_missing = 3
mode_invalid = 4
update_invalid = 5
OTHERS = 6
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_DOCUMENT'
EXPORTING
i_tcode = 'FB01'
* i_sgfunct = ''
* I_NO_AUTH = ' '
IMPORTING
e_msgid = e_msgid
e_msgno = e_msgno
e_msgty = e_msgty
e_msgv1 = e_msgv1
e_msgv2 = e_msgv2
e_msgv3 = e_msgv3
e_msgv4 = e_msgv4
e_subrc = e_subrc
TABLES
t_blntab = t_blntab
t_ftpost = t_ftpost
t_fttax = t_fttax
EXCEPTIONS
account_missing = 1
company_code_missing = 2
posting_key_invalid = 3
posting_key_missing = 4
record_type_invalid = 5
transaction_code_invalid = 6
amount_format_error = 7
too_many_line_items = 8
company_code_invalid = 9
screen_not_found = 10
no_authorization = 11
OTHERS = 12
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_END'
* EXPORTING
* I_BDCIMMED = ' '
* I_BDCSTRTDT = NO_DATE
* I_BDCSTRTTM = NO_TIME
* EXCEPTIONS
* SESSION_NOT_PROCESSABLE = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.Edited by: tom123 on Aug 4, 2009 7:28 PM
Edited by: tom123 on Aug 4, 2009 7:31 PM
‎2009 Aug 04 6:26 PM
hi every one,
this is how i have written the code
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BLDAT'.
w_ftpost-fval = '31.07.2009'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BLART'.
w_ftpost-fval = 'SA'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BUKRS'.
w_ftpost-fval = '2000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BUDAT'.
w_ftpost-fval = '04.08.2009'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-WAERS'.
w_ftpost-fval = 'GBP'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-XBLNR'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'K'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BKPF-BKTXT'.
w_ftpost-fval = 'Interest Upload'.
APPEND w_ftpost TO t_ftpost.
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BLDAT'.
*w_ftpost-fval = '31.07.2009'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BLART'.
*w_ftpost-fval = 'SA'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BUKRS'.
*w_ftpost-fval = '2000'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BUDAT'.
*w_ftpost-fval = '04.08.2009'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-WAERS'.
*w_ftpost-fval = 'GBP'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-XBLNR'.
*w_ftpost-fval = 'Testing'.
*APPEND w_ftpost TO t_ftpost.
*
*w_ftpost-stype = 'K'.
*w_ftpost-count = 002.
*w_ftpost-fnam = 'BKPF-BKTXT'.
*w_ftpost-fval = 'Interest Upload'.
*APPEND w_ftpost TO t_ftpost.
*---------------ITEM----------------
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-BSCHL'.
w_ftpost-fval = '40'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SAKNR'.
w_ftpost-fval = '420000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ANBWA'.
w_ftpost-fval = 'Z01'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-WRBTR'.
w_ftpost-fval = '1000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-KOSTL'.
w_ftpost-fval = '12300101'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-PS_POSID'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SGTXT'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ZLSCH'.
w_ftpost-fval = 'I'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-MWSKZ'.
w_ftpost-fval = 'A0'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'KMZEI-PRCTR'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
*ITEM2
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-BSCHL'.
w_ftpost-fval = '50'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SAKNR'.
w_ftpost-fval = '220000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ANBWA'.
w_ftpost-fval = 'Z01'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-WRBTR'.
w_ftpost-fval = '1000'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-KOSTL'.
w_ftpost-fval = '2100'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'COBL-PS_POSID'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-SGTXT'.
w_ftpost-fval = 'Testing'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-ZLSCH'.
w_ftpost-fval = ''.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'BSEG-MWSKZ'.
w_ftpost-fval = 'V0'.
APPEND w_ftpost TO t_ftpost.
w_ftpost-stype = 'P'.
w_ftpost-count = 001.
w_ftpost-fnam = 'KMZEI-PRCTR'.
w_ftpost-fval = '20200'.
APPEND w_ftpost TO t_ftpost.
CALL FUNCTION 'POSTING_INTERFACE_START'
EXPORTING
* I_CLIENT = SY-MANDT
i_function = 'B'
i_group = 'FB01'
* I_HOLDDATE = ' '
* I_KEEP = ' '
* I_MODE = 'N'
* I_UPDATE = 'S'
i_user = sy-uname
* I_XBDCC = ' '
EXCEPTIONS
client_incorrect = 1
function_invalid = 2
group_name_missing = 3
mode_invalid = 4
update_invalid = 5
OTHERS = 6
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_DOCUMENT'
EXPORTING
i_tcode = 'FB01'
* i_sgfunct = ''
* I_NO_AUTH = ' '
IMPORTING
e_msgid = e_msgid
e_msgno = e_msgno
e_msgty = e_msgty
e_msgv1 = e_msgv1
e_msgv2 = e_msgv2
e_msgv3 = e_msgv3
e_msgv4 = e_msgv4
e_subrc = e_subrc
TABLES
t_blntab = t_blntab
t_ftpost = t_ftpost
t_fttax = t_fttax
EXCEPTIONS
account_missing = 1
company_code_missing = 2
posting_key_invalid = 3
posting_key_missing = 4
record_type_invalid = 5
transaction_code_invalid = 6
amount_format_error = 7
too_many_line_items = 8
company_code_invalid = 9
screen_not_found = 10
no_authorization = 11
OTHERS = 12
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CALL FUNCTION 'POSTING_INTERFACE_END'
* EXPORTING
* I_BDCIMMED = ' '
* I_BDCSTRTDT = NO_DATE
* I_BDCSTRTTM = NO_TIME
* EXCEPTIONS
* SESSION_NOT_PROCESSABLE = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.Edited by: tom123 on Aug 4, 2009 7:28 PM
Edited by: tom123 on Aug 4, 2009 7:31 PM
‎2009 Aug 05 1:22 PM
w_ftpost-count for second item should be 002...
also are u creating 2 documents?? as ur using 002 as count for 'interest upload'... how will the system knw which item is for which document... also i am not sure if u can create 2 headers at a time..
check program RFBIBL02 for the FNAMs, there are spaces after the field names that u need to have eq.
'BKPF-BLDAT '. instead of 'BKPF-BLDAT'.
Regards,
Bikash
‎2009 Aug 05 1:20 PM
‎2009 Aug 05 3:45 PM
Hi Poorna,
Could you provide the code for BAPI_ACC_DOC_POST if you had it
Thanks,
Tom.
‎2009 Aug 10 1:50 PM