Ir para conteúdo
Fórum Script Brasil
  • 0

Consulta em duas tabelas Paradox


Eder

Pergunta

Ola, preciso fazer uma consulta em duas tabelas paradox.

porem só me retorna os dados iguais ao cliente cadastrado primeiro registro da tabela QUERYCLIENTES, os demais não calcula na condição.

   If (QueryCTRCDest_Cnpj.asstring = QueryCLIENTESCnpj_Cpf.AsString) then
      begin
       PercVen := 50;
       Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
       end
       else

Gostaria de uma solução que comparasse todos os clientes cadastradas na tabela QUERYCLIENTES e não só i primeiro cliente.

Obrigado.

 

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Gostaria de uma solução que comparasse todos os clientes cadastradas na tabela QUERYCLIENTES e não só i primeiro cliente

Voce pode colocar esse comando dentro de um For ou While, para que voce possa testar todos os registros da Tabela, ou usar um comando Select dentro de um componente TQuery

exemplo:
 

For i := 1 to QUERYCLIENTES  do
begin

If (QueryCTRCDest_Cnpj.asstring = QueryCLIENTESCnpj_Cpf.AsString) then 
begin 
  PercVen := 50;             
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end
else

    /////  outros comandos

end;

 

OBS: Como voce não informou qual o banco de dados está usando, vou colocar os exemplos do uso do Select para o MYSQL

https://www.google.com.br/search?source=hp&ei=MWVxXu_yLeK75OUPo_a0sAQ&q=select+tabela+mysql&o que=select+*+from+tabela+&gs_l=psy-ab.1.8.0j0i22i30j0i22i10i30j0i22i30l7.1078.14224..17964...2.0..0.164.2782.2j21......0....1..gws-wiz.......0i131j0i10j0i13.5gl3eYOjaHY

abraço

 

 

Link para o comentário
Compartilhar em outros sites

  • 0
11 horas atrás, Jhonas disse:

Gostaria de uma solução que comparasse todos os clientes cadastradas na tabela QUERYCLIENTES e não só i primeiro cliente

Voce pode colocar esse comando dentro de um For ou While, para que voce possa testar todos os registros da Tabela, ou usar um comando Select dentro de um componente TQuery

exemplo:
 


For i := 1 to QUERYCLIENTES  do
begin

If (QueryCTRCDest_Cnpj.asstring = QueryCLIENTESCnpj_Cpf.AsString) then 
begin 
  PercVen := 50;             
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end
else

    /////  outros comandos

end;

 

OBS: Como voce não informou qual o banco de dados está usando, vou colocar os exemplos do uso do Select para o MYSQL

https://www.google.com.br/search?source=hp&ei=MWVxXu_yLeK75OUPo_a0sAQ&q=select+tabela+mysql&o que=select+*+from+tabela+&gs_l=psy-ab.1.8.0j0i22i30j0i22i10i30j0i22i30l7.1078.14224..17964...2.0..0.164.2782.2j21......0....1..gws-wiz.......0i131j0i10j0i13.5gl3eYOjaHY

abraço

 

Bom Dia Jonas!!

Amigo estou afastando da programação a anos e preciso somente alterar este relatório do quickreport e precisaria de uma ajudinha sua...please.😉
uso paradox duas tabelas ctrc.db e clientes.db
o código esta no onprint de um qrlabel, ou seja, na hora do relatório gerar ele faz esta verificação e paga o percentual que pede
o código que montei até funciona o código que fiz, mas somente com o primeiro cadastro do cliente, demais não, e acho que a sua ideia do for seria interessante mas não sei exatamente como montar o código.

meu código completo no onprint é este:


If (QueryCTRCDest_Cnpj.asstring = QueryCLIENTESCnpj_Cpf.AsString) then 
begin 
  PercVen := 50;       {variavel global}      
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end
else
begin
  PercVen := 25;        {variavel global}       
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end;

Obrigado, Eder.😃

 

Link para o comentário
Compartilhar em outros sites

  • 0

acho que a sua ideia do for seria interessante mas não sei exatamente como montar o código.

meu código completo no onprint é este:

If (QueryCTRCDest_Cnpj.asstring = QueryCLIENTESCnpj_Cpf.AsString) then 
begin 
  PercVen := 50;       {variavel global}      
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end
else
begin
  PercVen := 25;        {variavel global}       
  Value:=FloatToStr((Query1Valor_Frete.asFloat * PercVen)/100);
end;

Ok ....  se as suas tabelas estão dentro do QuickReport  ou fora dele não importa.

Voce deve lembrar, que no QuickReport a banda Detail esta lendo resgistro a registro da sua tabela.

Então, voce deve colocar o seu código nessa banda e se for o caso utilize uma variavel dentro do proprio QuickReport para jogar o valor que voce precisa dentro do QRLabel.

No Delphi existe exemplos do uso de tabelas no quickreport ... veja na aba Demos na Pasta Quickrpt  do delphi ( exemplos QR2 ou QR3 )

abraço

 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...