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
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
Curtir tópico
+ 0
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;
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
Clique aqui para fazer login e interagir na Comunidade :)