Kundenaufträge trotz Abhängigkeiten löschbar

[Yannik3028]

Hallo zusammen,

wir haben das Problem, dass bei uns die Anwender immer wieder Kundenaufträge
löschen, obwohl bereits Fertigungsaufträge dazu vorhanden sind.

Kann man das ganze über das Customizing oder auf andere Art und Weise
verhindern ?

Danke + Gruß
Matthias

[Kadir2270]

Hallo Matthias,

das ist extrem seltsam, denn im Standard kann man eigentlich keinen Kundenauftrag löschen, sobald ein Fertigungsauftrag existiert, der auf den Kundenauftrag kontiert wurde.
Beim Versuch zu Löschen kommt es sofort zur Fehlermeldung 'Fertigungsauftrag vorhanden'.
Habt Ihr da vielleicht einen Exit oder etwas ähnliches im Einsatz?

Gruß


Joe.

[Alva1590]

Die Prüfungen finden hier statt. Transaktion SE38:

Include:
FV45PFAP_XVBAP_LOESCHEN_PRUEF1

Prüfung auf Fertigungsauftrag erfolgt hier:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. ...
2.     PERFORM einzelfertigung_pruefen CHANGING da_subrc
3.                                              da_msgv1
4.                                              da_msgv2
5.                                              da_msgv3.
6. ...
7.  

GeSHi ©

In der Form-Routine findest Du dann:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. * prüfen Fertigungsaufträge (keine statische Montage)
2.   PERFORM T459K_LESEN(SAPMV45A).
3.   IF T459K-MNTGA IS INITIAL OR
4.      T459K-MNTGA CA ATODYN.
5. ...
6.  
7. * Gibt es Fertigungsaufträge zur Position?
8.     CALL FUNCTION 'CO_61_CHECK_ORD_TO_SDOC'
9.          EXPORTING
10.               VBELN_IMP    = XVBAP-VBELV
11.               VBELP_IMP    = XVBAP-POSNV
12.          TABLES
13.               ORINF_TAB    = ORDERS
14.          EXCEPTIONS
15.               ORDER_COMP   = 02
16.               ORDER_EXISTS = 02
17.               ORDER_INWORK = 02.
18.  
19. * Einzelfertigung (nicht Montage): Erst Fertigungsaufträge löschen
20.     IF SY-SUBRC > 0 AND T459K-MNTGA IS INITIAL.
21.       CH_SUBRC = 2.
22. * Montage muß initialisiert werden
23.       RV45A-MONTAGE_INIT = CHARX.
24.       EXIT.
25.     ENDIF.
26.  
27. * Dynamische Montage: Kann Löschvormerkung gesetzt werden?
28.     IF T459K-MNTGA CA ATODYN.
29.       CLEAR DA_FLAG.
30.       LOOP AT ORDERS.
31.         PERFORM FAUF_LOESCHEN_PRUEFEN(SAPFV45E) USING ORDERS-AUFNR
32.                                                       DA_FLAG.
33.         IF DA_FLAG = CHARX.
34.           EXIT.
35.         ENDIF.
36.       ENDLOOP.
37.       IF DA_FLAG = CHARX.
38.         WRITE ORDERS-AUFNR TO CH_MSGV1 NO-ZERO LEFT-JUSTIFIED.
39.         CH_SUBRC = 6.
40.         EXIT.
41.       ENDIF.
42.     ENDIF.
43.   ENDIF.
44. ...
45.  
46.  

GeSHi ©