Ricardo Martins (Sistemas)

Concordo, Italo, essa alteração em ACBrDFe foi bem específica para minha necessidade mesmo, na verdade, pelo fato de eu não ter encontrado uma maneira de recuperar o nome e endereço do arquivo de resposta da função que faz a consulta do lote. Muito obrigado pelo retorno e pela alteração objetivando o atendimento de nossa cidade.

Boa tarde, Italo, Seguem arquivos para a sua análise. Actconv2.ini Cidades.ini pnfsNFSeW_ABRASFv2.pas ACBrDFe.pas

Olá, como prometido, vou deixar aqui o meu retorno acerca da migração para o novo provedor Actconv202 - Juiz de Fora. Baixei os fontes novos e, depois de algumas alterações, obtive sucesso na tarefa. É preciso ressaltar, até para ser justo com o pessoal do provedor que o suporte deles me ajudou também, de maneira bastante rápida e eficiente. O e-mail pelo qual entrei em contato com eles foi [email protected]. Eu alterei o Cidades.ini, coloquei o provedor Actconv2, ao invés de Actconv202, a fim de que a rotina Configuracoes.Geral.SetConfigMunicipio encontrasse o provedor e renomeei o arquivo Actconv202.ini para Actconv2.ini. Além disso, alterei a unit pnfsNFSeW_ABRASFv2.pas, mais precisamente a rotina GerarXML_ABRASF_v2, conforme trecho abaixo: end else begin if FProvedor in [proActcon, proBethav2, proCoplan, proEReceita, proFiorilli, proFriburgo, proGovDigital, proISSDigital, proISSe, proMitra, proNEAInformatica, proNotaInteligente, proPronimv2, proProdata, proPVH, proSaatri, proSiam, proSisPMJP, proSystemPro, proVirtual, proVitoria, proVersaTecnologia, proWebISSv2, proActconv2] then Gerador.wCampoNFSe(tcDat, '#4', 'Competencia', 10, 10, 1, NFSe.DataEmissao, DSC_DEMI) else begin if not (FProvedor in [proGoiania]) then Gerador.wCampoNFSe(tcDatHor, '#4', 'Competencia', 19, 19, 0, NFSe.DataEmissao, DSC_DEMI); end; Para emissão da nota, utilizei os seguintes comandos: GerarLote(iRPS); Enviar(iRPS, False); Sleep(5000); if FileExists(sNomeArq) then begin NotasFiscais.Clear; NotasFiscais.LoadFromFile(sNomeArq, False); NotasFiscais.Imprimir; sNFNumero := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; bGerou := True; mmoEnvio.Lines.Add('Arquivo Carregado de: '+ sNomeArq); mmoResposta.Lines.LoadFromFile(sNomeArq); end else ShowError('Arquivo de retorno não encontrado. Por favor, verifique se a nota foi emitida.'); Vale salientar que a variável "sNomeArq" é alimentada por mim de acordo com parâmetros constantes no meu sistema e eu também alterei a unit ACBrDFe criando uma propriedade ArquivoNFSe e forçando a gravação do arquivo de acordo com a minha necessidade. Fiz isso na rotina TACBrDFe.Gravar, conforme trecho abaixo: if (Pos('lista-nfse', NomeArquivo) > 0) and (ArquivoNFSe <> '') then begin WriteToTXT(ArquivoNFSe, UTF8Str, False, False); ArquivoNFSe := ''; end; Afora isso, de acordo com a orientação do pessoal responsável pelo provedor adicionei um '0' na frente do código de tributação no município e obtive, enfim, sucesso na tarefa. Espero que essas informações possam ajudar alguém, da mesma forma que este fórum tem me ajudado ao longo do tempo. Abraço a todos e, se precisarem de mim, estou à disposição. Att. Ricardo Martins

Muito obrigado, Italo. Farei isso agora mesmo e retorno aqui o resultado.

Boa noite, Estou tentando já há algumas semanas migrar uma aplicação do provedor BHISS para o Actconv202, utilizado agora, para minha infelicidade, aqui em Juiz de Fora, fiz inúmeros testes, instalei as versões mais recentes dos componentes ACBr, alterei algumas funções nas units pnfsConversao.pas e pnfsNFSeW_ABRASFv2.pas, mas, o mais perto que consegui chegar da emissão da nota foi gerar o XML através da função GerarLote e quando tento enviar recebo mensagens dizendo que o código do serviço está errado, o que não é verdade, visto que é o mesmo usado no site que, ironicamente, tem o nome de portalfacil e outra mensagem que diz que a alíquota foi informada incorretamente, não interessando qual a maneira que o valor é passado, com duas casas decimais, quatro ou nenhuma. Tentei entrar em contato com outro assinante aqui do fórum que, a princípio, teria conseguido realizar a migração, mas, não obtive retorno por nenhum dos canais que ele deixou em um de seus posts. Pesquisei vários outros posts aqui no fórum e fora daqui também, mas, não obtive nenhuma informação que viabilizasse a tarefa. Compreendo, logicamente, que o fato deste servidor ser utilizado somente aqui, pelo que eu entendi, dificulta muito que os amigos possam ajudar, mas, faço um apelo, se alguém aqui em Juiz de Fora obteve sucesso na migração, por favor, entre em contato comigo, pois necessito urgentemente solucionar este problema. A propósito, peço desculpas pelo tom de desabafo deste post, mas, como comentaram alguns outros assinantes do fórum, dentre eles, até mesmo um moderador, a ausência de um padrão nacional nestes serviços dificulta demais o nosso trabalho. Bom, é isso, a aplicação funcionava perfeitamente no provedor anterior e agora, por desconhecimento ou incapacidade minha eu não estou conseguindo fazer funcionar neste novo provedor, que tomou o lugar do antigo, sabe Deus o porquê. Se alguém puder me ajudar com uma dica e/ou um exemplo, eu agradeço muitíssimo. Meus contatos, além do fórum, seguem abaixo: e-Mail: [email protected] Skype: ricardo.martins1976

Bom dia a todos, Tenho uma aplicação que estava funcionando perfeitamente bem com o BHISS, mas, estou tendo problemas ao tentar migrá-la para o ActiconV2. Recebo uma mensagem no evento de validação “O nome continha um caractere inválido”, após debugar o processo, percebi que se trata de um erro, ou pelo menos eu acredito que seja um erro, na montagem do conteúdo do XML pelo componente, parece que as tags não são montadas de acordo com o esperado no xsd (nfse_v202). Eu tentei fazer inúmeras alterações no componente ACBr, usar xsd’s diferentes, atualizei e reinstalei o ACBr, mas, não obtive sucesso. O que eu estou deixando de fazer? Há alguma propriedade que deva ser alterada, como a biblioteca de comunicação, por exemplo, em relação ao BHISS? Eu já baixei o Acticonv2.ini e alterei o Cidades.ini, na verdade, ao atualizar a versão dos componentes ACBr, ele até já veio atualizado também. Bom, é isso, se alguém puder me dar uma luz, agradeço muito. P.S.: O projeto ao qual me refiro está em Delphi 7.