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

FabioTellini

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    65

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por FabioTellini

    Mudança na URL da cidade de Birigui-SP

    em ACBrNFSe

    Postado

    Bom dia.

    Mudança na URL da cidade de Birigui-SP.

    Segue em anexo o manual enviado pela prefeitura e o arquivo ACBrNFSeXServicos.ini para validação.

    [3506508]
    ; Atualizado em 07/07/2023
    Nome=Birigui
    UF=SP
    Provedor=SmarAPD
    ProRecepcionar=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProConsultarSituacao=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProConsultarLote=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSSaida
    ProConsultarNFSeRps=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSSaida
    ProConsultarNFSe=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSSaida
    ProCancelarNFSe=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProGerarNFSe=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProRecepcionarSincrono=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProSubstituirNFSe=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSEntrada
    ProConsultarLinkNFSe=https://pmbirigui02.smarapd.com.br:8443/smartb/services/WSUtil 
    HomRecepcionar=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomConsultarSituacao=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomConsultarLote=https://tributacao.smarapd.com.br:8443/birigui/services/WSSaida
    HomConsultarNFSeRps=https://tributacao.smarapd.com.br:8443/birigui/services/WSSaida
    HomConsultarNFSe=https://tributacao.smarapd.com.br:8443/birigui/services/WSSaida
    HomCancelarNFSe=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomGerarNFSe=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomRecepcionarSincrono=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomSubstituirNFSe=https://tributacao.smarapd.com.br:8443/birigui/services/WSEntrada
    HomConsultarLinkNFSe=https://tributacao.smarapd.com.br:8443/birigui/services/WSUtil
    ProLinkURL=https://pmbirigui02.smarapd.com.br:8443/smartb/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%ChaveAcesso%
    HomLinkURL=https://tributacao.smarapd.com.br:8443/birigui/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%ChaveAcesso%

    Obrigado.

    NOVO_Manual_de_Integracao_NFS-e.pdf ACBrNFSeXServicos.ini

    • Curtir 1

    Mudança na URL das cidades de Itaquaquecetuba-SP e Ourinhos-SP

    em ACBrNFSe

    Postado

    Bom dia.

    Mudança na URL das cidades de Itaquaquecetuba-SP e Ourinhos-SP.

    [3523107]
    Nome=Itaquaquecetuba
    UF=SP
    Provedor=SilTecnologia
    Versao=2.03
    ProRecepcionar=https://itaquaquecetuba.siltecnologia.com.br/services/Abrasf23
    HomRecepcionar=https://homologacao.siltecnologia.com.br/tbitaqua/services/Abrasf23
    ProLinkURL=https://itaquaquecetuba.siltecnologia.com.br/loginWeb.jsp?execobj=NFSENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif%
    HomLinkURL=https://homologacao.siltecnologia.com.br/tbitaqua/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif%

    [3534708]
    Nome=Ourinhos
    UF=SP
    Provedor=SmarAPD
    Versao=2.04
    ProRecepcionar=https://e-gov.ourinhos.sp.gov.br:8443/tb/services/nfseSOAP
    HomRecepcionar=https://tributacao.smarapd.com.br/ourinhos/services/nfseSOAP
    ProLinkURL=https://e-gov.ourinhos.sp.gov.br:8443/tb/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%ChaveAcesso%
    HomLinkURL=https://tributacao.smarapd.com.br/ourinhos/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%ChaveAcesso%

    Segue arquivo para validação.

    Obrigado.

    ACBrNFSeXServicos.ini

    Retorno banco Sicoob

    em ACBrBoleto

    Postado

    Boa tarde.

    Na leitura do arquivo de retorno do banco sicoob está gerando uma exceção na rotina TACBrBancoob.MontarCodigoBarras, onde a propriedade ACBrTitulo.Carteira deve ter o valor 1 ou 3.

        if (ACBrTitulo.Carteira = '1') or (ACBrTitulo.Carteira = '3')then
           ACarteira := ACBrTitulo.Carteira
        else
           raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "1" ou "3".') );

    Na rotina TACBrBancoob.LerRetorno400 a propriedade Titulo.Carteira está recebendo a posição 86 da linha do arquivo (Carteira := Copy(Linha,86,3)).

    Consultando o manual, o campo Carteira está na posição 107-108.

    Realizei os testes após o ajuste e a leitura do arquivo foi realizada normalmente.

    Segue em anexo a unit alterada para validação.

    Obrigado.

     

    ACBrBancoBancoob.pas Sicoob 240_400.xls

    Multa e Juros FCP

    em ACBrGNRe

    Postado

    Boa tarde.

    Estou com uma situação na impressão da guia da GNRE onde os valores de JurosFCP e MultaFCP não estão sendo somados nos campos de Juros e Multa.

    Na rotina TdmACBrGNREFR.CarregaDados está da seguinte forma:
    FieldByName('Juros').AsCurrency                := Juros;
    FieldByName('Multa').AsCurrency                := Multa;

    Com isso os valores na guia não batem, conforme anexo 1.

     

    Fiz a seguinte alteração na rotina deixando da seguinte forma:
    FieldByName('Juros').AsCurrency                := Juros + JurosFCP;
    FieldByName('Multa').AsCurrency                := Multa + MultaFCP;

    Dessa forma os valores na guia bateram, conforme anexo 2.

    Segue arquivo para validação.

    Obrigado.

    Anexo1.png

    Anexo2.png

    ACBrGNREGuiaFRDM.pas

    NFSe cidade Concórdia-SC (Provedor IPM)

    em ACBrNFSe

    Postado

    Boa tarde.

    Na cidade de Concórdia-SC ainda estão com a versão antiga do serviço, essa versão não retorna o xml da nota fiscal.
    No xml de retorno tem uma tag "conteudo_html", com essa informação é possível gerar o arquivo HTML para poder enviar para os clientes, porém, o ACBr remove essas informações do XMLRetorno.

    Para não mexer no conteúdo do XMLRetorno, pensei em criar uma nova propriedade, a HTMLRetorno, onde nessa propriedade será retornado esse conteúdo.

    Fiz vários testes e deu certo, consegui obter o html na minha aplicação e distribuir para os clientes.

    Estou enviando os arquivos alterados para validação.

    Obrigado.

    ACBrNFSeXProviderBase.pas ACBrNFSeXWebservicesResponse.pas ACBrNFSeXWebserviceBase.pas

    • Curtir 1

    Adicionada Cidade de Brotas-SP

    em ACBrNFSe

    Postado

    Boa tarde Italo.

    Não encontrei a url de homogação para essa cidade, tentei contato com a prefeitura mas não me responderam.

    Enviei e-mail para o Assessor Público, estou aguardando resposta, até o momento só consegui testar em ambiente de produção.

    • Curtir 1

    Adicionada Cidade de Brotas-SP

    em ACBrNFSe

    Postado

    Boa tarde.

    Inclui a cidade de Brotas-SP no arquivo ACBrNFSeXServicos.ini.

    [3507902]
    Nome=Brotas
    UF=SP
    Provedor=AssessorPublico
    ProRecepcionar=http://servicos.brotas.sp.gov.br:8080/issonline/servlet/anfse
    ;HomRecepcionar=http://servicos.brotas.sp.gov.br:8080/issonline-homolog/servlet/anfse

    Testes de transmissão, consultas e cancelamentos foram realizados e estão funcionando.

    Segue arquivo para validação.

    Obrigado.

     

    ACBrNFSeXServicos.ini

    Consulta NFSe provedor IPM, cidade Concórdia-SC

    em ACBrNFSe

    Postado

    Boa tarde.
    Estou transmitindo nota na cidade de Concórdia-SC, provedor IPM.
    A nota é transmitida, está no site da prefeitura, mas não está retornando os dados da transmissão.

    Estou enviado com ModoEnvio = meAutomatico, dessa forma na unit ACBrNFSeX, rotina Emitir o ModoEnvio fica como meUnitario não fazendo a ConsultaLote, e com isso não tem os dados de retorno.

    Quando tento fazer a consulta pelo ConsultarNFSeporRps(rps, serie, 0) retorna o xml abaixo.

    O xml que está sendo retornado é:
    <retorno>
      <rps>
        <mensagem_rps></mensagem_rps>
        <serie_rps>1</serie_rps>
        <numero_rps>55032</numero_rps>
        <situacao>RPS NAO convertido em Nota Fiscal Eletronica</li>
      </rps>
    </retorno>

    Como o xml está incompleto, na unit IPM.Provider, rotina TratarRetornoConsultaNFSeporRps ocorre erro na linha Document.LoadfromXML.

    Pelo programa exemplo do ACBr retorna:
    Requisição
    Ambiente: 1
    Cidade  : Concordia/SC
    Provedor: IPM Versão: 1.00
     
    Método Executado: ConsultarNFSePorRps
     
    Parâmetros de Envio
    Numero do Rps : 55032
    Série do Rps  : 1
     
    Parâmetros de Retorno
    Numero do Lote: 
    Numero do Prot: 
    Situação      : 
    Data          : 30/12/1899
    Desc. Situação: 
    ID Nota       : 
    Link          : 
    Sucesso       : False
     
    Erro(s):
    Código  : X999
    Mensagem: Erro de Conexão: Erro Interno: 0
    Erro HTTP: 0
    URL: http://sync.nfs-e.net/datacenter/include/nfw/importa_nfw/nfw_import_upload.php?eletron=1

    WebService retornou um XML vazio.
    Correção: 

    DANFSE ISSSaoPaulo não está sendo descontado as retenções do valor líquido.

    em ACBrNFSe

    Postado

    Para não alterar a unit ACBrNFSeDANFse que é usada por todos os provedores, eu fiz uma pequena alteração na ISSSaoPaulo.LerXml.

    Na procedure LerXmlNfse eu deixei da seguinte forma:

      with NFSe.Servico.Valores do
      begin
        ValorServicos := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorServicos'), tcDe2);
        BaseCalculo   := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorServicos'), tcDe2);
        Aliquota      := ObterConteudo(AuxNode.Childrens.FindAnyNs('AliquotaServicos'), tcDe2);
        ValorIss      := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorISS'), tcDe2);
        ValorPis      := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorPIS'), tcDe2);
        ValorCofins   := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorCOFINS'), tcDe2);
        ValorInss     := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorINSS'), tcDe2);
        ValorIr       := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorIR'), tcDe2);
        ValorCsll     := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorCSLL'), tcDe2);


        if aValor = 'false' then
          IssRetido := stNormal
        else
          IssRetido := stRetencao;

        ValorLiquidoNfse := ValorServicos -
                            (ValorPis + ValorCofins + ValorInss + ValorIr + ValorCsll +
                             ValorDeducoes + DescontoCondicionado +
                             DescontoIncondicionado + ValorIssRetido);
      end;

      with NFSe.ValoresNfse do
      begin
        ValorLiquidoNfse := NFSe.Servico.Valores.ValorLiquidoNfse;
        BaseCalculo      := NFSe.Servico.Valores.BaseCalculo;
        Aliquota         := NFSe.Servico.Valores.Aliquota;
        ValorIss         := NFSe.Servico.Valores.ValorIss;

        Aliquota := (NFSe.Servico.Valores.Aliquota * 100);
      end;

    Apenas inverti a ordem da leitura, NFSe.Servico.Valores recebe os valores do XML e NFSe.ValoresNfse recebe o valor de NFSe.Servico.Valores.

    Nos meus testes aqui ficou certo a impressão.

    Obs: Não estou com a última versão dos fontes do ACBr, mas comparei a minha versão com a última revisão e essa procedure está igual.

     

    NFSe.png

    DANFSE ISSSaoPaulo não está sendo descontado as retenções do valor líquido.

    em ACBrNFSe

    Postado

    Boa tarde.

    Na impressão da DANFSE, unit ACBrNFSeXDANFSeFR, procedure CarregaServicos, o dataset está recebendo os valores de NFSe.Servico.Valores, até essa parte do código o campo FieldByName('ValorLiquidoNfse').AsFloat está sendo considerado as retenções, mas na sequência tem o seguinte trecho:

    with ANFSe.ValoresNfse do
    begin
      if ValorIss > 0 then
      begin
        FieldByName('ValorServicos').AsFloat          := BaseCalculo;
        FieldByName('ValorIss').AsFloat               := ValorIss;
        FieldByName('BaseCalculo').AsFloat            := BaseCalculo;
        FieldByName('Aliquota').AsFloat               := Aliquota;

        if ValorLiquidoNfse = 0 then
          ValorLiquidoNfse:= BaseCalculo;

        FieldByName('ValorLiquidoNfse').AsFloat       := ValorLiquidoNfse;
      end;
    end;

    ANFSe.ValoresNfse.ValorLiquidoNfse, na leitura do xml não foi descontado os valores das retenções da forma que foi feito com NFSe.Servico.Valores e com isso o valor liquido está sendo impresso sem descontar as retenções.

    Analisando a unit ISSSaoPaulo.LerXml, percebi que os valores de NFS.Servico.Valores recebem os valores de NFSe.ValoresNfse.
    Fiquei na dúvida se teria a necessidade de ter o trecho do código citado acima. 
    (Obs: só analisei a leitura do xml do provedor ISSSaoPaulo, não sei se esse trecho do código é por causa de algum outro provedor)


    Ou se na unit ISSSaoPaulo.LerXml, na leitura do xml a NFSe.ValoresNfse.ValorLiquidoNfse já não poderia ter os valores das retenções descontadas, da forma que está sendo feito com a NFSe.Servico.Valores.ValorLiquidoNfse.

      with NFSe.ValoresNfse do
      begin
        ValorLiquidoNfse := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorServicos'), tcDe2);
        BaseCalculo      := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorServicos'), tcDe2);
        Aliquota         := ObterConteudo(AuxNode.Childrens.FindAnyNs('AliquotaServicos'), tcDe2);
        ValorIss         := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorISS'), tcDe2);

        Aliquota := (NFSe.ValoresNfse.Aliquota * 100);
      end;

      aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoServico'), tcStr);

      SetxItemListaServico(aValor);

      NFSe.Servico.Discriminacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Discriminacao'), tcStr);

      aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('ISSRetido'), tcStr);

      with NFSe.Servico.Valores do
      begin
        ValorServicos := NFSe.ValoresNfse.ValorLiquidoNfse;
        BaseCalculo   := NFSe.ValoresNfse.BaseCalculo;
        Aliquota      := NFSe.ValoresNfse.Aliquota;
        ValorIss      := NFSe.ValoresNfse.ValorIss;
        ValorPis      := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorPIS'), tcDe2);
        ValorCofins   := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorCOFINS'), tcDe2);
        ValorInss     := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorINSS'), tcDe2);
        ValorIr       := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorIR'), tcDe2);
        ValorCsll     := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorCSLL'), tcDe2);

        if aValor = 'false' then
          IssRetido := stNormal
        else
          IssRetido := stRetencao;

        ValorLiquidoNfse := ValorServicos -
                            (ValorPis + ValorCofins + ValorInss + ValorIr + ValorCsll +
                             ValorDeducoes + DescontoCondicionado +
                             DescontoIncondicionado + ValorIssRetido);
      end;

      Obrigado.

    NFSe.png

    Troca de provedor prefeitura de Catanduva-SP

    em ACBrNFSe

    Postado

    Usei certificado A1 também.

    estou usando essas configurações

       FACBrNFSe.Configuracoes.Geral.SSLLib        := libWinCrypt;
       FACBrNFSe.Configuracoes.Geral.SSLCryptLib   := cryWinCrypt;
       FACBrNFSe.Configuracoes.Geral.SSLHttpLib    := httpWinHttp;
       FACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
       FACBrNFSe.SSL.SSLType                       := TSSLType(LT_TLSv1_2);

    Troca de provedor prefeitura de Catanduva-SP

    em ACBrNFSe

    Postado

    1 hora atrás, wilson_jr disse:

    Boa tarde!

    você conseguiu emitir em produção?

    Em um cliente está ocorrendo a mensagem no momento da emissão:

    image.png.81dd0fdeb43055a6e4fcd7cc0717117a.png

    Aqui em homologação foi normal.

    Att,

    Wilson

    Boa tarde.

    Meus testes foram todos em ambiente de produção, não tive nenhum problema nas transmissões.

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