Problemas encontrados no envio do Bpe-Tm

[Alexandre Turino Mendes]

Não sei este canal tem por finalidade reportar problemas encontrados com os componentes, mas vou enviar por aqui, caso exista algum outro canal para esta finalidade, favor me orientar.

Atualizei os componentes do ACBR com a versão atual, porém a rotina formação do XML do BPe-TM se encontra divergente do MOC, para poder autorizar os BPe-TM´s, precisei alterar os fontes:
..\ACBr-master\Fontes\ACBrDFe\ACBrBPe\Base\ACBrBPeXmlWriter.pas ,
..\ACBr-master\Fontes\ACBrDFe\ACBrBPe\Base\ACBrBPeConsts.pas,
..\ACBr-master\Fontes\ACBrDFe\ACBrBPe\AcbrBilhetes.pas

No fonte ACBrBPeXmlWriter.pas, linha: 397, foi necessário implementar a TAG dCompet que existe somente no BPe-TM.


No fonte ACBrBPeConsts.pas, foi necessário implementar a constante DSC_DCOMPET, na linha: 117


E finalmente no fonte AcbrBilhetes.pas, foi necessário implementar na linha: 1531, foi necessário ajustar a função "Copy", de 6 para 7, pois não estava copiando o fechamento da TAG.

[Juliomar Marchetti]

Por favor anexe suas units com as sugestões

[Alexandre Turino Mendes]

Segue os fontes com as sugestões.
Favor desconsiderar a citação do fonte: ACBrBPeConsts.pas, esse está correto.

ACBrBPeBilhetes.pasFetching info... ACBrBPeXmlWriter.pasFetching info...

[Italo Giurizzato Junior]

Boa tarde @Alexandre Turino Mendes,

Muito obrigado pela colaboração, já foi criado a TK-6648  para analise.

[Alexandre Turino Mendes]

Olá, encontrei mais alguns problemas na geração do XML de retorno do BPe-TM.

..\Embarcadero\ACBr-master\Fontes\ACBrDFe\ACBrBPe\ACBrBPeWebServices.pas

A implementação se faz necessária, pois quando for moBPeTM, precisa ser enviada a tag BPeTM, caso contrário quando for montrar o XML de retorno, o XML de envio não é encontrado,
conforme é demonstrado na segunda imagem na função "RetornaConteudoEntre()".

..\Embarcadero\ACBr-master\Fontes\ACBrDFe\Comum\ACBrDFeComum.Proc.pas
Sugestão de implementação somente para manter os padrões das tags do XML de retorno.


Anexo estão os fontes com as sugestões de implementações.

Atenciosamente,

Alexandre.
 

ACBrDFeComum.Proc.pasFetching info... ACBrBPeWebServices.pasFetching info...

[Italo Giurizzato Junior]

Boa tarde @Alexandre Turino Mendes,

Esse if na unit ACBrDFeComum.Proc não concordo, isso tem que ser tratado na unit do componente ACBrBPe.

[Alexandre Turino Mendes]

@Italo Giurizzato Junior, obrigado pelo retorno, sem problemas foi somente uma sugestão, porém o SEFAZ pede a que a tag seja "bpeTM" e como no Result da função está como "LowerCase(FtagGrupo)", qualquer forma que eu venha a enviar no fonte em que está  o componente do ACBrBPe, todo conteúdo informado será transformado em minúsculo "bpetm", funcionaria se fosse somente o BPe ou DFe, mas para o BPe-TM já não ficaria correto.

[Italo Giurizzato Junior]

Boa noite @Alexandre Turino Mendes,

Eu entendi o problema.

A questão é a sua alteração realizada na unit ACBrDFeComum.Proc.

Ela tem que ser feita na unit ACBrCTeWebservice.

Notei que os seus fontes do ACBr estão desatualizados.

Algumas coisas que você esta propondo já foram sanadas.