/* DeletePic.rexx, 20.09.94 Jörg Richter */

OPTIONS RESULTS

NL = D2C(10)

ADDRESS DataBase

Total
IF result = 0 THEN
  EXIT

Request "_Löschen|_Abbruch" "ACHTUNG! Gelöscht werden:" || NL || NL || "· das Orginalbild" || NL || "· das Vorschaubild" || NL || "· der Datensatz" || NL || NL || "Sind Sie sicher ?"
IF RC = 0 THEN
  EXIT

GetData $F1
bild = result
GetData $F4
thumb = result

ADDRESS COMMAND
'C:Delete > NIL: ' || bild
fehler1 = RC
'C:Delete > NIL: ' || thumb
fehler2 = RC

ADDRESS DataBase

IF fehler1 ~= 0 THEN
  Request "_Ok" "Das Orginalbild konnte nicht gelöscht werden"
IF fehler2 ~= 0 THEN
  Request "_Ok" "Das Vorschaubild konnte nicht gelöscht werden"
Delete