Equipment Feld aktualisieren ändern

Code: Alles auswählen.

FORM update_database.
  DATA: tab_equi_error type table of zzpm_bestell with header line,
        wa TYPE zzpm_bestell,
        lv_BAPI_ITOB            type BAPI_ITOB,
        lv_BAPI_ITOB_EQ_ONLY    type BAPI_ITOB_EQ_ONLY,
        lv_BAPI_ITOBX           type BAPI_ITOBX,
        lv_BAPI_ITOB_EQ_ONLYX   type BAPI_ITOB_EQ_ONLYX,
        lv_return               like bapiret2,
        eq                      type equnr.

  PERFORM auswahl_zu_it.

* Update
*  LOOP AT tab_equi_choosen INTO wa.

    Free : lv_return,
            lv_BAPI_ITOB,
            lv_BAPI_ITOB_EQ_ONLY,
            sy-subrc.

    SELECT SINGLE EQUI~EQUNR
           INTO wa-equnr
           FROM EQUI
           WHERE EQUNR eq '000000000000010006'."wa-equnr.

    if sy-subrc ne 0.
*    Wenn nicht 0 dann ist das Equip nicht vorhanden
      break-point.
    endif.

    lv_BAPI_ITOB-manserno = '12345678'. "wa-serge.  "131001/2006
    lv_BAPI_ITOBX-manserno = 'X'.
break-point.


    CALL FUNCTION 'BAPI_EQUI_CHANGE'
      EXPORTING
        equipment               = wa-equnr
        data_general            = lv_BAPI_ITOB
        data_generalx           = lv_BAPI_ITOBX
        data_specific           = lv_BAPI_ITOB_EQ_ONLY
        data_specificx          = lv_BAPI_ITOB_EQ_ONLYX
        VALID_DATE              = SY-DATUM
        VALID_TIME              = SY-UZEIT
      IMPORTING
*         DATA_GENERAL_EXP        = lv_BAPI_ITOB
*         DATA_SPECIFIC_EXP       = lv_BAPI_ITOB_EQ_ONLY
         RETURN                  = lv_return
              .
if lv_return-type = 'E'.
  write: / wa-equnr, lv_return-type, lv_return-message, lv_return-field.
endif.
break-point.


*  ENDLOOP.


ENDFORM.                    "update_database