list index out of bounds(1)

[carlosd]

Oi!

sera que alguem poderia me dar uma ajuda

estou usando o servidor Betha o lote esta indo e retornando situação 4 processado com sucesso

mas apos esta dando esta menssagem de erro list index out of bounds(1);

verifiquei q o erro esta na linha 1136 da unit ACBrNFSeWebServices

if not (Self.ConsLote.Executar)

then begin

if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)

then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsLote.Msg);

raise Exception.Create(Self.ConsLote.Msg);

end;

Agradeco qualquer ajuda.

Carlos.

[cantelli.r]

Bom dia Carlos. Você está com os fontes atualizados?

Meus testes também faço com o provedor Betha e não está me ocorrendo este problema.

Abraço.

[carlosd]

Bom Dia!

Obrigado pelo sua resposta!

sim estou com os fontes atualizados, esta apenas dando este erro com a aplicação que estou desenvolvendo, com o acbr_demo nao da ja verifiquei todas as configurações e nao entendo porque esta dando este erro e notei que nao esta criando os arquivos -xxx1.xml.

Carlos.

[cantelli.r]

Opa Carlos, olha, aparentemente é problema com a lista de NFSe, não está carregando ou algo assim.

Talvez essa questão de não criar os arquivos esteja influenciando.

Tenta setar para salvar os arquivos nas configurações do componente:

ACBrNFSe.Configuracoes.Arquivos.Salvar := True;

ACBrNFSe.Configuracoes.Geral.Salvar      := True;

E veja na hora de carregar os arquivos pra consulta (se é que faz isso, não lembro), se está pegando do lugar certo.

Mas se no demo funciona, talvez seja só a questão de configurar corretamente o componente, igual ao Demo.

Abraço.

[carlosd]

cantelli ja tinha configurado o componente, mas na duvida copie a configuracao do demo e mesmo assim nao funciona a pasta NFSe nao é criada apenas Ger e RPS.

Carlos.

[cantelli.r]

Olha, acho que teria que dar um f7 na linha "if not (Self.ConsLote.Executar)" e verificar onde dá o erro pra ter certeza do que é amigo.

Acredito que vai dar erro ao tentar acessar alguma propriedade da lista das NFs.

Qualquer coisa faça uns testes gerando tudo na mesma pasta, alterando a seguinte propriedade do componente:

"ACBrNFSe.Configuracoes.Arquivos.AdicionarLiteral := False".

Veja quais arquivos está gerando para um único envio.. Qualquer coisa posta a lista dos arquivos gerados aí..

Abraço

[carlosd]

executei o F7 e a rotina parou na linha

432 da unit acbrnfsenotasficais

vSalvar.Text := AXMLFile;

Carlos.

[carlosd]

o erro esta nesta funcao

function TCompNfseCollection.GetItem(

Index: Integer): TCompNfseCollectionItem;

begin

Result := TCompNfseCollectionItem(inherited GetItem(Index));

end;

da unit pnfsConsLoteRpsResposta.

Carlos.

[Italo Giurizzato Junior]

Boa tarde Carlos,

Post como anexo os XMLs gerados, tanto os de envio quanto os de retorno.

A linha abaixo se refere a sua aplicação, correto?

vSalvar.Text := AXMLFile;

[carlosd]

Boa tarde Italo

a seguinte linha é da unit

acbrnfsenotasficais;

quais os arquivos q vc quer receber.

Carlos

[Italo Giurizzato Junior]

Carlos,

Você tem certeza que a linha:

vSalvar.Text := AXMLFile;

faz parte da unit ACBrNFSeNotasFiscais?

Precisamos dos arquivos XML de envio e retorno que esta provocando o erro em questão.

De preferencia os que terminal com *-c.xml

[carlosd]

mil desculpas a unit é ACBrNFSeConfiguracoes.

vc teria um e-mail para mim mandar os arquivos é q estou usando informacoes de uma empresa e eles nao vao gostar q coloque isso na net.

Carlos.

[Italo Giurizzato Junior]

mande para: [email protected]

com cópia para: [email protected]

[carlosd]

Acabei de enviar os arquivos.

Grato

Carlos.