FabioTellini

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.

obrigado.

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);

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

Boa tarde. Prefeitura de Catanduva-SP mudou para Fiorilli conforme comunicado abaixo: http://www.catanduva.sp.gov.br/2022/04/07/comunicado-financas/ Ajustei os arquivo ACBrNFSeXServicos.ini, fiz o teste e as notas foram transmitidas. Segue arquivo para análise. ACBrNFSeXServicos.ini

Obrigado.

Bom dia. Os valores das retenções não estão sendo impressos na DANFSe. Na unit ISSSaoPaulo.LerXML, rotina LerXmlNfse o parâmetro que estava sendo passado para a função AuxNode.Childrens.FindAnyNs estavam com letras minusculas(ValorPis, ValorCofins, ValorInss, ValorIr e ValorCsll). Dessa forma no "if Node.LocalName <> Name then continue;" não encontrava esses campos retornando nil. Alteração feita somente nos parâmetros que estão sendo passados da mesma forma que estão no xml. 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); Arquivo em anexo para validação. ISSSaoPaulo.LerXml.pas

Boa tarde. Obrigado.

Bom dia. Estou tendo problema na transmissão de uma nota na cidade de Bauru. ItemListaServico 17.07 is not a valid value of the atomic type. Olhando o arquivo Exemplos\ACBrDFe\Schemas\NFSe\SilTecnologia\2.03\nfse.xsd percebi que serviço não consta no xsd. No site da prefeitura de Bauru existe o serviço (https://www2.bauru.sp.gov.br/arquivos/arquivos_site/sec_financas/tabela_iss.pdf). Como consta na lista de serviço da cidade, adicionei o codigo no schema para testar e a nota foi transmitida. Acham que o serviço pode ser adicionado no schema no svn, para as próximas atualizações ? Segue em anexo o xsd alterado. nfse.xsd

Na guia da GNRE o campo convênio não estava sendo impresso. Olhando os fontes do ACBr, percebi que na function LerXML da unit ACBrGNREGuiasRetorno.pas a property GNRERetorno.Convenio não estava recebendo valor. Adicionei essa linha GNRERetorno.Convenio := Leitor.rCampo(tcStr, 'convenio') e deu certo, o convênio passou a ser impresso na guia. Segue arquivo em anexo para validação. ACBrGNREGuiasRetorno.pas

Bom dia. Fiz mais um ajuste no arquivo ACBrBoleto.pas, nos meus testes a chave da NFe foi adicionada no arquivo. Na minha aplicação eu configuro o componente da seguinte forma: - ACBrBoleto.LayoutRemessa := c444; - Titulo.ChaveNFe := '35000000000000000001111111111111'; Segue arquivo com alterações.ACBrBoleto.pas

Estou pensando em um possível problema nessa alteração. Vou fazer um novo teste e escrevo aqui.

Para o banco Bradesco uso LayoutRemessa = c400, dessa forma o arquivo só vai ter 400 posições.

Boa tarde. Alguns clientes estão tendo a necessidade de enviar a chave da nfe no arquivo de remessa para o banco. Banco ONIX http://onixcredit.com.br/tutoriais/TUTORIAL_PARA_IMPORTACAO_CNAB_ONIX.pdf Banco SOFISA https://tdn.totvs.com/pages/releaseview.action?pageId=505758869 No caso do banco ONIX, eles usam o padrão do banco Bradesco CNAB400 adicionando 44 posições que será usado para envio da chave da NFe, criando um "CNAB444". Fiz pequenas alterações: * No arquivo ACBrBoleto.pas adicionei o tipo c444 (TACBrLayoutRemessa = (c400, c240, c444)) e adicionei a propriedade ChaveNFE na classe TACBrTitulo. * No arquivo ACBrBancoBradesco.pas, rotina GerarRegistroTransacao400 adicionei a validação do layout (if LayoutRemessa = c444 then wLinha := wLinha + Copy(ChaveNFe,1,44)) para adicionar a chave da nfe no arquivo. Segue arquivos para análise. ACBrBoleto.pas ACBrBancoBradesco.pas

Desculpa pela falha. Seguem os arquivos atualizados. ACBrGNREGuiasRetorno.pas ACBrGNReGuiaRLRetrato.pas ACBrGNREGuiaFRDM.pas GNRE_GUIA.fr3

Alterações feitas para o FastReport. ACBrGNREGuiaFRDM.pas GNRE_GUIA.fr3

Boa tarde. Na impressão da GNRE 2.0 não estava somando o valor do FECP no total da guia. Na unit ACBrGNReGuiaRLRetrato.pas na rotina RLBand1BeforePrint foram alteradas as linhas abaixo. RLLabel28.Caption := FormatFloat('R$ ,0.00', FGNRe.ValorPrincipal + FGNRe.ValorFECP); RLLabel36.Caption := FormatFloat('R$ ,0.00',( FGNRe.ValorPrincipal + FGNRe.AtualizacaoMonetaria+ FGNRe.Juros + FGNRe.Multa + FGNRe.ValorFECP)); Na unit ACBrGNREGuiasRetorno, rotina LerXML foi adicionadas as linhas abaixo. if Leitor.rAtributo('tipo=', 'valor') = '12' then GNRERetorno.ValorFECP := Leitor.rCampo(tcDe2, 'valor'); Segue arquivos para validação. Obrigado. ACBrGNReGuiaRLRetrato.pas ACBrGNREGuiasRetorno.pas

Boa tarde. Fiz testes com Sweda ST120 e Bematech 2100.