Gelöst NAV2016 - Fehler in Aufgabenwarteschlange

Hallo zusammen, in unseren Aufgabenwarteschlangeposten läuft diese CU 1509 immer wieder auf einen Fehler, da die Tabelleninhalte in der Tab.1511 nicht gelöscht werden - siehe Bilder - was könnte die Ursache sein und wie kann ich das lösen? VG Peter

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

Zuletzt geändert von Peter999 am 27. Februar 2023 17:42, insgesamt 1-mal geändert.

Hi,

ich hatte dort auch schon Probleme. Bei mir hat es geholfen die "veralteten" Datensätze aus der Tabelle zu löschen. Ich habe mir die Funktion von Standard geholt (NAV2017).

Code:

LOCAL PROCEDURE DeleteNotif@1000000104();
    VAR
      NotificationEntry@1000000000 : Record 1511;
    BEGIN
      NotificationEntry.RESET();
      DeleteOutdatedApprovalNotificationEntires(NotificationEntry);
    END;

    LOCAL PROCEDURE DeleteOutdatedApprovalNotificationEntires@1(VAR NotificationEntry@1000 : Record 1511);
    BEGIN
      IF NotificationEntry.FINDFIRST THEN
        REPEAT
          IF ApprovalNotificationEntryIsOutdated(NotificationEntry) THEN
            NotificationEntry.DELETE;
        UNTIL NotificationEntry.NEXT = 0;
    END;

    LOCAL PROCEDURE ApprovalNotificationEntryIsOutdated@9(VAR NotificationEntry@1000 : Record 1511) : Boolean;
    VAR
      ApprovalEntry@1003 : Record 454;
      OverdueApprovalEntry@1002 : Record 458;
      DataTypeManagement@1004 : Codeunit 701;
      RecRef@1001 : RecordRef;
    BEGIN
      DataTypeManagement.GetRecordRef(NotificationEntry."Triggered By Record",RecRef);

      CASE NotificationEntry.Type OF
        NotificationEntry.Type::Approval:
          BEGIN
            RecRef.SETTABLE(ApprovalEntry);
            IF NOT RecRef.GET(ApprovalEntry."Record ID to Approve") THEN
              EXIT(TRUE);
          END;
        NotificationEntry.Type::Overdue:
          BEGIN
            RecRef.SETTABLE(OverdueApprovalEntry);
            IF NOT RecRef.GET(OverdueApprovalEntry."Record ID to Approve") THEN
              EXIT(TRUE);
          END;
      END;
    END;

Vielen Dank für die schnelle Rückmeldung, ich werde es mal so ausprobieren, mit der NAV2017 Ergänzung. VG Peter

Super!!! Vielen Dank für die Hilfe, wir haben die CU aus NAV2017 downgegradet und nun läuft alles perfekt!!!!!!!!