cxgrid hk.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ieski
Üye
Mesajlar: 20
Kayıt: 09 Tem 2003 08:19

cxgrid hk.

Mesaj gönderen ieski »

günlerdir uğraşıyorum araştırırıyorum mustafa hocamada bir yöntem söyledi ama olmadı nasıl yapacağım bilmiyorum..

cxgrid kullanıyorum.. ekranda herhangi bir hücreye kullanıcı
tıkladı ve bir değer girdi şimdi bu değeri database'e post etmeden
okumam gerekiyor. nasıl okuyabilirim.

her türlü yolu denedim olmadı.. post etmeden okuyamıyorum...

Teşekkürler.

Örnek
Ekran

Açıklama Adet Birim Fiyat KDV Tutar

Yukarda açıklamayı yazıyor sonra adete yazıyor sonra birim fiyatı yazıyor. bu esnada adet ve birim fiyat girince girilen bilgiyi kontrol edip KDV TUTAR alanlarını hesaplayıp yazıp post işlemini ben yapmak istiyorum..

Kdv ve Tutar alanlarına giriş kapalı..

Kodlar


procedure TForm1.cxGrid1DBTableView1EditValueChanged(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem);
var
adet: integer;
birimf: currency;
satir: integer;
begin

satir := cxGrid1DBTableView1.DataController.FocusedRowIndex;
adet := cxGrid1DBTableView1.DataController.GetValue(satir, 1);
birimf := cxGrid1DBTableView1.DataController.GetValue(satir, 2);


try
if (adet > 0) and (birimf > 0) then
begin
IBDataSet_Fatura_Detay.Post;
IBDataSet_Fatura_Detay.Edit;
cxGrid1DBTableView1TUTAR.DataBinding.Field.AsCurrency := birimf * adet;

cxGrid1DBTableView1KDV.DataBinding.Field.AsFloat :=
cxGrid1DBTableView1TUTAR.DataBinding.Field.AsCurrency *
IBQ_Urun.FieldByName('KDV_ORANI').AsFloat / 100;
IBDataSet_Fatura_Detay.Post;
Toplamlar;
end;


except
on e: Exception do
ShowMessage(e.Message);
end;

end;






--
Cevapla