Delphi progsel

[Verwijderd]

Ik ben bezig met een progje in delphi wat onbetaalde facturen in een database opzoekt.
Nu zit ik een klein beetje vast. Volgens mij zou onderstaande code moeten kloppen

Ziet iemand misschien iets wat er fout gaat?

code:

procedure TForm1.StartClick(Sender: TObject);
var
 vType: string;
 vStatus: string;
 vNummer: string;
 vStatusdatum: string;
 vKlant: string;
 vOmschrijving: string;
 Handelingregel : string;

begin
 try
   Verkoophandelingen.open;  //* Verkoopstatus database
   while not Verkoophandelingen.eof do
   begin
     // Kijk of dit record binnen de datum begrenzing valt.
     if (Verkoophandelingen.FieldByName('Statusdatum').AsDateTime > DateTimePicker1.Date) and
        (Verkoophandelingen.FieldByName('Statusdatum').AsDateTime < DateTimePicker2.Date) then
     begin
       // Kijk of dit record nog behandeld moet worden.
       if Verkoophandelingen.FieldByName('NogBehandelen').AsBoolean then
       begin
         if Klanten.Locate('Nummer',Verkoophandelingen.fieldbyname('Klantnr').asstring,[]) then
           vKlant := Klanten.fieldbyname( 'Contactpersoon').asstring
         else
           vKlant := 'onbekend';
           if Status.Locate('Nummer',Verkoophandelingen.fieldbyname('Status').asstring,[]) then
           vOmschrijving := Status.fieldbyname( 'Omschrijving').asstring
         else
           vOmschrijving := 'onbekend';
         // Hier record verwerken.
         vType := Verkoophandelingen.fieldbyname('Type').asstring;
         vStatus := Verkoophandelingen.fieldbyname('Status').asstring;
         vNummer := Verkoophandelingen.fieldbyname('Nummer').asstring;
         vStatusdatum := Verkoophandelingen.fieldbyname('Statusdatum').asstring;
         Handelingregel := format('Bestelnummer: %s; status: %s; datum: %s; Type %s; klant %s',
                                  [vNummer,vStatus,vStatusdatum,vType,vKlant]);
         //memo1.lines.add(' na de tweede if ');
         memo1.lines.add(Handelingregel);

       end;  //if nogbehandelen
     end;; //if datum
     Verkoophandelingen.next;
   end; //while
 finally
   memo1.lines.add(' Bestelstatus Gecontroleerd ');
   Verkoophandelingen.filtered := false;
   Verkoophandelingen.close;
 end;
end;

[nika]

Zo dat is wel heel weinig aanvullende info. Wat gaat er niet goed dan bijvoorbeeld.

Eerste ingeving bij bovenstaande code: matchen je data formats (in de DB en in de datepicker) (timestamp vs. text?)

[_Apache_]

Wat heb je al gedebugd?

Programming FAQ - Algemeen

[Verwijderd]

nika schreef op maandag 22 november 2010 @ 11:09:
Zo dat is wel heel weinig aanvullende info. Wat gaat er niet goed dan bijvoorbeeld.

Eerste ingeving bij bovenstaande code: matchen je data formats (in de DB en in de datepicker) (timestamp vs. text?)

De datetimepicker gaat goed daar zit het probleem niet, Het rare is dat delphi niks kan vinden, hij compiled de code gewoon. zodra ik het programma run en een database inlaad en de code start faalt het. het zit zeer waarschijnlijk is deze regels code:

if Status.Locate('Nummer',Verkoophandelingen.fieldbyname('Status').asstring,[]) then
vOmschrijving := Status.fieldbyname( 'Omschrijving').asstring

Maar ik zie niet wat er fout gaat. Heb het al meerdere malen gedebuged

[SysRq]

Wat "faalt" er precies? Krijg je een foutmelding/access violation/onverwacht resultaat? Komt het resultaat altijd op onbekend te staat?

Wordt de status tabel/query wel geopend?

[NMe]

Sorry, maar met "het werkt niet" en een dump van je code gaan wij je niet helpen. Ten eerste ziet dat er ongelofelijk lui uit, alsof je zelf niks aan een oplossing hebt gedaan. Daarnaast ben jij de enige die dit uberhaupt kan debuggen omdat jij de complete code bezit en wij niet. Dit nog naast het feit dat je niet eens aangeeft waar het mis gaat. Je zegt bij de dokter toch ook niet "ik heb pijn, maak me beter"?

Zie ook De Quickstart. Dit topic gaat in elk geval dicht bij gebrek aan eigen inzet.

[Woy]

Zoals al aangedragen door de users hierboven, geef je wel erg weinig informatie. Het is zeker niet de bedoeling dat wij hier jouw probleem gaan zitten debuggen en oplossen. Lees Programming FAQ - Algemeen en De Quickstart eens door.

Dus probeer eerst eens zelf wat meer te debuggen, en als je er dan nog niet uit komt, en je hebt ons wat meer informatie te bieden, dan kun je een nieuw topic openen ( Mits je je aan het PRG beleid, en de Quickstart houd )