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

Outro Que Está Dando Errado


Guilherme014

Pergunta

Olha outro ai.........

no caso é só o select, que ficou mais de 3 horas e não retornou resultado nenhum....

   qryResult.Close;
   qryResult.SQL.Clear;
   qryResult.SQL.Add(' SELECT RP_DMAEMISSAO,VE_NOME,RP_DMAVENCTO,CF_NOMEFANTASIA,NF_NOTA,
RP_VALOR,NF_IPIBASE,pedido.ID,vendedor.ID');
   qryResult.SQL.Add(' From ReceberPagar, CliFor, NOTAFISCAL, VENDEDOR, PEDIDO');
   qryResult.SQL.Add(' WHERE PEDIDO.PD_TIPOES='+#39+'E'+#39);
   if edDataDe.text <> '  /  /    ' then
      qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO >= ' + 
App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime
(edDataDe.text))+ app.DeliData);
   if edDataAte.text <> '  /  /    ' then
      qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO <= ' + 
app.DeliData
+ FormatDateTime('MM/DD/YYYY', strToDateTime(edDataAte.text))+
app.DeliData);
   if edBenificiario.Text <> '' then
      qryResult.SQL.Add(' AND VENDEDOR.VE_NOME='+edBenificiario.Text);
   if edDataPagamento.Text <> '  /  /    ' then
      qryResult.SQL.Add(' AND ReceberPagar.RP_DMAVENCTO = ' + App.
DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime
(edDataPagamento.Text))+ app.DeliData);
   if edCliente.Text <> '' then
      qryResult.SQL.Add(' AND CliFor.CF_NOMEFANTASIA ='''+edCliente.Text+
'''');
   if edValorNF.Text <> '' then
      qryResult.SQL.Add(' AND ReceberPagar.RP_VALOR ='''+edValorNF.Text+
'''');

Editado por Guilherme014
Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest - guilherme014 -
Olá,

Ta faltando aqueles -->> #39.

E da mesma forma que um UPDATE precisa do ExecSQL uma SELECT precisa do OPEN (qryResult.Open) no final.

Abs. Progr'amador.

qryResult.Open, já tem no final, é porque eu copiei e não o colei.

agora os #39 aonde eu ponho, é quando tem edDataDe.text.....

Link para o comentário
Compartilhar em outros sites

  • 0

tipo assim:

qryResult.sql.Add(' AND ReceberPagar.RP_DMAEMISSAO >= '+#39+ App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData+#39);

e tem outra coisa ae, na linha a baixo coloque assim:

qryResult.SQL.Add(' WHERE PEDIDO.PD_TIPOES=''E''');

eu não entendi a lógica disso:

App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData

unsure.gif

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - guilherme014 -
eu não entendi a lógica disso:

App.DeliData + FormatDateTime('MM/DD/YYYY', strToDateTime(edDataDe.text))+ app.DeliData

unsure.gif

eu também não, mas o meu patrão no estágio pediu para não mudar......

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
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...