Guten Morgen zusammen,
ich hab da mal ein Problem. Per Schleife möchte ich ein Array befüllen lassen.
Das Dimensioniert sich auch richtig, bzw. auf die richtige Anzahl an Positionen.
Nur leider sind nur die erste und letzte befüllt und das auch noch gleich.
Hier mal der Code, ich weiß gerade nicht weiter.
Do While Not doc Is Nothing
If entry Is Nothing Then
Exit Do
End If
Set doc = entry.Document
Set dtLiefer = New NotesDateTime( doc.lieferdatum(0) )
Set dtHeute = New NotesDateTime( Now )
Set dtLiefer = New NotesDateTime( doc.lieferdatum(0) )
Set dtHeute = New NotesDateTime( Now )
If dtHeute.TimeDifference(dtLiefer) > 0 Then
If doc.AuftragErledigt(0)="0" Then
Redim Ergebnis (counter)
Filiale = Left(Nummer,4)
Ergebnis(counter)= doc.belegnr(0)
counter=counter+1
End If
End If
Set entry= vc.GetNextEntry(entry)
Loop
Gruß Thomas