carta de correcao com erro

[jbaneto]

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

[André Ferreira de Moraes]

Poste os passos para reproduzir o problema usando o demo.

[jbaneto]

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

[André Ferreira de Moraes]

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

[jbaneto]

ok

pois é eu sei que vc transmitiu

mas eu to com esse erro.

segue a imagem

do erro na unot pcnretCCeNFe

[André Ferreira de Moraes]

Em qual linha do demo ocorre este erro? Vc não fez nenhuma alteração nos fontes do demo?

Poste o XML recebido do fisco.

[jbaneto]

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;

[André Ferreira de Moraes]

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.

[jbaneto]

Não chega na geração do xml.

[jbaneto]

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.

[André Ferreira de Moraes]

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.

[jbaneto]

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.

[Isaque Pinheiro]

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]

[jbaneto]

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

[Isaque Pinheiro]

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.

[jbaneto]

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.

[Isaque Pinheiro]

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.

[jbaneto]

Mensagem removida.

ja deixei mardao o local onde da o erro na unit e antes dela

grato pela atenção.

[jbaneto]

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.

[Isaque Pinheiro]

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

[jbaneto]

Ola pessoal,

alguem ja sabe porque desse erro?

grato pela atenção.

[Régys Silveira]

Você foi contato por e-mail?

[jbaneto]

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.

[Régys Silveira]

Estarei verificando com o Isaque o andamento da sua pendência.

[jbaneto]

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.