topic Re: BDC for AP using fb01 in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007543#M957345 <HTML><HEAD></HEAD><BODY><P>/message/3236279#3236279 <B>[original link is broken]</B></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="4131044"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="3773358"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="5412951"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="3751773"></A></P><P></P><P>Reward points..</P></BODY></HTML> Thu, 19 Jun 2008 03:14:08 GMT Former Member 2008-06-19T03:14:08Z BDC for AP using fb01 https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007542#M957344 <HTML><HEAD></HEAD><BODY><P>I am trying to load AP using BDC (uploading it from Desktop location) using fb01,does any one have the BDC code for it.</P><P>Please let me know.</P><P></P><P>Thanks,</P></BODY></HTML> Thu, 19 Jun 2008 01:02:01 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007542#M957344 Former Member 2008-06-19T01:02:01Z Re: BDC for AP using fb01 https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007543#M957345 <HTML><HEAD></HEAD><BODY><P>/message/3236279#3236279 <B>[original link is broken]</B></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="4131044"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="3773358"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="5412951"></A></P><P><A class="jive_macro jive_macro_message" href="https://community.sap.com/" __jive_macro_name="message" modifiedtitle="true" __default_attr="3751773"></A></P><P></P><P>Reward points..</P></BODY></HTML> Thu, 19 Jun 2008 03:14:08 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007543#M957345 Former Member 2008-06-19T03:14:08Z Re: BDC for AP using fb01 https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007544#M957346 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>please find thecode for fb01.</P><P></P><P>rewards, if useful.</P><P></P><P>LOOP AT gt_valid INTO gs_valid.</P><P></P><P> IF rb_upd EQ 'X'.</P><P> REFRESH gt_bdcdata.</P><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0100'.</P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'RF05A-NEWKO'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '/00'.</P><P></P><P></P><P> PERFORM bdc_field USING 'BKPF-BLDAT'</P><P> gs_valid-bldat.</P><P> PERFORM bdc_field USING 'BKPF-BLART'</P><P> gs_valid-blart.</P><P> PERFORM bdc_field USING 'BKPF-BUKRS'</P><P> gs_valid-bukrs.</P><P> PERFORM bdc_field USING 'BKPF-BUDAT'</P><P> gs_valid-budat.</P><P> PERFORM bdc_field USING 'BKPF-WAERS'</P><P> gs_valid-waers.</P><P> PERFORM bdc_field USING 'BKPF-BELNR'</P><P> ''.</P><P> PERFORM bdc_field USING 'BKPF-XBLNR'</P><P> gs_valid-xblnr.</P><P> PERFORM bdc_field USING 'BKPF-BKTXT'</P><P> gs_valid-bktxt.</P><P> PERFORM bdc_field USING 'FS006-DOCID'</P><P> '*'.</P><P> PERFORM bdc_field USING 'RF05A-NEWBS'</P><P> gs_valid-newbs.</P><P> PERFORM bdc_field USING 'RF05A-NEWKO'</P><P> gs_valid-newko.</P><P></P><UL><LI level="1" type="ul"><P> First line item details.</P></LI></UL><P> IF gs_valid-newbs EQ '01' OR gs_valid-newbs EQ '11'.</P><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0301'.</P><P> ELSEIF gs_valid-newbs EQ '40' OR gs_valid-newbs EQ '50'.</P><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.</P><P> ELSE.</P><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0302'.</P><P> ENDIF.</P><P></P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'RF05A-NEWKO'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '/00'.</P><P></P><P> lv_amount = gs_valid-wrbtr.</P><P> write lv_amount to gs_valid-wrbtr.</P><P> PERFORM bdc_field USING 'BSEG-WRBTR'</P><P> gs_valid-wrbtr.</P><UL><LI level="1" type="ul"><P> ADDED BY MOHIT</P></LI></UL><P> PERFORM GET_CURRENCY_COMPANYCODE.</P><P></P><P> IF gs_valid-waers NE GV_CURR.</P><P> lv_amount = gs_valid-dmbtr.</P><P> write lv_amount to gs_valid-dmbtr.</P><P> PERFORM bdc_field USING 'BSEG-DMBTR'</P><P> gs_valid-dmbtr.</P><P> ENDIF.</P><UL><LI level="1" type="ul"><P> ENDED BY MOHIT</P></LI></UL><P></P><UL><LI level="1" type="ul"><P> IF gs_valid-waers NE 'USD'.</P></LI><LI level="1" type="ul"><P> lv_amount = gs_valid-dmbtr.</P></LI><LI level="1" type="ul"><P> write lv_amount to gs_valid-dmbtr.</P></LI><LI level="1" type="ul"><P> PERFORM bdc_field USING 'BSEG-DMBTR'</P></LI><LI level="1" type="ul"><P> gs_valid-dmbtr.</P></LI><LI level="1" type="ul"><P> ENDIF.</P></LI></UL><P></P><P> PERFORM bdc_field USING 'BSEG-ZTERM'</P><P> gs_valid-zterm.</P><P> PERFORM bdc_field USING 'BSEG-ZFBDT'</P><P> gs_valid-zfbdt.</P><P> PERFORM bdc_field USING 'RF05A-NEWBS'</P><P> gs_valid-newbs_2.</P><P> PERFORM bdc_field USING 'RF05A-NEWKO'</P><P> gs_valid-newko_2.</P><P></P><P> IF gs_valid-newbs EQ '40' OR gs_valid-newbs EQ '50'.</P><UL><LI level="1" type="ul"><P> Enter cost center</P></LI></UL><P> PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.</P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'COBL-KOSTL'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '=ENTE'.</P><P> PERFORM bdc_field USING 'COBL-KOSTL'</P><P> gs_valid-kostl.</P><P> ENDIF.</P><P></P><UL><LI level="1" type="ul"><P> Second line item details.</P></LI></UL><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0300'.</P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'BSEG-WRBTR'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '=BS'.</P><P></P><P> lv_amount = gs_valid-wrbtr_2.</P><P> write lv_amount to gs_valid-wrbtr_2.</P><P> PERFORM bdc_field USING 'BSEG-WRBTR'</P><P> gs_valid-wrbtr_2.</P><P></P><P> IF gs_valid-waers NE GV_CURR.</P><P> lv_amount = gs_valid-dmbtr_2.</P><P> write lv_amount to gs_valid-dmbtr_2.</P><P> PERFORM bdc_field USING 'BSEG-DMBTR'</P><P> gs_valid-dmbtr_2.</P><P> ENDIF.</P><P></P><P></P><UL><LI level="1" type="ul"><P> IF gs_valid-waers NE 'USD'.</P></LI><LI level="1" type="ul"><P> lv_amount = gs_valid-dmbtr_2.</P></LI><LI level="1" type="ul"><P> write lv_amount to gs_valid-dmbtr_2.</P></LI><LI level="1" type="ul"><P> PERFORM bdc_field USING 'BSEG-DMBTR'</P></LI><LI level="1" type="ul"><P> gs_valid-dmbtr_2.</P></LI><LI level="1" type="ul"><P> ENDIF.</P></LI></UL><P> PERFORM bdc_field USING 'DKACB-FMORE'</P><P> 'X'.</P><P></P><UL><LI level="1" type="ul"><P> Enter cost center</P></LI></UL><P> PERFORM bdc_dynpro USING 'SAPLKACB' '0002'.</P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'COBL-KOSTL'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '=ENTE'.</P><P> PERFORM bdc_field USING 'COBL-KOSTL'</P><P> gs_valid-kostl.</P><P></P><UL><LI level="1" type="ul"><P> Save</P></LI></UL><P> PERFORM bdc_dynpro USING 'SAPMF05A' '0700'.</P><P> PERFORM bdc_field USING 'BDC_CURSOR'</P><P> 'RF05A-NEWBS'.</P><P> PERFORM bdc_field USING 'BDC_OKCODE'</P><P> '=BU'.</P><P> PERFORM bdc_field USING 'BKPF-XBLNR'</P><P> gs_valid-xblnr.</P><P> PERFORM bdc_field USING 'BKPF-BKTXT'</P><P> gs_valid-bktxt.</P><P></P><UL><LI level="1" type="ul"><P> Call Transcation FB01.</P></LI></UL><P> PERFORM bdc_transaction USING 'FB01'.</P><P> ENDIF.</P><P></P><P> IF gv_flag = 'X'.</P><P> PERFORM z_get_sys_message CHANGING lv_sys_msg.</P><P> PERFORM move_to_error USING gs_valid lv_sys_msg.</P><P> DELETE table gt_valid FROM gs_valid.</P><P> ELSE.</P><P> CLEAR: gs_audit.</P><P> CONCATENATE</P><P> gs_valid-bldat gc_del</P><P> gs_valid-blart gc_del</P><P> gs_valid-bukrs gc_del</P><P> gs_valid-waers gc_del</P><P> gs_valid-budat gc_del</P><P> gs_valid-xblnr gc_del</P><P> gs_valid-bktxt gc_del</P><P> gs_valid-newbs gc_del</P><P> gs_valid-newko gc_del</P><P> gs_valid-wrbtr gc_del</P><P> gs_valid-dmbtr gc_del</P><P> gs_valid-mwskz gc_del</P><P> gs_valid-zterm gc_del</P><P> gs_valid-zfbdt gc_del</P><P> gs_valid-kostl gc_del</P><P> gs_valid-newbs_2 gc_del</P><P> gs_valid-newko_2 gc_del</P><P> gs_valid-wrbtr_2 gc_del</P><P> gs_valid-dmbtr_2</P><P> INTO gs_audit.</P><P></P><P> APPEND gs_audit TO gt_audit.</P><P> ENDIF.</P><P> ENDLOOP.</P><P></P><P>Regards</P><P>Mohit Bansal</P></BODY></HTML> Mon, 23 Jun 2008 12:54:08 GMT https://community.sap.com/t5/application-development-and-automation-discussions/bdc-for-ap-using-fb01/m-p/4007544#M957346 Former Member 2008-06-23T12:54:08Z