Mijn excuses voor het nogmaals posten van een vraag,
De onderstaande code werkt maar hij schiet in een loop.
Ik heb echt geen flauw idee hoe dit komt.
De onderstaande code werkt maar hij schiet in een loop.
Ik heb echt geen flauw idee hoe dit komt.
Code:
procedure TForm1.StartClick(Sender: TObject);
var
Type_veld: string;
Status_veld: string;
Nummer_veld: string;
Statusdatum_veld: string;
begin
with table1 do
table1.open; //* Verkoopstatus database
table1.first;
while not table1.eof do begin
//* loopt door de db heen en selecteert alle verkoopstatussen die nog behandeld moeten worden.
if table1.fieldbyname('NogBehandelen').AsBoolean = True then begin
memo1.lines.add(' na de eerste if ');
//memo1.lines.add(' record gelezen '+ Nummer_veld);
//* Loopt door de database en selecteerd de record op de ingegeven datum.
if table1.locate('Statusdatum', Edit1.text, []) then begin
Type_veld := table1.fieldbyname('Type').asstring + ';';
Status_veld := table1.fieldbyname('Status').asstring + ';';
Nummer_veld := table1.fieldbyname('Nummer').asstring + ';';
Statusdatum_veld := table1.fieldbyname('Statusdatum').asstring + ';';
memo1.lines.add(' na de tweede if ');
memo1.lines.add('! ' + 'Klantnummer: ' + Nummer_veld + ' Status: ' + status_veld + ' Datum: ' + Statusdatum_veld);
end;
memo1.lines.add(' voor de end zonder punt comma ');
end;
table1.next;
memo1.lines.add(' na de table 1 next ');
end;
memo1.lines.add(' Bestelstatus Gecontroleerd ');
end;
end.