[ smjesko @ 06.02.2004. 20:15 ] @
Ehh jos jedno jedino (nadam se) pitanje :)
Kao prvo hvala svima koji su mi dosad pomogli, imam jos jedno pitanje kako da napravim report u delphiu znaci treba iz baze da mi izvlaci polja kao npr. ppu, ruc itd. uradio sam nesto davno sto radi kako treba, no kako sam poceo da doradujem program zaboravio sam dosta toga i sada koji dio koda da dodam da mi doda polje ppu u izvjestaj a kod do sada izgleda ovako:

caption:='Rekapitulacija poreza';
if podtip=0 then SetDates else begin
DatumOD.Items.Add(datetostr(date));
DatumDo.Items.Add(datetostr(date));
end;
dm.IBQuery1.Close;
case podtip of
0,1:dm.IBQuery1.SQL.Text:='select r.tarifa,t.naziv,sum(r.kolicina*r.cijena),'+
{ 'sum(cast(r.kolicina*r.cijena*(1-1/(1+(r.osnovni*0.01)))*100 as integer))*0.01 ,'+
'sum(cast(RacunPPU*(racunMALPRCIJ.asfloat-dm.racunnc) as integer))*0.01,'+
'sum(cast(r.kolicina*r.cijena*(1/(1+(r.mpporez+r.osnovni)*0.01))as integer))*0.01 '
} 'sum((r.kolicina*r.cijena/(1+(r.mpporez+r.osnovni)*0.01))*r.osnovni*0.01) ,'+
'sum((r.kolicina*r.cijena/(1+(r.mpporez+r.osnovni)*0.01))*r.mpporez*0.01),'+
'sum((r.kolicina*r.cijena/(1+(r.mpporez+r.osnovni)*0.01))) '
+'from racun r, tarifa t where t.id=r.tarifa and r.datum>=:d1 and r.datum<=:d2 group by r.tarifa,t.naziv order by 2';
2:exit;
end;
DatumOD.ItemIndex:=DatumOD.Items.Count-1;
DatumDO.itemIndex:=DatumDO.Items.Count-1;
DatumOdChange(nil);


sada u sve ovo trebam dodat da mi vuce iz polja racunppu porez i da mi ga prikazuje u izvjestaju