Error:update termination in va01

Question

Hiee..
  While creating sales order in va01,i am getting the error "express document update terminated....".
After exectuing transaction st22,
Name of runtime error: DBIF_RSQL_SQL_ERROR
Exception:CX_SY_OPEN_SQL_DB
iN SM13,
Error in functional module rv_sales_document_add
In the include LV45UF0V,
181. UPDATE VBAP FROM TABLE DA_XVBAPU.
Throwing  an error  Database error text........: "ORA-00947: not enough values".
Checked for ranges and disk space bt there is no problem with either of them.
Can you plzz tell me the solution for the same.
Thanks in advance.

Answer 1

hi madhu,
code for updating:
DATA:
    BEGIN OF DA_XVBAPI OCCURS 10,
      STRU LIKE VBAP,
    END OF DA_XVBAPI.
  DATA:
    BEGIN OF DA_XVBAPU OCCURS 5,
      STRU LIKE VBAP,
    END OF DA_XVBAPU.
  DATA: VBAP_KEY(19) TYPE N.
  DATA: DA_FLAG_APODELTA.
  CONSTANTS: C_CAVE_APODELTA_APPEND LIKE RS38L-NAME
                                    VALUE 'CAVE_APODELTA_APPEND'.
  CONSTANTS: C_CAVE_APODELTA_INSERT LIKE RS38L-NAME
                                    VALUE 'CAVE_APODELTA_INSERT'.
  IF VORGANG = 'V'.
Sätze löschen
    LOOP AT FYVBAP.
      VBAPVB = FYVBAP.
      IF VBAPVB-UPDKZ = UPDKZ_DELETE.
        DELETE FROM VBLB WHERE VBELN =  VBAPVB-VBELN
                           AND POSNR =  VBAPVB-POSNR
                           AND ABRLI <> '0000'.
        DA_XVBAPU = FYVBAP.
        APPEND DA_XVBAPU.
        DELETE FROM VBEH WHERE VBELN = VBAPVB-VBELN
                           AND POSNR = VBAPVB-POSNR.
        IF NOT VBAPVB-OBJNR IS INITIAL.
        Objektnummer löschen
        CALL FUNCTION 'OBJECT_NUMBER_DELETE'     wird jetzt in Form
             EXPORTING                           CO_OBJEKT_ANLEGEN
                  OBJNR = VBAPVB-OBJNR.          bei Bedarf gelöscht
        Statusobjekt löschen
          CALL FUNCTION 'STATUS_DELETE'
            EXPORTING
              CLIENT = SY-MANDT
              OBJNR  = VBAPVB-OBJNR.
        ENDIF.
      ENDIF.
    ENDLOOP.
    DELETE VBAP FROM TABLE DA_XVBAPU.
    IF SY-SUBRC > 0.
      MESSAGE A102 WITH 'VBAP' SY-SUBRC DA_XVBAPU-STRU-VBELN.
    ENDIF.
    REFRESH DA_XVBAPU.
  ENDIF.
Sätze anlegen oder ändern
  LOOP AT FXVBAP.
ENHANCEMENT-POINT VBAP_BEARBEITEN_10 SPOTS ES_SAPLV45U.
$$-Start: VBAP_BEARBEITEN_10----
$$
ENHANCEMENT 8  OI0_COMMON_SAPLV45U.    "active version
    if VBAK-VBTYP = 'C'.     "call only if necessary            SP2 KH
    PERFORM OID_ADD_SHIP-TO USING VORGANG.             "SO3K113536 AWH
    endif.  "better readabl + performance                       SP2 KH
ENDENHANCEMENT.
$$-End:   VBAP_BEARBEITEN_10----
$$
    VBAPVB = FXVBAP.
    CASE VBAPVB-UPDKZ.
      WHEN UPDKZ_NEW.
        FXVBAP-MANDT = VBAK-MANDT.
        FXVBAP-VBELN = VBAK-VBELN.
        IF NOT FXVBAP-POSNV IS INITIAL AND
           FXVBAP-VBELV IS INITIAL.
          FXVBAP-VBELV = VBAK-VBELN.
        ENDIF.
        DA_XVBAPI = FXVBAP.
        APPEND DA_XVBAPI.
Ist das SOURCING und die APO-Verfügbarkeitsprüfung durchgeführt worden
und liegt eine Strecke vor?
        IF   FXVBAP-SRCPS EQ SRCPS_SUBITEM
            AND NOT FXVBAP-POSGUID IS INITIAL
            AND     FXVBAP-VWPOS   EQ 'APO3'.
            CALL FUNCTION C_CAVE_APODELTA_APPEND
              EXPORTING
                IV_DOC_NUMBER = FXVBAP-VBELN
                IV_ITM_NUMBER = FXVBAP-POSNR
                IV_POSGUID    = FXVBAP-POSGUID
                IV_WERKS_E    = FXVBAP-WERKS_EXT.
            DA_FLAG_APODELTA = CHARX.
        ENDIF.
      WHEN UPDKZ_UPDATE.
      Statusobjekt muß geändert werden, wenn sich der Positionstyp
      ändert
        MOVE SY-MANDT     TO VBAP_KEY.
        MOVE FXVBAP-VBELN TO VBAP_KEY+3(10).
        MOVE FXVBAP-POSNR TO VBAP_KEY+13(6).
        READ TABLE FYVBAP WITH KEY VBAP_KEY.
        IF SY-SUBRC = 0.
          IF FXVBAP-PSTYV NE FYVBAP-PSTYV OR    "Änderung Positionstyp
             FXVBAP-KZVBR NE FYVBAP-KZVBR.      "Änderung in Einzelfert.
            READ TABLE FYVBAP INDEX SY-TABIX.
            IF NOT FYVBAP-OBJNR IS INITIAL.
            Objektnummer löschen
            CALL FUNCTION 'OBJECT_NUMBER_DELETE'  wird jetzt in Form
                 EXPORTING                        CO_OBJEKT_ANLEGEN
                      OBJNR = FYVBAP-OBJNR.       bei Bedarf gelöscht
            Statusobjekt löschen
              CALL FUNCTION 'STATUS_DELETE'
                EXPORTING
                  CLIENT = SY-MANDT
                  OBJNR  = FYVBAP-OBJNR.
            ENDIF.
          ENDIF.
        ENDIF.
        DA_XVBAPU = FXVBAP.
        APPEND DA_XVBAPU.
    ENDCASE.
  ENDLOOP.
  UPDATE VBAP FROM TABLE DA_XVBAPU.
  IF SY-SUBRC > 0.
    MESSAGE A101 WITH 'VBAP' SY-SUBRC DA_XVBAPU-STRU-VBELN.
  ENDIF.
  INSERT VBAP FROM TABLE DA_XVBAPI.
  IF SY-SUBRC > 0.
    MESSAGE A100 WITH 'VBAP' SY-SUBRC DA_XVBAPI-STRU-VBELN.
  ENDIF.
Tabelle APODELTA füllen
  IF DA_FLAG_APODELTA = CHARX.
    CALL FUNCTION C_CAVE_APODELTA_INSERT
      EXCEPTIONS
        NO_INSERT = 1
        OTHERS    = 2.
    IF SY-SUBRC <> 0.
      MESSAGE A100 WITH 'APODELTA' SY-SUBRC DA_XVBAPI-STRU-VBELN.
    ENDIF.
  ENDIF.
ENDFORM.