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;
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]