Correção na Implementação dos Campos hashCSRT e IDCSRT

[RenatoE]

Prezados,

Estou realizando a implementação dos campos hashCSRT e IDCSRT referentes ao responsável técnico na NF-e e NFC-e. No entanto, observei que o código está buscando os valores de uma origem incorreta.

Atualmente, os valores estão sendo obtidos do módulo pcnNFeW, quando o correto seria buscá-los no módulo pcnNFe.

ACBr

 

O correto seria:

 

[Daniel Simoes]

Obrigado pela contribuição

@Italo Giurizzato Junior, pode por favor analisar ?

[BigWings]

O código atual está correto e funcionando.

Você não precisa informar o hashCSRT ao alimentar o componente, o componente calcula o hashCSRT com base no CSRT e IdCSRT informados.

 

[RenatoE]

@BigWings confirmar se a implementação correta dos campos IdCSRT e hashCSRT não seria dentro da classe TinfRespTec.

Por exemplo:

ACBrNotaFiscal.NFe.infRespTec.CNPJ := 1234001010200; 
ACBrNotaFiscal.NFe.infRespTec.xContato := 'Pedro II'; 
ACBrNotaFiscal.NFe.infRespTec.idCSRT := 1; 
ACBrNotaFiscal.NFe.infRespTec.hashCSRT := '432478392dfhdjsfhds'; 

Notei que o campo hashCSRT está sendo atribuído corretamente. Contudo, os campos IdCSRT e hashCSRT estão sendo utilizados em classes diferentes, o que pode gerar inconsistências.

Acredito que o correto seria mantê-los na mesma classe (TinfRespTec) para garantir a integridade e coerência das informações.

[RenatoE]

@BigWings @Daniel Simoes @Italo Giurizzato Junior

 

Preenchido o componente

ACBrNotaFiscal.NFe.infRespTec.CNPJ := 1234001010200; 
ACBrNotaFiscal.NFe.infRespTec.xContato := 'Pedro II'; 
ACBrNotaFiscal.NFe.infRespTec.idCSRT := 1; 
ACBrNotaFiscal.NFe.infRespTec.hashCSRT := '432478392dfhdjsfhds'; 

--------------------------------------

procedure TNFeW.GerarinfRespTec;
begin
 
    if (idCSRT <> 0) and (CSRT <> '') then -> utilizar if (NFe.infRespTec.idCSRT <> 0) and (NFe.infRespTec.hashCSRT <> '') then
    begin
      Gerador.wCampo(tcInt, '#086', 'idCSRT  ', 02, 02, 1, idCSRT, DSC_IDCSRT); -> NFe.infRespTec.idCSRT
      Gerador.wCampo(tcStr, '#087', 'hashCSRT', 28, 28, 1, CalcularHashCSRT(CSRT, FChaveNFe), DSC_HASHCSRT); -> NFe.infRespTec.hashCSRT
    end;

 
  end;
end;

Ao chegar no método TNFeW.GerarinfRespTec, o campo idCSRT permanece zerado, uma vez que o valor está sendo obtido de outra classe.

Contudo, ao ajustar para utilizar NFe.infRespTec.idCSRT, o valor é preenchido corretamente, já que está sendo atribuído diretamente ao local correto. 

Edited December 30, 2024 by RenatoE

[BigWings]

5 minutos atrás, RenatoE disse:

Preenchido o componente

ACBrNotaFiscal.NFe.infRespTec.CNPJ := 1234001010200; 
ACBrNotaFiscal.NFe.infRespTec.xContato := 'Pedro II'; 
ACBrNotaFiscal.NFe.infRespTec.idCSRT := 1; 
ACBrNotaFiscal.NFe.infRespTec.hashCSRT := '432478392dfhdjsfhds'; 

Faça assim:

ACBrNFe1.Configuracoes.RespTec.IdCSRT := 1;
ACBrNFe1.Configuracoes.RespTec.CSRT := '123456789...';

E na geração da nota:

ACBrNFe1.NotasFiscais[0].NFe.infRespTec.CNPJ := 1234001010200;
...

Já será calculado o hash e gerado no XML.

[RenatoE]

@BigWings Valeu pela ajuda, Muito Obrigado!

[BigWings]

Obrigado por reportar.

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