Reversão de Código - ACBrReinf Evento R-1000 - Erro MS1010 ID inválido

[Messias Antonio Natal]

Foi criado no dia 16/08/2022 tópico para correção do erro MS1010 ID inválido: ACBrReinf Evento R-1000 - Erro MS1010 ID inválido

Conforme conversado com os consultores a correção estava certa e foi para o SVN: revision 27675 dia 06/12/2022 

porem foi revertida no dia 26/12/2022 esse caso foi o mesmo do tópico: Reinf - MS1528 - O Grupo infoEFR não pode ser informado para natureza jurídica do contribuinte declarante

Onde a correção aprovada subiu para o SVN dia 06/12/2022 e revertida 26/12/2022 

Realizei as correções novamente, só que desta vez de uma forma diferente, ao invés de verificar se o Contribuinte é órgão publico foi verificado o tipo de documento CPF ou CNPJ, para ficar mais claro a condição.

Na função que gera a chave foi adicionado o tipo de inscrição TpInsc 

function  GerarChaveReinf(const emissao: TDateTime;
                          const CNPJF: string;
                          sequencial: Integer;
-------->                 TpInsc: TtpInsc): String;

desta forma em todas as units de cada evento (pcnReinfR1000.pas, pcnReinfR1050.pas, pcnReinfR1070.pas, pcnReinfR2010.pas, pcnReinfR2020.pas, pcnReinfR2030.pas, pcnReinfR2040.pas, pcnReinfR2050.pas, pcnReinfR2055.pas, pcnReinfR2060.pas, pcnReinfR2070.pas, pcnReinfR2098.pas, pcnReinfR2099.pas, pcnReinfR3010.pas, pcnReinfR4010.pas, pcnReinfR4020.pas, pcnReinfR4040.pas, pcnReinfR4080.pas, pcnReinfR4099.pas, pcnReinfR9000.pas)

que usa a função foi alterada para passar o novo parâmetro 

GerarChaveReinf(now, self.ideContri.NrInsc, self.Sequencial, self.ideContri.TpInsc);

e na função verificando esse tipo para definição de 1 ou 2 (Tipo de Inscrição do Contribuinte (1 - CNPJ; 2 - CPF))

  if TpInsc = tiCNPJ then
    Result := Result + IntToStr(1)
  else
    Result := Result + IntToStr(2);

Verificar viabilidade da correção.

Obrigado.

reinf.rar

[Renato Rubinho]

Obrigado pela contribuição, em breve será validada para possível envio ao svn.

TK-3840

[Renato Rubinho]

Boa noite,

Contribuição enviada ao SVN na Rev-29116.
 

Fiz um pequeno ajuste para usar a função de conversão.

 

Por favor, queria atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.

[Messias Antonio Natal]

OK 

Obrigado 

[Renato Rubinho]

Obrigado por reportar.

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