How to update line items if it exceeds 17 during creation of SO in va01.

Question

Hi,
I have implemented one logic in mv45afzz for updating IO (internal order) with respect to line items during creation of SO through VA01.
It is working fine.
My problem is: For first 17th line items it is working fine , but those line items which come after 17th not working.
Please suggest.
Thanks,
Sakti

Answer 1

Hi,
Pls find the below code for your reference.
LOOP AT xvbap INTO wa_xvbap.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = wa_xvbap-matnr
      IMPORTING
        output = wa_xvbap-matnr.
    IF ( wa_xvbap-matnr = c_matno_1 OR
       wa_xvbap-matnr = c_matno_2 ) AND
       wa_xvbap-updkz <> 'D'.
*Before changing container number first check first check the IO attached to
*this container number fully settled or not.
      IF NOT yvbap[] IS INITIAL.
        SORT yvbap[] BY vbeln posnr.
        READ TABLE yvbap INTO wa_yvbap WITH KEY vbeln = xvbak-vbeln
                                                posnr = wa_xvbap-posnr
                                                BINARY SEARCH.
        IF sy-subrc = 0 AND
          ( wa_yvbap-arktx <> wa_xvbap-arktx OR
           wa_yvbap-z_container_no <> wa_xvbap-z_container_no.
          CALL FUNCTION 'CONVERSION_EXIT_OBART_INPUT'
            EXPORTING
              input  = c_sdi
            IMPORTING
              output = l_output1.
          CONCATENATE 'ORX'
                      wa_yvbap-z_container_no
                      INTO g_objnr1.
          SELECT SINGLE *
                      INTO wa_cobrb_sdi
                      FROM cobrb
                      WHERE objnr = g_objnr1 AND
                            konty = l_output1.
          IF sy-subrc <> 0.
            CONCATENATE 'ORY'
                          wa_yvbap-z_container_no
                          INTO g_objnr1.
            SELECT SINGLE *
                        INTO wa_cobrb_sdi
                        FROM cobrb
                        WHERE objnr = g_objnr1 AND
                              konty = l_output1.
          ENDIF.
        ENDIF.
      ENDIF.
*If the Io is fully settled, then can not change container number.
      IF wa_cobrb_sdi-ersja IS NOT INITIAL.
        MESSAGE s303(me) WITH 'Container can not be changed as IO already settled for' wa_yvbap-posnr.
        CLEAR:wa_yvbap,
              wa_cobrb_sdi,
              g_objnr1.
        PERFORM folge_gleichsetzen(saplv00f).
        fcode = 'ENT1'.
        SET SCREEN syst-dynnr.
        LEAVE SCREEN.
      ELSE.
*Check container number is initial or not
        IF wa_xvbap-z_container_no IS NOT INITIAL AND tcode = c_va01.
          CONDENSE wa_xvbap-z_container_no.
*Add 'X' to container number and serch for IO exist or not
          CONCATENATE c_x
                      wa_xvbap-z_container_no
                      INTO l_aufnr.
          SELECT SINGLE aufnr objnr
                     FROM aufk
                     INTO (g_aufnr,g_objnr)
                     WHERE aufnr = l_aufnr.
          IF sy-subrc = 0.  " AND wa_xvbap-arktx = l_aufnr.
            l_flag = 'X'.
          ELSE.
*Add 'Y' to container number and search for IO
            CONCATENATE c_y
                        wa_xvbap-z_container_no
                        INTO l_aufnr.
            SELECT SINGLE aufnr objnr
                      FROM aufk
                      INTO (g_aufnr,g_objnr)
                      WHERE aufnr = l_aufnr.
            IF sy-subrc = 0.  " AND wa_xvbap-arktx = l_aufnr.
              l_flag = 'X'.
            ELSE.
*Display error message if Io was not found or forgot to enter IO in description field
              MESSAGE s083(me) WITH 'IO was not found for' wa_xvbap-posnr.
              PERFORM folge_gleichsetzen(saplv00f).
              fcode = 'ENT1'.
              SET SCREEN syst-dynnr.
              LEAVE SCREEN.
            ENDIF.
          ENDIF.
       ELSE.
        ELSEIF tcode = c_va01.
*Display error message if user forget to enter container number
          MESSAGE s083(me) WITH 'container number for' wa_xvbap-posnr.
          PERFORM folge_gleichsetzen(saplv00f).
          fcode = 'ENT1'.
          SET SCREEN syst-dynnr.
          LEAVE SCREEN.
        ENDIF.
        IF l_flag EQ 'X'.
          CALL FUNCTION 'CONVERSION_EXIT_OBART_INPUT'
            EXPORTING
              input  = c_sdi
            IMPORTING
              output = l_output.
          CALL FUNCTION 'CONVERSION_EXIT_PERBZ_INPUT'
            EXPORTING
              input  = c_ful
            IMPORTING
              output = l_ful.
*Fetch 1st line of settlement rule
          CALL FUNCTION 'CONVERSION_EXIT_OBART_INPUT'
            EXPORTING
              input  = c_gl
            IMPORTING
              output = l_gl.
          SELECT SINGLE *
                INTO wa_cobrb_gl
                FROM cobrb
                WHERE objnr = g_objnr AND
                      konty = l_gl.
          IF sy-subrc EQ 0.
*Populate values for second line settlement
            wa_cobrb-objnr = g_objnr.            "OBJNR
            wa_cobrb-lfdnr = '003'.
            wa_cobrb-konty = l_output.           "Category
            wa_cobrb-kdauf = xvbak-vbeln.        "Order No
            wa_cobrb-kdpos = wa_xvbap-posnr.     "Item No
            wa_cobrb-prozs = c_percent.          "Percentage
            wa_cobrb-perbz = l_ful.              "Settlement
            wa_cobrb-extnr = c_no.               "No
            wa_cobrb-gabpe = wa_xvbap-erdat+4(2).      "From period
            wa_cobrb-gabja = wa_xvbap-erdat+0(4).      "From Fiscal
            APPEND wa_cobrb TO gt_cobrb.
          ELSE.
*Populate values for second line settlement
            wa_cobrb-objnr = g_objnr.            "OBJNR
            wa_cobrb-lfdnr = '003'.
            wa_cobrb-konty = l_output.           "Category
            wa_cobrb-kdauf = xvbak-vbeln.        "Order No
            wa_cobrb-kdpos = wa_xvbap-posnr.     "Item No
            wa_cobrb-prozs = c_percent.          "Percentage
            wa_cobrb-perbz = l_ful.              "Settlement
            wa_cobrb-extnr = c_no_1.               "No
            wa_cobrb-gabpe = wa_xvbap-erdat+4(2).      "From period
            wa_cobrb-gabja = wa_xvbap-erdat+0(4).      "From Fiscal
            APPEND wa_cobrb TO gt_cobrb.
          ENDIF.
          IF wa_cobrb_gl IS NOT INITIAL.
            wa_cobrb_gl-gbisp = wa_cobrb-gabpe - 1.
            wa_cobrb_gl-gbisj = wa_cobrb-gabja.
            APPEND wa_cobrb_gl TO gt_cobrb_gl.
          ENDIF.
     ELSEIF wa_cobrb-ersja IS NOT INITIAL.
       MESSAGE 'Container number can not be reassign' TYPE 'E'.
        ENDIF.
      ENDIF.
    ENDIF.
    CLEAR:wa_cobrb,
          g_objnr,
         wa_aufk,
          wa_cobrb_gl,
          wa_cobrb_sdi.
  ENDLOOP.
  IF l_flag EQ 'X'.
*Create 2nd line for settlement rule.
    SORT gt_cobrb[].
    DELETE ADJACENT DUPLICATES FROM gt_cobrb[].
    IF NOT xvbak-vbeln IS INITIAL AND tcode = c_va01.
      IF NOT gt_cobrb[] IS INITIAL.
        CALL FUNCTION 'K_SRULE_SAVE_UTASK'   "IN UPDATE TASK
          TABLES
            t_cobrb_insert    = gt_cobrb[]
          EXCEPTIONS
            srule_utask_error = 1
            OTHERS            = 2.
Thanks,
Sakti