FDMBPe.ACBrBPe.Enviar(1, false), List Index out of bounds

[Luiz Carlos de Lima]

Boa tarde,

Ao executar o procedimento ACBrBPe.Enviar(1, false), se o período do envio estiver FORA DO PRAZO, o Bilhete é autorizado, mas retorna o erro "List Index out of bounds".

Obs. Quando está no prazo o erro não acontece.

Grato pela atenção,

 

[EMBarbosa]

16 horas atrás, Luiz Carlos de Lima disse:

Boa tarde,

Ao executar o procedimento ACBrBPe.Enviar(1, false), se o período do envio estiver FORA DO PRAZO, o Bilhete é autorizado, mas retorna o erro "List Index out of bounds".

Obs. Quando está no prazo o erro não acontece.

Grato pela atenção,

 

Bom dia.
Você poderia anexar o log do componente por favor?
Se possível também anexe os xmls gerados para análise.

[Luiz Carlos de Lima]

Bom dia, Quando executa ACBrBPe.Enviar(1, false) é gerado os arquivos -Lot, depois faço uma sincronizacao(ACBrBPe.Consultar(), entao é montado os demais arquivos, inclusive o XML Autorizado.

1-env-lot.xml 1-env-lot-soap.xml 1-pro-lot.xml 1-pro-lot-soap.xml 22220406848881000181630030000000072711326221-bpe.xml 22220406848881000181630030000000072711326221-ped-sit.xml 22220406848881000181630030000000072711326221-ped-sit-soap.xml 22220406848881000181630030000000072711326221-sit.xml 22220406848881000181630030000000072711326221-sit-soap.xml

[EMBarbosa]

2 horas atrás, Luiz Carlos de Lima disse:

Bom dia, Quando executa ACBrBPe.Enviar(1, false) é gerado os arquivos -Lot, depois faço uma sincronizacao(ACBrBPe.Consultar(), entao é montado os demais arquivos, inclusive o XML Autorizado.

1-env-lot.xml 6 kB · 0 downloads 1-env-lot-soap.xml 5 kB · 0 downloads 1-pro-lot.xml 710 B · 0 downloads 1-pro-lot-soap.xml 1005 B · 0 downloads 22220406848881000181630030000000072711326221-bpe.xml 2 kB · 0 downloads 22220406848881000181630030000000072711326221-ped-sit.xml 219 B · 0 downloads 22220406848881000181630030000000072711326221-ped-sit-soap.xml 522 B · 0 downloads 22220406848881000181630030000000072711326221-sit.xml 695 B · 0 downloads 22220406848881000181630030000000072711326221-sit-soap.xml 990 B · 0 downloads

Você implementou o evento ACBrBPe1GerarLog?

Em caso positivo, poderia anexar o arquivo de log gerado?

Em caso negativo, poderia implementar e anexar o log gerado? Ou pelo menos reproduzir o problema no aplicativo de exemplo e anexar o log?

[Luiz Carlos de Lima]

Pode me ajudar como implementar esta evento para gerar log, não consegui descobrir como configurá-lo.

[Italo Giurizzato Junior]

Bom dia Luiz,

No programa exemplo também ocorre o mesmo problema?

Se sim, seria interessante debugar para saber com exatidão a linha que ocorre o erro.

[Luiz Carlos de Lima]

Boa tarde Ítalo, o erro esta componente pcnRetEnvBPe nesta funcão:

function TProtBPeCollection.GetItem(Index: Integer): TProtBPeCollectionItem;
begin
  Result := TProtBPeCollectionItem(inherited Items[Index]);
end;

[Italo Giurizzato Junior]

Boa tarde Luiz,

Favor atualizar os fontes e faça novos testes.

[Luiz Carlos de Lima]

Boa tarde Ítalo, o erro esta componente pcnRetEnvBPe nesta funcão:

function TProtBPeCollection.GetItem(Index: Integer): TProtBPeCollectionItem;
begin
  Result := TProtBPeCollectionItem(inherited Items[Index]);
end;

Resolvido, Obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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