João Paulo Müller

Bom dia a todos, Realizei algumas alterações básicas, mas bem útil no componente para que possa haver a possibilidade de salvar somente os arquivos TXT's em uma pasta exclusiva. Alterações: 1° Adicionado 2 propriedades na classe TArquivosConfGNRE: FPathArqTXT:String; FSalvarTXT:Boolean; property PathArqTXT: String read FPathArqTXT write FPathArqTXT ; property SalvarTXT: Boolean read FSalvarTXT write FSalvarTXT default false; 2° Configurado para quando realizar a rotina de salvar o TXT ler as configurações dessas propriedades: if FPConfiguracoesGNRE.Arquivos.SalvarTXT then SLAux.SaveToFile(PathWithDelim(FPConfiguracoesGNRE.Arquivos.PathArqTXT)+RepresentacaoNumerica+'-gnre.txt'); Dessam maneira é possível salvar os XML's em uma pasta separada em um determinado momento e salvar os arquivos TXT's em uma outra pasta e em outro determinado momento. Units em anexo, se puderem analisar e subir fico agradecido. ACBrGNREConfiguracoes.pas ACBrGNREWebServices.pas

Boa Fernando, Resolveu meu problema com o nome do arquivo. Referente a questão de salvar somente o TXT sabes a respeito? Novamente, muito obrigado.

Olá pessoal, Primeiramente gostaria de saber qual o subfórum adequado para criar tópicos sobre a GNRE? Tenho uma dúvida que caberia a um novo tópico mas como fiquei em dúvida em qual subfórum postar decidi postar aqui. A duvida é referente a impressão da GNRE. Estou começando a utilizar o componente, já consegui enviar GNRE, mas onde estou com dificuldade é na parte da impressão. Após realizar o envio da nota é criado o arquivo .TXT (Resultado do envio) no diretório configurado na propriedade Configurações.pathSalvar, certo? O nome desse arquivo e salvo com uma parte da string do mesmo: RepresentacaoNumerica := Copy(SL.Strings[i], 979, 48); A questão seria: Tem como eu salvar esse arquivo com outro nome? Pois quando vou realizar a rotina de preencher o objeto TGuiasRetorno com esses dados fica complicado para pegar o nome do arquivo. AcbrGNRE.GuiasRetorno.LoadFromFile() // Maneira na qual me refiro para carregar os dados do arquivo Uma outra dúvida é: Quando é setado a propriedade (Configuracções.pathSalvar) para true, é salvo os TXT e os XML's. É possível salvar somente os arquivos .TXT's sem os arquivos XML? Utilizo a rotina de salvar XML somente em casos de manutenção, já a rotina de salvar os TXT's preciso em produção. Muito obrigado.

Venho aqui informar que o ambiente de homologação voltou a funcionar corretamente.

Novidades: " Boa tarde, No caso estamos realizando as verificações para que seja corrigido o problema de importação, no momento da transmissão no Ambiente de Homologação identificamos este transtorno. Assim que for finalizada, entraremos em contato para estar lhe informando! Att, Richard Nelis Suporte Técnico SIMPLISS Sistemas de Informação Ltda (19) 3602-3600 " Tudo indica que o problema é no ambiente de homologação.

Olá pessoal, Estou com o mesmo problema no município de Baneário Camboriú. Entrei em contato com o suporte do SimplISS e o retorno foi: " Bom dia, Conforme verificado possui aberta uma Ordem de Serviço 16185, onde estamos realizando os procedimentos sobre este ocorrido. Assim que finalizada, entraremos em contato para lhe informar" Estão analisando a situação, quando receber o retorno informo aqui.

Disponha Italo, eu quem agradeço. Bom trabalho.

Exatamente. Uma duvida: Consegue subir essa alteração feita na unit "pnfsLerListaNFSe | Linha 309" ? // Unit = pnfsLerListaNFSe | Linha 309 if not Nivel1 then Nivel1 := (leitor.rExtrai(1, 'ConsultarNfseResponse') <> ''); Muito obrigado pela ajuda.

Olá Italo, Estava realizando a consulta dessa maneira por que está descrito no manual do webservice que deveria ser consultado assim. Mas realizei a consulta conforme você informou e retornou o XML com os dados da nota, porém no ACBr não estava sendo preenchido os objetos com esses dados e disparava uma exceção ''(Em branco). Fui analisar o que estava acontecendo no fonte e encontrei o que faltava: No XML de retorno a primeira tag que retorna é "<ConsultarNfseResponse>" e o componente não realizava a extração dessa TAG, mas sim da TAG "<ConsultarNfseResposta>": // Unit = pnfsLerListaNFSe | Linha 308 if not Nivel1 then Nivel1 := (leitor.rExtrai(1, 'ConsultarNfseResposta') <> ''); O que eu fiz foi somente acrescentar essa a TAG "<ConsultarNfseResponse>" na extração: // Unit = pnfsLerListaNFSe | Linha 309 if not Nivel1 then Nivel1 := (leitor.rExtrai(1, 'ConsultarNfseResponse') <> ''); E tudo funcionou corretamente. 2016021020160210-lista-nfse-soap.xml 2016021020160210-con-nfse-soap.xml

Italo favor desconsiderar a situação do provedor WebISS, pois o mesmo está funcionando perfeitamente. Foi um erro meu na hora de consultar. Já o provedor do SimplISS realmente não estou conseguindo consultar. Consultei o RPS e a nota está enviada corretamente, ele retorna o numero da nota "9" e a data de autorização : "10/02/2016" Então para fazer a consulta da nota, estou consultando pelo numero: "201600000000009" (Ano + numero sequencial) e a data inicial "10/02/2016", data final "10/02/2016". Segue novamente o XML, Obrigado e desculpa o transtorno. 2016021020160210-con-nfse-soap.xml 2016021020160210-lista-nfse-soap.xml

Exato. Utilizei o método "Consultar NFSe por período" da aplicação demo do ACBr, passando o numero da nota por parâmetro quando consultado pelo provedor SimplISS (pois necessita o numero da nota). Realizei também a mesma consulta pelo provedor WebISS sem informar o numero da nota, somente data inicial e final. Em ambos retorna a lista vazia conforme o XML anexado na primeira resposta do tópico. Segue anexo o XML de envio e retorno. Obrigado pela atenção. 2016021020160210-con-nfse-soap.xml 2016021020160210-lista-nfse-soap.xml

Boa tarde Italo, Atualizei os fontes, porém o erro persiste. Também realizei o teste pelo demo do ACBr no qual ocorre o mesmo erro( Retorna consulta em branco) tanto para o provedor WebISS quanto para o SimpISS. Obrigado!

Boa tarde Italo, Consegui resolver esse problema adicionando como atributo na TAG "<NumeroNfse>" o NameSpace: Antigo <NumeroNfse>201600000000004</NumeroNfse> Novo <NumeroNfse xmlns="http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd">201600000000004</NumeroNfse> Alterei a unit pnfsNFSeG, Linha 879: Antigo Gerador.wCampoNFSe(tcStr, '#5', 'NumeroNfse', 01, 15, 1, NumeroNFSe, ''); Novo Gerador.wCampoNFSe(tcStr, '#5', 'NumeroNfse', 01, 15, 1, NumeroNFSe, '',True, aNameSpace); Porém, quando consulta uma nota que já foi autorizada retorna uma lista vazia de NFSe. Acho que está realmente com problema no método de ConsultarNFSe pois realizei essa consulta em outro provedor (WebISS) e ocorre o mesmo problema. Inclusive restaurei todo os fontes do ACBR e tentei realizar a ConsultaNFSe no provedore de Mafra-SC (WebiSS) que funcionava antes das atualizações e ocorreu o problema (Lista vazia). Segue os XML's Anexo. Muito obrigado pela atenção. 2016020820160208-con-nfse-soap.xml 2016020820160208-lista-nfse-soap.xml

Olá Pessoal, Estou com um problema ao ConsultarNFSe no provedor SimplISS, gostaria de saber se alguém poderia me ajudar. Erro : O erro ocorre com o XML: - Arquivo enviado fora da estrutura do arquivo XML de entrada - campo(s) obrigatório(s) faltando ( ConsultarNfseEnvio.NumeroNfse ). Olhei o XML e aparentemente está de acordo, também entrei em contato com o suporte do provedor e solicitei um XML de exemplo. Em anexo segue o XML no qual tentei enviar (XMLEnv.xml) e o XML que o suporte do provedor me encaminhou (ConsultarNfse.xml). Provedor: SimpliSS Município: Balneário Camboriú - SC . Obrigado desde já. ConsultarNfse.xml XmlEnv.xml XmlEnv.xml

Pessoal não é possível realizar essa assinatura RSA-SHA1 utilizando o ACBrEAD?

Entendi. Por acaso você tem algum exemplo de como assinar com o LockBox?

Exatamente. O complicado é achar esse algoritmo para o Delphi. Pelo o que andei pesquisando o componente do LockBox realiza a criptografia utilizando RSA.

Boa tarde pessoal, Alguém conseguiu realizar a assinatura direto no delphi sem utilizar a DLL? Estou dando uma pesquisada no componente LockBox 3.5.0, mas está meio complicado devido a falta de exemplo na web. Alguém já utilizou ou conseguiu assinar sem uso de DLL?

Obrigado pelas informações. Pelo o que andei pesquisando possui uma biblioteca (Turbo Power LockBox3) que é capaz de realiza essa criptografia, vou pesquisar um pouco mais a respeito.

Bom dia pessoal, Estou desenvolvendo a NFS-e para o município de Blumenau(NotaBlu). Para enviar o RPS é necessário uma assinatura adicional que consiste em juntar alguns dados do RPS (IM+Série+NumRPS etc..) em uma string, após isso é necessário gerar e assinar um HASH utilizando RSA-SHA1. Estou com uma dificuldade para gerar e assinar esse HASH, gostaria de saber se já possui esse tipo de assinatura em alguma unit do ACBr ou se alguém já realizou esse tipo de assinatura e poderia me ajudar. Grato desde já.

Disponha. Tranquilo... Abraço!

Boa tarde pessoal, Tenho uma sugestão para ser implementada no componente de NFS-e. Em Alguns casos, como por exemplo aqui na empresa onde estou desenvolvendo precisamos manter as configurações em um local diferente do executável da aplicação. Aqui utilizamos esse tipo de configuração quando a aplicação esta rodando na rede em modo compartilhado, o usuário utiliza o software localmente porem é buscado as configurações no servidor. O componente da NFs busca os arquivos ini(Cidades e Provedor) no diretório onde a aplicação está sendo rodada, porém como citado acima pode haver casos em que os arquivos devem ser salvos em locais diferentes, para isso então sugeri e implementei duas propriedades no componente que são "CaminhoIniCidades" e "CaminhoIniProvedor" localizados em Caminho Configurações > Geral (Sugestão). Para facilitar fiz uma verificação nas propriedades verificando se elas estão preenchidas, caso estiver preenchida busca os dados desse local se não estiverem busca do diretório da aplicação mesmo. procedure TGeralConfNFSe.SetConfigMunicipio; // Cidades.ini if CaminhoIniCidades <> '' then NomeArqParams := CaminhoIniCidades else NomeArqParams := ApplicationPath + 'Cidades.ini'; //Provedor.ini if CaminhoIniProvedor <> '' then NomeArqParams := CaminhoIniProvedor else NomeArqParams := ApplicationPath + FxProvedor +'.ini'; Deixei implementado para setar o caminho do arquivo completo, inclusive o nome do arquivo devido a alguma circunstancia na qual é desejado alterar o nome desses arquivos. Fica a dica para ser analisada, segue em anexos a unit alteradas. ACBrNFSeConfiguracoes.pas

Deu certo Italo, Obrigado!

Bom dia Italo, Anexei a unit. Referente a consulta, ele me retorna o XML de resposta tudo certo com todos os dados, o problema ocorre na hora de preencher o objeto. O erro ocorre novamente nessa parte: Unit ACBrNFSeWebServices, linha 923: if FNotasFiscais.Items[ii].NFSe.IdentificacaoRps.Numero = FRetornoNFSe.ListaNFSe.CompNFSe.Items[ i ].NFSe.IdentificacaoRps.Numero then A alteração que você havia sugerido no outro post (destacado em vermelho) estava correto, o que aconteceu foi que na hora de postar aqui no fórum transformou o [ i ] em comando para font em italico. Na hora de realizar a consulta da nota não é preenchido o numero do RPS, e nessa linha ele esta tentando comparar o número de RPS(em branco) com o numero do RPS de retorno.

Bom dia, Realizei uma pequena alteração na unit pnfsNFSeG. Utilizo o provedor da WebISS no qual não possui a tag de versão do lote no XML. Na unit pnfsNFSeG linha 231 é tratado sobre essa questão porém o provedor da WebISS não estava adicionado, a alteração que fiz foi somente adicionar o provedor. // Não Incluir a versão para os provedores abaixo ifThen(AProvedor in [proAbaco, proBetha, proDBSeller, proGinfes, proGoiania, proGovBR, proIssCuritiba, proISSNET, proLexsom, proNatal, proTinus, proRecife, proRJ, proSimplISS, proThema, proTiplan, proAgili, proFISSLex, proSpeedGov, proPronim, proCopla proSalvador,PROWEBISS, proSJP, proFintelISS], Aproveitando o gancho, estou com um problema para realizar consulta do lote(ConsultaLoteRps) e a consulta da nota (ConsultaNFSe), quando realizo a consulta obtenho o erro "Argument Out Of range". Esses dias já havia postado algo referente mais com o método de ConsNFSeRps no qual consegui resolver o problema limpando o objeto toda vez que relizava uma nova consulta. Estou com os fontes todos atualizado. Segue a maneira na qual realizo a consulta da nota (ConsultaNFSe): Frmmain.ACBrNFSe.NotasFiscais.Clear; N:= FrmMain.ACBrNFSe.NotasFiscais.Add.NFSe; N.IdentificacaoRps.Numero := edtRPS.Text; N.IdentificacaoRps.Serie := EdtSerie.Text; N.IdentificacaoRps.tipo := trRPS; N.Numero := ifthen(length(edtNum.Text) < 14,NumNFSeTOWB(edtNum.Text, FrmMain.ACBrNFSe.Configuracoes.Geral.Provedor),edtNum.Text); N.Prestador.Cnpj := Emp_CNPJ; N.Prestador.InscricaoMunicipal := Emp_InscMun; dataIni := DTini.Datetime; dataFim := DTFim.DateTime; //consultando// try FrmMain.ACBrNFSe.webservices.ConsultaNFSe(Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal,Dataini,dataFim, Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero ); Provedor: WebISS. Cidade: Mafra. Grato pela atenção. pnfsNFSeG.pas