L_TO_CREATE_TR testrunresult differs from programresult

Question

Girls,
I use L_TO_CREATE_TR to create a TO refering to a TransportRequest. Works fine, but the palletnumber that I store in IT_TRITE-NLENR does not show up where it should: in the resulting TO in the field NLENR (LT21, Tab Dest.data, field Dest.storage unit)
Ok, happens. But:
When I enter the exact same data in SE37 in the testrundata as is passed to the functionmodule in my program, the palletnumber is stored nicely in the new TO!!
Anybody for any tips how to solve this mystery?
Best regards,
Tim van Steenbergen

Answer 1

Hari, here you go:
This is the ABAP and the FM-call:
  data LT_TRITE   type L03B_TRITE_T.
  data WA_TRITE   like line of LT_TRITE.
  data GV_STORED  like VBAPF-QMENGE.
  clear: LT_TRITE, WA_TRITE, GV_STORED.
  refresh LT_TRITE.
  WA_TRITE-TBPOS = GT_LTBP-TBPOS.
  WA_TRITE-ANFME = GT_LTBP-MENGE.
  WA_TRITE-ALTME = GT_LTBP-MEINS.
  WA_TRITE-LETYP = GT_MARA-VHART(3). "3-character storageunittype
  concatenate '000000000000' LTAP-NLENR+10(8) into WA_TRITE-NLENR.
  "FM L_TO_CREATE_TR wants 20 characters
  if GV_DIR = 'N'.
    WA_TRITE-NLTYP = '120'.
    WA_TRITE-NLPLA = 'OVERDRACHT'.
  else.
    WA_TRITE-NLTYP = P_NLTYP.
    WA_TRITE-NLPLA = P_NLPLA.
  endif.
  append WA_TRITE to LT_TRITE.
TO aanleggen
  clear GT_LTAP_VB.
  refresh GT_LTAP_VB.
  call function 'L_TO_CREATE_TR'
    exporting
      I_LGNUM                        = GC_LGNUM_011   "LGNUM is '011' in my case
      I_TBNUM                        = GT_LTBP-TBNUM
      IT_TRITE                       = LT_TRITE
   importing
     e_tanum                        = gv_tanum
    tables
      T_LTAP_VB                      = GT_LTAP_VB
    exceptions
      FOREIGN_LOCK                   = 1
      QM_RELEVANT                    = 2
      TR_COMPLETED                   = 3
      XFELD_WRONG                    = 4
      LDEST_WRONG                    = 5
      DRUKZ_WRONG                    = 6
      TR_WRONG                       = 7
      SQUIT_FORBIDDEN                = 8
      NO_TO_CREATED                  = 9
      UPDATE_WITHOUT_COMMIT          = 10
      NO_AUTHORITY                   = 11
      PREALLOCATED_STOCK             = 12
      PARTIAL_TRANSFER_REQ_FORBIDDEN = 13
      INPUT_ERROR                    = 14
      others                         = 15.
  if SY-SUBRC <> 0.
    commit work."See FM L_TO_CREATE_TR docu: commit work is needed
    perform MELDT_DE_FOUT using SY-MSGID SY-MSGTY SY-MSGNO
                                SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  else.
This is how IT_TRITE is filled with a testrun in SE37:
TBPO      1
ANFME      1,000
ALT      KI
NLENR      79999688 "so, no leading zeros here in SE37
LET      BPH
All others empty.
Hopefully helpfull,
Best regards,
Tim van Steenbergen