Bernhard_F  Kannst du eine Dummy-DB mit csv-Werten zur Verfügung stellen, damit man mal sehen kann, wie sich die Excel Daten zusammensetzen?

 Bernhard_F

Probiere mal folgendes Script:

for a in select Import do
    let d := date(year(a.Datum), month(a.Datum) + 1, 1) - 1;
    if a.Datum = d then
        if cnt((select 'Zähler')[Datum = d]) = 0 then
            let crePV := (create 'Zähler');
            crePV.(
                Datum := a.Datum;
                Wert := a.Zahl
            )
        end
    end
end

Versuche doch mal so. Es ist Uwes Script erweitert um Deinen Wunsch. Mirko

let uniqueDate := unique((select Import).Datum);
let maxNr := for i in uniqueDate do
        max(for x in (select Import)[Datum = i] do
                x.number(Nr)
            end)
    end;
for i in maxNr do
    let rI := record(Import,i);
    if rI.date(year(Datum), month(Datum) + 1, 0) = rI.Datum and count((select 'Zähler')[Datum = rI.Datum]) = 0 then
        (create 'Zähler').(
            Datum := rI.Datum;
            Wert := rI.Zahl
        )
    end
end

Bernhard_F  Kannst du mir bitte eine Bsp-csv mailen, die du importierst.
Dann kann ich das mal testen.

foren.uwe@gmx.de

Ich habe das Script angepasst, da ich gesehen habe, dass du Berechnungen mit den erstellten Werten durchführen möchtest und die Reihenfolge der Recorderstellung dabei wichtig ist.
Zusätzlich habe ich dir ein csv-Importmodul mit einem Bildfeld erstellt, in das du die csv reinkopierst. Per Button werden dann die Daten in die ImportTabelle eingefügt.
Ich habe mal Mirkos sehr gutes Script und meines nebeneinander gestellt.
Die Ergebnisse sind völlig identisch. Du hast also die Auswahl.
Die Prüfung auf nachträglich vorhandene Daten mit größerem Wert funktioniert auch.

Den Punkt: Vielleicht wäre es doch super, wenn auch geprüft wird, wenn am letzten Tag im ausgewählten Monat keine Daten da sind, dann nimm die letzten vorhandenen Daten vom ausgewählten Monat.

habe ich nicht mehr berücksichtigt.

Vielleicht so?

do as server
    let uniqueYM := unique((select Import).yearmonth(Datum));
    let maxNr := for i in uniqueYM do
            let maxiImp := max((select Import)[yearmonth(Datum) = i].Datum);
            let maxiZael := max((select 'Zähler_Mirko')[yearmonth(Datum) = i].Datum);
            if maxiImp >= maxiZael then
                delete (select 'Zähler_Mirko')[yearmonth(Datum) = i]
            end;
            max((select Import)[yearmonth(Datum) = i and Datum = maxiImp].number(Nr))
        end;
    for i in maxNr do
        let rI := record(Import,i);
        (create 'Zähler_Mirko').(
            Datum := rI.Datum;
            Wert := rI.Zahl
        )
    end
end