Hallo Zusammen,

ich habe ein Problem mit diesem Code.
ich bekommen manchmal den Fehler Object Object

wir nutzen diesen Code mit 144 Datensätzen Ohne Probleme
Dann haben wir 71 neue Datensätze und wir bekommen Object Object fehler.
 

ich finde diesen fehler einfach nicht

Hat jemand Erfahrung mit diesem Fehler ?

let config := first(select Texte);
let emailTextBefund := config.'E-Mail Text Befund';
let passwortBestellnummerText := config.'E-Mail Text Passwort Bestellnummer';
let passwortMaskenIDText := config.'E-Mail Text Passwort Masken ID';
let alle := (select Drucktabelle_negativ);
let emailCount := 0;
let totalEntries := cnt(alle);
let entriesWithEmail := 0;
for a in alle do
    if a.'E-Mail-Adresse des Kontakts' != null and
            a.'Bevorzugte Kontaktmethode für Befund' like "Mail" and
        a.Vorschau != null then
        entriesWithEmail := entriesWithEmail + 1;
        let emailTextFormatted := replace(raw(emailTextBefund), "Name]", a.'Name des Empfängers');
        let emailTextFallback := replace(raw(emailTextBefund), "Name]", a.'Name des Empfängers');
        sendEmail({
            from: "ergebnis@dogscan-deutschland.de",
            to: a.'E-Mail-Adresse des Kontakts',
            bcc: "ergebnis@dogscan-deutschland.de",
            replyTo: "ergebnis@dogscan-deutschland.de",
            subject: "Testergebnis Ihrer Vorsorge bei Dogscan",
            text: emailTextFallback,
            html: emailTextFormatted,
            attachments: a.Vorschau
        });
        sleep(200);
        emailCount := emailCount + 1;
        let passwortText := "";
        let passwortTextfallback := "";
        if a.Bestellnummer != null then
            passwortText := replace(raw(passwortBestellnummerText), "Name]", a.'Name des Empfängers');
            passwortTextfallback := replace(raw(passwortBestellnummerText), "Name]", a.'Name des Empfängers')
        else
            passwortText := replace(raw(passwortMaskenIDText), "Name]", a.'Name des Empfängers');
            passwortTextfallback := replace(raw(passwortMaskenIDText), "Name]", a.'Name des Empfängers')
        end;
        sendEmail({
            from: "ergebnis@dogscan-deutschland.de",
            to: a.'E-Mail-Adresse des Kontakts',
            bcc: "ergebnis@dogscan-deutschland.de",
            replyTo: "ergebnis@dogscan-deutschland.de",
            subject: "Passwort zu Ihrem Testergebnis",
            text: passwortTextfallback,
            html: passwortText
        });
        let maskenID := a.'Masken ID';
        if maskenID > null then
            let hauptEintrag := first(select Datenbank where 'Masken ID' = maskenID);
            if hauptEintrag != null then
                let neuerEintrag := (create 'Masken Historie');
                neuerEintrag.('Anlagen Nr.' := hauptEintrag.'Anlagen Nr.');
                neuerEintrag.('Datum der Diagnose' := hauptEintrag.'Datum der Diagnose');
                neuerEintrag.(Ergebnis := hauptEintrag.Ergebnis);
                neuerEintrag.('Anzeige von' := hauptEintrag.'Anzeige Neu');
                neuerEintrag.(Datenbank := hauptEintrag);
                hauptEintrag.(Bestellnummer := a.Bestellnummer);
                hauptEintrag.(Anrede := a.Anrede);
                hauptEintrag.('Name des Empfängers' := a.'Name des Empfängers');
                hauptEintrag.('E-Mail-Adresse des Kontakts' := a.'E-Mail-Adresse des Kontakts');
                hauptEintrag.('Telefonnummer des Empfängers' := a.'Telefonnummer des Empfängers');
                hauptEintrag.('geboren am' := a.'geboren am');
                hauptEintrag.('Datum der Diagnose' := a.'Datum der Diagnose');
                hauptEintrag.('Adresse der Lieferung' := a.'Adresse der Lieferung');
                hauptEintrag.('PLZ der Lieferung' := a.'PLZ der Lieferung');
                hauptEintrag.('Ort der Lieferung' := a.'Ort der Lieferung');
                hauptEintrag.('Land der Lieferung' := a.'Land der Lieferung');
                hauptEintrag.('Anlagen Nr.' := a.'Anlagen Nr.');
                hauptEintrag.('Tragekompfort der Maske' := a.'Tragekompfort der Maske');
                hauptEintrag.('Anzeige Neu' := a.'Anzeige von');
                hauptEintrag.(Ergebnis := a.Ergebnis);
                hauptEintrag.(Bemerkungsfeld := a.Bemerkung);
                hauptEintrag.('Wollen Sie an der Studie teilnehmen ?' := a.'Wollen Sie an der Studie teilnehmen ?');
                hauptEintrag.('Rauchen Sie ?' := a.'Rauchen Sie ?');
                hauptEintrag.('Nehmen Sie aktuell Medikamente ?' := a.'Nehmen Sie aktuell Medikamente ?');
                hauptEintrag.('welche Medikamente nehmen Sie ?' := a.'welche Medikamente nehmen Sie ?');
                hauptEintrag.('Haben Sie chronische Erkrankungen ?' := a.'Haben Sie chronische Erkrankungen ?');
                hauptEintrag.('an welche chronische Erkrankungen leiden Sie ?' := a.'an welche chronische Erkrankungen leiden Sie ?');
                hauptEintrag.('Fühlen Sie sich zur zeit Gesund ?' := a.'Fühlen Sie sich zur zeit Gesund ?');
                hauptEintrag.('welche Symptome haben Sie ?' := a.'welche Symptome haben Sie ?')
            else
                let newRec := (create Datenbank);
                newRec.(Bestellnummer := a.Bestellnummer);
                newRec.(Anrede := a.Anrede);
                newRec.('Name des Empfängers' := a.'Name des Empfängers');
                newRec.('E-Mail-Adresse des Kontakts' := a.'E-Mail-Adresse des Kontakts');
                newRec.('Telefonnummer des Empfängers' := a.'Telefonnummer des Empfängers');
                newRec.('geboren am' := a.'geboren am');
                newRec.('Datum der Diagnose' := a.'Datum der Diagnose');
                newRec.('Adresse der Lieferung' := a.'Adresse der Lieferung');
                newRec.('PLZ der Lieferung' := a.'PLZ der Lieferung');
                newRec.('Ort der Lieferung' := a.'Ort der Lieferung');
                newRec.('Land der Lieferung' := a.'Land der Lieferung');
                newRec.('Anlagen Nr.' := a.'Anlagen Nr.');
                newRec.('Tragekompfort der Maske' := a.'Tragekompfort der Maske');
                newRec.('Anzeige Neu' := a.'Anzeige von');
                newRec.(Ergebnis := a.Ergebnis);
                newRec.(Bemerkungsfeld := a.Bemerkung);
                newRec.('Masken ID' := a.'Masken ID');
                newRec.('Wollen Sie an der Studie teilnehmen ?' := a.'Wollen Sie an der Studie teilnehmen ?');
                newRec.('Rauchen Sie ?' := a.'Rauchen Sie ?');
                newRec.('Nehmen Sie aktuell Medikamente ?' := a.'Nehmen Sie aktuell Medikamente ?');
                newRec.('welche Medikamente nehmen Sie ?' := a.'welche Medikamente nehmen Sie ?');
                newRec.('Haben Sie chronische Erkrankungen ?' := a.'Haben Sie chronische Erkrankungen ?');
                newRec.('an welche chronische Erkrankungen leiden Sie ?' := a.'an welche chronische Erkrankungen leiden Sie ?');
                newRec.('Fühlen Sie sich zur zeit Gesund ?' := a.'Fühlen Sie sich zur zeit Gesund ?');
                newRec.('welche Symptome haben Sie ?' := a.'welche Symptome haben Sie ?')
            end
        else
            let newRec := (create Datenbank);
            newRec.(Bestellnummer := a.Bestellnummer);
            newRec.(Anrede := a.Anrede);
            newRec.('Name des Empfängers' := a.'Name des Empfängers');
            newRec.('E-Mail-Adresse des Kontakts' := a.'E-Mail-Adresse des Kontakts');
            newRec.('Telefonnummer des Empfängers' := a.'Telefonnummer des Empfängers');
            newRec.('geboren am' := a.'geboren am');
            newRec.('Datum der Diagnose' := a.'Datum der Diagnose');
            newRec.('Adresse der Lieferung' := a.'Adresse der Lieferung');
            newRec.('PLZ der Lieferung' := a.'PLZ der Lieferung');
            newRec.('Ort der Lieferung' := a.'Ort der Lieferung');
            newRec.('Land der Lieferung' := a.'Land der Lieferung');
            newRec.('Anlagen Nr.' := a.'Anlagen Nr.');
            newRec.('Tragekompfort der Maske' := a.'Tragekompfort der Maske');
            newRec.('Anzeige Neu' := a.'Anzeige von');
            newRec.(Ergebnis := a.Ergebnis);
            newRec.(Bemerkungsfeld := a.Bemerkung);
            newRec.('Masken ID' := a.'Masken ID');
            newRec.('Wollen Sie an der Studie teilnehmen ?' := a.'Wollen Sie an der Studie teilnehmen ?');
            newRec.('Rauchen Sie ?' := a.'Rauchen Sie ?');
            newRec.('Nehmen Sie aktuell Medikamente ?' := a.'Nehmen Sie aktuell Medikamente ?');
            newRec.('welche Medikamente nehmen Sie ?' := a.'welche Medikamente nehmen Sie ?');
            newRec.('Haben Sie chronische Erkrankungen ?' := a.'Haben Sie chronische Erkrankungen ?');
            newRec.('an welche chronische Erkrankungen leiden Sie ?' := a.'an welche chronische Erkrankungen leiden Sie ?');
            newRec.('Fühlen Sie sich zur zeit Gesund ?' := a.'Fühlen Sie sich zur zeit Gesund ?');
            newRec.('welche Symptome haben Sie ?' := a.'welche Symptome haben Sie ?')
        end;
        delete a
    else
        if not a.'E-Mail-Adresse des Kontakts' then
            alert("Keine gültige E-Mail-Adresse vorhanden oder Kontaktmethode nicht E-Mail.")
        else
            if a.Vorschau = null then
                alert("Befund wurde nicht erstellt und konnte nicht an die E-Mail angehängt werden.")
            end
        end
    end;
    alert("Es gibt " + text(totalEntries) + " Einträge in der Drucktabelle, davon " +
    entriesWithEmail +
    " Einträge mit einer E-Mail. " +
    text(emailCount) +
    " E-Mails wurden verschickt.");
    sleep(500)
end

danke euch.

LG

Alex