VBAP-ANZSN not getting updated when writing serial number to order

Question

Hey ABAP,
i got some Problem with serial numbers.
We have a rental process, where user gives in serial number at time of delivery.
Since we need to create orders based on original order, we need to take the serialnumber from the delivery and write it back to the order, so when order is copied, serial number will be copied as well.
I use following Code to write that serial number into the order, and it works:
code -> next post
FYI: This coding is in a rouitine which is called by perform on commit, in an own update task function module which is beeing called in MV50AFZ1.
So where is the Problem?
The order gets correctly updated with the serial number which got input in the delivery.
When looking at it through VA02 all if fine. You can see the serial number, and you also can see that there is 1 serialnumber of 1 serial numbers.
BUT when having a look at the corresponding VBAP record for this order, VBAP-ANZSN stays empty.
in copy routines, serialnumbers will only get copied as well if VBAP-ANZSN > 0.
Cause if its 0 the system thinks: "yikes there are no serial numbers i got nothing to do".
any ideas?
Edited by: Florian Kemmer on Sep 30, 2009 12:43 PM

Answer 1

DATA: lt_ser01            TYPE TABLE OF ser01,
        ls_ser01            TYPE ser01,
        lv_equnr            TYPE equnr,
        lv_sernr            TYPE sernr,
        lv_matnr            TYPE matnr,
        lt_riwol            TYPE TABLE OF riwol1,
        ls_riwol            TYPE riwol1,
        lv_vbeln            TYPE vbeln,
        lv_posnr            TYPE posnr,
        lt_serxx            TYPE TABLE OF rserxx,
        ls_serxx            TYPE rserxx,
        ls_lips             TYPE lips,
        ls_likp             TYPE likp,
        ls_vbak             TYPE vbak,
        ls_vbap             TYPE vbap.
  break fis-kemmer.
  " Lieferdaten besorgen
  SELECT SINGLE *
  FROM   likp
  INTO   CORRESPONDING FIELDS OF ls_likp
  WHERE  vbeln = gv_vbeln_vl.
  SELECT SINGLE *
  FROM   lips
  INTO   CORRESPONDING FIELDS OF ls_lips
  WHERE  vbeln = gv_vbeln_vl
  AND    posnr = gv_posnr_vl.
  " Serialnummer aus der Lieferung besorgen
  SELECT SINGLE *
  FROM   ser01
  INTO   CORRESPONDING FIELDS OF ls_ser01
  WHERE  lief_nr = gv_vbeln_vl
  AND    posnr   = gv_posnr_vl.
  SELECT SINGLE equnr
  FROM   objk
  INTO   lv_equnr
  WHERE  obknr = ls_ser01-obknr.
  SELECT SINGLE sernr
  FROM   equi
  INTO   lv_sernr
  WHERE  equnr = lv_equnr.
  CHECK NOT lv_sernr IS INITIAL.
  " Matrialnummer aus der Lieferung besorgen
  SELECT SINGLE matnr
  FROM   lips
  INTO   lv_matnr
  WHERE  vbeln = gv_vbeln_vl
  AND    posnr = gv_posnr_vl.
  CHECK NOT lv_matnr IS INITIAL.
  SELECT SINGLE vbelv posnv
  FROM   vbfa
  INTO   (lv_vbeln, lv_posnr)
  WHERE  vbeln    = gv_vbeln_vl
  AND    posnn    = gv_posnr_vl
  AND    vbtyp_v  = 'C'.
  " Auftragsdaten besorgen
  SELECT SINGLE *
  FROM   vbak
  INTO   CORRESPONDING FIELDS OF ls_vbak
  WHERE  vbeln = lv_vbeln.
  SELECT SINGLE *
  FROM   vbap
  INTO   CORRESPONDING FIELDS OF ls_vbap
  WHERE  vbeln = lv_vbeln
  AND    posnr = lv_posnr.
  ls_riwol-sernr = lv_sernr.
  ls_riwol-matnr = lv_matnr.
  APPEND ls_riwol TO lt_riwol.
  ls_serxx-anzsn      = ls_ser01-anzsn.
  ls_serxx-vbtyp      = ls_ser01-vbtyp.
  ls_serxx-sdaufnr    = lv_vbeln.
  ls_serxx-lief_nr    = gv_vbeln_vl.
  ls_serxx-posnr      = gv_posnr_vl.
  ls_serxx-kunde      = ls_likp-kunnr.
  ls_serxx-obknr      = ls_ser01-obknr.
  ls_serxx-datum      = ls_ser01-datum.
  ls_serxx-letznr     = ls_ser01-letznr.
  ls_serxx-vorgang    = ls_ser01-vorgang.
  ls_serxx-uzeit      = ls_ser01-uzeit.
  ls_serxx-vbtyp      = ls_ser01-vbtyp.
  ls_serxx-bwart      = ls_ser01-bwart.
  ls_serxx-vkorg      = ls_ser01-vkorg.
  ls_serxx-vtweg      = ls_ser01-vtweg.
  ls_serxx-spart      = ls_ser01-spart.
  ls_serxx-ltsps      = ls_ser01-ltsps.
  ls_serxx-sd_auart   = ls_vbak-auart.
  ls_serxx-sd_postyp  = ls_vbap-pstyv.
  ls_serxx-werk       = ls_vbap-werks.
  break fis-kemmer.
  APPEND ls_serxx TO lt_serxx.
  CALL FUNCTION 'IWOL_WV_ADD_OBJECTS'
    EXPORTING
      i_sdaufnr           = lv_vbeln
      i_sdposnr           = lv_posnr
      to_type             = 'SD'
    TABLES
      t_riwol1            = lt_riwol
      t_ser02             = lt_serxx
    EXCEPTIONS
      no_object_list      = 1
      entry_exists        = 2
      invalid_material    = 3
      invalid_serialnr    = 4
      invalid_equipment   = 5
      invalid_location    = 6
      invalid_assembly    = 7
      status_not_allowed  = 8
      equi_foreign_key    = 9
      equi_system_failure = 10
      customer_exit_error = 11
      OTHERS              = 12.
  IF sy-subrc = 0.
    CALL FUNCTION 'IWOL_WV_POST_OBJECT_LIST'
      EXPORTING
        i_sdaufnr      = lv_vbeln
        i_sdposnr      = lv_posnr
      EXCEPTIONS
        no_object_list = 1
        other_errors   = 2
        OTHERS         = 3.
  ENDIF.
Edited by: Florian Kemmer on Sep 30, 2009 12:46 PM