Partner Function text

Question

Hi BW Gurus,
I need to load transaction data to infoobject ship to, Ship to info object is in Sales ods.I need to load the partner function text for this Ship to info object.
The logic is:
we need to take  the sales doc number from vbak for order type = 'X' sales org = 'Y ' and Dist channel - 'Z'.
sales doc item number from vbap.
To get the partner function text we need to give the vbeln (sales doc number) and parvw (partner function ) in the table vbpa.
now take the ADRNR field which is the address field from vbpa and pass this field in table ADRC and try to pull the names from ADRC table.
i tried to write this logic using Function module, but i am not sure where iam wrong . please let me know the changes i should do .
FUNCTION zbw_shipto_partfunc.
""Local interface:
*"  IMPORTING
*"     VALUE(I_REQUNR) TYPE  SRSC_S_IF_SIMPLE-REQUNR
*"     VALUE(I_DSOURCE) TYPE  SRSC_S_IF_SIMPLE-DSOURCE OPTIONAL
*"     VALUE(I_MAXSIZE) TYPE  SRSC_S_IF_SIMPLE-MAXSIZE OPTIONAL
*"     VALUE(I_INITFLAG) TYPE  SRSC_S_IF_SIMPLE-INITFLAG OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SRSC_S_IF_SIMPLE-READONLY OPTIONAL
*"  TABLES
*"      I_T_SELECT TYPE  SRSC_S_IF_SIMPLE-T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SRSC_S_IF_SIMPLE-T_FIELDS OPTIONAL
*"      E_T_DATA STRUCTURE  XYZ OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
FUNCTION MODULE FOR SHIP TO PARTNER FUNCTION
  TABLES: vbak,vbap,vbpa,adrc.
  DATA: l_s_select TYPE srsc_s_select.
  STATICS: s_s_if TYPE srsc_s_if_simple,
counter
  s_counter_datapakid LIKE sy-tabix,
cursor
  s_cursor TYPE cursor.
ranges: l_r_vbeln    for Vbpa-vbeln,
          l_r_posnr    for Vbpa-posnr.
  DATA: BEGIN OF t_vbak OCCURS 0,
         vbeln LIKE vbak-vbeln,
         END OF t_vbak.
  DATA: BEGIN OF t_vbap OCCURS 0,
        vbeln LIKE vbap-vbeln,
        posnr LIKE vbap-posnr,
        END OF t_vbap.
  DATA: BEGIN OF t_vbpa OCCURS 0,
        vbeln LIKE vbpa-vbeln,
        posnr LIKE vbpa-posnr,
        parvw LIKE vbpa-parvw,
        adrnr LIKE vbpa-adrnr,
        END OF t_vbpa.
  DATA: BEGIN OF t_adrc OCCURS 0,
       addrnumber LIKE adrc-addrnumber,
       name1 LIKE adrc-name1,
       name2 LIKE adrc-name2,
       name3 LIKE adrc-name3,
       name4 LIKE adrc-name4,
       END OF t_adrc.
  IF i_initflag = sbiwa_c_flag_on.
    CASE i_dsource.
      WHEN  'ZBW_SHIPTO_NAME'.
      WHEN OTHERS.
        IF 1 = 2. MESSAGE e009(r3). ENDIF.
this is a typical log call. Please write every error message like this
        log_write 'E'                  "message type
                  'R3'                 "message class
                  '009'                "message number
                  i_dsource   "message variable 1
                  ' '.                 "message variable 2
        RAISE error_passed_to_mess_handler.
    ENDCASE.
    APPEND LINES OF i_t_select TO s_s_if-t_select.
Fill parameter buffer for data extraction calls
    s_s_if-requnr    = i_requnr.
    s_s_if-dsource = i_dsource.
    s_s_if-maxsize   = i_maxsize.
Fill field list table for an optimized select statement
(in case that there is no 1:1 relation between InfoSource fields
and database table fields this may be far from beeing trivial)
    APPEND LINES OF i_t_fields TO s_s_if-t_fields.
  ELSE.                 "Initialization mode or data extraction ?
    IF s_counter_datapakid = 0.
      LOOP AT s_s_if-t_select INTO l_s_select WHERE fieldnm = 'vbeln'.
        MOVE-CORRESPONDING l_s_select TO l_r_vbeln.
        APPEND l_r_vbeln.
      ENDLOOP.
      LOOP AT s_s_if-t_select INTO l_s_select WHERE fieldnm = 'posnr'.
        MOVE-CORRESPONDING l_s_select TO l_r_posnr.
        APPEND l_r_posnr.
      ENDLOOP.
  OPEN CURSOR WITH HOLD s_cursor FOR
  SELECT vbeln
       FROM vbak     WHERE vbeln in l_r_vbeln
                       and
                     auart EQ 'X' AND
                   vkorg EQ 'Y' AND
                   vtweg EQ 'Z'.
SELECT vbeln
       FROM vbak   into table T_Vbak WHERE vbeln in l_r_vbeln
                       and
                     auart EQ 'X' AND
                   vkorg EQ 'Y' AND
                   vtweg EQ 'Z'.
      SELECT vbeln
                   posnr
           FROM vbap INTO TABLE t_vbap
           FOR ALL ENTRIES IN t_vbak
                               WHERE  vbeln EQ t_vbak-vbeln.
         SELECT vbeln
                   posnr
                   parvw
                   adrnr FROM vbpa
              INTO TABLE t_vbpa
                               FOR ALL ENTRIES IN t_vbap
                               WHERE vbeln EQ T_vbap-vbeln
                                and
                               parvw EQ 'ABC'.
      FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
      LOOP AT t_vbpa.
        READ TABLE t_vbpa WITH KEY vbeln = t_vbap-vbeln
                                 posnr = t_vbap-posnr
                                 BINARY SEARCH.
        IF sy-subrc EQ 0.
        ELSE.
          READ TABLE t_vbpa WITH KEY vbeln = t_vbap-vbeln BINARY SEARCH.
        ENDIF.
ENDLOOP.
          IF sy-subrc EQ 0.
            SELECT SINGLE addrnumber NAME1 NAME2 NAME3 NAME4 FROM adrc
into T_ADRC
             WHERE addrnumber EQ t_vbpa-adrnr.
                ENDIF.
      ENDIF.
       loop at t_ADRC.
       Clear E_t_data.
      e_t_data-ADDRNUMBER = T_ADRC-ADDRNUMBER.
      e_t_data-NAME1 = T_ADRC-NAME1.
      e_t_data-NAME2 = T_ADRC-NAME2.
      e_t_data-NAME3 = T_ADRC-NAME3.
      e_t_data-NAME4 = T_ADRC-NAME4.
      move-corresponding T_ADRC to e_t_data.
      append e_t_data.
    endloop.
ENDFUNCTION.
when i check this in RSA3 i am not getting any records.please let me know what changes should i do in the code.
My data structure in R/3 contains these fields
ADDRNUMBER
NAME1
NAME2
NAME3
NAME4.
should i change and add any other fields for this.

Answer 1

Hello Pratik,
Firstly, there are multiple Function Modules to create BP in CRM.
BAPI_BUPA_CREATE_FROM_DATA seems to be the simplest one to me to create BP.
In order to insert long text, you can refer to following sample code:
DATA: notes type string,
            lt_lines TYPE comt_text_lines_t,
            ls_header              TYPE thead,
            ls_longtexts           LIKE LINE OF lt_longtexts.
    CALL FUNCTION 'CONV_TEXTSTRING_TO_ITF'
      EXPORTING
        iv_textstring = notes
      IMPORTING
        et_itf        = lt_lines.
    ls_header-tdid     = 'Z001'.           " This will be the long text ID defined in the Text Determination Procedure for BP
    ls_header-tdspras  = 'EN'.
    ls_header-tdname   = partner_no.
    ls_header-tdobject = 'BUT000'.
    ls_longtexts-data-lines = lt_lines.
    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        header          = ls_header
        insert          = 'I'
        savemode_direct = 'X'
      TABLES
        lines           = ls_longtexts-data-lines
      EXCEPTIONS
        id              = 1
        language        = 2
        name            = 3
        object          = 4
        OTHERS          = 5.
    IF sy-subrc = 0.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.
Hope this helps.
Thanks
Vishal