Intercompany stock transfer order

Question

Hi all
I have a STO between different plants in different company codes in two steps (643).
I saw that in the time between the made of 643 and that of 101, the value of stock in transit is 0. I saw already the sap note stock in transit between companies (like that between plants in the same company) or I must calculate it or using in my program?
thanks
Davide

Answer 1

Hi,
Perhaps for your requirements is so easy control it by deliveries NLCC and its status, ie: you can create a report where you can read the info from table VBFA (flow of documents on you have the MM movements).
I copy some ABAP coding for control stock transfer for deliveries UL.
*&      Form  selecciona_entregas
form selecciona_entregas .
  clear entregas.
  select vbeln lfdat kunnr from likp
     into corresponding fields of table lt_ul
       where lfart =  p_lfart
       and   lfdat in s_lfdat.
  describe table lt_ul lines entregas.
  check entregas > 0.
  select * from vbfa
     into table lt_vbfa
       for all entries in lt_ul
         where vbelv = lt_ul-vbeln.
endform.                    " selecciona_entregas
*&      Form  tratar_flujo
      text
-->  p1        text
<--  p2        text
form tratar_flujo .
  data: veces like sy-dbcnt.
  check entregas > 0.
  delete lt_vbfa where posnv is initial.
  loop at lt_vbfa where vbtyp_n = 'R'.
    sm_vbfa = lt_vbfa.
    append sm_vbfa.
  endloop.
  loop at lt_vbfa where vbtyp_n = 'i'.
    em_vbfa = lt_vbfa.
    append em_vbfa.
  endloop.
  loop at lt_ul.
    loop at em_vbfa where vbelv = lt_ul-vbeln.
      if     em_vbfa-plmin = '+'.
        add 1 to lt_ul-mov_p.
      elseif em_vbfa-plmin = '-'.
        add 1 to lt_ul-mov_n.
      else.
         nada/nothing
      endif.
    endloop.
    modify lt_ul.
  endloop.
  loop at em_vbfa where plmin = '+'.
    at new vbelv.
      clear veces.
    endat.
    add 1 to veces.
    read table lt_ul with key vbeln = lt_vbfa-vbelv.
    if  sy-subrc = 0
    and lt_ul-mov_p > 0.
      if     lt_ul-mov_p = lt_ul-mov_n.
        delete em_vbfa where vbelv = lt_ul-vbeln.
      elseif lt_ul-mov_p > lt_ul-mov_n.
        if veces < lt_ul-mov_p.
          delete em_vbfa.
        endif.
      endif.
    endif.
  endloop.
  delete em_vbfa where plmin = '-'.
endform.                    " tratar_flujo
*&      Form  matriz_de_datos
form matriz_de_datos .
  check entregas > 0.
  loop at sm_vbfa.
    read table em_vbfa with key vbelv = sm_vbfa-vbelv
                                posnv = sm_vbfa-posnv.
    if sy-subrc <> 0.
      datos-vbeln = sm_vbfa-vbelv.
      datos-posnr = sm_vbfa-posnv.
      datos-mblnr = sm_vbfa-vbeln.
      datos-zeile = sm_vbfa-posnn.
      datos-dmbtr = sm_vbfa-rfwrt.  "evita acc.MSEG
      append datos.
    endif.
  endloop.
  loop at datos.
    read table lt_ul with key vbeln = datos-vbeln.
    if sy-subrc = 0.
      move-corresponding lt_ul to datos.
      select single name1 into datos-name1 from kna1
        where kunnr = datos-kunnr.
    endif.
    select single budat into datos-budat from mkpf
        where mblnr = datos-mblnr.
    modify datos.
  endloop.
endform.                    " matriz_de_datos
For your requiriment perhaps you can use NLCC (no UL).
I hope this helps you.
Regards,
Eduardo
Edited by: Eduardo Hinojosa on Jul 10, 2008 3:46 PM