Fórum Problema SQL - Paradox / QuickRep #257888

10/11/2004

0

Olá a todos.
No Form1 tenho um Edit e um botão.
Preencho o edit com um valor válido e passo como parametro usando o String List Editor, propriedade DataTtpe = ffString.
A Query esta no Form2 onde montei o relatório com QuickRep.
Porque com parametro não retorna nada e com constante funciona????
** Observe as duas clausulas Where que informei com constante funciona.


Select
A.Cli_Cod, A.Itc_Cod, A.Itc_Destino, A.Itc_NotaFiscal, A.Itc_CifFob,
A.Itc_Volumes, A.Itc_DataNota,A.Itc_ValorCarga, A.Dst_Cod, A.Itc_Peso,
B.Col_Cod, B.Col_DataRomaneio, B.Col_Lacre, B.Col_NrSeguradora,
B.Toc_Cod, B.Car_Cod, B.Col_Placa,
C.Cli_Cod, C.Cli_RazaoSocial, C.Cli_CnpjCpf,
D.Dst_Cod, D.Dst_RazaoSocial, D.Dst_CnpjCpf,
E.Car_Cod, E.Car_Especificacao,
F.Toc_Cod, F.Toc_NomeMotorista, F.Toc_CnpjCpf

From DetCarga A,CadCarga B,CadCli C,CadDst D,CadCar E,CadToca F

Where (A.Itc_Cod = ´00182´) and ==>> Where (A.Itc_Cod= :Form1.Edit1)

((B.Col_Cod = A.Itc_Cod)) and
(A.Cli_Cod = C.Cli_Cod) and
(A.Dst_Cod = D.Dst_Cod) and
(B.Car_Cod = E.Car_Cod) and
(B.Toc_Cod = F.Toc_Cod)

Order By A.Cli_Cod

Muito obrigado
Neto


Neto

Neto

Responder

Posts

10/11/2004

Gandalf.nho

Você está tentando passar diretamente o valor do Edit como parâmetro? Faça assim:

Where (A.Itc_Cod= :Cod)


Ao abrir o relatório, passe o valor do parâmetro:

Query.ParamByName(´Cod´).AsString = Form1.Edit1;
Query.Open;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar