joveciguedes Novato

Registrado: Segunda-Feira, 6 de Abril de 2020 Mensagens: 3
|
Enviada: Ter Jul 04, 2023 12:07 pm Assunto: Recordcount > 0 nao funciona |
|
|
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; |
|