[es] - Delphi 7 i error Operation not applicable

lupco_1959
tehnicar masinstva,teteks_tetovo
Tetovo

Član broj: 193382
Poruke: 93
79.125.229.*

Profil

Delphi 7 i error "Operation not applicable"

^{22.04.2011. u 14:03 - pre 158 meseci}

Radim jedan program u Delphi 7 a za bazu koristim Paradox.Prilikom filtriranja tabele javlja mi se greska:Operation not applicable
Evo i coda:

Code:

procedure TfrmFiltpromet.btn_dnevClick(Sender: TObject);
var str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str15, str16, str17, str18:string;
    vkd, vkd5, vkd18, dob:double;
begin
if dm.tabsmetki.Filtered=True then
dm.tabsmetki.Filtered:=False;

dm.tabsmprom.First;
while not dm.tabsmprom.Eof do
dm.tabsmprom.Delete;

d1.Text:=datetostr(Date());
d2.Text:=datetostr(Date());

str1:='(Izdal_rb=''';
str2:=i1.Text;
str3:=''')';
str4:='and';
str5:='(Datum>=''';
str6:=d1.Text;
str7:=''')';
str8:='and';
str9:='(Datum<=''';
str10:=d2.Text;
str11:=''')';

str15:='and';
str16:='(Prodavnica=''';
str17:=dm.tabprodavRed_br.Value;
str18:=''')';

if (i1.Text<>'') and (d1.Text<>'') and (d2.Text<>'') then
  begin
    dm.tabsmetki.Filter:=str1+str2+str3+str4+str5+str6+str7+str8+str9+str10+str11+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text<>'') and (d1.Text<>'') and (d2.Text='') then
  begin
    dm.tabsmetki.Filter:=str1+str2+str3+str4+str5+str6+str7+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text<>'') and (d1.Text='') and (d2.Text<>'') then
  begin
    dm.tabsmetki.Filter:=str1+str2+str3+str8+str9+str10+str11+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text<>'') and (d1.Text='') and (d2.Text='') then
  begin
    dm.tabsmetki.Filter:=str1+str2+str3+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;

if (i1.Text='') and (d1.Text<>'') and (d2.Text<>'') then
  begin
    dm.tabsmetki.Filter:=str5+str6+str7+str8+str9+str10+str11+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text='') and (d1.Text<>'') and (d2.Text='') then
  begin
    dm.tabsmetki.Filter:=str5+str6+str7+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text='') and (d1.Text='') and (d2.Text<>'') then
  begin
    dm.tabsmetki.Filter:=str9+str10+str11+str15+str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;
if (i1.Text='') and (d1.Text='') and (d2.Text='') then
  begin
    dm.tabsmetki.Filter:=str16+str17+str18;
    dm.tabsmetki.Filtered:=True;
  end;

vkd:=0;
dob:=0;
dm.tabsmetki.First;
while not dm.tabsmetki.Eof do
  begin
    if dm.tabsmetkiStornirana.Value=false then
      begin
        vkd:=vkd+dm.tabsmetkiVkupno.Value;
        dob:=dob+(dm.tabsmetkiVkupno.Value-dm.tabsmetkiVk_nab.Value);

        dm.tabsmprom.Append;
        dm.tabsmpromRed_br.Value:=dm.tabsmetkiRed_br.Value;
        dm.tabsmpromNacin_pl.Value:=dm.tabsmetkiNacin_pl.Value;
        dm.tabsmpromVkupno.Value:=dm.tabsmetkiVkupno.Value;
        dm.tabsmprom.Post;
      end;
    dm.tabsmetki.Next;
  end;

dnev.Caption:=FormatFloat('#,##0.00',vkd);
dnevd.Caption:=FormatFloat('#,##0.00',dob);

dm.qrySmprom.Close;
dm.qrySmprom.Open;

dm.tabsmetki.Filtered:=False;
end;

Gde gresim

_{[Ovu poruku je menjao savkic dana 04.05.2011. u 03:33 GMT+1]}

Odgovor na temu