Salut tuturor,

Am o mare problema. Trebuie sa modific ceva intr-un program facut de altcineva si nu stiu exact unde. Pana acum cumparam produse de la un sigur furnizor, iar odata cu extinderea firmei am inceput sa luam aceleasi produse si de la alti furnizori. Deci prin urmare exita produsul x pe care il cumparam din 2 locuri sa zicem. Proiectul din cate vad eu este facut in VFP6.0. Am observat ca se lucreaza cu mai multe tabele dintre care 2 tabele au un camp comun: cod_prod=codprod (cod_prod este din nomenclator de produse si coprod din tabela in care se afla toate intrarile si iesirile.

Proiectul este structurat astfel: exista o lista in care sunt toti furnizorii (din  tabela unde se afla intrarile si iesirile=schimbari). Cand se da un DbClick pe un furnizor anume in alta lista se genereaza in cea de a doua lista toate produsele cumparate (nomproduse) de la furnizorul respectiv.(dar produsele in lista a doua sunt aranjate dupa furnizorul din nomenclatorul de produse). In tabela unde am toate intrarile si iesirile am de asemenea denumirea furnizorului.

Eu as vrea ca produsele din lista a doua sa fie sortate dupa furnizorul din tabela une am toate intrarile si iesirile.

Codul din prima lista este:

In Init:

SELECT DISTINCT denfurnizor FROM schibari WHERE codoperator = 'NIR' INTO CURSOR test

SELECT test

SCAN

      thisform.List1.AddItem(denfurnizor)

ENDSCAN

SELECT test

In DbClick:   

afis=thisform.List1.Value
thisform.List2.Clear

select nomproduse
SCAN FOR denfurniz=afis
thisform.List2.AddItem(denprodus)
ENDSCAN

USE

Cred ca trebuie sa completez cu cod in DbClick.

Va multumesc.

In nomenclatorul de produse am un produs introdus o singura data si la produsul respectiv un singur furnizor. In tabela unde am toate intrarile si toate iesirile am codurile (intrarile) produsului respectiv dar aici am impresia ca atunci cand se face intrarea "NIR-ul" se introduce si denumirea furnizorului de la care s-a cumparat.

Deaceea in tabela "schimbari" in dreptul codului x sa zicem poate aparea odata intrare de la firma Q, odata de la firma W.

Iti multumesc pentru codul pe care mi l-ai dat, mi se pare a fi bun pentru ce imi trebuie mie, dar nu stiu din ce cauza da urmatoarea eroare:

ERROR:    'Variable "cProduse" is not found'

Acesta este codul pe care il am scris in DbClick-ul listei. Ceva nu este in regula.

afis=thisform.List1.Value
thisform.List2.Clear
thisform.List3.Clear

Select distinct p.cod_prod, p.den_prod;
from nomproduse p, schimbari s;
where p.cod_prod = s.codprod;
and s.den_furniz = afis;
into cursor cProduse
thisform.additem (cProduse)

Gata am rezolvat problema.

Multumesc tuturor.