09-06-2017, Saat: 15:36
Merhaba; listviewde ürün daha önce ekliyse adeti ve toplam fiyatı değişecek.
Buraya kadar sorun yok fakak ürün olsada olmasada işlem sonunda editin temizlenmesini istiyorum ama bir türlü edit temizlenmiyor, nedenini anlayamadım
Sorun nereden kaynaklanıyor olabilir?
Buraya kadar sorun yok fakak ürün olsada olmasada işlem sonunda editin temizlenmesini istiyorum ama bir türlü edit temizlenmiyor, nedenini anlayamadım
Sorun nereden kaynaklanıyor olabilir?
procedure TForm2.EditUrunKeyPress(Sender: TObject; var Key: Char); var Itm: TListItem; I: Integer; Urunbuldum: Boolean; begin if SplitViewSatis.Opened then begin try Urunbuldum := False; With QueryUrun, LVSatis do begin Connection := FDConnecMain; Close; SQL.Clear; SQL.Add('Select * From URUNLER'); SQL.Add('Where BARKOD LIKE ' + QuotedStr('%' + EditUrun.Text + '%')); Prepared := True; Open; if Not IsEmpty then begin for I := Items.Count - 1 downto 0 do begin if Pos(EditUrun.Text, Items[I].SubItems[0]) > 0 then begin EditUrun.Clear; Form2.EditUrun.Text := ''; Form2.Caption := 'var mış bu ürün'; Urunbuldum := True; Break; end; end; if Not Urunbuldum then // Ürün yoksa ekle begin Itm := LVSatis.Items.Add; Itm.Caption := FieldByName('ID').AsString; Itm.SubItems.Add(FieldByName('BARKOD').AsString); Itm.SubItems.Add(FieldByName('URUN').AsString); Itm.SubItems.Add(FieldByName('SATIS').AsString); Itm.SubItems.Add('1'); Itm.SubItems.Add(FieldByName('SATIS').AsString); EditUrun.Clear; Form2.EditUrun.Text := ''; Form2.Caption := 'Yokmuş bu ürün'; end; end; end; except end; end; EditUrun.Clear; Form2.EditUrun.Text := ''; Form1.FDQueryUrun.Close; end;