[ lupco_1959 @ 22.04.2011. 14:03 ] @
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] |