Ir para conteúdo
  • Cadastre-se

Victor H. Gonzales - Panda

Consultores
  • Total de ítens

    3.153
  • Registro em

  • Última visita

  • Days Won

    89

Tudo que Victor H. Gonzales - Panda postou

  1. Boa tarde @Italo Jurisato Junior, Ficamos no aguardo da analise deles. Muito obrigado, tenha um bom dia.
  2. Boa tarde @Juliana Tamizou, Voltei as revisões da unit ACBrDFeXsLibXml2 para tentar localizar um commit que estava funcional segue os testes : 17204 - Assinatura invalida. 17202 - Assinatura invalida. 17197 - Assinatura invalida. 17100 - Funcionando Corretamente Portanto, do commit 17197 igual ou superior para o Provedor GINFES encontra-se com problemas para emissão, consulta e cancelamentos de NFSe. Obrigado.
  3. Bom dia @Juliana Tamizou, não consegui detectar onde está o problema. Tentei regredir a versão até dia 01/08/2019 e o problema está igual, vi que do meu backup para a versão atual mudou bastante coisas. Em anexo a unit ACBrDFeXsLibXml2.pas, essa é a do meu backup onde estava funcionando. Obrigado tenha um bom dia ACBrDFeXsLibXml2.pas
  4. Boa tarde, Ao atualizar a suite ACBr para a versão 17521 o sistema parou de enviar [Autorização e Cancelamento] NFSe para o provedor GINFES, somente quando utilizar SLLXmlSignLib = xsLibXml2, caso utilizar o xsMsXML não ocorre o problema. O sistema encontra-se com Arq ini atualizado e schemas [Captura do sistema] Data/Hora............: 22/08/2019 17:19:02 Mensagem.............: Assinatura invalida. Informar assinatura correta no documento XML. Classe Exceção.......: EACBrDFeException Formulário...........: fMovimentacao Unit.................: Vcl.Menus Controle Visual......: Nome Usuario.........: Gonzales Nome Computador......: DVLOP-01 Versão Windows.......: Windows 7 / Windows Server 2008 R2 Versão Aplicação.....: 2019.8.20.1015 (007DA8CE)[00BDB8CE] ACBrDFe.TACBrDFe.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 632, "ACBrDFe.pas" + 11) + $0 (007E379B)[00BE479B] ACBrDFeWebService.TDFeWebService.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 531, "ACBrDFeWebService.pas" + 1) + $C (00DD1115)[011D2115] ACBrNFSeWebServices.TWebServices.Envia$qqrx20System.UnicodeString (Line 5563, "ACBrNFSeWebServices.pas" + 19) + $13 (00DD3C9E)[011D4C9E] ACBrNFSe.TACBrNFSe.Enviar$qqrx20System.UnicodeStringo (Line 441, "ACBrNFSe.pas" + 10) + $C (00DD3B9B)[011D4B9B] ACBrNFSe.TACBrNFSe.Enviar$qqrio (Line 425, "ACBrNFSe.pas" + 1) + $14 (0217C75C)[0257D75C] uMovimentacao.TfMovimentacao.GerarNFSe$qqrv (Line 7695, "uMovimentacao.pas" + 299) + $20 (0218875B)[0258975B] uMovimentacao.TfMovimentacao.mniSalvareProcessarDocumentoClick$qqrp14System.TObject (Line 9418, "uMovimentacao.pas" + 173) + $3 (00273BCE)[00674BCE] Vcl.Menus.TMenuItem.Click$qqrv (Line 2541, "Vcl.Menus.pas" + 19) + $8 (002764CD)[006774CD] Vcl.Menus.TPopupList.MainWndProc$qqrr24Winapi.Messages.TMessage (Line 4618, "Vcl.Menus.pas" + 2) + $5 (000E5D00)[004E6D00] System.Classes.StdWndProc$qqsp6HWND__uiuiui (Line 17187, "System.Classes.pas" + + $0 [Configuração do Componente] <ACBRNFSe>.Configuracoes.Geral.SSLLib := libWinCrypt; <ACBRNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; <ACBRNFSe>.SSL.SSLType := LT_all; Obrigado desde já 1610-rps.xml 1566494295-env-lot.xml 1566494295-env-lot-soap.xml 1566494295-rec.xml 1566494295-rec-soap.xml
  5. Boa tarde @Claudiomir, Pegue o banco de dados deste cliente, faça a depuração gerando um novo boleto com esses mesmos parâmetros (valor, vencimento, nosso número), veja como ele se comporta. verifique a carteira informada e o nosso número na geração, verifique os 0 na carteira, nosso número e convenio. O erro tem que ser pontual, em algum fluxo, tente recriar as mesmas condições da geração deste título, e verifica etapa por etapa se as informações que estão sendo informadas ao componente estão coerentes com a realidade esperada; Abraços.
  6. Bom dia, Isso parece DLL da OPENSSL faltando, verifique se elas estão na raiz do executável.
  7. Boa tarde, Tenta trocar a assinatura para <ACBrNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsMsXML; e veja se não apresenta erros. Não se aplica ao provedor GINFES, mas existem outros provedores que utilizam essa configuração. Abraços
  8. Boa tarde @Italo Jurisato Junior, [Provedor GINFES] Emissão [OK] Cancelamento [OK] Tudo certo na emissão do documento e cancelamento do mesmo utilizando este novo arquivo enviado 20/05/2019 - 16:17. Obrigado pela ajuda forte abraço!
  9. Boa tarde @Italo Jurisato Junior, positivo, irei fazer o teste agora [Configurações]: Provedor : GINFES; Cidade São José do Rio Preto - SP <ACBrNFSe>.Configuracoes.Geral.SSLLib := libWinCrypt; <ACBrNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; <ACBrNFSe>.SSL.SSLType := LT_all;
  10. Boa Tarde, @Italo Jurisato Junior Primeiramente obrigado pela ajuda, os testes com o arquivo paliativo informado neste tópico, alterou a mensagem de erro, o sistema para o provedor GINFES retornou a mensagem "Assinatura invalida.". Os arquivos de schemas e ini estão atualizados pelo repositório svn. Log: Data/Hora............: 20/05/2019 15:59:29 Mensagem.............: Assinatura invalida. Informar assinatura correta no documento XML. Classe Exceção.......: EACBrDFeException Formulário...........: fMovimentacao Unit.................: Vcl.Menus Controle Visual......: Nome Usuario.........: Gonzales Nome Computador......: DVLOP-01 Versão Windows.......: Windows 7 / Windows Server 2008 R2 Versão Aplicação.....: 2019.5.16.1710 (007CEA82) [00BCFA82] ACBrDFe.TACBrDFe.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 632, "ACBrDFe.pas" + 11) + $0 (007D75C3) [00BD85C3] ACBrDFeWebService.TDFeWebService.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 531, "ACBrDFeWebService.pas" + 1) + $C (00DB9667) [011BA667] ACBrNFSeWebServices.TWebServices.Envia$qqr20System.UnicodeString (Line 5470, "ACBrNFSeWebServices.pas" + 19) + $13 (00DBC3B6) [011BD3B6] ACBrNFSe.TACBrNFSe.Enviar$qqr20System.UnicodeStringo (Line 443, "ACBrNFSe.pas" + 10) + $C (00DBC2AB) [011BD2AB] ACBrNFSe.TACBrNFSe.Enviar$qqrio (Line 427, "ACBrNFSe.pas" + 1) + $14 (02158A11) [02559A11] uMovimentacao.TfMovimentacao.GerarNFSe$qqrv (Line 7621, "uMovimentacao.pas" + 299) + $20 (02164893) [02565893] uMovimentacao.TfMovimentacao.mniSalvareProcessarDocumentoClick$qqrp14System.TObject (Line 9332, "uMovimentacao.pas" + 173) + $3 (00273BCE) [00674BCE] Vcl.Menus.TMenuItem.Click$qqrv (Line 2541, "Vcl.Menus.pas" + 19) + $8 (002764CD) [006774CD] Vcl.Menus.TPopupList.MainWndProc$qqrr24Winapi.Messages.TMessage (Line 4618, "Vcl.Menus.pas" + 2) + $5 (000E5D00) [004E6D00] System.Classes.StdWndProc$qqsp6HWND__uiuiui (Line 17187, "System.Classes.pas" + + $0 Forte Abraço! 1590-rps.xml 1558368208-env-lot.xml 1558368208-env-lot-soap.xml 1558368208-rec.xml 1558368208-rec-soap.xml
  11. xsLibXML2 : Nenhum elemento encontrado, é o mesmo erro que eu estou encontrando. xsMsXML : Classe não registrada é falta da DLL registrada (msxml5.dll); Copiar as DLL (msxml5.dll , msxml5r.dll) que encontra-se na raiz do sistema SIGE para a pasta System32 / SysWOW64 do Windows Abrir o prompt de comando (CMD) com previlégios de administrador Clicar no botão iniciar do windows digite no campo de pesquisa CMD clique com o botão direito sobre o resultado da pesquisa clique em executar como administrador no prompt de comando digitar %systemroot%\SysWoW64\regsvr32 msxml5.dll Pressionar a tecla enter aguardar a mensagem de confirmação
  12. Boa tarde comunidade ACBr, Estou enfrentando um problema após atualizar a suite ACBr para versão 17029 - 16/05/2019 10:24, o sistema de NFSe ao tentar enviar a nota fiscal apresenta o erro : Nenhum Elemento Encontrado, o erro ocorre quando se utiliza o SSLXmlSignLIB = xsLibXML2, caso utilizar o xsMsXML o sistema autoriza e recebe os retornos todos, o problema é apenas ao utilizar o xsLibXML2; [Configurações]: Provedor : GINFES; Cidade São José do Rio Preto - SP <ACBrNFSe>.Configuracoes.Geral.SSLLib := libWinCrypt; <ACBrNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; <ACBrNFSe>.SSL.SSLType := LT_all; [abaixo segue o log que a minha aplicação gerou]: Data/Hora............: 16/05/2019 14:17:26 Mensagem.............: Nenhum elemento encontrado Classe Exceção.......: EACBrDFeException Formulário...........: fMovimentacao Unit.................: Vcl.Menus Controle Visual......: Nome Usuario.........: Gonzales Nome Computador......: DVLOP-01 Versão Windows.......: Windows 7 / Windows Server 2008 R2 Versão Aplicação.....: 2019.5.16.1000 (0070A152) [00B0B152] ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.AdicionarNode$qqrrp14Libxml2.xmlDocx20System.UnicodeString20System.UnicodeString (Line 665, "ACBrDFeXsLibXml2.pas" + 18) + $0 (00708E13) [00B09E13] ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar$qqrx20System.UnicodeStringt1t1t1t1t1t1 (Line 203, "ACBrDFeXsLibXml2.pas" + 44) + $28 (007A3D14) [00BA4D14] ACBrDFeSSL.TDFeSSL.Assinar$qqrx20System.UnicodeStringt1t1t1t1t1t1 (Line 1120, "ACBrDFeSSL.pas" + 20) + $26 (00D7368F) [0117468F] ACBrNFSeNotasFiscais.TNotasFiscais.AssinarLote$qqr20System.UnicodeStringt1t1ot1t1t1 (Line 688, "ACBrNFSeNotasFiscais.pas" + 15) + $24 (00DACD1B) [011ADD1B] ACBrNFSeWebServices.TNFSeEnviarLoteRPS.DefinirDadosMsg$qqrv (Line 2768, "ACBrNFSeWebServices.pas" + 168) + $56 (007D600C) [00BD700C] ACBrDFeWebService.TDFeWebService.Executar$qqrv (Line 201, "ACBrDFeWebService.pas" + 6) + $5 (00DB95F8) [011BA5F8] ACBrNFSeWebServices.TWebServices.Envia$qqr20System.UnicodeString (Line 5467, "ACBrNFSeWebServices.pas" + 16) + $8 (00DBC366) [011BD366] ACBrNFSe.TACBrNFSe.Enviar$qqr20System.UnicodeStringo (Line 443, "ACBrNFSe.pas" + 10) + $C (00DBC25B) [011BD25B] ACBrNFSe.TACBrNFSe.Enviar$qqrio (Line 427, "ACBrNFSe.pas" + 1) + $14 (021589B8) [025599B8] uMovimentacao.TfMovimentacao.GerarNFSe$qqrv (Line 7621, "uMovimentacao.pas" + 299) + $1B (0216483B) [0256583B] uMovimentacao.TfMovimentacao.mniSalvareProcessarDocumentoClick$qqrp14System.TObject (Line 9332, "uMovimentacao.pas" + 173) + $3 (00273BCE) [00674BCE] Vcl.Menus.TMenuItem.Click$qqrv (Line 2541, "Vcl.Menus.pas" + 19) + $8 (002764CD) [006774CD] Vcl.Menus.TPopupList.MainWndProc$qqrr24Winapi.Messages.TMessage (Line 4618, "Vcl.Menus.pas" + 2) + $5 (000E5D00) [004E6D00] System.Classes.StdWndProc$qqsp6HWND__uiuiui (Line 17187, "System.Classes.pas" + + $0 Grato desde já.
  13. Boa tarde, @Daniel Simoes Uma sugestão para próximos eventos da ACBr, é a pensar com carinho na parte de logística, sugiro o evento ser em São Paulo Capital, pois é mais fácil chegar em um HUB nacional, do que em uma cidade que nem aeroporto fácil tem, tendo que ir até VCP e pegar um carro até Sorocaba. Forte abraço
  14. Positivo, convenio de 7 o Único problema que tive foi no retorno para ler o mesmo utilizando (lercedenteretorno = true), mas fiz um paliativo enquanto a moderação não verifica se pode ou não implementar isso no compomente...
  15. checa se não é alguma informação que você está passando errado, exemplo carteira 017 e passar 17 ou a variação 019 e era 19, dai a string está ficando fora de posição, algo do gênero, isso são exemplos, teria que verificar campo a campo teu para validar se todos estão corretos; Checa todos os campos antecessores se estão com o domínio correto, uso banco do brasil com CNAB400 e não tenho esse problema
  16. Boa tarde, Estou com um arquivo de retorno do Branco do Brasil convenio 7 posições, e ao utilizar o parametro leCedenteRetorno o sistema não está identificando o convenio e está caindo no processamento de 6 posições e não está realizando o processamento do retorno; Na unit ACBrBancoBrasil na procedure TACBrBancoBrasil.LerRetorno400(ARetorno: TStringList) realizei algumas modificações que submeto a moderação avaliar; procedure TACBrBancoBrasil.LerRetorno400(ARetorno: TStringList); var TamConvenioMaior6: Boolean; rConvenioLider : String; begin if ACBrBanco.ACBrBoleto.LeCedenteRetorno then begin if NaoEstaZerado(StrToInt64Def(Copy(ARetorno[0],41,6),0)) then rConvenioLider := Trim(Copy(ARetorno[0],41,6))//CBR643 convenio 6 posicoes else rConvenioLider := Copy(ARetorno[0],150,7); //CBR643 convenio 7 posicoes ACBrBanco.ACBrBoleto.Cedente.Convenio := rConvenioLider; end; TamConvenioMaior6:= Length(trim(ACBrBanco.ACBrBoleto.Cedente.Convenio)) > 6; if TamConvenioMaior6 then LerRetorno400Pos7(ARetorno) else LerRetorno400Pos6(ARetorno); end; Desde já muito obrigado; ACBrBancoBrasil.pas
  17. Boa tarde, Surgiu a demanda na hora da exportação do boleto utilizando fastreport em PDF o sistema gerar com o nome personalizado, exemplo (número da carteira, data hora, nome do cliente,etc) personalizável por parte do consumidor (parametrizável nas configuração do sistema); Desta forma somente usando o filtro fiPDF estava conseguindo chegar no resultado desejado, mas com isso eu não conseguia fazer a pré-visualização, ele gerava o trabalho de pdf diretamente. Então utilização filtro fiNENHUM : 1) Na exportação estava vindo como padrão desmarcado para embarcar as fontes no pdf, assim gerando em alguns máquinas problemas de abertura do arquivo do boleto no leitor de pdf, por mais que no componente acbrboleto estive-se marcado para embarcar; 2) Devido a demanda da personalização do nome do arquivo por runtime e a utilização do filtro fiNENHUM, pois preciso deixar o trabalho de impressora e a pessoa exportar manualmente, precisei alterar o arquivo ACBrBoletoFCFR. ficando as linhas 334 : fiNenhum: begin if (MostrarPreview) and (not FModoThread) then begin frxPDFExport.Keywords := frxPDFExport.Title; frxPDFExport.Background := IncorporarBackgroundPdf;//False diminui 70% do tamanho do pdf frxPDFExport.EmbeddedFonts := IncorporarFontesPdf; frxReport.Engine.Report.FileName := NomeArquivo; //nome do arquivo a ser exportado frxReport.ShowReport(false) end else frxReport.Print; end; Estou enviando o arquivo para apreciação e verificação da moderação; Grato desde já; ACBrBoletoFCFR.pas
  18. Boa tarde, Existe como "manipular" o campo mensagem0 para passar uma mensagem de ambiente, exemplo imprimir o literal "NFSe emitida em ambiente de homologação" no danfse; Só a fim de evitar circulação de documentos impróprios, similar ao que temos hoje com a NFe onde sai impresso quando o documento está transmitido para ambiente de homologação; Desde já obrigado; Fraterno abraço;
  19. Bom dia @licerio Eu estou pensando em ir para VCP de Azul, lá tem um ônibus que faz a ligação entre as cidades da própria companhia Azul, foi o melhor que achei até o momento; Também não conheço muito bem o trecho, mas é o mais próximo que cheguei; Ou ir até VCP ou GRU e ir de taxi/ônibus até Sorocaba;
  20. Mesma situação em São José do Rio Preto - SP E358 Falei tambem na GINFES em São Paulo (11) 2175-1145 Suporte, a mesma informa que está com problemas em seus servidores e ainda não sabe a extensão do problema, não há previsão de normalização.
  21. Parabens pela iniciativa, final do ano estaremos lá
  22. Bom dia, A Capcom foi descontinuada pela microsoft a muito tempo, por isso é recomendável remover, mas ela trabalha com STORE, funciona para certificados modelo A1 e A3; A OpenSSL tu vai conseguir trabalhar com arquivos PFX diretamente sem o uso das STORE; O Wincrypt tu vai conseguir trabalhar com STORE de certificados igual a capcom, tanto para modelo A1 e A3; eu particularmente eu removi toda a dependência do capcom e da openssl dos meus sistemas, portanto uso o (Wincrypt + MSXML), se usar (Wincrypt + libXML2 ) ele vai te pedir a dependência do OpenSSL Abraços
  23. Por telefone na elgin, falaram que isso deve sair nos meses 07/08-2018
  24. Boa tarde, A distribuição da DFe até a parte do resumo funciona normalmente, mas na etapa 4 que tem que registrar o evento para a distribuição da nota fiscal vir completa é onde ocorre o erro CSTAT 282 - Rejeicao: Certificado Transmissor sem CNPJ, como é o fluxo normal para a nota fiscal quando PJ; Deveria ter uma forma de recuperar esses XML de PF igual é o de PJ; Não estou falando que a ACBr está com erro, visto que isso é retorno do WS; Obrigado XMLs.rar
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.