Erro com componentes de acesso a dados.

[joveci guedes de almeida]

Bom dia 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 QryComplementar.open; depois sai e não entra no QryComplementar.first;

Precisso fazer referenia dessa nota de devolucao. vlw galera se alguem pode mim dar um norte blz

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
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;

[RicardoVoigt]

Bom dia,

me pareceu um pouco estranha o preenchimento do parâmetro NUMNOTA, e essa conversão de integer pra string...

Já conferiu se esse numero da nota não esta gravada com zeros a esquerda?

Att

Ricardo

[joveci guedes de almeida]

Ola Ricado.. tanto a o numero da notafiscal como numnota esta agora como inteiro

  QryComplementar.ParamByName('NUMNOTA').AsInteger := FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger;

e mesmo assim a danada nao entra na nota referenciada to quebrando a cabeca aqui .

[valterpatrick]

1 hora atrás, joveci guedes de almeida disse:

Bom dia 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 QryComplementar.open; depois sai e não entra no QryComplementar.first;

Precisso fazer referenia dessa nota de devolucao. vlw galera se alguem pode mim dar um norte blz

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
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;

Eu recomendaria primeiro fazer a conversão com um INTTOSTRDEF para sempre ir um número padrão.

# Antes:

QryComplementar.ParamByName('NUMNOTA').asstring := InttoStr(FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger);

# Depois:

QryComplementar.ParamByName('NUMNOTA').asstring := InttoStrDef(FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger, 0);

 

Depois seria bacana você fazer a depuração ou colocar logs para saber qual o valor que está vindo em FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger.

[joveci guedes de almeida]

Valter bom dia...

Eu não preciso mais converter por que ja aterei para inteiro o campo e  FrmNotaFiscal.qryVenda.FieldByName('NOTAFISCAL').AsInteger.

esta retornando o valor da nota correto, ja depurei e veriquei notafiscal=3760 que é o numero da nota mais quado chega no recordcount > 0 ele mostra que e 0

[Cleber Ferreira]

Bom dia,

ao invés de usar "QryComplementar.open;" já tentou QryComplementar.Active := True;" ?

[Juliomar Marchetti]

3 horas atrás, joveci guedes de almeida disse:

Bom dia 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 QryComplementar.open; depois sai e não entra no QryComplementar.first;

Precisso fazer referenia dessa nota de devolucao. vlw galera se alguem pode mim dar um norte blz

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
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;

veja sua dúvida e problema não tem a ver com o ACBrNFe e sim delphi

tente usar os canais voltados a delphi.

que componente é esse de query? ou engine de conexão que tá usando?

tente após o .open. fazer um .last e .first

[joveci guedes de almeida]

Obg a todos .. pode fechar realmente nao tem na haver com o acbr vlw ate 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.