JZTXT

ABAP:QA32(检验批信息增强) BADI:INSPECTIONLOT_UPDATE

发布时间 2023-09-25 11:13:22作者: 阿胖的阿多

 

  METHOD if_ex_inspectionlot_update~set_ud_at_save.
*    IF sy-tcode = 'QA32' OR sy-tcode = 'QA11'.
*    IF new_insplot-herkunft = '01' AND new_insplot-lmenge07 > 0.
*
*      ENDIF.
*    ENDIF.
    DATA:result TYPE c LENGTH 20.
    DATA:ls_zexit TYPE zexit.
    DATA:lt_qals TYPE TABLE OF qals.
    SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_zexit FROM zexit WHERE znum = '005'.

    IF ls_zexit-zflag = 'X'.

      CALL FUNCTION 'ZSRM_ISCMBS_EXIT'
        EXPORTING
          iv_qplos = new_insplot-prueflos.
    ENDIF.

  ENDMETHOD.