ve toplam tutar alanındaki borçlarını toplatırıp CxTextEdit7 ye yazdırıyordum
bir sorun yoktu.Fakat seçmiş olduğum carinin her hangi bir bilgisi bulunmazsa yani
cxgrid içinde görüntülenecek bir şey olmayınca o zaman tipdönüşüm hatası veriyor.
Bunu nasıl önleyebilirim.
Kod: Tümünü seç
procedure TForm2.CariyeGoreBorcSorgu;
var
ToplamBorc : currency;
s : string;
harfduyarlilik:TReplaceFlags;//unutmayın Küçük büyük duyarlılığı yok
begin
// burda bu nesneleri true yapyoruz ki kod içinde false oluşacak olursa tekrar başa dönünce ture oluyor.
Button1.Enabled := True ;
cxTextEdit1.Enabled := True;
// toplam tutaru footer da toplatıyoruz ya o rakımı edit1 e yazdırmak
//ToplamBorc :=StrToFloat(Stringreplace(cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0],',','',harfduyarlilik));
// buda kestirmesi iki üç satırda da oluyor oda
s := cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0];
s := StringReplace(s,',','',harfduyarlilik); // binlik ayıracı siliniyor
ToplamBorc := StrToFloat(s);
if cxTextEdit6.Text <> 'YOK' then
begin
if ToplamBorc >= StrToFloat(CxTextEdit7.Text) then
begin
ShowMessage ('Kişinin Borç Toplamı= ' + FloatToStr(ToplamBorc) + ' TL '+
'olmuştur SATIŞ YAPILAMAZ. Üst Sınırı= ' + CxTextEdit7.Text + ' TL dir. '+
' Lütfen Kişiyi arayınız ve TAHSİLATINIZI YAPINIZ.' );
Button1.Enabled := False ;
cxTextEdit1.Enabled := False;
cxGrid1.SetFocus;
end;
end;
end;