Sérgio Caldeira Silva

Bom dia! @valterpatrick consegui resolver com o código abaixo: {28/11/2025. Sérgio: Reforma tributária.} // Classificação conforme percentuais definidos no art. 450, § 1º, da LC 214/25 para o cálculo do crédito presumido // UF do Emitente difere de AC-Acre, ou AM-Amazonas, ou RO-Rondônia, ou RR Roraima OperacaoNaZfm := false; if (ArqXml.NFe.Emit.EnderEmit.UF = 'AC') or (ArqXml.NFe.Emit.EnderEmit.UF = 'AM') or (ArqXml.NFe.Emit.EnderEmit.UF = 'RO') or (ArqXml.NFe.Emit.EnderEmit.UF = 'RR') then OperacaoNaZfm := true; // UF do Emitente difere de AP-Amapá (só para municípios 1600303-Macapá e 1600600-Santana) if (ArqXml.NFe.Emit.EnderEmit.UF = 'AP') and ((ArqXml.NFe.Emit.EnderEmit.cMun = 1600303) or (ArqXml.NFe.Emit.EnderEmit.cMun = 1600600)) then OperacaoNaZfm := true; if OperacaoNaZfm then NfeProduto.Prod.tpCredPresIBSZFM := tcpNenhum;

Boa tarde Senhores! As NFs emitidas a partir de hoje passaram a ser rejeitadas com este retorno. O estranho é que não houve nenhum alteração da semana passada para cá, a propósito, a tag tpCredPresIBSZFM nem é preenchida em nosso sistema. Resolvei alterar o xml manualmente, removendo a <tpCredPresIBSZFM>0</tpCredPresIBSZFM> que foi criada automaticamente, e ao enviar, a tag aparece novamente com a mesma mensagem de erro. Alguém tem alguma ideia do que pode estar acontecendo ou de alguma regra que não observei?

Boa noite Juliomar! Vou procurar a unit e verificar os critérios, grato pela sugestão.

Meu código só não tinha o NIF, porém, mesmo incluindo esta informação, não funcionou. Acredito que tenha alguma campo que não foi preenchido ou uma combinação deles, mas não encontrei referência / documentação disto. O xml gerado está em anexo. Veja meu código, talvez consiga identificar o que precisa ajustar: {16/02/2021. Sérgio: dados do cliente.} Tomador.IdentificacaoTomador.CpfCnpj := qyDestinatario.FieldByName('SysCliCnp').AsString; Tomador.AtualizaTomador := snNao; {16/02/2021. Sérgio: somente PJ possuem IE e IM.} if qyDestinatario.FieldByName('SysEntPesTip').AsString = 'J' then begin Tomador.IdentificacaoTomador.InscricaoEstadual := qyDestinatario.FieldByName('SysCliInsEst').AsString; Tomador.IdentificacaoTomador.InscricaoMunicipal := ''; end; Tomador.RazaoSocial := qyDestinatario.FieldByName('SysCliRazSoc').AsString; Tomador.Endereco.Endereco := qyDestinatario.FieldByName('SysCliEndLog').AsString; Tomador.Endereco.Numero := Se(qyDestinatario.FieldByName('SysCliEndNum').AsString <> '', qyDestinatario.FieldByName('SysCliEndNum').AsString, 'S/N'); Tomador.Endereco.Complemento := qyDestinatario.FieldByName('SysCliEndCom').AsString; Tomador.Endereco.Bairro := qyDestinatario.FieldByName('SysCliEndBai').AsString; Tomador.Endereco.CEP := qyDestinatario.FieldByName('SysCliEndCep').AsString; Tomador.Endereco.CodigoMunicipio := qyDestinatario.FieldByName('SysCidIbgCod').asString; Tomador.Endereco.UF := qyDestinatario.FieldByName('SysUFeSig').AsString; Tomador.Endereco.CodigoPais := qyDestinatario.FieldByName('SysPaiCod').AsInteger; Tomador.Endereco.xPais := qyDestinatario.FieldByName('SysPaiNom').AsString; {Retorna o nome da cidade de acordo com a parametrização anterior.} if not FileExists(ExtractFilePath(Application.ExeName) + 'ACBrIBGE.txt') then begin Tomador.Endereco.xMunicipio := qyDestinatario.FieldByName('SysCidNom').AsString; end else begin CodigoMunicipio := Tomador.Endereco.CodigoMunicipio; UF := Tomador.Endereco.UF; CaminhoArqMun := ExtractFilePath(Application.ExeName); if not NumeroValido(CodigoMunicipio) then CodigoMunicipio := '0'; Tomador.Endereco.xMunicipio := ObterNomeMunicipio(StrToInt(CodigoMunicipio), UF, CaminhoArqMun); end; {28/11/2025. Sérgio: Se o endereço for internacional, altera os dados conforme legislação vigente para extrangeiros.} {18/12/2025. Sérgio: O endereço estrangeiro é gravado na unit ACBrNFSeXGravarXml, porém, refere-se ao endereço do prestador em outro país; não é nosso caso.} if (qyDestinatario.FieldByName('SysUFeSig').AsString = 'EX') then begin Tomador.TomadorExterior := snSim; Tomador.IdentificacaoTomador.Nif := qyDestinatario.FieldByName('SysCliInsEst').AsString; Tomador.IdentificacaoTomador.CpfCnpj := ''; Tomador.IdentificacaoTomador.InscricaoMunicipal := ''; Tomador.Endereco.CEP := '99999999'; Tomador.Endereco.CodigoMunicipio := '9999999'; NaturezaOperacao := no7; end else begin Tomador.TomadorExterior := snNao; NaturezaOperacao := no1; end;3125121137125700017656000000001221962-rps.xml

Boa tarde!

Prezados! Parametrizamos a NFS-e para emissão da NF para Tomador Estrangeiro e ao enviar, o servidor sefaz retorna o erro acima. Contudo, não encontrei a tag xEstProvReg para preenchimento. Poderiam me orientar melhor sobre o preenchimento da tag Província, quando o Tomador for estrangeiro?

Boa noite! Não encontrei nenhum tópico sobre Tomador Estrangeiro e me deparei com a mensagem acima, contudo, preenchi os campos referentes a estrangeiros, conforme código abaixo. Poderiam me orientar quanto ao tratamento de estrangeiros na NFS-e Nacional? {16/02/2021. Sérgio: dados do cliente.} Tomador.IdentificacaoTomador.CpfCnpj := qyDestinatario.FieldByName('SysCliCnp').AsString; Tomador.AtualizaTomador := snNao; {16/02/2021. Sérgio: somente PJ possuem IE e IM.} if qyDestinatario.FieldByName('SysEntPesTip').AsString = 'J' then begin Tomador.IdentificacaoTomador.InscricaoEstadual := qyDestinatario.FieldByName('SysCliInsEst').AsString; Tomador.IdentificacaoTomador.InscricaoMunicipal := ''; end; Tomador.RazaoSocial := qyDestinatario.FieldByName('SysCliRazSoc').AsString; Tomador.Endereco.Endereco := qyDestinatario.FieldByName('SysCliEndLog').AsString; Tomador.Endereco.Numero := Se(qyDestinatario.FieldByName('SysCliEndNum').AsString <> '', qyDestinatario.FieldByName('SysCliEndNum').AsString, 'S/N'); Tomador.Endereco.Complemento := qyDestinatario.FieldByName('SysCliEndCom').AsString; Tomador.Endereco.Bairro := qyDestinatario.FieldByName('SysCliEndBai').AsString; Tomador.Endereco.CEP := qyDestinatario.FieldByName('SysCliEndCep').AsString; Tomador.Endereco.CodigoMunicipio := qyDestinatario.FieldByName('SysCidIbgCod').asString; Tomador.Endereco.UF := qyDestinatario.FieldByName('SysUFeSig').AsString; Tomador.Endereco.CodigoPais := qyDestinatario.FieldByName('SysPaiCod').AsInteger; Tomador.Endereco.xPais := qyDestinatario.FieldByName('SysPaiNom').AsString; {Retorna o nome da cidade de acordo com a parametrização anterior.} if not FileExists(ExtractFilePath(Application.ExeName) + 'ACBrIBGE.txt') then begin Tomador.Endereco.xMunicipio := qyDestinatario.FieldByName('SysCidNom').AsString; end else begin CodigoMunicipio := Tomador.Endereco.CodigoMunicipio; UF := Tomador.Endereco.UF; CaminhoArqMun := ExtractFilePath(Application.ExeName); if not NumeroValido(CodigoMunicipio) then CodigoMunicipio := '0'; Tomador.Endereco.xMunicipio := ObterNomeMunicipio(StrToInt(CodigoMunicipio), UF, CaminhoArqMun); end; {Se o endereço internacional, altera os dados conforme legislação vigente para extrangeiros.} if (qyDestinatario.FieldByName('SysUFeSig').AsString = 'EX') then begin Tomador.TomadorExterior := snSim; Tomador.Endereco.CodigoMunicipio := '9999999'; Tomador.Endereco.CEP := '99999999'; NaturezaOperacao := no7; end else begin Tomador.TomadorExterior := snNao; NaturezaOperacao := no1; end; A tag gerada <endNac> é preenchida, mesmo que eu informe que a Natureza da Operação é exportação de serviço (NaturezaOperacao := no7) e o Tomador está no Exterior (Tomador.TomadorExterior := snSim <toma> <CPF>...</CPF> <xNome>...</xNome> <end> <endNac> <cMun>9999999</cMun> <CEP>99999999</CEP> </endNac> <xLgr>...</xLgr> <nro>2</nro> <xCpl>...</xCpl> <xBairro>Portugal</xBairro> </end> <email>...</email> </toma>

Boa tarde Senhores! Quanto ao retorno com cStat = 150, não vejo problema algum, é só um controle da SEFAZ, porém, ao imprimir a DANFE da NF-e, sai um texto em vermelho que causa um stress nos meus clientes e nos clientes deles. Isto vai ser tratado no componente, já que a NF-e está autorizada? Se não for tratada pelo ACBr é possível fazer alguma coisa para evitar este desgaste? Lembrando que a NF-e está autorizada, tudo está correto, não vejo sentido em fazer uma devolução e nem imprimir um texto em vermelho que dá a entender que tem algum coisa errada - normalmente, pensam que é o sistema. Desde já, agradeço a atenção de sempre.

Uma dúvida senhores, o ACBr Boletos fará este ajuste automaticamente, ou precisamos fazer alguma intervenção?

Boa tarde Senhores! Gostaria de maiores detalhes sobre o componente chamado ACBrSMS: 1. É preciso contratar o serviço de alguma operadora? 2. É preciso algum equipamento específico, visto que o componente possui uma propriedade de nome "modelo"? 3. Algum membro tem referência da documentação deste serviço, a fim de entender melhor como funciona?

Boa tarde Senhores! Por acaso vi um componente chamado ACBrEAD, porém, não consegui informações sobre o propósito dele, nem no exemplo que foi feito. Alguém poderia me orientar sobre a aplicabilidade deste componente?

Boa tarde Ítalo! Desculpe a demora, não tinha visto o e-mail. Mas conseguimos resolver, trocamos o certificado A3 para o A1.

Boa tarde Ítalo! O cliente alega que não consegue emitir a NFS-e, por isto fiz a pergunta; mas vou acessar o computador deles para entender melhor, já que a versão do ACBr está atualizada.

Senhores, seguindo o tópico "Inclusão de novas cidades ou alteração de provedor", vi que o arquivo ACBrNFSeXServicos.Ini está com o endereço correto. Há alguma outra alteração a ser feita?

Bom dia Senhores! Não encontrei nenhum post sobre esta alteração, https://prefeitura.pbh.gov.br/fazenda/bhiss, sabem me dizer quando vai ser liberada, ou onde posso alterar? Na versão da semana passada não estava alterada a url. Segundo informações de meus clientes, Vila Velha - ES, também parou de funcionar; porém, não verifiquei o motivo ainda. Data: 01/02/2024 Assunto: ** ÚLTIMO AVISO ** As URLs de acesso ao Web Service da NFS-e foram alteradas e as atuais serão desativadas a partir de 19/02/2024 Prezado usuário do BHISS, A Subsecretaria da Receita Municipal - SUREM, da Secretaria Municipal de Fazenda - SMFA, da Prefeitura Municipal de Belo Horizonte - PBH, por meio das Diretorias de Fiscalização e Auditoria Tributária – DFAT, de Tecnologia da Informação e Apoio Técnico - DTAT e da Empresa de Informática e Informação do Município de Belo Horizonte S/A - Prodabel, informa que está reforçando a segurança em todos os sistemas de TI, incluindo o BHISS. Como parte desse esforço, uma nova camada de segurança foi incluída no sistema de emissão da Nota Fiscal de Serviços Eletrônica - NFS-e de Belo Horizonte para a emissão deste documento fiscal por meio de Web Service. Em razão disso, foram disponibilizados e já estão disponíveis para utilização novos endereços (URLs) para acesso aos Web Service