---

hallo leude

folgenden script ...

BEGIN M01_OnDeleteWspace      //löschen eines datensatzes im wspace
IF F85 = TXT_STATUSDEVELOP    // Status = Entwicklung
  LOG G_CRT "Bitte auch Datensatz in der Archiv-Datenbank löschen."
ENDIF
END

... hätte ich gerne so umgeschrieben, das der betreffende datensatz
automatisch (bzw. nach anzeige einer dialogbox) in der datenbank gelöscht wird.

ich stell mir sowas vor ...

Select F2 From R1 where R1.F2 = F2  // datensatz wird gefunden
  IF G_SQLRET = TRUE
      'datensatz löschen'
  ENDIF

... wer kann denn da helfen?

gruß
armin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Armin,

ich glaube ein automatisches löschen des Datensatzes ist nicht so einfach. Der Datensatz enthält die Historie, Stückliste. Diese müssen vor dem löschen entfernt werden. Bei uns werden diese erzeugten Daten mit dem Status Abgebrochen ins Archiv geschoben.

Ein Beispiel

BEGIN Ablage_leer
DEBLOG G_CRT "Ablage_leer"
//Bauteile
IF KATNR = "2"
    SELECT * FROM R2 WHERE R2.F1 = F1
    IF G_SQLRET = TRUE
    SET R2.F85 = TXT_STATUSBREAK
    SET R2.F87 = ""
    SET R2.F28 = "              F"
    UPDATE R2 WHERE R2.F1 = F1

    UNLOCK R2 WHERE R2.F1 = F1
  SET R9.F0  = F1
  SET R9.F1  = F1
  SET R9.F2  = F1
  SET R9.F6  = G_FULLNAME
  SET R9.F7  = G_DATE
  SET R9.F8  = G_TIME
  SET R9.F10 = "BTModell von Ablage in Archiv abgelegt"
  SAVE R9
    ENDIF
  UPDATEVIEW
ENDIF

Gruß

Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo peter

schönen dank für deine hilfe.
so gehts auch, datensatz auf abbruch setzen.
ich werde dann noch die zeichnungsnummer überschreiben,
damit sie wieder vergeben werden kann.

aber vielleicht kennt ja noch einer ne schöne routine
zum löschen.

gruß
armin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wen's interessiert, so funzt es ...

API_WSPACE_REJECT = M01_OnDeleteWspace

BEGIN M01_OnDeleteWspace
IF F85 = TXT_STATUSDEVELOP          // wenn in entwicklung
  DELETE FROM R1 WHERE R1.F1 = F1  // katalog 1 zeichnungsnummer
  DELETE FROM R5 WHERE R5.F1 = F0  // katalog 5 teilestammnummer
Endif
END

gruß
armin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP