FabioTellini

Boa tarde. Houve mudança na URL da nota de serviço da cidade de Três Lagoas-MS. (http://pmtreslagoas.rcmsuporte.com.br:8085/issweb/home.jsf) [5008305] Nome=Tres Lagoas UF=MS Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://pmtreslagoas.rcmsuporte.com.br:8085/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://issweb.treslagoas.ms.gov.br:8080/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% obrigado.

boa tarde. Obrigado.

Bom dia. Houve mudança na URL da nota de serviço da cidade de Pirajuí-SP. [3538907] Nome=Pirajui UF=SP Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://prefeiturapirajui1.ddns.net:3392/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://prefeiturapirajui1.ddns.net:3392/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% obrigado.

Boa tarde @Italo Giurizzato Junior. Pode deixar, da próxima vez eu colo só o trecho adicionado no arquivo. Obrigado.

Boa tarde. Fiz a inclusão das URLs da cidade de Vera Cruz-SP, provedor Fiorilli. [3556602] Nome=Vera Cruz UF=SP Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://143.137.254.222:8080/IssWeb-ejb/IssWebWS/IssWebWS HomRecepcionar=http://fi1.fiorilli.com.br:5663/IssWeb-ejb/IssWebWS/IssWebWS Em anexo o arquivo para validação. Obrigado. ACBrNFSeXServicos.ini

Bom dia. Obrigado.

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

Bom dia Italo. Obrigado.

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

Boa noite. Segue arquivos. Obrigado. 20240208181329-env-lot.xml 2411159355-pro-rec.xml

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

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. ACBrGNREGuiaFRDM.pas

Boa tarde. Mudança na url da cidade de Monte Azul Paulista. ProRecepcionar=http://7de607488a45.sn.mynetname.net:35000/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://7de607488a45.sn.mynetname.net:35000/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% Segue arquivo em anexo para validação. ACBrNFSeXServicos.ini

Boa tarde Italo. Obrigado.

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

Obrigado.

Bom dia Italo. Recebi a resposta com a url de homologação, segue abaixo: http://s1.asp.srv.br:8180/issonline-homolog/servlet/anfse?wsdl

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.

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

Boa tarde. Mudança na url da cidade de Pirajuí. ProRecepcionar=http://prefeiturapirajui.ddns.net:3392/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://prefeiturapirajui.ddns.net:3392/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso% Segue arquivo em anexo para validação. ACBrNFSeXServicos.ini

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:

Bom dia. Vou atualizar. Obrigado.

Boa tarde. Segue em anexo o arquivo. Só lembrando que não estou com a ultima versão do ACBr, mas aversão que estou não está muito diferente da ultima versão do SVN. Obrigado. ISSSaoPaulo.LerXml.pas

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.

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.