SELECT Produs, SUM( Cant) AS Cant, SUM( Val) AS Val FROM TABELA GROUP BY Produs

Cam asta ar fi, cu inlocuirile de rigoare.

Nu e buna selectia.

Vreau ca intr-un grid sa-mi apara doar Aspirina 2000 buc 20000 ron.

Celelalte sa se reduca cumva, caci este odata o intrare si dupa aceea o stornare.

kod=thisform.List2.Value

IF NOT EMPTY(kod)
 thisform.grid3.RecordSource = ''

 SELECT x.cod_produs, x.den_produs, x.um, y.pretachizitie, z.data_intrarii, z.cantitatea, z.cantitatea*y.pretachizitie as valoareachizitie,  x.furnizor ;
     from nomproduse x left join produse b on x.cod_produs = y.codp ;
     inner join  intrariiesiri z on y.codp = z.codp1 WHERE x.cod_produs = kod AND document = 'NIR' AND cantitate>0 INTO CURSOR x1
 
  thisform.grid3.RecordSource = 'x1'
ENDIF

Asta este codul pe care il am scris eu in List2. Acest cod imi pune in grid toate intrarile (NIR) mai putin cele care au cantitate<0.

Ce trebuie sa completez eu la acest cod pt ca sa-mi afiseze ce vreau eu.

MULTUMESC.

Domnule Dorin Vasilescu,

Am inlocuit codul creat de  mine cu codul ce mi l-ati postat dumneavoastra si imi da urmatoarea eroare:

"Cannot GROUP by aggregate field".

Mai trebuia facut ceva pentru a functiona?

Va multumesc.

SUM(cantitatea) to vcant
SUM(valoareachizitie) to vval
Am pus 2 textboxuri si in propeties la control source am pus: vcant si vval.

M-am gandit si eu la o chestie de genul dar imi pune si in grid aiurea ce vreau sa-mi afiseze in textboxuri.

Am urm. cod in Click:

SUM(cantitate) to vcant
SUM(valoare) to vval

Si in cele doua textboxuri am la Propeties - ControlSource- vcant la Text1 si vval la Text2.

Am pus codul si in Click-ul unui buton si la fel afisaza.

Va multumesc mult pentru ajutor tuturor.

SELECT x.cod_produs, max(x.den_produs) as den_produs, max(x.um) as um, y.pretachizitie, max(z.data_intrarii), sum(z.cantitatea) as cantitatea, sum(z.cantitatea*y.pretachizitie) as valoareachizitie,  max(x.furnizor) ;
     from nomproduse x left join produse b on x.cod_produs = y.codp ;
     inner join  intrariiesiri z on y.codp = z.codp1 WHERE x.cod_produs = kod AND document = 'NIR' group by 1,4 INTO CURSOR x1

Codul acesta de ce nu functioneaza ca nu am inteles domnule Grigore?

Am o tabela in care am toate miscarile (intrari si iesiri). Acolo in tabela aceea am si stornari Cu codul respectiv pe care l-am postat afisez intr-un grid detaliile despre un anumit produs din acea tabela. De exemplu am produsul : Aspirina. Vreau sa aflu achizitiile de la inceputul anului. In grid imi apare momentan spre exemplu asa produsul aspirina: 

            Aspirina   1000  buc    25000 ron

            Aspirina   2000  buc   20000 ron

            Aspirina   3000  buc    24000 ron

            Aspirina  -1000  buc    25000 ron

            Aspirina  -3000  buc    24000 ron

Ei, eu as vrea ca sa-mi apara in grid doar: Aspirina 2000 buc 20000 ron.(adica cele care se storneaza sa nu-mi mai apara in grid)

kod=thisform.List2.Value

IF NOT EMPTY(kod)
 thisform.grid3.RecordSource = ''

 SELECT x.cod_produs, x.den_produs, x.um, y.pretachizitie, z.data_intrarii, z.cantitatea, z.cantitatea*y.pretachizitie as valoareachizitie,  x.furnizor ;
     from nomproduse x left join produse b on x.cod_produs = y.codp ;
     inner join  intrariiesiri z on y.codp = z.codp1 WHERE x.cod_produs = kod AND document = 'NIR' AND cantitate>0 INTO CURSOR x1
 
  thisform.grid3.RecordSource = 'x1'
ENDIF

Codul de mai sus il am scris in list si care imi afisaza in Grid.

Multumesc.

Daca am retinut bine, tu folosesti VFP 8. Iata un cod functional (pune-l intr-un director nou si ruleaza-l acolo, ca sa vezi cum merge).Cand esti multumita de rezultat, iei codul respectiv, il ajustezi corespunzator (eu n-am folosit variabila kod, dar poti s-o pui in clauza where exact ca mai sus) si il pui in locul celui pe care l-ai folosit pana acum. Ultima linie are deja o clauza Where (cea cu SELECT in ea) asa ca variabila kod va trebui s-o adaugi cu un AND. (WHERE nomproduse.ID NOT IN (selectul ala) AND NomProduse.Id = kod).

*-- Partea asta creeaza o tabela test
Set Safety Off
Create Table NomProduse ( ;
   Id I, ;
   Denumire C(15), ;
   Cantitate N(10), ;
   Pret N(10))

Insert Into NomProduse (Id, Denumire, Cantitate, Pret) Values (1, "Aspirina", 1000, 25000)
Insert Into NomProduse (Id, Denumire, Cantitate, Pret) Values (2, "Aspirina", 2000, 20000)
Insert Into NomProduse (Id, Denumire, Cantitate, Pret) Values (3, "Aspirina", 3000, 24000)
Insert Into NomProduse (Id, Denumire, Cantitate, Pret) Values (4, "Aspirina", -1000, 25000)
Insert Into NomProduse (Id, Denumire, Cantitate, Pret) Values (5, "Aspirina", -3000, 24000)
*-- Pana aici

Select a.Id, a.Denumire, a.Cantitate, a.Pret From NomProduse A Inner Join NomProduse B On a.Cantitate = -b.Cantitate Into Cursor crsTemp
Use Dbf("crsTemp") In 0 Again
Select * From NomProduse Where NomProduse.Id Not In (Select Id From crsTemp) Into Cursor X1

Cory si Andreicutz posteaza de la acelasi IP - asta inseamna ca sunt una si aceeasi persoana. Hotarati voi cum procedam mai departe. Optiuni posibile: o lasam asa, incetam sa raspundem, banam ambii useri.

Nae, ip-ul tau incepe cu 80.

Multumesc mult de raspuns.

Am sa probez.

Ati vazut ca este un topic unde Andreicutz intreaba si Cory raspunde ?
Tare de tot...

Si daca ar fi colegi crezi ca ar dialoga pe forum ?

Nu e mai simplu sa vorbeasca intre ei?

Credeti ca mie imi arde de prostii dinastea sau ce vreti sa insinuati. Ce pe forum nu sunt mai multe intrebari de acelasi fel?Si sa stiti ca pot fi 2 calculatoare cu acelasi IP(lucrez cu retele de calculatoare).Si pana la urma eu cred ca am folosit un tot destul de elegant pe site-ul dumneavoastra mai putin la inceput cand am fost iritata ca nimeni nu ma ajuta.Intrdevar am folosit un ton mai necivilizat si imi cer scuze inca o data pentru tonul folosit mai demult pe site.

Va multumesc pentru timpul acordat si pentru raspunsurile pe care mi le-ati dat, si va rog sa-mi mai raspundeti la intrebari ca e greu la inceput.(anul acesta am terminat facultatea si va spun eu ca scoala nu e tot una cu munca).

P.S: Nu mai fiti asa suspiciosi ca va spun eu ca sunteti degeaba.

Ce vrei sa spui ca nu sunt femei soferite care le dau lectii la barbati? Sau ca o fata nu poate sa stie mai multe in domeniul calculatoarelor decat un baiat?

Iti spun eu ca se poate. Si in legatura cu doua calculatoare cu acelasi IP, iti zic eu ca pot fi 2 calculatoare cu acelasi IP.Daca tot zici ca ai citit multe carti despre calculatoare trimite-mi si mie macar una de Visual Fox pe email (scrisa in limba romana) si o sa ma apuc sa mai citesc si eu sa nu te mai deranjez pe tine cu o gramada de intrebari care poate tie ti se par simple dar pentru o incepatoare iti zic eu ca sunt destul de grele.Am dat banii deja pe trei carti de Visual Fox si vreau sa zic ca niciuna nu imi este de ajutor.

Si nu are rost sa ne mai tot certam pe acest site care daca ma uit mai bine peste el are rolul de a ajuta programatorii incepatori de Fox Pro.

Eu cu astea am incheiat si cine vrea sa ma ajute il rog sa ma ajute in continuare.

Nu, nu se poate, atat timp cat vorbim de IP-uri rutabile. Alea nerutabile (incep cu 192.) sunt invizibile pe internet. In cazul vostru este vorba de acelasi IP rutabil. NU SE POATE. E acelasi calculator sau sunt doua calculatoare din acelasi LAN, care ies prin acelasi proxy. Asta inseamna ca sunt FOARTE aproape unul de altul (fizic).

Hmmm... nici mie nu mi se pare fair ce face Cory. Clar nu pot fi doua IP-uri routabile identice, dar poate iesi printr-un router din aceeasi retea locala. Nici intr-un LAN nu pot fi doua IP uri identice (se da totul peste cap, dar in cel mai bun caz al doilea nici nu poate "intra"). Eventual "se vad" la fel dinspre afara, datorita NAT-arii. Deci afirmatia ei e chiar naiva.

Ipoteza cu "aceeasi persoana" e foarte plauzibila.

Pe de alta parte cred ca discutia aluneca in pueril daca ajungem sa vb. depre baiati si fete, sa facem comparatii sau clasificari. Si chiar nu e locul aici....  Poate in alt topic ..out of VFP problems.

Am vrut si eu sa-i raspund sambata lui Cory, si m-am bucurat ca poate in sfarsit gasesc si eu pe cineva mai beginner ca mine sa-l ajut...Dar am mai citit cateva din posturile ei (sau ale lui) si m-am razgandit. Cred ca stiti de ce... Oricum mi-a luat ceva timp sa inteleg ceea ce intreba  si sa reproduc situatia, tabele etc...

BTW, daca sunteti curiosi (eu am fost),  plaja de IP-uri in care se afla IP-ul lor este alocata RO-RDS-SIBIU,Romania Data Systems, Sibiu Branch.

Rodica