L_TO_CREATE_DN and HU/SU management

Question

Hi,
I'm using this FM in order to create a TO with reference to a delivery <b>AND</b> I also need source/destination SU info to be passed in this TO. Unfortunatelly, each time is my Destination SU overwritten by a blank value and no Quant is created (?!).
If however I execute LT03 manually filling in SU data - everything works fine.
Anyone knows how to handle this?
Helpfull answers will be rewarded, of course.
Cheers!

Answer 1

Hi,
have a look at this code:
Generate TO
  CLEAR:   tlips, wa_tlips.
  REFRESH: tlips.
  SELECT SINGLE * FROM likp WHERE vbeln = likp-vbeln.
  SELECT  * FROM lips INTO TABLE tlips
    WHERE vbeln = likp-vbeln.
  IF NOT tlips[] IS INITIAL.
    CLEAR: it_delit, l_wa_delit.
    REFRESH it_delit.
Delete positions with status that is not  A or B
    LOOP AT tlips INTO wa_tlips.
      CLEAR l_kosta.
      SELECT SINGLE kosta FROM vbup INTO l_kosta
        WHERE vbeln = wa_tlips-vbeln
        AND posnr = wa_tlips-posnr.
      IF l_kosta NA 'AB'.
        DELETE tlips.
      ENDIF.
    ENDLOOP.
    CLEAR:   tlips, wa_tlips.
    IF NOT tlips[] IS INITIAL.
      LOOP AT tlips INTO wa_tlips.
Check again the status of the position
        CLEAR l_kosta.
        SELECT SINGLE kosta FROM vbup INTO l_kosta
          WHERE vbeln = wa_tlips-vbeln
          AND posnr = wa_tlips-posnr.
        CHECK l_kosta CA 'AB'.
        CLEAR: lv_tanum, lv_teilk.
        CLEAR: l_wa_delit, it_delit.
        REFRESH it_delit.
Quantity
        SELECT SINGLE * FROM lqua
          WHERE lgnum = rm07m-lgnum
          AND lenum = lein-lenum.
        CHECK lqua-matnr = wa_tlips-matnr.
        l_wa_delit-anfme = lqua-verme.
position
        l_wa_delit-posnr = wa_tlips-posnr.
alternative unit of measure
        l_wa_delit-altme = lqua-meins.
Batch
        l_wa_delit-charg = lqua-charg.
*--destination--
        l_wa_delit-nltyp = '916'.
        l_wa_delit-nlber = '001'.
        l_wa_delit-nlpla = wa_tlips-vbeln.
        l_wa_delit-letyp = lqua-letyp.
*--source--
        l_wa_delit-vltyp = lqua-lgtyp.
        l_wa_delit-vlber = '001'.
        l_wa_delit-vlpla = lqua-lgpla.
        l_wa_delit-vlenr = lqua-lenum.
        APPEND l_wa_delit TO it_delit.
        CALL FUNCTION 'L_TO_CREATE_DN'
          EXPORTING
            I_LGNUM                          = rm07m-lgnum
            I_VBELN                          = likp-vbeln
            I_COMMIT_WORK                    = con_x
            I_BNAME                          = SY-UNAME
            IT_DELIT                         = it_delit
         IMPORTING
           E_TANUM                          = lv_tanum
           E_TEILK                          = lv_teilk
         EXCEPTIONS
           FOREIGN_LOCK                     = 1
           DN_COMPLETED                     = 2
           PARTIAL_DELIVERY_FORBIDDEN       = 3
           XFELD_WRONG                      = 4
           LDEST_WRONG                      = 5
           DRUKZ_WRONG                      = 6
           DN_WRONG                         = 7
           SQUIT_FORBIDDEN                  = 8
           NO_TO_CREATED                    = 9
           TEILK_WRONG                      = 10
           UPDATE_WITHOUT_COMMIT            = 11
           NO_AUTHORITY                     = 12
           NO_PICKING_ALLOWED               = 13
           DN_HU_NOT_CHOOSABLE              = 14
           INPUT_ERROR                      = 15
           OTHERS                           = 16.
      ENDLOOP.
  ENDIF.
Best regards.