Jump to content

dev botao

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


Go to solution Solved by Renato Rubinho,
  • Este tópico foi criado há 541 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link to comment
Share on other sites

  • 4 weeks later...
  • Este tópico foi criado há 541 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...