Marcos Peixoto

Ok, Obrigado Ítalo.

Olá, Determinado cliente do sistema está solicitando que seja destacado o "Valor Total dos Tributos" na NFS-e. Verificando os fontes ACBr percebi que existe tratamento para o campo "ValorTotalTributos" para apenas alguns provedores, e não são do município em questão. Pensei em simplismente adicionar a mensagem como texto em "Informações Adicionais" ou na própria "Discriminação do Serviço". Já passaram por essa situação e têm algum tratamento ou sujestão a respeito? Isto estaria correto?

Bom dia Ítalo, Passou a gerar o erro abaixo no cancelamento da NFS-e pelo provedor VersaTecnologia.ini. Modifiquei no .ini e estou enviando o arquivo corrigido para distribuir. Att. Marcos VersaTecnologia.ini

Boa tarde Ítalo, Respondendo suas perguntas: Sim, o lote foi processado corretamente. Observação: Eu trabalho enviando apenas 1 lote por vez. Eu utilizo o Gerar() conforme instruções do fórum. ACBrNFSe.Gerar(IdentificacaoRps, NumeroLote, False); Espero ter ajudado, Marcos

Boa tarde, Tive problema com emissões de NFS-e pelo Provedor Bethav2 (município de Cláudio-MG). Estava retornando esse erro ao tentar transmitir: Analisando as causas identifiquei que era ao tentar assinar o RPS. Verificando o arquivo Bethav2.ini, percebi que estava marcado para assinar RPS(1). Só parou de apresentar o problema quando marcado para NÃO ASSINAR RPS (0), conforme abaixo: Não sei se outros passaram pelo mesmo problema, mas creio que o Bethav2.ini estava configurado errado. Estou anexando para avaliação da comunidade e disponibilização no repositório. Marcos Bethav2.ini

Boa tarde Ítalo, Favor atualizar arquivo cidades.ini. Adicionada cidade de Arapongas-PR também atendida pela IPM. Obrigado, Marcos Cidades.ini

Bom dia Filipe e demais, Estou implementando NFS-e para município também atendido pela IPM (Arapongas-PR) e estou com seguintes impasses: O primeiro é que na chamada de ConsultarLoteRps() ocorrendo 'Argument out of range' na função ExtrairNotasRetorno() da unit ACBrNFSeWebServices.pas, quando chega no teste adicionado para proIPM (+- linha 1130 da versão q estou usando). Tive que adicionar as linhas que destaco abaixo para funcionar. Podem rever se procede? if (FProvedor = proIPM) then begin if FNotasFiscais.Count = 0 then // <<<<<====== Teste adicionado para funcionar FNotasFiscais.Add; FNotasFiscais.Items[0].NFSe.Autenticador := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Autenticador; FNotasFiscais.Items[0].NFSe.Link := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Link; FNotasFiscais.Items[0].NFSe.Numero := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Numero; FNotasFiscais.Items[0].NFSe.dhRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.dhRecebimento; FNotasFiscais.Items[0].NFSe.CodigoVerificacao := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao; FNotasFiscais.Items[0].NFSe.Protocolo := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Protocolo; FNotasFiscais.Items[0].NFSe.Competencia := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Competencia; FNotasFiscais.Items[0].NFSe.Cancelada := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Cancelada; FNotasFiscais.Items[0].NFSe.Status := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.Status; if (Trim(FXML_NFSe) <> '') then FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.XML := FXML_NFSe; FNotasFiscais.Items[0].NFSe.XML := FRetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.XML; Break; end; O segundo ponto: Uma vez confirmado através do ConsultarLoteRps() que a Nota Fiscal foi validada, como pegar as informações de emissão (Numero, dhRecebimento, CodigoVerificacao, etc...) para serem gravados em banco de dados. Não encontrei forma de pegar essas informações. Como estão fazendo isso? Poderiam por favor apresentar uma sugestão ou exemplo. Agradeço antecipadamente a atenção. Marcos

Olá administradores, Por favor, adicionem ao arquivo cidades.ini mais um município (Arapongas-PR) também atendido pela IPM. [4101507] Nome=Arapongas UF=PR Provedor=IPM Grato. Marcos

Bom dia Régys, Estou passando por esse problema reportado nesse post de 2014. Tive que reinstalar o Delphi 2010, porém, por nada consegui colocar o autocomplete funcionar. Curiosamente essa configuração na máquina antiga também não está preenchido, mas o autocomplete funciona. Não entendi o que seria preenchido nesse "unit aliases"? Pode me ajudar nisso? Marcos

Alguém sabe dizer se houve mudanças no retorno do provedor Bethav2 na tag <Discriminacao> do serviço prestado. No XML da NFS-e retornado, a referida tag está retornando com dados de valores conforme o formato a seguir; <Discriminacao>{[[Descricao=CONSERTO DE BENS DE TERCEIROS][ItemServico=1401][Quantidade=1][ValorUnitario=100][ValorServico=100][ValorBaseCalculo=100][Aliquota=5]]}</Discriminacao> Notem que retorna outras tags entre colchetes. Sabem se existiram alterações por parte do provedor? Marcos Cesar Peixoto

Boa dia Ítalo, Confirmando: Emissão, Cancelamento e Consulta estão funcionando. Na Substituição faço seguinte observação: O processo é realizado, porém, não consegui pegar as informações da substituição diretas no retorno. Contornei realizando uma nova consulta para obter as informações necessárias. Não sei se é uma limitação do provedor, ou uma falha no componente ou talvez eu que esteja fazendo de forma incorreta. Uso seguinte procedimento: ACBrNFSe.SubstituirNFSe(MotivoCancelamento, NumeroNFSubstituida, DescricaoMotivoCancelamento); // Na linha abaixo tento pegar o retorno, mas o conteúdo vem vazio. XML_NFSe := ACBrNFSe.WebServices.SubNFSe.XML_NFSe; Caso queira dar uma olhada, estou anexando os XML gerados tanto na substituição, quanto posteriormente da consulta onde confirmo a substituição. Marcos XMLsSubstituicao.rar XMLsConsulta.rar

Funcionou, Obrigado Ítalo.

Bom dia, Na tentativa de substituição da NFS-e via provedor SH3, retornou o erro abaixo: 000 - O XML recebido esta mal formado: Linha 2, coluna 1, mensagem Start tag expected, '<' not found. Refira-se ao processamento 414437 para ajuda ou suporte. Se o XML em questão for "201700000000024-ped-sub" não vi problema algum. Saberiam do que se trata esse processamento 414437? Estou anexando os XMLs gerados. Obrigado. Marcos 201700000000024-ped-sub.xml 201700000000024-ped-sub-soap.xml 201700000000024-sub.xml 201700000000024-sub-soap.xml

Boa tarde, Pessoal, apenas compartilhando que provedor SH3 estão funcionando. Ítalo, mais uma vez, obrigado pelo apoio. Seguem contatos do suporte da SH3 caso alguém necessite: [email protected] Fone: (32) 3379-3100 Mais informações do provedor aqui. Marcos

Bom dia Ítalo, Estranho, eu estava tentando justamente o município de São Geraldo-MG e deu o problema. Vou contactar o provedor e ver se nos ajudam. Por hora, obrigado.

Bom dia Ítalo, Realizando os testes SH3, passou pelo GerarLote() porém dá erro em Enviar(). A mensagem de erro não foi interpretada não apresentando nada, mas no XML consta "000 - Este ambiente nao foi configurado" O problema ocorre em ACBrDFeWebService (linha 4937) na chamada abaixo: function TWebServices.Envia(ALote: String): Boolean; ... Result := FEnviarLoteRPS.Executar; <<<<-------------------------- AQUI Os XMLs gerados foram anexados. Também a tela no código fonte (caso ajude em alguma coisa)... Não consegui identificar as causas do problema. Pode dar mais uma força ai? Obs: Temos troca de e-mails sobre esse assunto, estou adicionando aqui também caso outros também passem por dificuldades com Provedor SH3. Agradecido, Marcos 1-env-lot.xml 1-env-lot-soap.xml 1-lot-rps.xml 1-lot-rps-soap.xml 1-rec.xml 1-rec-soap.xml

Bom dia Ítalo, Lhe enviei os arquivos alterados por e-mail, conforme solicitado. Obrigado! Marcos

Olá, Implementando NFS-e deparei com seguinte situação: Nos manuais tenho seguinte instrução quanto ao responsável pela retenção: Em pnfsConversão, temos a seguinte declaração para TnfseResponsavelRetenção: TnfseResponsavelRetencao = ( ptTomador, rtPrestador ); Portanto um tipo enumerado, onde ptTomador = 0 e rtPrestador = 1. e tem a declaração de ResponsavelRetencao em pnfsNFSe: property ResponsavelRetencao: TnfseResponsavelRetencao read FResponsavelRetencao write FResponsavelRetencao; De acordo com a definição do manual, como atribuir o Intermediario (valor 2) como o ResponsavelRetecao? Como vocês têm tratado essa situação? Não deveríamos ter mais um tipo na declaração de TnfseResponsavelRetencao? TnfseResponsavelRetencao = ( ptTomador, rtPrestador, rtIntermediario ); Marcos

Bom dia Ítalo, Prosseguindo então com adequações para o provedor SH3, fiz algumas alterações conforme você relacionou. Já tenho a lista das cidades atendidas pelo provedor SH3, mas por enquanto adicionei apenas a cidade em questão no arquivo Cidades.ini, no caso "São Geraldo-MG". Adicionei então o trecho abaixo ao meu arquivo Cidades.ini para testes que está anexado: [3161502] Nome=Sao Geraldo UF=MG Provedor=SH3 NomeURL_H=homologa_saogeraldo.nfiss.com.br NomeURL_P=saogeraldo.nfiss.com.br Obtive algumas informações do provedor, e o arquivo SH3.ini (também segue anexado), algumas configurações estão assim: [SoapAction] Recepcionar=http://nfse.abrasf.org.br/ConsultarLoteRps [URL_H] RecepcaoLoteRPS=https://%NomeURL_H%.nfiss.com.br/soap/ Quanto as configurações da seção [Assinar], recebi a seguinte informação do suporte SH3. Tentando usar de: NFSe1.ACBrNFSe.Gerar(StrToInt(IdentificacaoRps.Numero), StrToInt(NumeroLote), False) ou NFSe1.ACBrNFSe.GerarLote(NumeroLote); obtenho o erro: "A funcionalidade [Enviar Lote] não foi disponibilizada pelo provedor: SH3" Debugando, notei que em ACBrNFSeWebServices, na instrução abaixo, FDadosEnvelope, fica vazio gerando o erro: FDadosEnvelope := FPConfiguracoesNFSe.Geral.ConfigEnvelope.Recepcionar; if (FProvedor = proThema) and (FNotasFiscais.Count < 4) then begin FDadosEnvelope := StringReplace(FDadosEnvelope, 'recepcionarLoteRps', 'recepcionarLoteRpsLimitado', [rfReplaceAll]); FPSoapAction := StringReplace(FPSoapAction, 'recepcionarLoteRps', 'recepcionarLoteRpsLimitado', [rfReplaceAll]); end; if (FPDadosMsg <> '') and (FDadosEnvelope <> '') then begin DefinirSignatureNode(''); FPDadosMsg := FNotasFiscais.AssinarLote(FPDadosMsg, FTagGrupo, TagElemento, FPConfiguracoesNFSe.Geral.ConfigAssinar.Lote, xSignatureNode, xDSIGNSLote, xIdSignature); // Incluido a linha abaixo por após realizar a assinatura esta gerando o // atributo xmlns vazio. if not (FProvedor in [proSP, proNotaBlu]) then FPDadosMsg := StringReplace(FPDadosMsg, 'xmlns=""', '', [rfReplaceAll]); if FProvedor = proSMARAPD then FPDadosMsg := StringReplace(FPDadosMsg, '<?xml version="1.0" encoding="UTF-8"?>', '', [rfReplaceAll]); if FPConfiguracoesNFSe.Geral.ConfigSchemas.Validar then FNotasFiscais.ValidarLote(FPDadosMsg, FPConfiguracoes.Arquivos.PathSchemas + FPConfiguracoesNFSe.Geral.ConfigSchemas.ServicoEnviar); end else GerarException(ACBrStr('A funcionalidade [Enviar Lote] não foi disponibilizada pelo provedor: ' + FPConfiguracoesNFSe.Geral.xProvedor)); Fiz o teste também pelo Demo, nas várias opções e sempre dá o mesmo problema. Não estou conseguindo configurar corretamente o SH3.ini deixando as opções funcionais. Poderia por favor me ajudar com isso? Mais informações desse provedor, obtive no link abaixo: https://homologa_saogeraldo.nfiss.com.br/?Meio=Informacoes_Webservice Os webservices são disponibilizados conforme a imagem: Cidades.ini SH3.ini

Perdoem-me pela recorrência, mas mesmo com as configurações conforme o que foi apresentado acima, os arquivos XMLs não são gravados fisicamente. Estou tendo que fazer uma "gambiarra" para forçar essa gravação. Abaixo segue trecho do código para configuração: Configuracoes.Arquivos.AdicionarLiteral := False; Configuracoes.Arquivos.PathNFSe := PathWithDelim(FConfiguracao.Diretorio) + 'NFS-e'; Configuracoes.Arquivos.PathCan := PathWithDelim(FConfiguracao.Diretorio) + 'Can'; Configuracoes.Arquivos.PathGer := PathWithDelim(FConfiguracao.Diretorio) + 'Geral'; Configuracoes.Arquivos.PathRPS := PathWithDelim(FConfiguracao.Diretorio) + 'RPS'; Configuracoes.Arquivos.Salvar := True; Configuracoes.Geral.Salvar := True; Configuracoes.WebServices.Salvar := True; Alguma dica adicional para funcionar direto pelo componente ACBr? Marcos

Olá comunidade ACBr, estou com seguinte problema na emissão de NFS-e para provedor Bethav2: Ao processar o RPS ora executa com sucesso, gerando e transmitindo a NFS-e e ora retorna a mensagem: "Erro desconhecido Este erro sera analisado e corrigido." Curiosamente, aconteceu inclusive efetuando testes utilizando dados exatamente iguais para prestador, tomador, código do serviço, alíquota iss, valor do serviço, município, etc... Utilizo a seguinte rotina: try // -> Segundo o que li nos fóruns isso ja processa tudo e me devolve a resposta NFSe.ACBrNFSe.Gerar(StrToInt(IdentificacaoRps.Numero), StrToInt(NumeroLote), False); // -> Se processado com sucesso, pego dados e XML's gerados e retornados da seguinte forma: XML_RPSOriginal := NFSe.ACBrNFse.NotasFiscais.Items[0].XMLOriginal; XML_RPSAssinado := NFSe.ACBrNFse.NotasFiscais.Items[0].XMLAssinado; XML_NFSe := NFSe.ACBrNFSe.NotasFiscais.Items[0].XMLNFSe; sNumeroNFRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; dDHEmissaoNFRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissao; sLoteRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.NumeroLote; sSituacaoLoteRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Situacao; sCodigoVerificacaoRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; sProtocoloRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo; dDHRecebimentoRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.dhRecebimento; bProcessadaRet := NFSe.ACBrNFSe.NotasFiscais.Items[0].Processada; except on e: Exception do begin retErrosRegradeNegocio := NFSe.ACBrNFSe.NotasFiscais.Items[0].ErroRegrasdeNegocios; if trim(retErrosRegradeNegocio) <> '' then IncluiErro('Retorno em ErrosRegradeNegocio(): ' + #13 + retErrosRegradeNegocio); IncluiErro('Erro ao Gerar NFS-e: ' + #13 + e.Message); end; end; Notei que quando ocorre o problema, não vem nada em ErroRegrasdeNegocios, mas em e.Message o erro mencionado: "Erro desconhecido Este erro sera analisado e corrigido." Não consegui identificar a razão, o suporte do Bethav2 não ajudou muito (ou melhor, nada). Obs: Curiosamente o XML do RPS "NFSe.ACBrNFse.NotasFiscais.Items[0].XMLAssinado" vem assinado, porém não gera o "NFSe.ACBrNFSe.NotasFiscais.Items[0].XMLNFSe" que é o da NFS-e(retorna vazio). Alguém tem alguma sugestão ou passou por problema semelhante? Obrigado

Bom dia Ítalo, Nesse caso, poderia sintetizar me norteando com os passos a serem seguidos e, se possível, as units que normalmente sofrem alteração nessa situação (novo provedor NFS-e). Digo isso porque nunca enviei alterações para o projeto, sempre consumi os recursos disponibilizados, tendo um norte facilitaria e concluindo aqui, envio sim. Marcos

Olá pessoal, Alguém conseguiu implementar o provedor SH3? Procurei nos ".ini" e não encontrei tal provedor, preciso para a cidade de São Geraldo-MG que é atendido pelo provedor SH3 que utiliza o Abrasf, versão 2.02. Se alguém puder disponibilizar eu agradeço,

Boa tarde Ítalo e demais, Temos essa postagem de Janeiro/2016 sobre o Provedor SH3. Fiz a sincronização e ainda não consta nos arquivos .ini. Alguém poderia informar e compartilhar a implementação para tal provedor? Estou necessitando para a cidade de São Geraldo-MG que é atendida por esse provedor SH3. Grato, .

Boa tarde Ítalo. Seguinte: Implementei uma rotina para interpretar os XML's dos CT-e's para facilitar o usuário no lançamento de entrada dos documento recebidos. Agora preciso testar essa interpretação só que não tenho XML's para isso. No caso, o ideal, seriam arquivos de homologação, nos diferentes regimes de tributação, modais, etc para simular exatamente aquilo que os usuários vão precisar quando estiver em produção. Será que pode me ajudar nisso aí? Agradecido, Marcos Ah! Parabens aí Palmeirense pela vitória sobre o Grêmio!