Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Mario Inacio

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    317

  • Registro em

  • Última visita

  • Days Won

    1

 Tipo de Conteúdo 

Posts postados por Mario Inacio

    Mudança de Provedor cidade de Três Cachoeiras (SC) para Fiorilli

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Bom dia.

    Depois de muitos dias esperando retorno da Fiorilli, pois precisaram cadastrar um setor na prefeitura, pois a ausência deste, estava retornando rejeição de qualquer NFS-e.

    Agora conseguimos validar NFS-e com a atual versão do componente.

    Apenas o cancelamento ainda estamos esperando um retorno, pois o WS retornou que o cancelamento por erro de digitação deve ser feito pelo site.

    • Curtir 3

    Mudança de Provedor cidade de Três Cachoeiras (SC) para Fiorilli

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Alterei a linha ProRecepcionar

    [4321667]
    ; Incluído em 28/09/2022
    Nome=Tres Cachoeiras
    UF=RS
    Provedor=Fiorilli
    Versao=2.00
    ProRecepcionar=http://trescachoeiras.msgestaopublica.com.br:8080/IssWeb-ejb/IssWebWS/IssWebWS
    ProLinkURL=http://trescachoeiras.msgestaopublica.com.br:8080/issweb/home.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%


    Dai mudou o erro.

    <EnviarLoteRpsSincronoResposta>

    <DataRecebimento>2023-02-16T16:22:14</DataRecebimento>

    <ListaMensagemRetorno>

    <MensagemRetorno>

    <Codigo>E172</Codigo>

    <Mensagem>Arquivo enviado com erro na assinatura.</Mensagem>

    <Correcao>Acerte a assinatura do arquivo.</Correcao>

    </MensagemRetorno>

    </ListaMensagemRetorno>

    </EnviarLoteRpsSincronoResposta>

    300-env-lot-sinc.xml 300-env-lot-sinc-soap.xml 300-lista-nfse-sinc.json 300-lista-nfse-sinc.xml 300-lista-nfse-sinc-soap.xml

    Mudança de Provedor cidade de Três Cachoeiras (SC) para Fiorilli

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Boa tarde.

    A cidade de Três Cachoeiras usava Betha e estava funcionando perfeitamente.

    Agora resolveram mudar pra Fiorilli (senhor nos ajude).

    Os erros de transmissão são muito aleatórios.

    Como vi em outro Post, já estou testando em ambiente de produção, mas não estou conseguindo validar nenhuma nota.

    Fiz uma transmissão e gerou o arquivo de remessa e retornou apenas um json.

    Notei que o lote gerado contem duas vezes a assinatura, e validando no site da Prefeitura acusa erro nesse sentido, não sei se é por isso que está recusando e não retornando nada.

    Já testei no Demo e gera da mesma forma.

    Alguma dica do que pode estar ocorrendo?

    image.thumb.png.5f0c8d32c866f1ce519771687fc73755.pngimage.thumb.png.3b32feadd0d8592264d64702611c477b.pngimage.png.27e6630e18855bb91b4a82443f0b1175.pngimage.png.ad7b8bd717ef92f9a8ea00d764110e10.png

     

    352-env-lot-sinc.xml 352-lista-nfse-sinc.json

    Alterei ordem do Tipo TpcnCstPis que estava errada.

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    Boa tarde.

    O tipo TpcnCstPis estava desordenado, conforme print abaixo.

    image.thumb.png.6d7f7b0b30b957037ab1577fb7da799d.png

    Então modifiquei a Unit pcnConversao.

    Corrigido:

      TpcnCstPis = (pis01, pis02, pis03, pis04, pis05, pis06, pis07, pis08, pis09, pis49, pis50, pis51, pis52, pis53,

    function CSTIPIToStr(const t: TpcnCstIpi): string;
    begin
      result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
        [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
    end;

    function StrToCSTIPI(out ok: boolean; const s: string): TpcnCstIpi;
    begin
      result := StrToEnumerado(ok, s, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
        [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
    end;

     


     

    pcnConversao.pas

    • Curtir 1

    Betha com múltiplos Serviços

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Boa tarde.

    Estou implementando agora a NFS-e, já funcionando normalmente com Betha e IPM.

    Ocorre que alguns clientes Betha, que antes emitiam pelo Portal, estão nos questionando sobre a inserção de vários serviços na mesma NFS-e.

    Consultando o fórum, não encontrei resposta deste questionamento.

    Até tentei fazer o componente inserir itens, através de "Servico.ItemServico.New", como tem no Demo para alguns provedores, mas o componente não gera novos itens.

    Consultando outras fontes, verifiquei que a tecnospeed tem uma tabela informando como cada provedor funciona, inclusive, na página de exemplo da Betha, eles tratam da inserção de vários itens.

    https://atendimento.tecnospeed.com.br/hc/pt-br/articles/360007587853-Documentação-base-dos-padrões-homologados-pela-Tecnospeed

    https://atendimento.tecnospeed.com.br/hc/pt-br/articles/360007788134-Documentação-Técnica-Padrão-BETHA

    image.thumb.png.8efa92d64a13fcd94a675e2c6d8c1e2d.png

    Tem alguma sugestão para inserir vários itens?

     

    Vários Serviços Na Nfese Provedor Betha

    em ACBrNFSe

    Postado

    Boa tarde.

    Sei que o tópico é antigo, mas a dúvida continua atual.

    Apesar de estar usando ACBrNFSeX, não é possível inserir mais de um serviço na NFS-e com a Betha?

    A sugestão do amigo schrsistemas funciona? Pois o sistema de recepção do RPS receberá na verdade somente um item, sendo a sugestão inseri uma string com todos os itens no único item recepcionado pela Betha.

    Provedor IPM : Acesso Negado : Cidade: Praia Grande (SC)

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Bom dia.

    Debugando, notei que duplica no trecho mencionado no código em anexo. 

    procedure TACBrNFSeXProvider.ConsultaLoteRps;
var
  AService: TACBrNFSeXWebservice;
  AErro: TNFSeEventoCollectionItem;
begin
  TACBrNFSeX(FAOwner).SetStatus(stNFSeConsulta);

  PrepararConsultaLoteRps(ConsultaLoteRpsResponse);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  AssinarConsultaLoteRps(ConsultaLoteRpsResponse);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  ValidarSchema(ConsultaLoteRpsResponse, tmConsultarLote);
  if (ConsultaLoteRpsResponse.Erros.Count > 0) then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  AService := nil;

  try
    try
      TACBrNFSeX(FAOwner).SetStatus(stNFSeEnvioWebService);

      AService := CriarServiceClient(tmConsultarLote);
      AService.Prefixo := ConsultaLoteRpsResponse.Protocolo;
      ConsultaLoteRpsResponse.ArquivoRetorno := AService.ConsultarLote(ConfigMsgDados.DadosCabecalho, ConsultaLoteRpsResponse.ArquivoEnvio);

      ConsultaLoteRpsResponse.Sucesso := True;
      ConsultaLoteRpsResponse.EnvelopeEnvio := AService.Envio;
      ConsultaLoteRpsResponse.EnvelopeRetorno := AService.Retorno;
    except
      on E:Exception do
      begin
        AErro := ConsultaLoteRpsResponse.Erros.New;
        AErro.Codigo := Cod999;
        AErro.Descricao := Desc999 + E.Message;
      end;
    end;
  finally
    FreeAndNil(AService);
  end;

  if not ConsultaLoteRpsResponse.Sucesso then
  begin
    TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
    Exit;
  end;

  TACBrNFSeX(FAOwner).SetStatus(stNFSeAguardaProcesso);
  TratarRetornoConsultaLoteRps(ConsultaLoteRpsResponse); //Aqui duplicou a notafiscal
  TACBrNFSeX(FAOwner).SetStatus(stNFSeIdle);
end;

    image.thumb.png.1980400fe19ee998fd3c4d12c4487418.png

×
×
  • 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.