QM [요청]검사합격처리의 취소에 대해서 궁금합니다.

activeman 2008.10.12 14:12 조회 수 : 4717

자재의 입고처리 시 검사를 하고 입고처리를 하게 됩니다.

즉 이동유형이 103(보류재고)-->105(입고) 로 처리하여 재고로 잡고 있습니다.

그런데 qm에서 자재의 합격(용도결정 이라고 하는것 같습니다?)을 처리하고 난뒤에 이것의 합격 취소를 할수 없는건인지요?

여러 사람들의 의견으로 합격을 하고 나면 취소가 안된다고 하더라구요.

다만 편법으로 105(합격)로 처리된 것을 106으로 합격취소를 하고 있다고 합니다.

정말 QM에서는 합격된자재에 대해 합격취소를 할 수 없는것인지요? 물론 자재가 투입되고 난뒤에는 합격취소를

할수가 없겠지만 아직 투입되지 않은 자재에 대해서는 합격취소를 할 수가 있을 것 같습니다.

고수님들 자료나 결과에 대해 한 말씀 남겨 주십시요.

감사합니다.

이 게시물을

수정 삭제 목록

e-abap

2008.10.13 09:46

검사 종료후 취소 프로세스를 SAP에서 허용하지 않는것 같습니다. 독일은 전체 공장을 다 멈추게 할수 있을 정도로 품질의 권한이 막강하다고 하네요.

해당사항에 대해서 NOTES를 검색해보았지만, 취소하는 프로그램은 제공하지만 사용에 대한 책임은 장담하지 못한다고 하네요.

정확한 답변을 드리지 못해죄송합니다.

다음 프로그램을 활용하시면 검사로트 취소가 가능은 합니다.

REPORT ZQMBUDC1 MESSAGE-ID QA.

TABLES: QAMB,MKPF.
TYPES:
T_QAMB_TAB LIKE QAMB OCCURS 0,
T_MKPF_TAB LIKE MKPF OCCURS 0,
T_MSEG_TAB LIKE MSEG OCCURS 0.

PARAMETERS:
PRUEFLOS LIKE QALS-PRUEFLOS OBLIGATORY MEMORY ID QLS.
* GRDAT LIKE SY-DATUM.

INITIALIZATION.
* SELECT   single mblnr FROM QAmb into qamb-mblnr
*         WHERE PRUEFLOS = PRUEFLOS
*         and TYP = '3'.
*
* SELECT single budat FROM MKPF into mkpf-budat
*         WHERE MBLNR = qamb-MBLNR.
*
* if sy-subrc = 0.
*    GRDAT = mkpf-budat.
* else.
* GRDAT = SY-DATUM.
* MESSAGE i002(ZQ).
* endif.
DATA:
    G_MSGV1       LIKE SY-MSGV1,
    G_QALS        LIKE QALS,
    G_QALS_LEISTE LIKE QALS,
    G_QAMB_TAB    TYPE T_QAMB_TAB,
    G_QAMB_VB_TAB TYPE T_QAMB_TAB,
    G_MKPF_TAB    TYPE T_MKPF_TAB,
    G_MSEG_TAB    TYPE T_MSEG_TAB,
    G_SUBRC       LIKE SY-SUBRC.

*********************************
AT SELECTION-SCREEN .

* 사용결정한 자재 문서번호를 검색한다.

SELECT   SINGLE MBLNR FROM QAMB INTO QAMB-MBLNR
         WHERE PRUEFLOS = PRUEFLOS
         AND TYP = '3'.
* 자재문서 의 전기일 을 검색한다.
SELECT SINGLE BUDAT FROM MKPF INTO MKPF-BUDAT
         WHERE MBLNR = QAMB-MBLNR.

* IF SY-SUBRC = 0.
*
*
**    IF .
**        MESSAGE E001(ZQ) with MKPF-BUDAT.
**    ENDIF.
**
* ENDIF.

********************************
START-OF-SELECTION.

* QALS LOCK 설정
PERFORM ENQUEUE_QALS USING PRUEFLOS
                             G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM READ_QALS USING PRUEFLOS
                          G_QALS
                          G_QALS_LEISTE
                          G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID 'QA' TYPE 'S' NUMBER '102'
            WITH PRUEFLOS.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM CHECK_LOT USING G_QALS
                          G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    CASE G_SUBRC.
      WHEN 256.
        G_MSGV1 = 'Lot & does not refer to a material doc'.
      WHEN 128.
        G_MSGV1 = 'Material & is serialized'.
        REPLACE '&' WITH G_QALS-MATNR INTO G_MSGV1.
      WHEN 64.
        G_MSGV1 = 'Lot & is not stock relevant'.
      WHEN 32.
        G_MSGV1 = 'Lot &: No stock transferred'.
      WHEN 16.
        G_MSGV1 = 'Lot & is cancelled'.
      WHEN   8.
        G_MSGV1 = 'Lot & is archived'.
      WHEN   4.
        G_MSGV1 = 'Lot & is blocked'.
      WHEN   2.
        G_MSGV1 = 'Lot & is HU managed'.
    ENDCASE.
    REPLACE '&' WITH PRUEFLOS INTO G_MSGV1.
    MESSAGE ID '00' TYPE 'S' NUMBER '208'
            WITH G_MSGV1.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM READ_QAMB USING G_QALS
                          G_QAMB_TAB
                          G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID 'QA' TYPE 'S' NUMBER '068'
            WITH PRUEFLOS.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM READ_MKPF USING G_QAMB_TAB
                          G_MKPF_TAB
                          G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM CHECK_MKPF USING G_MKPF_TAB
                           G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID 'QA' TYPE 'S' NUMBER '068'
            WITH PRUEFLOS.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM READ_MSEG USING G_MKPF_TAB
                          G_MSEG_TAB
                          G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM CHECK_MSEG USING G_MSEG_TAB
                           G_QAMB_TAB
                           G_SUBRC.
IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID 'QA' TYPE 'S' NUMBER '068'
            WITH PRUEFLOS.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM CREATE_GOODS_MOVEMENT USING G_QALS
                                      G_MSEG_TAB
                                      G_SUBRC.

IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID 'QA' TYPE 'S' NUMBER '068'
            WITH PRUEFLOS.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

PERFORM POST_GOODS_MOVEMENT.

PERFORM POST_DATA USING G_QALS
                          G_QALS_LEISTE
                          G_QAMB_TAB
                          G_QAMB_VB_TAB
                          G_SUBRC.

IF NOT G_SUBRC IS INITIAL.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ELSE.
    COMMIT WORK AND WAIT.
    G_MSGV1 = 'inspection lot &'.
    REPLACE '&' WITH PRUEFLOS INTO G_MSGV1.
    MESSAGE ID '00' TYPE 'S' NUMBER '368'
            WITH 'Stock posting reversed for ' G_MSGV1.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

*--------------------------------------------------------------------
*       Form ENQUEUE_QALS
*--------------------------------------------------------------------
*       Los sperren
*--------------------------------------------------------------------
FORM ENQUEUE_QALS USING P_PRUEFLOS LIKE QALS-PRUEFLOS
                        P_SUBRC    LIKE SY-SUBRC.
CLEAR: P_SUBRC.

CALL FUNCTION 'ENQUEUE_EQQALS1'
       EXPORTING
            PRUEFLOS       = P_PRUEFLOS
       EXCEPTIONS
            FOREIGN_LOCK   = 1
            SYSTEM_FAILURE = 2
            OTHERS         = 3.

P_SUBRC = SY-SUBRC.

ENDFORM.                               " ENQUEUE_QALS

*--------------------------------------------------------------------
*       Form READ_QALS
*--------------------------------------------------------------------
*       Pr?los lesen
*--------------------------------------------------------------------
FORM READ_QALS USING P_PRUEFLOS    LIKE QALS-PRUEFLOS
                     P_QALS        LIKE QALS
                     P_QALS_LEISTE LIKE QALS
                     P_SUBRC       LIKE SY-SUBRC.

CLEAR: P_SUBRC.

CALL FUNCTION 'QPSE_LOT_READ'
       EXPORTING
            I_PRUEFLOS = P_PRUEFLOS
            I_RESET_LOT = 'X'
       IMPORTING
            E_QALS      = P_QALS
       EXCEPTIONS
            NO_LOT      = 1.

P_SUBRC = SY-SUBRC.
IF P_SUBRC IS INITIAL.
    P_QALS_LEISTE = P_QALS.
ELSE.
    CLEAR: P_QALS,
           P_QALS_LEISTE.
ENDIF.

ENDFORM.                               " READ_QALS

*--------------------------------------------------------------------
*       Form CHECK_LOT
*--------------------------------------------------------------------
*       Pr?los pr?en
*
*--------------------------------------------------------------------
FORM CHECK_LOT USING P_QALS LIKE QALS
                     P_SUBRC LIKE SY-SUBRC.

DATA:
    L_STAT      LIKE JSTAT,
    L_STAT_TAB LIKE JSTAT OCCURS 0 WITH HEADER LINE.

P_SUBRC = 256.

*/No reference to material document
IF P_QALS-ZEILE IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 128.
ENDIF.

*/Serialized Material
IF NOT P_QALS-SERNP IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 64.
ENDIF.

*/BERF
CALL FUNCTION 'STATUS_CHECK'
       EXPORTING
            OBJNR             = P_QALS-OBJNR
            STATUS            = 'I0203'
       EXCEPTIONS
            STATUS_NOT_ACTIVE = 2.

IF NOT SY-SUBRC IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 32.
ENDIF.

*/BTEI & BEND
CLEAR L_STAT. CLEAR L_STAT_TAB. REFRESH L_STAT_TAB.
L_STAT-STAT = 'I0219'. APPEND L_STAT TO L_STAT_TAB. "BTEI
L_STAT-STAT = 'I0220'. APPEND L_STAT TO L_STAT_TAB. "BEND

CALL FUNCTION 'STATUS_OBJECT_CHECK_MULTI'
       EXPORTING
            OBJNR        = P_QALS-OBJNR
       TABLES
            STATUS_CHECK = L_STAT_TAB.

IF L_STAT_TAB[] IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 16.
ENDIF.

*/LSTO & LSTV
CLEAR L_STAT. CLEAR L_STAT_TAB. REFRESH L_STAT_TAB.
L_STAT-STAT = 'I0224'. APPEND L_STAT TO L_STAT_TAB. "LSTO
L_STAT-STAT = 'I0232'. APPEND L_STAT TO L_STAT_TAB. "LSTV

CALL FUNCTION 'STATUS_OBJECT_CHECK_MULTI'
       EXPORTING
            OBJNR        = P_QALS-OBJNR
       TABLES
            STATUS_CHECK = L_STAT_TAB.

IF NOT L_STAT_TAB[] IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 8.
ENDIF.

*/ARSP & ARCH & REO1 & REO2 & REO3
CLEAR L_STAT. CLEAR L_STAT_TAB. REFRESH L_STAT_TAB.
L_STAT-STAT = 'I0225'. APPEND L_STAT TO L_STAT_TAB. "ARSP
L_STAT-STAT = 'I0226'. APPEND L_STAT TO L_STAT_TAB. "ARCH
L_STAT-STAT = 'I0227'. APPEND L_STAT TO L_STAT_TAB.       "REO3
L_STAT-STAT = 'I0228'. APPEND L_STAT TO L_STAT_TAB.       "REO2
L_STAT-STAT = 'I0229'. APPEND L_STAT TO L_STAT_TAB.       "REO1

CALL FUNCTION 'STATUS_OBJECT_CHECK_MULTI'
       EXPORTING
            OBJNR        = P_QALS-OBJNR
       TABLES
            STATUS_CHECK = L_STAT_TAB.

IF NOT L_STAT_TAB[] IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 4.
ENDIF.

*/SPER
CALL FUNCTION 'STATUS_CHECK'
       EXPORTING
            OBJNR             = P_QALS-OBJNR
            STATUS            = 'I0043'
       EXCEPTIONS
            STATUS_NOT_ACTIVE = 2.

IF SY-SUBRC IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 2.
ENDIF.

*/HUM
CALL FUNCTION 'STATUS_CHECK'
       EXPORTING
            OBJNR             = P_QALS-OBJNR
            STATUS            = 'I0443'
       EXCEPTIONS
            STATUS_NOT_ACTIVE = 2.

IF SY-SUBRC IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 0.
ENDIF.

ENDFORM.                               " CHECK_LOT

*--------------------------------------------------------------------
*       Form READ_QAMB
*--------------------------------------------------------------------
*       QAMBs lesen
*--------------------------------------------------------------------
FORM READ_QAMB USING P_QALS     LIKE QALS
                     P_QAMB_TAB TYPE T_QAMB_TAB
                     P_SUBRC    LIKE SY-SUBRC.

CLEAR: P_SUBRC.

SELECT * FROM QAMB INTO TABLE P_QAMB_TAB
    WHERE PRUEFLOS = P_QALS-PRUEFLOS
      AND TYP   = '3'.

P_SUBRC = SY-SUBRC.

ENDFORM.                               " READ_QAMB

*--------------------------------------------------------------------
*       Form READ_MKPF
*--------------------------------------------------------------------
*       Read material document header
*--------------------------------------------------------------------
FORM READ_MKPF USING P_QAMB_TAB TYPE T_QAMB_TAB
                     P_MKPF_TAB TYPE T_MKPF_TAB
                     P_SUBRC    LIKE SY-SUBRC.

DATA:
    BEGIN OF L_MKPF_KEY_TAB OCCURS 0,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
    END   OF L_MKPF_KEY_TAB.
DATA:
    L_QAMB   LIKE QAMB,
    L_MKPF   LIKE MKPF,
    L_TRTYP LIKE T158-TRTYP VALUE 'A',
    L_VGART LIKE T158-VGART VALUE 'WQ',
    L_XEXIT LIKE QM00-QKZ.

P_SUBRC = 4.

LOOP AT P_QAMB_TAB INTO L_QAMB.
    L_MKPF_KEY_TAB-MBLNR = L_QAMB-MBLNR.
    L_MKPF_KEY_TAB-MJAHR = L_QAMB-MJAHR.
    COLLECT L_MKPF_KEY_TAB.
ENDLOOP.

LOOP AT L_MKPF_KEY_TAB.
    CALL FUNCTION 'ENQUEUE_EMMKPF'
         EXPORTING
              MBLNR          = L_MKPF_KEY_TAB-MBLNR
              MJAHR          = L_MKPF_KEY_TAB-MJAHR
         EXCEPTIONS
              FOREIGN_LOCK   = 1
              SYSTEM_FAILURE = 2
              OTHERS         = 3.
    IF NOT SY-SUBRC IS INITIAL.
      L_XEXIT = 'X'.
      EXIT.
    ENDIF.

    CLEAR: L_MKPF.
    CALL FUNCTION 'MB_READ_MATERIAL_HEADER'
         EXPORTING
              MBLNR         = L_MKPF_KEY_TAB-MBLNR
              MJAHR         = L_MKPF_KEY_TAB-MJAHR
              TRTYP         = L_TRTYP
              VGART         = L_VGART
         IMPORTING
              KOPF          = L_MKPF
         EXCEPTIONS
              ERROR_MESSAGE = 1.

    IF NOT SY-SUBRC IS INITIAL.
      L_XEXIT = 'X'.
      EXIT.
    ELSE.
      APPEND L_MKPF TO P_MKPF_TAB.
    ENDIF.

ENDLOOP.

IF NOT L_XEXIT IS INITIAL.
    EXIT.
ELSE.
    P_SUBRC = 0.
ENDIF.

ENDFORM.                               " READ_MKPF

*--------------------------------------------------------------------
*       Form READ_MSEG
*--------------------------------------------------------------------
*       MSEGs lesen
*--------------------------------------------------------------------
FORM READ_MSEG USING P_MKPF_TAB TYPE T_MKPF_TAB
                     P_MSEG_TAB TYPE T_MSEG_TAB
                     P_SUBRC    LIKE SY-SUBRC.

DATA:
    L_MKPF     LIKE MKPF,
    L_MSEG_TAB LIKE MSEG OCCURS 0 WITH HEADER LINE,
    L_TRTYP    LIKE T158-TRTYP VALUE 'A',
    L_XEXIT    LIKE QM00-QKZ.

P_SUBRC = 4.

LOOP AT P_MKPF_TAB INTO L_MKPF.

    CLEAR: L_MSEG_TAB. REFRESH: L_MSEG_TAB.
    CALL FUNCTION 'MB_READ_MATERIAL_POSITION'
         EXPORTING
              MBLNR = L_MKPF-MBLNR
              MJAHR = L_MKPF-MJAHR
              TRTYP = L_TRTYP
*/            ZEILB = P_ZEILE
*/            ZEILE = P_ZEILE
         TABLES
            SEQTAB = L_MSEG_TAB
       EXCEPTIONS
            ERROR_MESSAGE = 1.

    IF NOT SY-SUBRC IS INITIAL.
      L_XEXIT = 'X'.
      EXIT.
    ELSE.
      APPEND LINES OF L_MSEG_TAB TO P_MSEG_TAB.
    ENDIF.

ENDLOOP.

IF NOT L_XEXIT IS INITIAL.
    EXIT.
ELSE.
*/ XAuto-Zeilen und Chargenzustands?derung werden gel?cht
    DELETE P_MSEG_TAB WHERE XAUTO NE SPACE
                         OR BWART EQ '341'
                         OR BWART EQ '342'.

    P_SUBRC = 0.
ENDIF.

ENDFORM.                               " READ_MSEG

*--------------------------------------------------------------------
*       Form CREATE_GOODS_MOVEMENT
*--------------------------------------------------------------------
*       Warenbewegung anlegen
*--------------------------------------------------------------------
FORM CREATE_GOODS_MOVEMENT USING P_QALS     LIKE QALS
                                 P_MSEG_TAB TYPE T_MSEG_TAB
                                 P_SUBRC    LIKE SY-SUBRC.

DATA:
    L_LMENGEZUB LIKE QALS-LMENGEZUB,
    L_LMENGEGEB LIKE QALS-LMENGEZUB,
    L_MBQSS     LIKE MBQSS,
    L_IMKPF     LIKE IMKPF,
    L_IMSEG     LIKE IMSEG,
    L_IMSEG_TAB LIKE IMSEG OCCURS 1,
    L_EMKPF     LIKE EMKPF,
    L_EMSEG     LIKE EMSEG,
    L_EMSEG_TAB LIKE EMSEG OCCURS 1,
    L_MSEG      LIKE MSEG,
    L_MSEG_TAB LIKE MSEG OCCURS 1,
    L_TCODE     LIKE SY-TCODE VALUE 'QA11',
    L_TABIX     LIKE SY-TABIX VALUE 1,
    L_XSTBW     LIKE T156-XSTBW.

CLEAR: P_SUBRC.

*/QAMB initialisieren
CALL FUNCTION 'QAMB_REFRESH_DATA'.

*/전기일은 매개변수로 받아온후 그날을 전기일로설정
*/Kopf f?len
L_IMKPF-BLDAT = MKPF-BUDAT.      "UD한 날짜(증빙).
L_IMKPF-BUDAT = MKPF-BUDAT.      "UD한 날짜(전기).
L_IMKPF-BKTXT = 'Cancellation of QM UD postings'.

*/Urspr?gliche zu buchende Menge merken + inkrementieren
L_LMENGEZUB = P_QALS-LMENGEZUB.
L_LMENGEGEB =   P_QALS-LMENGE01
                + P_QALS-LMENGE02
                + P_QALS-LMENGE03
                + P_QALS-LMENGE04
                + P_QALS-LMENGE05
                + P_QALS-LMENGE06
                + P_QALS-LMENGE07
                + P_QALS-LMENGE08
                + P_QALS-LMENGE09.

*/Zeilen aufbauen
L_MSEG_TAB[] = P_MSEG_TAB[].

LOOP AT L_MSEG_TAB INTO L_MSEG.
    MOVE-CORRESPONDING L_MSEG TO L_MBQSS.
    MOVE-CORRESPONDING L_MBQSS TO L_IMSEG.
*/ Referenzbeleg ?ergeben, falls Bestellnummer gef?lt
    IF NOT L_MSEG-EBELN IS INITIAL.
      MOVE: L_MSEG-LFBNR TO L_IMSEG-LFBNR,
            L_MSEG-LFBJA TO L_IMSEG-LFBJA,
            L_MSEG-LFPOS TO L_IMSEG-LFPOS.
    ENDIF.
    MOVE L_MSEG-KDAUF          TO L_IMSEG-KDAUF.
    MOVE L_MSEG-KDPOS          TO L_IMSEG-KDPOS.
    MOVE L_MSEG-PS_PSP_PNR     TO L_IMSEG-PS_PSP_PNR.

*/ Umlagerungsfelder setzen
    MOVE:
        L_MSEG-UMMAT TO L_IMSEG-UMMAT,
        L_MSEG-UMWRK TO L_IMSEG-UMWRK,
        L_MSEG-UMLGO TO L_IMSEG-UMLGO,
        L_MSEG-UMCHA TO L_IMSEG-UMCHA.

*/ Storno-Beleg setzen
    MOVE: L_MSEG-MJAHR TO L_IMSEG-SJAHR,
          L_MSEG-MBLNR TO L_IMSEG-SMBLN,
          L_MSEG-ZEILE TO L_IMSEG-SMBLP.

*/ Falsch gef?lte Felder initialisieren
    CLEAR: L_IMSEG-MBLNR,
           L_IMSEG-MENGE,
           L_IMSEG-MEINS.

*/ Bewegungsart lesen
    SELECT SINGLE XSTBW FROM T156 INTO L_XSTBW
      WHERE BWART = L_IMSEG-BWART.
    IF NOT SY-SUBRC IS INITIAL.
      P_SUBRC = 4.
      EXIT.
    ENDIF.

*/ Werk/Lagerort f?len
    IF P_QALS-STAT11 IS INITIAL.

      IF L_XSTBW IS INITIAL.
        MOVE P_QALS-LAGORTVORG TO L_IMSEG-LGORT.
      ELSE.
        MOVE P_QALS-LAGORTVORG TO L_IMSEG-UMLGO.
      ENDIF.
    ENDIF.
    IF L_XSTBW IS INITIAL.
      MOVE P_QALS-WERKVORG TO L_IMSEG-WERKS.
    ELSE.
      MOVE P_QALS-WERKVORG TO L_IMSEG-UMWRK.
    ENDIF.

*/ Zus?zliche Felder
    MOVE P_QALS-MENGENEINH TO L_IMSEG-ERFME.
    "MOVE P_GRUND           TO L_IMSEG-GRUND.
    "MOVE P_ELIKZ           TO L_IMSEG-ELIKZ.
*/ Kennzeichen Storno-Buchung setzen
    MOVE 'X'               TO L_IMSEG-XSTOB.
    MOVE P_QALS-PRUEFLOS   TO L_IMSEG-QPLOS.

    APPEND L_IMSEG TO L_IMSEG_TAB.
    IF P_QALS-STAT11 IS INITIAL.
      ADD      L_IMSEG-ERFMG TO   L_LMENGEZUB.
      SUBTRACT L_IMSEG-ERFMG FROM L_LMENGEGEB.
    ELSE.
      IF     L_IMSEG-KZBEW EQ SPACE
         AND L_IMSEG-WERKS NE SPACE
         AND L_IMSEG-LGORT NE SPACE
         AND L_IMSEG-UMWRK NE SPACE
         AND L_IMSEG-UMLGO NE SPACE
         AND L_IMSEG-WERKS EQ L_IMSEG-UMWRK
         AND L_IMSEG-UMLGO EQ L_IMSEG-UMLGO.
*/      Dummy Buchung bei WE-Sperrbestand & Stichprobe
      ELSE.
        ADD      L_IMSEG-ERFMG TO   L_LMENGEZUB.
        SUBTRACT L_IMSEG-ERFMG FROM L_LMENGEGEB.
      ENDIF.
    ENDIF.
ENDLOOP.

IF NOT P_QALS-STAT11 IS INITIAL.
*/ Bei WE-Sperrbestand und Stichprobenbuchung Zeilen tauschen
    DO.
      READ TABLE L_IMSEG_TAB INDEX SY-INDEX INTO L_IMSEG.
      IF     SY-SUBRC      IS INITIAL
         AND L_IMSEG-KZBEW EQ SPACE
         AND L_IMSEG-WERKS NE SPACE
         AND L_IMSEG-LGORT NE SPACE
         AND L_IMSEG-UMWRK NE SPACE
         AND L_IMSEG-UMLGO NE SPACE
         AND L_IMSEG-WERKS EQ L_IMSEG-UMWRK
         AND L_IMSEG-UMLGO EQ L_IMSEG-UMLGO.

        IF SY-TABIX NE L_TABIX.
          DELETE L_IMSEG_TAB INDEX SY-TABIX.
          INSERT L_IMSEG     INTO L_IMSEG_TAB INDEX L_TABIX.
          L_TABIX = L_TABIX + 1.
        ELSE.
          L_TABIX = L_TABIX + 1.
          CONTINUE.
        ENDIF.
      ELSEIF SY-SUBRC IS INITIAL.
        CONTINUE.
      ELSE.
        EXIT.                          "from do
      ENDIF.
    ENDDO.
ENDIF.

*/QM deaktivieren
CALL FUNCTION 'QAAT_QM_ACTIVE_INACTIVE'
       EXPORTING
            AKTIV = SPACE.
*/Buchen
CALL FUNCTION 'MB_CREATE_GOODS_MOVEMENT'
       EXPORTING
            IMKPF = L_IMKPF
            XALLP = 'X'
            XALLR = 'X'
            CTCOD = L_TCODE
            XQMCL = ' '
       IMPORTING
            EMKPF = L_EMKPF
       TABLES
            IMSEG = L_IMSEG_TAB
            EMSEG = L_EMSEG_TAB.
*/QM wieder aktivieren
CALL FUNCTION 'QAAT_QM_ACTIVE_INACTIVE'
       EXPORTING
            AKTIV = 'X'.

*/Buchung auswerten
IF L_EMKPF-SUBRC GT 1.
    IF L_EMKPF-MSGID NE SPACE.
*/    Fehler auf Kopfebene
      MESSAGE ID L_EMKPF-MSGID TYPE 'S'
              NUMBER L_EMKPF-MSGNO
              WITH L_EMKPF-MSGV1 L_EMKPF-MSGV2
                   L_EMKPF-MSGV3 L_EMKPF-MSGV4.
      SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
    ELSE.
*/    Fehler auf Zeilenebene (Ausgabe des ersten Fehlers)
      LOOP AT L_EMSEG_TAB INTO L_EMSEG.
        IF L_EMSEG-MSGID NE SPACE.
          MESSAGE ID L_EMSEG-MSGID TYPE 'S'
                NUMBER L_EMSEG-MSGNO
                WITH L_EMSEG-MSGV1 L_EMSEG-MSGV2
                     L_EMSEG-MSGV3 L_EMSEG-MSGV4.
          SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDIF.

LOOP AT L_EMSEG_TAB INTO L_EMSEG.
    CALL FUNCTION 'QAMB_COLLECT_RECORD'
         EXPORTING
              LOTNUMBER   = P_QALS-PRUEFLOS
              DOCYEAR     = L_EMKPF-MJAHR
              DOCNUMBER   = L_EMKPF-MBLNR
              DOCPOSITION = L_EMSEG-MBLPO
              TYPE        = '7'.
ENDLOOP.

*/Sonderkorrektur f? Frei-An-Frei & WE-Sperr-An-We-Sperr
IF NOT P_QALS-STAT11 IS INITIAL.
    IF P_QALS-LMENGE04 EQ L_LMENGEGEB.
      ADD      P_QALS-LMENGE04 TO   L_LMENGEZUB.
      SUBTRACT P_QALS-LMENGE04 FROM L_LMENGEGEB.
    ENDIF.
ELSEIF P_QALS-INSMK IS INITIAL.
    IF         P_QALS-LMENGE01 GE L_LMENGEGEB
       AND NOT P_QALS-LMENGE01 IS INITIAL.
      ADD      L_LMENGEGEB     TO   L_LMENGEZUB.
      SUBTRACT L_LMENGEGEB     FROM L_LMENGEGEB.
    ENDIF.
ENDIF.

CLEAR: P_QALS-STAT34,
         P_QALS-MATNRNEU,
         P_QALS-CHARGNEU,
         P_QALS-LMENGE01,
         P_QALS-LMENGE02,
         P_QALS-LMENGE03,
         P_QALS-LMENGE04,
         P_QALS-LMENGE05,
         P_QALS-LMENGE06,
         P_QALS-LMENGE07,
         P_QALS-LMENGE08,
         P_QALS-LMENGE09.

P_QALS-LMENGEZUB = L_LMENGEZUB.
IF NOT L_LMENGEGEB IS INITIAL.
    P_SUBRC = 4.
ENDIF.

ENDFORM.                               " CREATE_GOODS_MOVEMENT

*--------------------------------------------------------------------
*       Form POST_GOODS_MOVEMENT
*--------------------------------------------------------------------
*       Warenbewegung buchen
*--------------------------------------------------------------------
FORM POST_GOODS_MOVEMENT.

CALL FUNCTION 'MB_POST_GOODS_MOVEMENT'.

ENDFORM.                               " POST_GOODS_MOVEMENT

*--------------------------------------------------------------------
*       Form POST_DATA
*--------------------------------------------------------------------
*       QM-Daten verbuchen
*--------------------------------------------------------------------
FORM POST_DATA USING P_QALS        LIKE QALS
                     P_QALS_LEISTE LIKE QALS
                     P_QAMB_TAB    TYPE T_QAMB_TAB
                     P_QAMB_VB_TAB TYPE T_QAMB_TAB
                     P_SUBRC       LIKE SY-SUBRC.

DATA:
    L_QAVE        LIKE QAVE,
    L_QAVE_LEISTE LIKE QAVE,
    L_STAT        LIKE JSTAT,
    L_STAT_TAB    LIKE JSTAT OCCURS 0,
    L_QAMB        LIKE QAMB,
    L_UPDKZ       LIKE QALSVB-UPSL VALUE 'U'.

*/QAMBs umsetzen (7 = VE-Buchung storniert)
LOOP AT P_QAMB_TAB INTO L_QAMB.
    L_QAMB-TYP = '7'.
    APPEND L_QAMB TO P_QAMB_VB_TAB.
ENDLOOP.

*/BERF & BTEI zur?knehmen
CLEAR L_STAT. CLEAR L_STAT_TAB.
L_STAT-INACT = 'X'.
L_STAT-STAT = 'I0219'. APPEND L_STAT TO L_STAT_TAB. "BTEI
L_STAT-STAT = 'I0220'. APPEND L_STAT TO L_STAT_TAB. "BEND

CALL FUNCTION 'STATUS_CHANGE_INTERN'
       EXPORTING
            OBJNR         = P_QALS-OBJNR
       TABLES
            STATUS        = L_STAT_TAB
       EXCEPTIONS
            ERROR_MESSAGE = 1.

IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.

*/Pr?los aktualisieren
CALL FUNCTION 'QPL1_UPDATE_MEMORY'
       EXPORTING
            I_QALS = P_QALS
            I_UPDKZ = L_UPDKZ.

*/QMIS korrigieren
IF NOT P_QALS-STAT35 IS INITIAL.
    SELECT SINGLE * FROM QAVE INTO L_QAVE
      WHERE PRUEFLOS = P_QALS-PRUEFLOS
        AND KZART    = 'L'
        AND ZAEHLER = SPACE.
    IF NOT SY-SUBRC IS INITIAL.
      MESSAGE X207(QG).
    ELSE.
      L_QAVE_LEISTE = L_QAVE.
*/    훞derungsfall
      CALL FUNCTION 'MCQ_STATISTICS_USAGEDEC'
           EXPORTING
                I_XQALS              = P_QALS
                I_XQAVE              = L_QAVE
                I_YQALS              = P_QALS_LEISTE
                I_YQAVE              = L_QAVE_LEISTE
           EXCEPTIONS
                NO_CHANGES           = 0
                NO_UPDATE            = 0
                UPDATE_NOT_ACTIVATED = 0
                ERROR_MESSAGE        = 0.
    ENDIF.
ENDIF.

CALL FUNCTION 'QPL1_INSPECTION_LOTS_POSTING'
       EXPORTING
            I_MODE = '1'.

CALL FUNCTION 'STATUS_UPDATE_ON_COMMIT'.

*/QAMB initialisieren
CALL FUNCTION 'QAMB_REFRESH_DATA'.

PERFORM UPDATE_QAMB ON COMMIT.

P_SUBRC = 0.

ENDFORM.                               " POST_DATA

*--------------------------------------------------------------------
*       Form UPDATE_QAMB
*--------------------------------------------------------------------
*       Update auf QAMB
*--------------------------------------------------------------------
FORM UPDATE_QAMB.

UPDATE QAMB FROM TABLE G_QAMB_VB_TAB.

ENDFORM.                               " UPDATE_QAMB

*--------------------------------------------------------------------
*       Form CHECK_MSEG
*--------------------------------------------------------------------
*       MSEGs pr?en
*--------------------------------------------------------------------
FORM CHECK_MSEG USING P_MSEG_TAB TYPE T_MSEG_TAB
                      P_QAMB_TAB TYPE T_QAMB_TAB
                      P_SUBRC    LIKE SY-SUBRC.

DATA:
    L_MSEG_STOR_TAB LIKE MSEG OCCURS 0 WITH HEADER LINE.

CLEAR: P_SUBRC.

*/Zeilen bereits storniert?
SELECT MBLNR MJAHR ZEILE SMBLN SJAHR SMBLP
    FROM MSEG INTO CORRESPONDING FIELDS OF TABLE L_MSEG_STOR_TAB
    FOR ALL ENTRIES IN P_MSEG_TAB
    WHERE SMBLN EQ P_MSEG_TAB-MBLNR
      AND SJAHR EQ P_MSEG_TAB-MJAHR
      AND SMBLP EQ P_MSEG_TAB-ZEILE.

IF SY-SUBRC IS INITIAL.
    LOOP AT L_MSEG_STOR_TAB.
      DELETE P_MSEG_TAB WHERE     MBLNR = L_MSEG_STOR_TAB-SMBLN
                              AND MJAHR = L_MSEG_STOR_TAB-SJAHR
                              AND ZEILE = L_MSEG_STOR_TAB-SMBLP.
      DELETE P_QAMB_TAB WHERE     MBLNR = L_MSEG_STOR_TAB-SMBLN
                              AND MJAHR = L_MSEG_STOR_TAB-SJAHR
                              AND ZEILE = L_MSEG_STOR_TAB-SMBLP.
    ENDLOOP.
    IF P_MSEG_TAB[] IS INITIAL.
      P_SUBRC = 4.
      EXIT.
    ENDIF.
ENDIF.

ENDFORM.                               " CHECK_MSEG
*--------------------------------------------------------------------
*       Form CHECK_MKPF
*--------------------------------------------------------------------
*       Materialbelege pr?en (Wurde durch VE-Buchung Pr?llos
*--------------------------------------------------------------------
FORM CHECK_MKPF USING P_MKPF_TAB TYPE T_MKPF_TAB
                      P_SUBRC    LIKE SY-SUBRC.

DATA:
    L_MKPF_TAB TYPE T_MKPF_TAB.

CLEAR: P_SUBRC.

SELECT MBLNR FROM QAMB INTO CORRESPONDING FIELDS OF TABLE
L_MKPF_TAB
    FOR ALL ENTRIES IN P_MKPF_TAB
    WHERE MBLNR EQ P_MKPF_TAB-MBLNR
      AND MJAHR EQ P_MKPF_TAB-MJAHR
      AND TYP   = '1'.

IF SY-SUBRC IS INITIAL.
    P_SUBRC = 4.
ENDIF.

ENDFORM.                               " CHECK_MKPF

댓글 수정 삭제
activeman

2008.10.14 14:48

e-abap 님 자료 감사합니다....여러 군데 찾아 봤는데 대체로 취소는 불가 하나 편법으로 취소를 하고 있네요.

즐밥하세요.

댓글 수정 삭제

번호	제목	글쓴이	날짜	조회 수
667	WBS화면의 제어 TAB에서 필수필드(투자사유) 함목 해제	여우들	2024.05.16	12
666	BAPI_ROUTING_CREATE 실행 시 에러	파뤼타임	2024.04.15	41
665	구매확인서와 단가관련 문의 건	엑쉐로	2024.03.07	63
664	오더 납품처 주소 바이트수 확인	westside	2024.03.13	64
663	Taxable & Non-taxable	아밥어린이	2023.04.01	96
662	MD04 MRP 요소 'SU' : TotReq ??	sapecc6	2023.08.09	111
661	이동유형 문서 번호(4,5) 의미 알려주세요!	미자나즈	2023.07.07	115
660	계좌 확인 [1]	한백	2024.02.25	123
659	업체 Vendor로 사업자정보 일괄조회 문의 件	신비한매력	2023.07.25	126
658	T-Code : S_ALR_87013542 에서 조회조건 권한 컨트롤	샤오린	2023.11.14	130
657	X/30 외주 임가공 문의	sapecc6	2023.11.13	133
656	[문의] Shipping doc. CBM 값 관련	Chul.K	2023.04.06	134
655	EA-FINSERV 보안패치관련 문의드려요(CVE-2018-2484)	뉴지	2019.09.26	135
654	SAP내에서 Ord와 Pch.ord	sap초	2024.01.02	146
653	외화평가 관련 문의	모놀로그	2023.04.17	155
652	SAP DSO, CUBE navigation attribute 선택 프로그램	십년만에	2020.10.22	160
651	okeon 티코드에서 코스트센터 활성화하는방법 있나요?	리얼오버	2022.01.10	169
650	BSEG-REBZG 송장참조 문의	repairbalm	2023.05.02	170
649	내부생산 인건비 지급 처리문의 [4]	삽고	2023.05.31	171
648	매출액이 1차원가요소 11번 수익으로 지정되서 이부분이 해결안되요	리얼오버	2022.01.12	172

쓰기 태그

첫 페이지 1 2 3 4 5 6 7 8 9 10 끝 페이지

SAP 한국 커뮤니티

로그인

QM [요청]검사합격처리의 취소에 대해서 궁금합니다.

댓글 2

e-abap

activeman