BAPI BAPI_ENTRYSHEET_CREATE - Service Entry Sheet - MM

Question

Hi all,
I am trying to create a service entry sheet using the BAPI - BAPI_ENTRYSHEET_CREATE.
However the BAPI is executed and the service entry sheet is created OK
but in ML81N it shows the message SE001.
The problem occurs only when the PO have 2 items and the entry sheet is for 2o. item.
When the PO have 1 item the my routine is OK.
can anyone suggest any solution for this ...
From now, thanks.
my code:
form create_SES.
  data: SUBPCKG_NO type ESLL-SUB_PACKNO,
           LINE_NO    type BAPIESLLC-LINE_NO.
  data: begin of WA_PO_HEADER occurs 1.
          include structure BAPIEKKOL.
  data: end of WA_PO_HEADER.
  data: PO_ITEMS        type BAPIEKPO occurs 0 with header line,
           PO_SERVICES type BAPIESLL occurs 0 with header line.
  data: begin of PO_RET occurs 0.
          include structure BAPIRETURN.
  data: end of PO_RET.
  data: ENTRYSHEET type BAPIESSR-SHEET_NO.
  data: IT_ESSR like BAPIESSRC occurs 0
                with header line.
  data: IT_ESKN like BAPIESKNC occurs 0
                with header line.
  data: IT_ESLL like BAPIESLLC occurs 0
                with header line.
  data: IT_ESKL like BAPIESKLC occurs 0
                with header line.
  data: begin of IT_RET occurs 0.
          include structure BAPIRET2.
  data: end of IT_RET.
  call function 'BAPI_PO_GETDETAIL'
    exporting
      PURCHASEORDER    = IT_FRS_C-FRS_PO  " for example 4500016194
      ITEMS            = 'X'
      SERVICES         = 'X'
    importing
      PO_HEADER        = WA_PO_HEADER
    tables
      PO_ITEMS         = PO_ITEMS
      PO_ITEM_SERVICES = PO_SERVICES
      RETURN           = PO_RET.
  loop at PO_RET where TYPE = 'E' or TYPE = 'A'.
    return.    " ERROR in PO
  endloop.
  loop at PO_ITEMS.
    if PO_ITEMS-PO_ITEM <> 20.                       " <<<<< atention for this: only item 20 in PO
      read table PO_SERVICES with key PCKG_NO = PO_ITEMS-PCKG_NO.
      SUBPCKG_NO = PO_SERVICES-SUBPCKG_NO.
      delete PO_SERVICES where PCKG_NO = SUBPCKG_NO.
      delete PO_SERVICES where PCKG_NO = PO_ITEMS-PCKG_NO.
      delete PO_ITEMS.
    endif.
  endloop.
  loop at PO_ITEMS.
    IT_ESSR-PO_NUMBER    = PO_ITEMS-PO_NUMBER.
    IT_ESSR-PO_ITEM      = PO_ITEMS-PO_ITEM.
    IT_ESSR-PCKG_NO      = PO_ITEMS-PCKG_NO.
    IT_ESSR-ACCEPTANCE   = IT_FRS_C-FRS_ACEITE.   " begin of my data = ' '
    IT_ESSR-DOC_DATE     = IT_FRS_C-FRS_DTDOC.    "                  = ''
    IT_ESSR-POST_DATE    = IT_FRS_C-FRS_DTLANCA.  "                  = ''
    IT_ESSR-REF_DOC_NO   = IT_FRS_C-FRS_REFER.    "                  = '12345-67'
    IT_ESSR-SHORT_TEXT   = IT_FRS_C-FRS_TXT.      "                  = ''
    IT_ESSR-EXT_NUMBER   = IT_FRS_C-FRS_NROEXT.   "                  = ''
    IT_ESSR-LOCATION     = IT_FRS_C-FRS_LOCAL.    "                  = ''
    IT_ESSR-BEGDATE      = IT_FRS_C-FRS_DTINI.    "                  = ''
    IT_ESSR-ENDDATE      = IT_FRS_C-FRS_DTFIM.    "                  = ''
    IT_ESSR-PERSON_INT   = IT_FRS_C-FRS_ENCINT.   "                  = ''
    IT_ESSR-PERSON_EXT   = IT_FRS_C-FRS_ENCEXT.   " end of my data   = ''
    if PO_ITEMS-ACCTASSCAT = 'U'.
      IT_ESSR-ACCASSCAT = 'K'.
    else.
      IT_ESSR-ACCASSCAT = PO_ITEMS-ACCTASSCAT.
    endif.
    append IT_ESSR.
  endloop.
  LINE_NO = 1.
  loop at PO_SERVICES.
    clear IT_ESLL.
    IT_ESLL-SHORT_TEXT  = PO_SERVICES-SHORT_TEXT.
    IT_ESLL-QUANTITY    = PO_SERVICES-QUANTITY.
    IT_ESLL-SERVICE     = PO_SERVICES-SERVICE.
    IT_ESLL-PCKG_NO     = PO_SERVICES-PCKG_NO.
    IT_ESLL-LINE_NO     = LINE_NO.
    IT_ESLL-EXT_LINE    = PO_SERVICES-EXT_LINE.
    IT_ESLL-OUTL_IND    = PO_SERVICES-OUTL_IND.
    IT_ESLL-SUBPCKG_NO  = PO_SERVICES-SUBPCKG_NO.
    IT_ESLL-PLN_PCKG    = PO_SERVICES-PLN_PCKG.
    IT_ESLL-PLN_LINE    = PO_SERVICES-PLN_LINE.
    IT_ESLL-BASE_UOM    = PO_SERVICES-BASE_UOM.
    IT_ESLL-UOM_ISO     = PO_SERVICES-UOM_ISO.
    IT_ESLL-PRICE_UNIT  = PO_SERVICES-PRICE_UNIT.
    IT_ESLL-FROM_LINE   = PO_SERVICES-FROM_LINE.
    append IT_ESLL.
    LINE_NO = LINE_NO + 1.
  endloop.
  call function 'BAPI_ENTRYSHEET_CREATE'
    exporting
      ENTRYSHEETHEADER           = IT_ESSR
      TESTRUN                    = ' '
    importing
      ENTRYSHEET                  = ENTRYSHEET
    tables
      ENTRYSHEETACCOUNTASSIGNMENT = IT_ESKN
      ENTRYSHEETSERVICES          = IT_ESLL
*      ENTRYSHEETSRVACCASSVALUES   = IT_ESKL
      RETURN                      = IT_RET
*      ENTRYSHEETSERVICESTEXTS     =
*      ENTRYSHEETHEADERTEXT        =
endform.

Answer 1

Did you not search? Google has 3600 hits for BAPI_ENTRYSHEET_CREATE
the second hit is a wiki from SCN with sample coding
the third hit  has a link to a OSS note with a promising title 420334 - BAPI_ENTRYSHEET_CREATE: Model for creation