hatası veriyor, doğal olarak bu hatayı nasıl ortadan kaldırabilirim.
Teşekkür ederim.
Butonda kullandığım kod aşağıdaki gibidir.
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject);
begin
If DBEditeh28.Text <>'' then //İskonto Oranı Doluysa
Form2.Table3IskontoToplam.AsCurrency:=(DbGrideh1.Columns[3].Footers[0].SumValue)*(Form2.Table3Iskonto.AsCurrency)/100;
If DBEditeh29.Text <>'' then // İskonto Toplam Doluysa
DbGrideh1.Columns[3].Footers[1].Value:=DBEditEh29.Text;//İskonto Oranını Gridin Footer'ına yazdık
If DBEditeh28.Text <>'' then
Form2.Table3IskontoluToplam.AsCurrency:=(DbGrideh1.Columns[3].Footers[0].SumValue)-(Form2.Table3IskontoToplam.AsCurrency)
else
DBEditeh31.Text :='';
If Dbediteh31.Text <>'' then//İskontolu toplam doluysa
Form2.Table3KDVToplam.AsCurrency:=(Form2.Table3IskontoluToplam.AsCurrency)*(Form2.Table3KDV.AsCurrency)/100;
If Dbediteh31.Text <>'' then //İskontolu toplam doluysa
DbGrideh1.Columns[3].Footers[2].Value:=DBEditEh26.Text;//KDV Oranını Gridin Footer'ına yazdık
If Dbediteh31.Text <>'' then //İskontolu toplam doluysa
Form2.Table3KDVliToplam.AsCurrency:=(Form2.Table3IskontoluToplam.AsCurrency)+(Form2.Table3KDVToplam.AsCurrency)
else
DBEditeh32.text :='';
If DBEditeh27.Text='' then //KDV Oranı boşsa
DBEditeh32.Text :=''; //KDV'li Toplam Boş
If Dbediteh31.Text ='' then //İskontolu toplam boşsa
Form2.Table3KDVToplam.AsCurrency:=(DbGrideh1.Columns[3].Footers[0].SumValue)*(Form2.Table3KDV.AsCurrency)/100;
If Dbediteh31.Text ='' then //İskontolu toplam boşsa
DbGrideh1.Columns[3].Footers[2].Value:=DBEditEh26.Text;//KDV Oranını Gridin Footer'ına yazdık
If Dbediteh31.Text ='' then //İskontolu toplam boşsa
Form2.Table3KDVliToplam.AsCurrency:=(DbGrideh1.Columns[3].Footers[0].SumValue)+(Form2.Table3KDVToplam.AsCurrency);
If DBEditeh32.Text <>'' then//KDV li toplam boşsa
DbGrideh1.Columns[3].Footers[3].Value:=DBEditEh32.Text;//KDVli toplam genel toplamdır. Gridin Footer'ına yazdık
If DBEditeh28.Text='' then //İkonto oranı boşsa
DBEditeh29.Text:=''; //İskonto Toplam boş
If DBEditeh27.Text='' then //KDV Oranı boşsa
DBEditeh26.Text:=''; //KDV Toplam boş
If DBEditeh27.Text='' then
DBEditeh32.Text:='';
If DBEditeh32.Text ='' then//KDV li toplam boşsa
DbGrideh1.Columns[3].Footers[3].Value:='KDV Yok';//KDVli toplam genel toplamdır. Gridin Footer'ına yazdık
end;