Salut!

Am urmatoarea situatie in FOX Windows 2.6:

O tabela cu campurile (CNP, Medicament). Pentru un CNP am inscrise mai multe medicamente astfel:

CNP	Medicament
123	aaa
123	bbb
456	aaa
456	ccc

Vreau sa duc inregistrarile in alta tabela unind campurile "Medicament" de la un "CNP" la modul urmator:

CNP	Tratament
123	aaa ; bbb
456	aaa ; ccc

Sugerati-mi un programel sau daca exista o comanda care sa faca o astfel de unire de campuri.

Sincer am nevoie de o sugestie cat mai repede. Mersi!

Cam aceeasi idee aveam si eu, dar nu stiu exact daca e buna conditia la IF. Mie nu imi da nimic.

Ok, m-ai pus la treaba mai mult decat vroiam s-o fac :), poftim

CREATE CURSOR Medicamente ( CNP C( 12), Medicament C( 20))

INSERT INTO Medicamente ( CNP, 'Medicament') VALUES ( '123', 'aaa')
INSERT INTO Medicamente ( CNP, 'Medicament') VALUES ( '123', 'bbb')
INSERT INTO Medicamente ( CNP, 'Medicament') VALUES ( '456', 'aaa')
INSERT INTO Medicamente ( CNP, 'Medicament') VALUES ( '456', 'ccc')

SELECT * FROM Medicamente INTO CURSOR xCursor ORDER BY CNP

LOCAL cText, cCNP

cText = ''

cCNP = ''

CREATE CURSOR xCursor2 ( CNP C( 12), Med C( 200))

SELECT xCursor

SCAN

 IF !EMPTY( cCNP) AND xCursor.CNP <> cCNP

  INSERT INTO xCursor2( CNP, Med) VALUES ( cCNP, cText)

  cText = ''

 ENDIF

 cText = cText + IIF( EMPTY( cText), '', ' ; ') + ALLTRIM( xCursor.Medicament)
 cCNP = xCursor.CNP
ENDSCAN
INSERT INTO xCursor2( CNP, Med) VALUES ( cCNP, cText)

SELECT Medicamente
USE

SELECT xCursor
USE

SELECT xCursor2
BROW
USE