Jump to content

dev botao

carta de correcao com erro


  • Este tópico foi criado há 4664 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Olá

estou tentando fazer carta de correção eletronica e esta dano um

erro list index out of bounds(0)

na unit pcnretCCeNfe

function TRetInfEventoCollection.GetItem(

Index: Integer): TRetInfEventoCollectionItem;

begin

Result := TRetInfEventoCollectionItem(inherited GetItem(Index)); // o erro ocorre aqui

end;

estou utilizando o demo e tambem da o mesmo erro.

freto pela atenção

Link to comment
Share on other sites

  • Membros Pro

Olá

1o. cadastrei os dados da empresa, o certificado, etc...

2o. informo a chave da nfe

3o. o numero do lote, codigo do orgao no caso meu 15 - pará

4o. o cnpj que eta na chave da nfe, sequencial

5o. escrevo o texto: TESTE DE CARTA CORRECAO ELETRONICA

6o. coloco para depurar e para exatamente na linha da unit

pncretCCeNFe com a mensagem

List index out of bounds (0)

valew

Link to comment
Share on other sites

  • Moderadores

Este erro está ocorrendo com o demo?

Pois acabei de testar pelo demo e estou obtendo o retorno da CCe corretamente.

Por favor anexe a imagem com a mensagem completa de erro.

1

2

SP_EVENTOS_PL_100

35

128

Lote de Evento Processado

2

SP_EVENTOS_PL_100

35

cStat>135

Evento registrado e vinculado a NF-e351112XXXXXXXXXXXXXX550010000008791000008793

110110

Carta de Correção registrada

1

99999999000191

2011-12-16T16:09:15-02:00

135110010286278

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.xpos.com.br
Link to comment
Share on other sites

  • Membros Pro

opa

não nçao alterei nada, apenas coloquei o botão carta de correcao que não tinha.

mas o evendo é o mesmo

o erro ocorre na unit pcnretCCeNFe

na linha 204.

function TRetInfEventoCollection.GetItem(

Index: Integer): TRetInfEventoCollectionItem;

begin

Result := TRetInfEventoCollectionItem(inherited GetItem(Index)); // aqui acontece o erro

end;

Link to comment
Share on other sites

  • Moderadores

O demo já contém o botão "Carta de Correção".

Por favor, atualize seus fontes e teste com o demo. Caso o erro ainda ocorra, informe em qual linha do demo o erro acontece e anexe o XML recebido do SEFAZ.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.xpos.com.br
Link to comment
Share on other sites

  • Membros Pro

Olá,

baixei o acbr todo novo completo pelo snv, desisntalei e instalei novamente,

mas continua dando o mesmo erro

list index out of bounds(0)

na unit pcnretCCeNFe da pasta pcn2

não chega a gerar xml de retorno.

function TRetInfEventoCollection.GetItem(

Index: Integer): TRetInfEventoCollectionItem;

begin

Result := TRetInfEventoCollectionItem(inherited GetItem(Index)); // esta linha aqui da o erro

end;

marco ela para depurar quando digito F7 aparece o erro.

Link to comment
Share on other sites

  • Moderadores

Esta unit e responsavel por ler o xml, ou seja eh usada apos o xml de resposta ser recebido. Configure o demo para salvar os arquivos enviados e recebidos em um diretorio e copie todos os arquivos q serao gerados.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.xpos.com.br
Link to comment
Share on other sites

  • Membros Pro

Ola,

ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));

o erro list index out of bounds(0) acontece antes dessa linha logo abaixo;

dessa forma não salvo o xml. da carta de correcao.

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

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

LoadXML(MemoResp, WBResposta);

se vc pudem me passar o seu prog. demo, quam sabe porque o que baixei pelo snv, da esse erro.

grato pela atenção.

Link to comment
Share on other sites

Ola,

ACBrNFe1.EnviarCartaCorrecao(StrToInt(idLote));

o erro list index out of bounds(0) acontece antes dessa linha logo abaixo;

dessa forma não salvo o xml. da carta de correcao.

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

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

LoadXML(MemoResp, WBResposta);

se vc pudem me passar o seu prog. demo, quam sabe porque o que baixei pelo snv, da esse erro.

grato pela atenção.

Nos passe o trecho acima desta linha para identificarmos o por que esta ocorrendo esse erro, vou te mostrar como faço como exemplo:


ACBr_NFe.CartaCorrecao.CCe.Evento.Clear;
ACBr_NFe.CartaCorrecao.CCe.idLote := COD_GenID('CCE_LOTE'); // Gera númerro sequencial
with ACBr_NFe.CartaCorrecao.CCe.Evento.Add do
begin
infEvento.chNFe := DtmNFE.PSQ.FieldByName('NFE_CHAVEACESSO').AsString;
infEvento.cOrgao := StrToIntDef( Copy(infEvento.chNFe, 1, 2), 0);
infEvento.CNPJ := Copy(infEvento.chNFe, 7, 14);
infEvento.dhEvento := StrToDateTimeDef( DlgNFE_CartaCorrecao.edtNFE_DATAHORACCE.Text, Now );
infEvento.tpEvento := 110110;
infEvento.nSeqEvento := DlgNFE_CartaCorrecao.edtNFE_SEQUENCIA.AsInteger;
infEvento.versaoEvento := '1.00'; // Colocar essa versão no NFE_CFG
infEvento.detEvento.descEvento := 'Carta de Correção';
infEvento.detEvento.xCorrecao := DlgNFE_CartaCorrecao.edtNFE_CORRECAO.Text;
infEvento.detEvento.xCondUso := '';
end;
ACBr_NFe.EnviarCartaCorrecao( ACBr_NFe.CartaCorrecao.CCe.idLote );
[/code]

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Membros Pro

procedure TForm1.btnCartadeCorrecaoClick(Sender: TObject);

var

Chave, idLote, codOrgao, CNPJ, nSeqEvento, Correcao : string;

begin

if not(InputQuery('WebServices Carta de Correção', 'Chave da NF-e', Chave)) then

exit;

Chave := Trim(OnlyNumber(Chave));

{ if not ValidarChave(Chave) then

begin

MessageDlg('Chave Inválida.',mtError,[mbok],0);

exit;

end; }

idLote := '1';

if not(InputQuery('WebServices Carta de Correção', 'Identificador de controle do Lote de envio do Evento', idLote)) then

exit;

codOrgao := copy(Chave,1,2);

if not(InputQuery('WebServices Carta de Correção', 'Código do órgão de recepção do Evento', codOrgao)) then

exit;

CNPJ := copy(Chave,7,14);

if not(InputQuery('WebServices Carta de Correção', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then

exit;

nSeqEvento := '1';

if not(InputQuery('WebServices Carta de Correção', 'Sequencial do evento para o mesmo tipo de evento', nSeqEvento)) then

exit;

Correcao := 'Correção a ser considerada, texto livre. A correção mais recente substitui as anteriores.';

if not(InputQuery('WebServices Carta de Correção', 'Correção a ser considerada', Correcao)) then

exit;

ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt(idLote) ;

with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do

begin

infEvento.chNFe := Chave;

infEvento.cOrgao := StrToInt(codOrgao);

infEvento.CNPJ := CNPJ;

infEvento.dhEvento := now;

infEvento.tpEvento := 110110;

infEvento.nSeqEvento := StrToInt(nSeqEvento);

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correção';

infEvento.detEvento.xCorrecao := Correcao;

infEvento.detEvento.xCondUso := ''; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/ex ... iloeZ6vBw=

end;

ai está o texto do demo.

grato

Link to comment
Share on other sites

grato

Fiz o teste como o Demo e não ocorreu o erro reportado.

Pergunta:

Você tem um certificado instalado na sua maquina para teste?

Se sim o certificado esta, dentro da validade?

Fico no aguardo para sanarmos logo o problema.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

peguei de um cliente meu uma copia do certificado a1,

o certificado esta na validade. está emitindo nfe

normalmente. inclusive cadastrei os dados desse cliente

no demo.

fobrigado.

Mensagem removida.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Membros Pro

Olá

vou ter que sair agora.

vamos marcar para amanha à tarde

ou na quinta feira pela manhã.

ou em uma data e horario que vc possa atender

realmente o xml esta sendo salvo na pasta

especificada para salvar o xml da carta de correção.

apenas o erro é que perturba.

grato pela atenção.

j.neto.

Link to comment
Share on other sites

Olá

vou ter que sair agora.

vamos marcar para amanha à tarde

ou na quinta feira pela manhã.

ou em uma data e horario que vc possa atender

realmente o xml esta sendo salvo na pasta

especificada para salvar o xml da carta de correção.

apenas o erro é que perturba.

grato pela atenção.

j.neto.

Olá, algumas mensagens foram removidas por não respeitar as regras do fórum, mas entrarei em contato por Email, para resolvermos o problema.

Abs

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Membros Pro

Sim,

e estou aguardando a solução.

o erro esta na unit nfeACBrWebServices

aMsg := 'Ambiente : '+TpAmbToStr(CCeRetorno.tpAmb)+LineBreak+

'Versão Aplicativo : '+CCeRetorno.verAplic+LineBreak+

'Status Código : '+IntToStr(CCeRetorno.cStat)+LineBreak+

'Status Descrição : '+CCeRetorno.xMotivo+LineBreak;//+

'Recebimento : '+NotaUtil.SeSenao(CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento = 0, '', DateTimeToStr(CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento)); // esta linha aqui

comentei ela, mas da outro erro ai o xml volta vazio 0 bytes. não envia a carta é como se eu não tivesse internet.

o isaque pinheiro viu o erro.

grato pela atenção.

Link to comment
Share on other sites

  • Membros Pro

Olá

Gostaria de saber se alguem já esta usando

carta de correção em modo de produção

usando o ACBr?, se sim por favor,

estou precisando urgentemente para

instalar em um cliente, e o demo

atualizado está dando erro na unit

ACbrNFeWebServices, pelo menos comigo,

na linha

2946 - 'Recebimento : '+NotaUtil.SeSenao(CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento = 0, '', DateTimeToStr(CCeRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento));

se comento essa linha tenho outra mensagem de erro e o xml retorna vazio.

grato pessoal.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...