COMO MONTAR tabela de Notas e de Itens da Nota???

Delphi

11/05/2004

Olá pessoal uso o paradox e delphi 6, não lembro mais como usar um Ttable de Notas e outra de Itens como abaixo

Tnotas

NOTA |CLIENTE | UF|
001240| LOJAS VINCELE LTDA |RS|
001241| LOJAS HERNESTO |SC|


Titens

INOTA |COD_PRO|PRODUTO |QT| VALOR |TOTAL |
001240|0007848 |PECA DE FUSCA | 02| 120,00 |240,00|
001240|0007848 |PECA DE CORSA| 01| 210,00 |210,00|
001241|0006110 |SINAL. OPALA | 03| 40,00 |120,00|



Ai em um Dbgrid aparecer os dados todos tipo assim

NOTA
CLIENTE
UF
COD_PRO
PRODUTO
QT
VALOR
TOTAL


Se puderem me mandar exemplos agradeco!!


Infohelp

Infohelp

Curtidas 0

Respostas

Tnaires

Tnaires

11/05/2004

Duas sugestões:
- montar um query só, com um sql q mostre tudo num único DBGrid
SELECT N.NOTA, N.CLIENTE, N.UF,
I.CODPRODUTO, I.PRODUTO, I.PRODUTO, I.QT, I.VALOR, I.TOTAL
FROM TNOTAS N, TITENS I
WHERE I.NOTA = N.NOTA

Desvantagens: vc não vai poder alterar os dados do query, e no grid aparecerá um cliente para cada item;
- montar dois queries master/detail, usando dois DBGrids
Query 01:
SELECT * FROM TNOTAS

Query 02:
SELECT * FROM TITENS WHERE NOTAS = :NOTAS

Criar um DataSource para cada Query e apontar a propriedade DataSource do Query 02 para o DataSource do query 01. Criar dois DBGrids, um para cada Query. Desta forma, se vc clicar em uma nota no DBGrid1, aparecerão os itens da nota no DBGrid2. Além de tudo isso, vc pode alterar os dados usando updateSQL, já q os selects trazem somente uma tabela.


GOSTEI 0
POSTAR