ResponsavelRetencaoToStr NFSeX Abrasf v2

[infopointerp]

Boa tarde,

Anexado alteração para que a função ResponsavelRetencaoToStr que é do provider retorne um valor padrão e nas classes herdadas irão sobrescrever e não irá afetar o funcionamento.

ACBrNFSeXProviderABRASFv2.pas

[Italo Giurizzato Junior]

Boa noite,

Não entendi o motivo de reescrever a função?

Qual a diferença entre:

function TACBrNFSeXProvider.ResponsavelRetencaoToStr(const t: TnfseResponsavelRetencao): string;
begin
  Result := EnumeradoToStr(t,
                           ['1', '', '2', ''],
                           [rtTomador, rtPrestador, rtIntermediario, rtNenhum]);
end;

e

function TACBrNFSeProviderABRASFv2.ResponsavelRetencaoToStr(const t: TnfseResponsavelRetencao): string;
begin
   Result := EnumeradoToStr(t, ['', '1', '2'], [rtNenhum, rtTomador, rtIntermediario]);
end;

A primeira se encontra na unit ACBrNFSeXProviderBase e garante que somente retorne os valores 1 e 2 se for informado rtTomador ou rtIntermediario.

Na sua implementação o que vai ocorrer se for informado o valor rtPrestador?

[infopointerp]

Bom dia,

Não sei o que ocorreu dentro do componente, mas o que eu recebi de volta dessa função sem alterar nada era uma string vazia da forma que postei com um print no discord.

Se essa função já existe então tem algo errado ai que não foi chamado, porque só apenas após eu adicionar esse fonte que na montagem do XML foi retornado um valor.

Se precisar posso remover o que eu fiz e fazer o mesmo processo novamente.

Na sua implementação o que vai ocorrer se for informado o valor rtPrestador? 

No caso que foi pego do cliente o valor do responsável foi de valor 1.

[Italo Giurizzato Junior]

Bom dia,

Qual é a cidade?

[infopointerp]

Foi com Água Boa - MT

[Italo Giurizzato Junior]

Acabei de realizar um teste usando o programa exemplo e a tag <ResponsavelRetencao> foi gerada com o valor 1 ao atribuir o valor rtTomador ao campo: Servico.ResponsavelRetencao.

Detalhe importante a tag só é gerada se o valor de IssRetido for diferente de stNormal.

[infopointerp]

Vou remover essa minha alteração e tentar novamente.

[infopointerp]

Está certo, o problema é que tentei dar o cast usando o enumerado depois que foi removido a função nas atualizações que fui fazendo do fonte.
 

TnfseResponsavelRetencao = (rtTomador, rtPrestador, rtIntermediario, rtNenhum);

Como no meu arquivo que eu gero eu mando que é o valor 1, ao tentar dar o cast ele pegou o errado.

Manualmente informando o valor no Servico.ResponsavelRetencao gerou corretamente.

 

[Italo Giurizzato Junior]

Obrigado por reportar.

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