0

Dialogfeld mit ausführbaren Script

Sorry aber ich komme immer wieder an meine Grenzen.(Ich habe schon wieder eine Stunde nach einer Lösing gesucht, bekomme es aber nicht hin).

Hiermit kopiere ich neue Einträge in eine Tabelle 

---

for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es sind keine neuen Datensätze vorhanden")
end
end

---

Dialogfunktion

---

let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
if Antwort = "Nein" then
alert("Datensatz wurde NICHT kopiert.")
else

alert("Die Datensätze wurden erfolgreich nach...kopiert")

end

---

einzeln in separaten Button funktioniert alles, kombiniert nur dr erste Teil wenn nein, nicht wenn Ja ausgewählt wird.

Dann springt er direkt zum letzten alert, führt aber nicht den Code aus.

Meine Vermutung ist, das die Verschachtelung mit dem else falsch ist, aber ich habe null Ahnung wie ich das anders machen soll. Wahrscheinlich ist die Llsung mal wieder ganz einfach.

Was ist wieder falsch???? Vielleicht liegt es auch am Wetter, hier in Berlin bei 37 Grad wird das Gehirn langsam weich gekocht😜😎

---

let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
if Antwort = "Nein" then
alert("Datensatz wurde NICHT kopiert.")
else
for i in select BOOKS do
if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
(create BooksVideosEffects).(
Name := i.BookName;
TotalPages := i.TotalPages;
Vorname := i.AUTHORS.Vorname;
Nachname := i.AUTHORS.Nachname
);
alert("Alle Datensätze wurden nach BooksVideosEffects kopiert")
else
alert("Es sind keine neuen Datensätze vorhanden")
end
end
end

---

Danke für die Hilfe, das war es zumindest für heute. Mein Koof qualmt.!!!!!

Wolfgang (Grüße aus der Hauptstadt)

3 Antworten

null
    • Leonid_Semik
    • vor 5 Jahren
    • Gemeldet - anzeigen

    Der Dialog ist richtig, allerdings sind die alerts innerhalb der Schleife, d.H.es wird nur der letzte popup angezeigt.

    • Wolfgang
    • vor 5 Jahren
    • Gemeldet - anzeigen

    Wie muss man das modifizieren das es geht??

    • Leonid_Semik
    • vor 5 Jahren
    • Gemeldet - anzeigen

    let myFlag:=false;

    let Antwort := dialog("A C H T U N G", "Wollen Sie neue Datensätze nach VideosBooksEffects kopieren?", ["Ja", "Nein"]);
    if Antwort = "Nein" then
    alert("Datensatz wurde NICHT kopiert.")
    else
    for i in select BOOKS do
    if cnt((select BooksVideosEffects)[Name = i.BookName and TotalPages = i.TotalPages and Vorname = i.AUTHORS.Vorname and Nachname = i.AUTHORS.Nachname]) = 0 then
    (create BooksVideosEffects).(
    Name := i.BookName;
    TotalPages := i.TotalPages;
    Vorname := i.AUTHORS.Vorname;
    Nachname := i.AUTHORS.Nachname
    );

    myFlag:=true

    end
    end
    end;

    alert( if myFlag=true then "Alle Datensätze wurden nach BooksVideosEffects kopiert" else "Es sind keine neuen Datensätze vorhanden" end)

     

    Leo

Content aside

  • vor 5 JahrenZuletzt aktiv
  • 3Antworten
  • 1244Ansichten