Ir para conteúdo
  • Cadastre-se

magistech

Membros Pro
  • Total de ítens

    54
  • Registro em

  • Última visita

Posts postados por magistech

  1. Diego dentro InfoRecEv eu não tenho a propriedade do recibo. Pegando o código exemplo disponibilizado. 

    Não sei o q to fazendo de errado:

    with ACBrReinf1.WebServices.Consultar.RetEnvioLote do
    begin
      for i:=0 to evento.Count - 1 do
      begin
        with evento.Items[i] do
         begin

         with mmoDados.Lines do
            begin
                if evtRet.Id <> '' then
                begin
                  Add('');
                  Add(' Evento: 9005');
                   Add(' Evento Id: ' + Id);

                   with evtTotal do
                    begin
                      Add('   Id...........: ' + Id);
                      Add('   Cód Retorno..: ' + IdeStatus.cdRetorno);
                      Add('   Descrição....: ' + IdeStatus.descRetorno);
                       Add('   Nro Recibo...: ' + InfoTotal.nrRecArqBase);

                        Add('');
                        Add(' **Ocorrencias');

                         for j := 0 to IdeStatus.regOcorrs.Count - 1 do
                         begin
                         with IdeStatus.regOcorrs.Items[j] do
                           begin
                              Add('   Tipo............: ' + Inttostr(tpOcorr));
                               Add('   Local Erro Aviso: ' + localErroAviso);
                                Add('   Código Resp.... : ' + codResp);
                                    Add('   Descricao Resp..: ' + dscResp);
                                  end;
                                end;

                                Add('');
                                Add(' **Informações de processamento dos eventos ');

                                with InfoRecEv do
                                begin
                                  Add('   Num. Protocolo de Entrega do Evento.: ' + nrProtEntr);
                                  Add('   Data/Hora do Processamento do Evento: ' + DateTimeToStr(dhProcess));
                                  Add('   Tipo do Evento......................: ' + tpEv);
                                  Add('   ID do Evento........................: ' + idEv);
                                  Add('   Hash do arquivo processado..........: ' + hash);
                                end;

                              end;
                            end;
                          end;
     

  2.  Estou testando o componente sped Reinf e não estou tendo o retorno do recibo para o registro R4020, consulta feita pelo protocolo. O erro acontece na pcnReinfR9005, na function TevtRet.LerXML: boolean. Estou com projeto atualizado.

    Obs.... Testei os registo 1000, 2010 2050 e 2055 e todos eles funcionando perfeitamente. Em anexo vou colocar o arquivo SOAP, gerado para R-4020.

    Obrigado

    20230213105806-sit-soap.xml

  3. bom dia.

    Quando envio e o lote ele fica aguardando processamento, recebo o numero do protocolo e se for validado com sucesso tenho vários recibos. O meu problema é como relacionar um produtor a seu recibo correto, quando faço processo de buscar o recibo através do protocolo.

    Observei que além do arquivo que recebo com o protocolo tenho outro arquivo que é o env-lot.xml. Nele tenho dados o id do participante que esta aguardando processamento.

    Sabe me dizer componente acbr ler esse arquivo, junto com o retorno do protocolo?

  4. 53 minutos atrás, Renato Rubinho disse:

    Certo, havia entendido que não tivesse conseguido testar.

    Você está usando a versão 1_05_01 ou a 2_01_01?

    Se estiver utilizando o novo Leiaute, você precisa primeiro enviar o registro, depois consultar o protocolo recebido, assim como era feito no 2099, para obter o retorno do processamento do primeiro envio.

    Eu entendi a mudança aqui. Porem o consultar recibo não esta retornado nada. Na versão anterior funciona perfeitamente.

    meu código:

    PerApur := ano + '-' + mes;
    TipoEvento := 'R-2010';
    nrInscEstab := FcnpjEmpresa;
    cnpjPrestador := retiraCaracter(selecionaServicocnpj.Value);
    nrInscTomador := '';
    DataApur := '';
     if ACBrReinf1.ConsultaReciboEvento(PerApur, StrToTipoEvento(Ok, TipoEvento),
                                                                   nrInscEstab, cnpjPrestador,
                                                                   nrInscTomador, dtApur) then

    if ACBrReinf1.Configuracoes.Geral.VersaoDF >= v2_01_01 then
    begin
      with ACBrReinf1.WebServices.ConsultarReciboEvento.RetConsulta_R9011 do
      begin

       end;

    end;

     

     

     

     

  5. 5 minutos atrás, Renato Rubinho disse:

    Boa tarde,

    Caso não tenha atualizado os fontes hoje com as novas implementações, atualize e reinstale os componentes.

    Teste com o programa de exemplo, marque o registro desejado, clique na opção gerar arquivos e depois na opção enviar.

    Boa tarde Renato, atualizei programa hoje, tanto que já estou conseguindo transmitir depois q fiz a alteração de assinar os eventos no código.

    Outro erro que estou passando é na consulta do recibo, o arquivo 2055-con.xml esta vindo vazio, sendo assim não retornando o recibo enviado.  

  6. Pessoal saiu a nova versão do sped Reinf.

    Testando aqui ocorre erro relacionado ao schema do evento a ser transmitido. Fui analisar o código e percebi que antes de enviar, preciso assinar evento, que é o ACBrReinf1.AssinarEventos. 

    Verifique por favor se estou correto. 

    Obrigado.

  7. 8 minutos atrás, Evandro Rocha Almeida disse:

    Prezados, bom dia

    Tem alguma programação já feita para o Reinf 2.1.1??

    conforme link abaixo, existe ambiente de teste para a produção restrita no modo assincrono

    http://sped.rfb.gov.br/pagina/show/6125

    Publicado em 29/11/2022

    Estão disponíveis dois ambientes de produção restrita: um destinado a recepcionar os eventos da versão 1.5.1 e outro destinado a recepcionar os eventos da versão 2.1.1.

    Ambiente para leiaute versão 2.1.1

    Foi disponibilizado em 28/11/2022 um novo ambiente e um novo banco de dados para recepção dos eventos da versão 2.1.1 de forma assíncrona.
    Os endereços para transmissão não foram alterados, permanecendo os mesmos que estão no manual do desenvolvedor.
    Os dados (lotes e eventos versão 2.1.1) transmitidos de forma assíncrona foram excluídos.
    Todos os lotes/eventos devem ser enviados novamente para este ambiente, incluindo os eventos de tabela.

    No discord, canal #pro-diversos tive uma conversar com os consultores da ACBR. O que esta acontecendo é que a nova versão esta sendo recepcionada por uma API Rest, até a 1.05.01 é recepcionada por um WebService Soap.
    A Equipe ACBr já esta trabalhando para anteder essa mudança.

    Devemos esperar pessoal atualiza o componente.

    • Curtir 4
  8. Pessoal boa tarde.

    Estou testando a nova versão do reinf, e quando envio o R-1000 esta me retornando essa mensagem:

    ideTransmissor: 05747253000147
    cdStatus      : 1
    descRetorno   : ERRO
     **Ocorrencias
       tipo: 1
       localizacaoErroAviso: 
       codigo: 92
       descricao: Versão do lote inválida. Deve ser utilizada a versão 1.05.01. O lote enviado é do modelo , porem esse serviço recebe somente lotes do modelo Síncrono.
    retornoEventos

    Estou usando os novo schemas disponibilizados pelo ACBR.

    Saberiam me dizer se é erro lá no servidor do reinf?

     

     

     

  9. Boa tarde..

    Qual planejamento para a atualização do projeto reinf para o novo leiaute 2.1.1 

    Nessa versão versão foi adicionado vários outros registros, como:

    R-4020 - Pagamentos/créditos a beneficiário pessoa jurídica

    Obrigado e bom trabalho.

  10. Boa tarde galegona.

    Faz o seguinte, pega o arquivo que desenvolvi e coloca no seu projeto.

    Nesse caminho da pasta ACBR     Fontes\ACBrDFe\ACBrReinf\PCNReinf

    Para chamar a função é esse código que implementei, praticamente é o mesma ideia que tem nos exemplos do projeto.

    PerApur := ano + '-' + mes;
    TipoEvento := 'R-2055';
    nrInscEstab := FcnpjEmpresa;
    nrInscEstab := retiraCaracter(seleciona2055cpfCnpj.Value);
    cnpjPrestador := FcnpjEmpresa;
    DataApur := '';

     if ACBrReinf1.ConsultaReciboEvento(PerApur, StrToTipoEvento(Ok, TipoEvento),
                                           nrInscEstab, cnpjPrestador,
                                           nrInscTomador, dtApur) then
      begin

      end;

  11. pcnReinfConsulta.pasDesenvolvi o procedimento de consultar o recibo para o evento R-2055. Para que possamos ter resposta correta WebService a montagem do xml tem como parâmetro:

    1 - Tipo do Evento.

    2 - Tipo de Inscrição do Contribuinte.

    3 - Número de Inscrição do Contribuinte.

    4 - Período de Apuração.

    5 - Tipo de Inscrição do Estabelecimento Adquirente da produção.

    6 - Número de Inscrição do Estabelecimento Adquirente da produção .

    7 - Tipo de Inscrição do produtor.

    8 - Número de Inscrição do produtor.

    A unt com as modificações encontra-se anexada.

    pcnReinfConsulta.pas

    • Curtir 2
  12. Seguinte, estou enviando mais de 600 produtores em apenas uma requisição (“Onde o erro ocorre”), Porem quando desmembro, enviando 50 produtores por vez, o mesmo erro não ocorre. Não vi no manual se tem limite de produtores que posso enviar.

    Quanto falei de lote, falei dos 600 produtores que tentei enviar.

    Não estou com nenhum produtor duplicado.

  13. Senhores:

    Estou com problema com o arquivo de retorno do reinf, especificamente com o evento 2055, quando envio um lote grande.

    Erro:

    codigo: 30

    descricao: A estrutura do arquivo XML está em desconformidade com o esquema XSD. The element 'loteEventos' in namespace

    Quando faço o processo com lotes pequenos, tais erro não ocorre.

    Observei que houve mudança no arquivo schema retorno dos lotes, alguém poderia me ajudar nesse caso.

    Obrigado.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...