ERRO: Nenhuma NF-e adicionada ao Lote

[Hilderaldo Barbosa]

Pessoal, bom dia,

Utilizando como guia o Demo da acbrnfe2 fiz a seguinte alteração no botão Criar e Enviar para adicionar mais de uma nota no mesmo lote

porém me da a mensagem "ERRO: Nenhuma NF-e adicionada ao Lote"

Vejam como esta o codigo do btnCriarEnviar e a GeraNFEII

abaixo

Muito Obrigado a todos

procedure TFManutencaoNFE.btnCriarEnviarClick(Sender: TObject);

var

vAux, vNumLote : String;

strSql, strProtocolo, strRecibo, strChave : String;

begin

vNumLote := OnlyNumber(edNumLote.text);

ACBrNFe1.NotasFiscais.Clear;

if not ((edtNotaInicial.text='') or (edtNotaFinal.Text='')) then

begin

intIni := strtoint(edtNotaInicial.text);

intFim := strtoint(edtNotaFinal.Text);

while intIni <= intFim do

begin

GeraNFeII(intIni);

intIni := intIni + 1;

end;

ACBrNFe1.Enviar(vNumLote);

strProtocolo := ''; strRecibo := '';

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);

LoadXML(MemoResp, WBResposta);

MemoDados.Lines.Add('');

MemoDados.Lines.Add('Envio NFe');

MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));

MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);

MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));

MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));

MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);

MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));

MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);

MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);

MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);

// MemoDados.Lines.Add('cStat: '+ ACBrNFe1.WebServices.Retorno.NFeRetorno;

{

strProtocolo := ACBrNFe1.WebServices.Retorno.Protocolo;

strRecibo := ACBrNFe1.WebServices.Retorno.Recibo;

strChave := acbrNFe1.webServices.Retorno.ChaveNFe;

if not (trim(strRecibo)= '') then

begin

strSql := 'update tabsaidas '+

' set sai_protocolo = '+chr(39)+strProtocolo+chr(39)+

' ,sai_recibo = '+chr(39)+strProtocolo+chr(39)+

' ,sai_chave = '+chr(39)+strChave+chr(39)+

' where sai_doc = '+chr(39)+strTipoNota+chr(39)+

' and sai_numero = '+chr(39)+vNumNF+chr(39)+

' and sai_codloj = '+strCodLojPad;

FFunProjeto.ExecutaSQLCommit(strSql);

end; }

end

else

begin

Application.MessageBox('Não foi informado número de Notas Fiscais.','Notas Fiscais',mb_ok);

edtNotaInicial.setfocus;

end;

ACBrNFe1.NotasFiscais.Clear;

end;

procedure TFManutencaoNFE.GeraNFEII(NumNFE : integer);

var

strTipoNota, strPlaca, vNumNF, strFunNome, strSql,strRemoveChar : String;

strProtocolo : string;

strRecibo :string;

strChave :String;

begin

vNumNF := copy(inttostr(1000000+NumNFE),2,6);

base.QryAux.close;

base.QryAux.sql.clear;

base.QryAux.sql.add('select par_tiponota from tabparametros where par_codloj = '+strCodLojPad);

base.QryAux.open;

strTipoNota := base.qryAux.fieldbyname('par_tiponota').asString;

base.QryNotasSaida.Close;

base.QryNotasSaida.Sql.Clear;

base.QryNotasSaida.SQL.add(' Select cfo_Descricao, Loj_RazSocial, loj_cnpj, loj_cep, loj_codrua, loj_numero, loj_com, loj_fone, sai_endentrega, '

+' cli_codrua,cli_cgc,cli_cpf,cli_inscricao,CLI_INSPRORUR,cli_numero,cli_comp,cli_cep,cli_tel, cli_telaux, '

+' LOJ_INSESTADUAL,loj_nomefan, Cli_Nome,cli_razsocial, cli_codrua, s.*, d.* '

+' from TABSAIDAS s, TabLojas , TabClientes, TabDetalhesNota d, TabCFOP '

+' where Sai_CodLoj = Loj_CodLoj and Sai_CodCli=Cli_CodCli'

+' and Sai_Doc=Not_DocSai and Sai_Numero=Not_NumeroSai and Sai_CodLoj=Not_CodLojSai'

+' and Not_CFOP=CFO_Codigo '

+' and sai_doc = '+chr(39)+strTipoNota+chr(39)

+' and sai_numero = '+chr(39)+vNumNF+chr(39)

+' and sai_codloj = '+strCodLojPad);

base.QryNotasSaida.open;

if not base.QryNotasSaida.isempty then

begin

with ACBrNFe1.NotasFiscais.Add.NFe do

begin

aqui apenas adiciono todos os campos no xml da nf, ficaria muito extenso se colocar tudo aqui

end;

end;

end;

end;

[André Ferreira de Moraes]

Este erro só ocorre se a propriedade ACBrNFe1.NotasFiscais.Count for menor ou igual a 0.

Debugue sua aplicação e verifique pq esta propriedade está sendo zerada.

[elara]

Hilderaldo,

Verifique se você não esta limpando as notas fiscais, ACBrNFe1.NotasFiscais.Clear

em algum lugar pode ser isso também , ai será necessário carregar novamente depende da lógica que esteja usando.

[Rafael Pelegrineti Porto]

Boa tarde, estou fazendo uma nota de exportação e na hora de enviar dá essa mensagem: Erro: Nenhuma nf-e adicionada ao lote.
O que pode ser?

[etbricio]

Em 21/03/2011 at 07:48, André Ferreira de Moraes disse:

Este erro só ocorre se a propriedade ACBrNFe1.NotasFiscais.Count for menor ou igual a 0.

 

Debugue sua aplicação e verifique pq esta propriedade está sendo zerada.

segue arquivo xml com o mesmo erro, porém, ao dividir a nfe em duas envia normalmente...

50180724010186000128550010000002181000105469-nfe.xml

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.