Utilizo SQLquery - DataSetProvider - ClientDataSet, o parâmetro encontra-se neste último. Código delphi (On Change de um Edit DMMovimento.
cdsRemarcPr_ Varejo_ Manual. Close;
DMMovimento. cdsRemarcPr_ Varejo_ Manual. Params
[1].AsString := QuotedStr (edtProduto.Text + '%') ; DMMovimento. cdsRemarcPr_ Varejo_ Manual. Open;
SQL (SQLQuery)
SELECT CPF.PK_CODIGO_PFR, CPF.PK_CODIGO_PRO, CPF.PK_CODIGO_CLF, CPF.CUSTO,
CLF.RAZAO_SOCIAL_CLF, CLF.CPF_CNPJ_CLF, CLF.ATIVO_CLF, CLF.TIPO_CLF,
CP.DESCRICAO_PRO, CP.PR_VENDA1, CP. PR_VENDA2, CP.UNIDADE1_PRO, CP.UNIDADE2_PRO
FROM CAD_PRODUTO_FORNECEDORES CPF
INNER JOIN CAD_PRODUTO CP
ON (CP.PK_CODIGO_PRO = CPF.PK_CODIGO_PRO)
INNER JOIN CAD_CLIENTE_FORNECEDOR CLF
ON (CLF.PK_CODIGO_CLF = CPF.PK_CODIGO_CLF)
WHERE CPF.PK_CODIGO_CLF = :Pfornecedor
OR CP.DESCRICAO_PRO LIKE :Pproduto
2007-06-25
02:38:39
·
1 respostas
·
perguntado por
under
2
em
Computadores e Internet
➔ Programação e Design