ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Recordcount > 0 nao funciona

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
joveciguedes
Novato
Novato


Registrado: Segunda-Feira, 6 de Abril de 2020
Mensagens: 3

MensagemEnviada: Ter Jul 04, 2023 12:07 pm    Assunto: Recordcount > 0 nao funciona Responder com Citação

Boa tarde galera..

Eu queria saber o que esta errado nessa rotina abaixo ele passa direto no RECORDCOUNT > 0 mais tem registro na tabela . segue a baixo a rotina. ele chega ate OPEN depois sai era entra no QryComplementar.first;

QryComplementar.close;
QryComplementar.sql.clear;
QryComplementar.sql.add('select * from NFE_COMPLEMENTAR where NUMNOTA = :NUMNOTA');
QryComplementar.ParamByName('NUMNOTA').asstring := InttoStr(FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger);
QryComplementar.open;

if (QryComplementar.RecordCount > 0) then
begin
// Para NFe referenciada use os campos abaixo
QryComplementar.first;
while not QryComplementar.eof do
begin
with Ide.NFref.add do
begin
refNFe := QryComplementar.fieldbyname('chave').asstring; // NFe Eletronica
end;
QryComplementar.next;
end;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB