BAPI PR CHANCE

Question

Hi exper,
I use bapi ZBAPI_PR_CHANCE
BAPI work very well if you use R/3
return table say
every things is OK
But if I used same bapi with webdynapro java , would not work
return table say
Creation Indicator B is not useful
I use same PR number and items
This PR created with MRP
Source code here
function zbapi_pr_change.                                   "#EC ENHOK
""Local Interface:
*"  IMPORTING
*"     VALUE(NUMBER) LIKE  BAPIMEREQHEADER-PREQ_NO
*"     VALUE(PRHEADER) LIKE  BAPIMEREQHEADER STRUCTURE  BAPIMEREQHEADER
*"       OPTIONAL
*"     VALUE(PRHEADERX) LIKE  BAPIMEREQHEADERX STRUCTURE
*"        BAPIMEREQHEADERX OPTIONAL
*"     VALUE(TESTRUN) LIKE  BAPIFLAG-BAPIFLAG OPTIONAL
*"  EXPORTING
*"     VALUE(PRHEADEREXP) TYPE  BAPIMEREQHEADER
*"  TABLES
*"      RETURN STRUCTURE  BAPIRET2 OPTIONAL
*"      PRITEM STRUCTURE  BAPIMEREQITEMIMP OPTIONAL
*"      PRITEMX STRUCTURE  BAPIMEREQITEMX OPTIONAL
*"      PRITEMEXP STRUCTURE  BAPIMEREQITEM OPTIONAL
*"      PRITEMSOURCE STRUCTURE  BAPIMEREQSOURCE OPTIONAL
*"      PRACCOUNT STRUCTURE  BAPIMEREQACCOUNT OPTIONAL
*"      PRACCOUNTPROITSEGMENT STRUCTURE  BAPIMEREQACCOUNTPROFITSEG
*"       OPTIONAL
*"      PRACCOUNTX STRUCTURE  BAPIMEREQACCOUNTX OPTIONAL
*"      PRADDRDELIVERY STRUCTURE  BAPIMERQADDRDELIVERY OPTIONAL
*"      PRITEMTEXT STRUCTURE  BAPIMEREQITEMTEXT OPTIONAL
*"      PRHEADERTEXT STRUCTURE  BAPIMEREQHEADTEXT OPTIONAL
*"      EXTENSIONIN STRUCTURE  BAPIPAREX OPTIONAL
*"      EXTENSIONOUT STRUCTURE  BAPIPAREX OPTIONAL
*"      PRVERSION STRUCTURE  BAPIMEREQDCM OPTIONAL
*"      PRVERSIONX STRUCTURE  BAPIMEREQDCMX OPTIONAL
*"      ALLVERSIONS STRUCTURE  BAPIMEDCM_ALLVERSIONS OPTIONAL
  data: header like thead,
        lines type table of tline with header line,
        name type tdobname.
*data: kkkk(1) type c.
do.
if kkkk = '1' .
   exit.
endif.
enddo.
  loop at pritem .
    call function 'CONVERSION_EXIT_MATN1_INPUT'
      exporting
        input        = pritem-material
      importing
        output       = pritem-material
      exceptions
        length_error = 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.
    modify pritem .
  endloop .
  call function 'BAPI_PR_CHANGE'
    exporting
      number                = number
      prheader              = prheader
      prheaderx             = prheaderx
      testrun               = testrun
    importing
      prheaderexp           = prheaderexp
    tables
      return                = return
      pritem                = pritem
      pritemx               = pritemx
      pritemexp             = pritemexp
      pritemsource          = pritemsource
      praccount             = praccount
      praccountproitsegment = praccountproitsegment
      praccountx            = praccountx
      praddrdelivery        = praddrdelivery
      pritemtext            = pritemtext
     prheadertext          = prheadertext
      extensionin           = extensionin
      extensionout          = extensionout
      prversion             = prversion
      prversionx            = prversionx
      allversions           = allversions.
  read table return with key type = 'E' .
  if sy-subrc ne 0 .
    call function 'BAPI_TRANSACTION_COMMIT'
      exporting
        wait = 'X'.
    loop at pritem .
      update eban set ernam   = pritem-vend_mat
                      preis   = pritem-preis
                      peinh   = pritem-peinh
                      zzmeng1 = pritem-zzmeng1
                      zzmeng2 = pritem-zzmeng2
                      waers   = pritem-waers
                      zzdlflg = pritem-zzdlflg
                  where banfn eq number
                    and bnfpo eq pritem-preq_item .
      commit work and wait .
    endloop .
    call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
      exporting
        input         = prheaderexp-preq_no
     importing
       output         = prheaderexp-preq_no
   READ TABLE PRITEM INDEX 1.
   UPDATE EBAN SET ERNAM   = PRITEM-VEND_MAT
                   PREIS   = PRITEM-PREIS
                   PEINH   = PRITEM-PEINH
                   ZZMENG1 = PRITEM-ZZMENG1
                   ZZMENG2 = PRITEM-ZZMENG2
                   WAERS   = PRITEM-WAERS
                   ZZDLFLG = PRITEM-ZZDLFLG
             WHERE BANFN EQ NUMBER.
    check not prheadertext[] is initial .
onceki metinler al&#305;n&#305;r
    name = number .
    call function 'READ_TEXT'
      exporting
          CLIENT                        = SY-MANDT
        id                            = 'B01'
        language                      = sy-langu
        name                          = name
        object                        = 'EBANH'
          ARCHIVE_HANDLE                = 0
          LOCAL_CAT                     = ' '
        IMPORTING
          HEADER                        =
      tables
        lines                         = lines
     exceptions
       id                            = 1
       language                      = 2
       name                          = 3
       not_found                     = 4
       object                        = 5
       reference_check               = 6
       wrong_access_to_archive       = 7
       others                        = 8
    if sy-subrc <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
    header-tdobject = 'EBANH'.
    header-tdname   = number.
    header-tdspras  = syst-langu.
    loop at prheadertext.
      header-tdid     = prheadertext-text_id.
      lines-tdformat  = prheadertext-text_form.
      lines-tdline    = prheadertext-text_line.
      append lines.
    endloop.
    call function 'SAVE_TEXT'
      exporting
        header          = header
        insert          = 'X'
        savemode_direct = 'X'
      tables
        lines           = lines
      exceptions
        id              = 1
        language        = 2
        name            = 3
        object          = 4
        others          = 5.
  else .
    call function 'BAPI_TRANSACTION_ROLLBACK'.
  endif .
endfunction.

Answer 1

Check the SAP Note 710362
May be it wil help you.
Regards
Rammohan.