BDc for BP

[Former Member]

Hi,

I am trying to update the BP through BDC (req not to use bapi) , i am facing the problem to tabs how i control the tab. any code for bp bdc

[Former Member]

Hi, Best is to do a recording and than transform it into a program. You can even optimize your program because in most cases not all statements are required. Success

[former_member374410]

 PERFORM up_data1 USING : 'X' '3000' 'SAPLBUS_LOCATOR',
                           ' ' 'BDC_OKCODE' '=SCREEN_1000_CRE_PERS',
                           'X' '3000' 'SAPLBUS_LOCATOR',
                           ' ' 'BUS_JOEL_MAIN-CREATION_GROUP' 'YGEN',
                           ' ' 'BUS_JOEL_MAIN-PARTNER_ROLE' '000000',
                           ' ' 'BUS_JOEL_MAIN-PARTNER_TIMEDEP' '000001',
                           ' ' 'SZA11_0100-TEL_COUNTR' 'IN',
                           ' ' 'SZA11_0100-MOB_COUNTR' 'IN',
                           ' ' 'SZA11_0100-FAX_COUNTR' 'IN',
                           ' ' 'BDC_OKCODE' '=SCREEN_1500_CRE_GRP',
                           'X' '3000' 'SAPLBUS_LOCATOR',
                           ' ' 'BUS000FLDS-TITLE_MEDI' p_title,
                           ' ' 'BUT000-NAME_FIRST' p_fnam,
                           ' ' 'BUT000-NAME_LAST' p_lnam,
                           ' ' 'BDC_OKCODE' '=BUPK',
                           'X' '3000' 'SAPLBUS_LOCATOR',
                           ' ' 'BUT000-NAMEMIDDLE' p_mnam,
                           ' ' 'BUS000FLDS-BU_SORT1_TXT' p_pnum2,
                           ' ' 'BUS000FLDS-BU_SORT2_TXT' p_pnum1,
                           ' ' 'ADDR2_DATA-NAME_CO' p_co,
                           ' ' 'ADDR2_DATA-HOUSE_NUM1' p_hno,
                           ' '  'ADDR2_DATA-STREET' address,
                           ' ' 'ADDR2_DATA-REMARK' address1,
                           ' ' 'ADDR2_DATA-STR_SUPPL3' p_area,
                           ' ' 'ADDR2_DATA-LOCATION' p_sarea,
                           ' ' 'ADDR2_DATA-POST_CODE1' p_pcode,
                           ' ' 'ADDR2_DATA-CITY1' p_city,
                           ' ' 'SZA11_0100-SMTP_ADDR' p_mail,
                           ' ' 'ADDR2_DATA-COUNTRY' 'IN',
                           ' ' 'ADDR2_DATA-REGION' p_state,
                           ' ' 'BUS000FLDS-LANGUCORR' 'EN',
                              ' ' 'BUS000FLDS-LANGU' 'EN',
                           ' ' 'BDC_OKCODE' '=BUS_MAIN_SAVE'.


FORM up_data1  USING    a b c.

  IF a = 'X'.
    wa_bdcdata-dynpro = b.
    wa_bdcdata-program = c.
    wa_bdcdata-dynbegin = a.
  ELSE.
    wa_bdcdata-fnam = b.
    wa_bdcdata-fval = c.
    ENDIF.
    APPEND wa_bdcdata TO it_bdcdata.
    CLEAR wa_bdcdata.




ENDFORM.