EConvertError Delphi 6 Prof.

[kdf]

Hallo,
es funktioniert jetzt wieder, die Ursache ist mir nicht ganz klar.

Hier ist einmal die IB_Cursor CAuftragSumme

SELECT
SUM(AUF2_SOLLMENGE) AS SUM_SOLLMENGE,
SUM(AUF2_ISTMENGE) AS SUM_ISTMENGE,
SUM(AUF2_GESAMTPREIS) AS SUM_GESAMTPREIS
FROM T_AUFTRAG2
WHERE (AUF2_REF = :REF) AND (AUF2_STATUS = :STATUS)

und die IB_Cursor CAufSumme

SELECT SUM(LAG2_MENGE)-SUM(LAG2_ENTNAHME) AS LAG2_GESAMT
FROM T_LAGER2
WHERE LAG2_AUFTRAGNR=:AUF


procedure TDM1.AuftragSumme(Sender:TObject);
begin
//exit;
CAuftragSumme.Close;
CAuftragSumme.ParamByName('REF').Assign(DM1.QAuftr ag.FieldByName('AUF_ID'));
CAuftragSumme.ParamByName('STATUS').Assign(DM1.QAu ftrag2.FieldByName('AUF2_STATUS'));
If CAuftragSumme.Prepared then CAuftragSumme.Unprepare;
CAuftragSumme.Prepare;
CAuftragSumme.First;
CAufSumme.Close;
CAufSumme.ParamByName('AUF').Assign(DM1.QAuftrag.F ieldByName('AUF_AUFTRAGNR'));
If CAufSumme.Prepared then CAufSumme.Unprepare;
CAufSumme.Prepare;
CAufSumme.First;
end;

Das war wahrscheinlich ein Initialisierungsfehler in :REF, bzw. AUF_ID. AUF_ID ist Integer. Ich habe die P AuftragSumme zunächst auskommentiert (exit). Der Fehler trat dann nicht mehr auf. Nachdem ich dann exit auskommentiert habe, kam es nicht mehr zu dem Fehler.

Funktioniert jetzt. Besser wäre es, ich wüßte auch warum.

K.-D.