Messias Antonio Natal

Olá Comunidade ! segue mais um ajuste referente a API TACBrConsultaCNPJWSCNPJWS a data situação que esta sendo retornado pela api é data_situacao_cadastral e estava pegando data_situacao LEITURA JSON SQA.7z

Feito o ajuste comunidade ! Em anexo as units: ACBrConsultaCNPJ.pas ACBrConsultaCNPJ.WS.pas ACBrConsultaCNPJ.WS.BrasilAPI.pas ACBrConsultaCNPJ.WS.CNPJWS.pas ACBrConsultaCNPJ.WS.MinhaReceita.pas ACBrConsultaCNPJ.WS.ReceitaWS.pas LEITURA JSON SQA.7z

Olá comunidade ! Irei utilizar a consulta de CNPJ e verifiquei aqui que não possui os dados do Quadro de Sócios e Administradores - QSA. posso implementar e depois anexar a unit aqui ?

Bom dia ! Deu certo Muito Obrigado

Boa tarde ! Estou com erro no envio do reinf para qualquer tipo de evento. uso o padrão SSLType: LT_TLSv1_2 SSLHttpLib: httpWinHttp SSLLib: libWinCrypt SSLCryptLib: cryWinCrypt SSLXmlSignLib: sslLibXml2 alternando algumas das opções SSLType obtenho dois erros nas imagens em anexo.

OK, Obrigado.

Observei que o nome da tag evtTotal esta diferente quando é o evento R2099, ela esta como evtTotalContrib então realizei a seguinte alteração criei um variável Tag_evtTotal: string; e na leitura do campo if leitor.rExtrai(4, 'evtTotal') <> '' then Realizei a seguinte verificação: Tag_evtTotal:='evtTotal'; if leitor.rExtrai(4, Tag_evtTotal) = '' then Tag_evtTotal:='evtTotalContrib'; if leitor.rExtrai(4, Tag_evtTotal) <> '' then Desta forma consegui obter os dados. Em anexo a unit pcnReinfRetEventos com a modificação para analise. pcnReinfRetEventos.pas

Estou realizando a homologação do Reinf 2.1.2 e no evento R2099 consulta de protocolo parece estar retornando a estrutura do XML diferente dos demais eventos com isso não esta carregando as informações do evtTotal onde contem um dos dados mais importantes que é o Recibo (nrRecArqBase) no trecho a seguir da função LerRetornoEventos: if leitor.rExtrai(4, 'evtTotal') <> '' then ele não encontra o evtTotal no XML, eu tentei mudar o nível e o nome conforme olhei no XML pra ver se conseguia retornar o dado correto mas sem sucesso. Segue um exemplo da consulta de protocolo do evento R1000 onde funciona corretamente na 1ª imagem: e segue outro exemplo da consulta de protocolo do evento R2099 onde não retorna na 2º imagem: os fonte estão atualizados na data de hoje 30/09/2023 e o teste foi feito na minha aplicação e no ACBrReinf_Exemplo ambos ocorre o mesmo problema. alguém já passou por isso ?

OK Obrigado

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

OK, Obrigado

Boa tarde ! Deu certo sim.

OK irei realizar o teste

Boa tarde! Durante a atualização do componente, a alteração que havia sido feita foi desfeita. Após verificar no SVN, constatou-se que a alteração foi removida em 26/12/2022 às 10:55:18, com a seguinte mensagem de commit: "[+] Implementação do novo layout "2.1.x" por Renato Rubinho". Infelizmente, a remoção da variável "PossuiNaturezaJuridicaNaRegra" afetou significativamente o sistema, uma vez que essa variável era fundamental para informar se determinado órgão público tinha ou não a natureza jurídica na regra. Gostaria de saber o motivo da remoção dessa variável?

Realizei o update e fiz os testes tudo ok Obrigado