topic Re: FI-CO posting in Application Development and Automation Discussions

topic Re: FI-CO posting in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/fi-co-posting/m-p/3598525#M866648 <HTML><HEAD></HEAD><BODY><P>try to uncomment these</P><P></P><UL><LI level="1" type="ul"><P>item_data-total_amount = wa-0fm_amount2.</P></LI><LI level="1" type="ul"><P>item_data-distkey = '1'.</P></LI></UL><P></P></BODY></HTML> Tue, 18 Mar 2008 22:13:57 GMT Former Member 2008-03-18T22:13:57Z FI-CO posting https://community.sap.com/t5/application-development-and-automation-discussions/fi-co-posting/m-p/3598524#M866647 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>I am trying to post data into Funds Management Budgeting from BIW. The report is showing that no errors occurred but no data is being posted into funds management.</P><P></P><P>The doc number is being created, and the header is created correctly but line items are not posted.</P><P></P><P>also manually testing the Bapi, i am getting the same results</P><P></P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Report Z_POST_CO_DATA3</P><P>*&</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*&</P><P>*&</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P>REPORT z_post_co_data2.</P><P></P><P>PARAMETERS fiscyear(4).</P><P>PARAMETERS pfund LIKE rgsbm-shortname.</P><P>PARAMETERS fndctr(10).</P><P>PARAMETERS farea(15).</P><P></P><P>TYPE-POOLS : rs,rsdrc.</P><P></P><P>TYPE-POOLS: rs, rsdrc.</P><P></P><P>TYPES: BEGIN OF gt_s_data,</P><P>0fiscper3(3) TYPE n,</P><P>0fund type BP_GEBER,</P><P>0funds_ctr type FISTL,</P><P>0cmmt_item type FM_FIPEX,</P><P>0func_area type FKBER,</P><P>0version type BUKU_VERSION,</P><P>0fm_amount1 type p decimals 2,</P><P>0fm_amount2 type p decimals 2,</P><P>0amount type p decimals 2,</P><P>0fiscyear(4) type n,</P><P></P><P></P><P>END OF gt_s_data.</P><P></P><P>DATA: g_s_sfc TYPE rsdri_s_sfc,</P><P>g_th_sfc TYPE rsdri_th_sfc,</P><P>g_s_range TYPE rsdri_s_range,</P><P>g_th_range TYPE rsdri_t_range,</P><P>g_s_sfk TYPE rsdri_s_sfk,</P><P>g_th_sfk TYPE rsdri_th_sfk,</P><P>g_t_sfc TYPE rsdri_t_sfc,</P><P>g_t_sfk TYPE rsdri_t_sfk,</P><P>g_t_rfcdata TYPE rsdri_t_rfcdata,</P><P>e_t_field TYPE rsdp0_t_field,</P><P>g_t_data TYPE STANDARD TABLE OF gt_s_data,</P><P>g_s_data TYPE gt_s_data.</P><P></P><P>DATA: g_end_of_data TYPE rs_bool,</P><P>g_first_call TYPE rs_bool.</P><P></P><P>DATA wa TYPE gt_s_data.</P><P></P><P>DATA : header_data LIKE bapi_0050_header.</P><P>DATA : item_data LIKE bapi_0050_item OCCURS 0 WITH HEADER LINE.</P><P>DATA : period_data LIKE bapi_0050_period OCCURS 0 WITH HEADER LINE.</P><P>DATA : g_t_data2 TYPE STANDARD TABLE OF gt_s_data WITH HEADER LINE.</P><P></P><P>DATA : return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.</P><P>DATA : count TYPE i VALUE 1.</P><P></P><P>DATA : is_return_comm LIKE bapiret2.</P><P></P><P>g_end_of_data = rs_c_false.</P><P>g_first_call = rs_c_true.</P><P></P><P></P><P>PERFORM insert_characteristics.</P><P>*</P><P></P><P> *</P><P> o Insert Key Figures</P><P></P><P>PERFORM insert_keyfigures.</P><P>*</P><P></P><P> *</P><P> o Read the infocube</P><P></P><P>PERFORM read_infocube_records.</P><P>*</P><P></P><P>PERFORM sort_data.</P><P></P><P> </P><UL><LI level="1" type="ul"><P>populate header</P></LI></UL><P></P><P>PERFORM populate_header.</P><P>*pupulate items</P><P>PERFORM populate_items.</P><P></P><P>PERFORM post_data.</P><P></P><P></P><P>SKIP.</P><P></P><P></P><P>LOOP AT return.</P><P></P><P>WRITE <span class="lia-unicode-emoji" title=":confused_face:">😕</span> return-type,</P><P>2 return-id,</P><P>22 return-number,</P><P>25 return-message.</P><P>ENDLOOP.</P><P></P><P></P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Form insert_characteristics</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P>FORM insert_characteristics .</P><P></P><P>CLEAR g_th_sfc.</P><P>CLEAR g_s_sfc.</P><P></P><P>g_s_sfc-chanm = '0FISCPER3'.</P><P>g_s_sfc-chaalias = '0FISCPER3'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0FUND'.</P><P>g_s_sfc-chaalias = '0FUND'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0FUNDS_CTR'.</P><P>g_s_sfc-chaalias = '0FUNDS_CTR'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0CMMT_ITEM'.</P><P>g_s_sfc-chaalias = '0CMMT_ITEM'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0VERSION'.</P><P>g_s_sfc-chaalias = '0VERSION'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0FUNC_AREA'.</P><P>g_s_sfc-chaalias = '0FUNC_AREA'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P> </P><UL><LI level="1" type="ul"><P>0FISCALYEAR</P></LI></UL><P></P><P></P><P>CLEAR g_s_sfc.</P><P>g_s_sfc-chanm = '0FISCYEAR'.</P><P>g_s_sfc-chaalias = '0FISCYEAR'.</P><P>g_s_sfc-orderby = 0.</P><P>INSERT g_s_sfc INTO TABLE g_th_sfc.</P><P></P><P></P><P>ENDFORM. " insert_characteristics</P><P>*</P><P>*&----</P><HR originaltext="----------------------------------------------------------------" /><P>**& Form insert_keyfigures</P><P>*&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> *</P><P> o text</P><P></P><P>*----</P><HR originaltext="-----------------------------------------------------------------" /><P></P><P> *</P><P> o --> p1 text</P><P> o <-- p2 text</P><P></P><P>*----</P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM insert_keyfigures .</P><P></P><P>CLEAR g_th_sfk.</P><P></P><P>CLEAR g_s_sfk.</P><P>g_s_sfk-kyfnm = '0FM_AMOUNT1'.</P><P>g_s_sfk-kyfalias = '0FM_AMOUNT1'.</P><P>g_s_sfk-aggr = 'SUM'.</P><P>INSERT g_s_sfk INTO TABLE g_th_sfk.</P><P></P><P>CLEAR g_th_sfk.</P><P>g_s_sfk-kyfnm = '0FM_AMOUNT2'.</P><P>g_s_sfk-kyfalias = '0FM_AMOUNT2'.</P><P>g_s_sfk-aggr = 'SUM'.</P><P>INSERT g_s_sfk INTO TABLE g_th_sfk.</P><P></P><P>CLEAR g_s_sfk.</P><P>g_s_sfk-kyfnm = '0AMOUNT'.</P><P>g_s_sfk-kyfalias = '0AMOUNT'.</P><P>g_s_sfk-aggr = 'SUM'.</P><P>INSERT g_s_sfk INTO TABLE g_th_sfk.</P><P></P><P>ENDFORM. " insert_keyfigures</P><P></P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Form read_infocube_records</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P>FORM read_infocube_records.</P><P></P><P>CALL FUNCTION 'RSDRI_INFOPROV_READ'</P><P>EXPORTING</P><P>i_infoprov = 'ZGRZ_PBU2'</P><P>i_th_sfc = g_th_sfc</P><P>i_th_sfk = g_th_sfk</P><P>i_t_range = g_th_range</P><P></P><P> </P><UL><LI level="1" type="ul"><P>I_TH_TABLESEL =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_T_RTIME =</P></LI></UL><P></P><P>i_reference_date = sy-datum</P><P>i_rollup_only = ' '</P><P></P><P> </P><UL><LI level="1" type="ul"><P>I_T_REQUID =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_SAVE_IN_TABLE = ' '</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_TABLENAME =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_SAVE_IN_FILE = ' '</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_FILENAME =</P></LI></UL><P></P><P>i_packagesize = ' '</P><P>i_maxrows = 0</P><P>i_authority_check = rsdrc_c_authchk-read</P><P>i_currency_conversion = ' '</P><P>i_use_db_aggregation = ' '</P><P>i_use_aggregates = ' '</P><P>i_read_ods_delta = ' '</P><P></P><P> </P><UL><LI level="1" type="ul"><P>I_CALLER = RSDRS_C_CALLER-RSDRI</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_DEBUG = RS_C_FALSE</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>I_CLEAR = RS_C_FALSE</P></LI></UL><P></P><P>IMPORTING</P><P>e_t_data = g_t_data</P><P>e_end_of_data = g_end_of_data</P><P></P><P> </P><UL><LI level="1" type="ul"><P>E_AGGREGATE =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>E_SPLIT_OCCURRED =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>E_T_MSG =</P></LI></UL><P></P><P>CHANGING</P><P>c_first_call = g_first_call</P><P>EXCEPTIONS</P><P>illegal_input = 1</P><P>illegal_input_sfc = 2</P><P>illegal_input_sfk = 3</P><P>illegal_input_range = 4</P><P>illegal_input_tablesel = 5</P><P>no_authorization = 6</P><P>illegal_download = 7</P><P>illegal_tablename = 8</P><P>trans_no_write_mode = 9</P><P>inherited_error = 10</P><P>x_message = 11</P><P>OTHERS = 12.</P><P></P><P>IF sy-subrc <> 0.</P><P>MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno</P><P>WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.</P><P>WRITE : sy-subrc.</P><P>ENDIF.</P><P></P><P></P><P>ENDFORM. "read_infocube_records</P><P></P><P>FORM populate_header .</P><P></P><P>CLEAR header_data.</P><P>header_data-fm_area = 'GRZ'.</P><P>header_data-version = '000'.</P><P>header_data-docdate = sy-datum.</P><P></P><P> </P><UL><LI level="1" type="ul"><P>header_data-pstng_date = sy-datum.</P></LI></UL><P></P><P>header_data-doctype = 'GRZR'.</P><P>header_data-docstate = '10'.</P><P>header_data-process = 'ENTR'.</P><P></P><P> </P><UL><LI level="1" type="ul"><P>header_data-external_number =</P></LI></UL><P></P><P></P><P>ENDFORM. " populate_header</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Form POPULATE_ITEMS</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P>FORM populate_items .</P><P></P><P>LOOP AT g_t_data2 INTO wa.</P><P></P><P>item_data-item_num = count.</P><P>item_data-fisc_year = wa-0fiscyear.</P><P>item_data-budcat = '9G'.</P><P>item_data-budtype = 'GZR1'.</P><P>item_data-fund = wa-0fund.</P><P>item_data-funds_ctr = wa-0funds_ctr.</P><P>item_data-cmmt_item = wa-0cmmt_item.</P><P>item_data-func_area = wa-0func_area.</P><P>*item_data-MEASURE =</P><P>*item_data-GRANT_NBR =</P><P>item_data-trans_curr = 'ZMK'.</P><P>*item_data-TRANS_CURR_ISO =</P><P></P><P> </P><UL><LI level="1" type="ul"><P>item_data-total_amount = wa-0fm_amount2.</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>item_data-distkey = '1'.</P></LI></UL><P></P><P>*item_data-ITEM_TEXT =</P><P>item_data-valtype = 'R1'.</P><P>*item_data-CASH_YEAR =</P><P></P><P>*************************************************************</P><P></P><P>period_data-ITEM_NUM = count.</P><P>period_data-budgeting_period = wa-0fiscper3.</P><P>period_data-period_amount = wa-0fm_amount2.</P><P></P><P>APPEND period_data.</P><P></P><P>APPEND item_data.</P><P></P><P>ADD 1 TO count.</P><P></P><P>ENDLOOP.</P><P></P><P>ENDFORM. " POPULATE_ITEMS</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Form SORT_DATA</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>--> p1 text</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P><-- p2 text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P>FORM sort_data .</P><P></P><P>LOOP AT g_t_data INTO wa.</P><P></P><P> </P><UL><LI level="1" type="ul"><P>IF wa-0fiscper3 NE '000' AND wa-0version NE '000' AND wa-0fm_amount2 GE 0 AND wa-0fund IS NOT INITIAL AND wa-0fiscyear EQ fiscyear and wa-0fund = pfund.</P></LI></UL><P></P><P>IF wa-0fiscper3 NE '000' AND wa-0version NE '000' AND wa-0fm_amount2 GE 0</P><P>AND wa-0fund IS NOT INITIAL AND wa-0fiscyear EQ fiscyear AND wa-0fund = pfund AND wa-0funds_ctr = fndctr AND wa-0func_area = farea .</P><P></P><P>MOVE-CORRESPONDING wa TO g_t_data2.</P><P>APPEND g_t_data2.</P><P></P><P>ENDIF.</P><P></P><P></P><P>ENDLOOP.</P><P></P><P>ENDFORM. " SORT_DATA</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P>*& Form POST_DATA</P><P>&----</P><HR originaltext="----------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P></P><P> </P><UL><LI level="1" type="ul"><P>--> p1 text</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P><-- p2 text</P></LI></UL><P></P><P>-</P><HR originaltext="---------------------------------------------------------------------" /><P>FORM post_data .</P><P></P><P> </P><UL><LI level="1" type="ul"><P>BREAK-POINT.</P></LI></UL><P></P><P></P><P>CALL FUNCTION 'BAPI_0050_CREATE'</P><P>EXPORTING</P><P></P><P> </P><UL><LI level="1" type="ul"><P>LANGUAGE = ' '</P></LI></UL><P></P><P>header_data = header_data</P><P></P><P> </P><UL><LI level="1" type="ul"><P>HEADER_DATA_ADD =</P></LI></UL><P></P><P>testrun = ' '</P><P></P><P> </P><UL><LI level="1" type="ul"><P>IMPORTING</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>FMAREA =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>DOCUMENTYEAR =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>DOCUMENTNUMBER =</P></LI></UL><P></P><P>TABLES</P><P>item_data = item_data</P><P></P><P> </P><UL><LI level="1" type="ul"><P>SENDER_ITEM_DATA =</P></LI></UL><P></P><P>PERIOD_DATA = period_data</P><P></P><P> </P><UL><LI level="1" type="ul"><P>SENDER_PERIOD_DATA =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>LONG_TEXT =</P></LI></UL><P> </P><UL><LI level="1" type="ul"><P>EXTENSION_IN =</P></LI></UL><P></P><P>return = return</P><P>.</P><P></P><P>IF sy-subrc = 0.</P><P></P><P>CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'</P><P>EXPORTING</P><P>wait = '5'</P><P>IMPORTING</P><P>return = is_return_comm.</P><P>WRITE : / 'Bapi Successful'.</P><P></P><P>ELSE.</P><P></P><P>WRITE : / 'Bapi Not Successful', sy-subrc.</P><P></P><P>ENDIF.</P><P></P><P></P><P>ENDFORM. " POST_DATA</P><P></P><P>Edited by: Alvaro Tejada Galindo on Mar 18, 2008 6:11 PM</P></BODY></HTML> Tue, 18 Mar 2008 14:16:02 GMT https://community.sap.com/t5/application-development-and-automation-discussions/fi-co-posting/m-p/3598524#M866647 Former Member 2008-03-18T14:16:02Z Re: FI-CO posting https://community.sap.com/t5/application-development-and-automation-discussions/fi-co-posting/m-p/3598525#M866648 <HTML><HEAD></HEAD><BODY><P>try to uncomment these</P><P></P><UL><LI level="1" type="ul"><P>item_data-total_amount = wa-0fm_amount2.</P></LI><LI level="1" type="ul"><P>item_data-distkey = '1'.</P></LI></UL><P></P></BODY></HTML> Tue, 18 Mar 2008 22:13:57 GMT https://community.sap.com/t5/application-development-and-automation-discussions/fi-co-posting/m-p/3598525#M866648 Former Member 2008-03-18T22:13:57Z