[es] - SQL DISTINCT naredba master/details

medixsa

Član broj: 155471
Poruke: 168
77.238.204.*

Profil

^{06.04.2008. u 22:44}

Pozdrav !!!

Delphi 7

Radi se o master/details tabela sa SQL naredbama -
Spajanje details tabele sa master tabele.

Pitanje ?

Kako jemoguce uraditi DISTINCT polja npr. "BrojRac" u dole navedenom kodu.U dole kodu mi se pojavljuje vise puta jedan te isti broj racuna i iznos i sve ostala.Znam zbog cega je sve ovo,jer detail tabele je spojena preko kljuceva itd.

Negativni rezulatat dobijem:

Broj racuna, Operator,Iznos,SumPDV
*****************************
222 Medin 100 1,23..
111 Medin 200 2,23
234 Medin 300 2,34
222 Medin 100 1,23..
222 Medin 100 1,23..
222 Medin 100 1,23..
222 Medin 100 1,23..
222 Medin 100 1,23..

************************************

Zelim da dobijem rezultat :

Broj racuna, Operator,Iznos,SumPDV
*****************************
222 Medin 100 1,23..
234 Medin 300 2,34
111 Medin 200 2,23
****************************

Kod uzima sve podatke iz mster/details po operateru za period

// Postavlje trenutnog datumna u DatumOd - DatumDo
DatumOd.Date := Now;
DatumDo.Date := now;

QUpit.SQL.Clear;
QUpit.SQL.Add('select * from RacunP r join StavkeRacuna s on r.BrojRac = S.ID where (Datum between "'+DateToStr(DatumOd.Date)+'" and "'+DateToStr(DatumDo.Date)+'" and Operator = "'+frmGlavna.StatusBar1.Panels[3].Text+'")');
QUpit.Open;
LBroj.Caption := inttostr(QUpit.RecordCount);

Nadam se da sam pojasnio problem ?

Hvala svima na ponudjenim odgovorima !!!

^{06.04.2008. u 22:44}

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
212.200.221.*

Profil

Re: SQL DISTINCT naredba master/details

^{07.04.2008. u 07:49}

Da li si probao sa klauzulom GROUP BY!?!

Someone's sitting in the shade today because someone planted a tree a long time ago.

^{07.04.2008. u 07:49}

_deran_

Član broj: 69493
Poruke: 173
*.subotica.net.

Profil

Re: SQL DISTINCT naredba master/details

^{07.04.2008. u 09:53}

Da li si probao sa 'select DISTINCT BrRac, Operator, Iznos, SumPDV....' ?

^{07.04.2008. u 09:53}

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
212.200.221.*

Profil

Re: SQL DISTINCT naredba master/details

^{07.04.2008. u 11:25}

Ovako ti je najlakše:

Code:

SELECT  DISTINCT t1.[Broj racuna], t2.operator, t2.iznos, t2.sumpdv
FROM
(SELECT [Broj racuna]
FROM
  Table1) AS t1
LEFT JOIN
(SELECT [Broj racuna], operator, iznos, sumpdv
FROM
  Table1) AS t2
ON t1.[Broj racuna] = t2.[Broj racuna]

Someone's sitting in the shade today because someone planted a tree a long time ago.

Prikačeni fajlovi

slika.JPG - 39.54k

^{07.04.2008. u 11:25}

_deran_

Član broj: 69493
Poruke: 173
*.subotica.net.

Profil

Re: SQL DISTINCT naredba master/details

^{07.04.2008. u 11:38}

Ovako je najkrace :)

Code:

SELECT distinct Table1.[broj racuna], Table1.operator, Table1.iznos, Table1.sumPDV
FROM Table1;

Prikačeni fajlovi

Untitled-1.jpg - 78.65k

^{07.04.2008. u 11:38}

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
212.200.221.*

Profil

Re: SQL DISTINCT naredba master/details

^{07.04.2008. u 13:08}

Citat:

_deran_: Ovako je najkrace :)

I najlakše... ;)

BTW, predložio sam GROUP BY jer nisam dovoljno pažljivo pročitao zahtev, izvinjavam se zbog toga.

Someone's sitting in the shade today because someone planted a tree a long time ago.

^{07.04.2008. u 13:08}

medixsa

Član broj: 155471
Poruke: 168
77.238.203.*

Profil

Re: SQL DISTINCT naredba master/details

^{08.04.2008. u 21:16}

Hvala Vam puno na prakticnom primjeru !!!

Nesto sam uradio sa kodom npr:
i radi prilicno dobro

// Postavlje trenutnog datumna u DatumOd - DatumDo
DatumOd.Date := Now;
DatumDo.Date := now;

QUpit.SQL.Clear;
QUpit.SQL.Add('select DISTINCT BrojRac,Operator,TB,TBNaziv,Kolicina,preracPDV,Cijena,SumPDV,BezPDV,IznosSUM from RacunP r join StavkeRacuna s on r.BrojRac = S.ID where (Datum between "'+DateToStr(DatumOd.Date)+'" and "'+DateToStr(DatumDo.Date)+'" and Operator = "'+frmGlavna.StatusBar1.Panels[3].Text+'")');
QUpit.Open;

// Drugi upit samo iznos oepratora,sumPDV,bezPDV
QUpit1.SQL.Clear;
QUpit1.SQL.add('select Operator,Sum(IznosSUM) as IznosSUM,SUM(SumPDVr) as sumPDVr,SUM(sumbezPDVr) as sumbezPDVr from RacunP.dbf r join StavkeRacuna s on r.BrojRac = S.ID where (Datum between "'+DateToStr(DatumOd.Date)+'" and "'+DateToStr(DatumDo.Date)+'" and Operator = "'+frmGlavna.StatusBar1.Panels[3].Text+'") GROUP BY Operator');
QUpit1.Open;
LBroj.Caption := inttostr(QUpit.RecordCount);
IzvjOperator.Preview;

^{08.04.2008. u 21:16}

viking13
Aleksandar Milanovic
Novi Beograd

Član broj: 131741
Poruke: 190
*.sbb.rs.

Profil

Re: SQL DISTINCT naredba master/details

^{09.04.2008. u 10:59}

Citat:

medixsa:
// Postavlje trenutnog datumna u DatumOd - DatumDo
DatumOd.Date := Now;
DatumDo.Date := now;

Ovo zna da bude veoma problematično ako datum na klijentskoj mašini nije dobro podešen.

Najbolje datum pokupiti direktno iz SQL-a.

viking ®

^{09.04.2008. u 10:59}

medixsa

Član broj: 155471
Poruke: 168
77.238.203.*

Profil

Re: SQL DISTINCT naredba master/details

^{09.04.2008. u 14:54}

Ok hvala ti na savjetu,vec sam dobio odgovor vezano za dodjeljivanje datuma SQL upitu

^{09.04.2008. u 14:54}

viking13
Aleksandar Milanovic
Novi Beograd

Član broj: 131741
Poruke: 190
89.216.96.*

Profil

Re: SQL DISTINCT naredba master/details

^{09.04.2008. u 20:39}

Citat:

medixsa: Ok hvala ti na savjetu,vec sam dobio odgovor vezano za dodjeljivanje datuma SQL upitu

Dobio si savet kako da proslediš datum kao parametar. I to je ok.

Ono o čemu je pričam je da ako ti treba trenutno vreme ili datum to pokupiš od servera, a ne sa klijentske mašine. Za firebird se za to koriste CURRENT_TIMESTAMP, CURRENT_TIME i CURRENT_DATE. Pogledaj dokumentaciju za svoj server kako se to radi tamo.

viking ®

^{09.04.2008. u 20:39}