Ir para conteúdo
  • Cadastre-se

Leonardo Gregianin

Membros
  • Total de ítens

    712
  • Registro em

  • Última visita

Tudo que Leonardo Gregianin postou

  1. Eu utilizo DUnit e consigo fazer muitos testcases, já agiliza bastantes testes. Ainda não consegui uma ferramenta ou como fazer o teste na interface gráfica. Veja mais nestes links: [*]link 1 [*]link 2 [*]link 3
  2. Este erro ocorreu em modo produção ou homologação?
  3. Lembro que já foi discutido isso aqui e decidiram não utilizar, mas insisto, não seria mais evolutivo utilizar o github?
  4. Interessante o post, só para complementar... No FireDAC existe a procedure ADConnectionRecover onde pode-se passar a ação "AAction := faRetry" para recuperar a conexão. Utilizo esse recurso em um banco de dados MySQL conectado na web e funciona muito bem. procedure TForm.ADConnectionRecover(ASender: TObject; const AInitiator: IADStanObject; AException: Exception; var AAction: TADPhysConnectionRecoverAction); begin AAction:=faRetry end;
  5. Minha dúvida ainda é sobre a manutenção dos geradores de relatórios em Quick e Rave. Esses dois serão mantidos no repositório mas não serão mais atualizados? Se a comunidade enviar correções eles serão enviadas para o repositório oficial? Caso negativo, poderiamos já pensar em repositórios externos mantidos por quem se interessar em manter compatível e excluir esses geradores do repositorio oficial.
  6. Já foi decidido que no trunk2 ficará somente FortesReport e FastReport?
  7. Bom dia, Aqui não ocorreu erro e em todas as máquinas que faço isso nunca ocorreu este erro. Tente colocar a palavra "yes" em maiúsculo, caso ocorra o mesmo erro retire o parâmetro "/reliable:yes" da linha de comando, pelo que lí não tem tanta relevância.
  8. Bom dia, Você pode utilizar os serviços da NTP.br (http://ntp.br) que é vinculado ao Ministério de Ciência e Tecnologia do Brasil. O sistema funciona para Windows, Linux, BSD e Mac. Para o Windows fiz um arquivo .bat chamado AtualizaRelogio.bat e o executo sempre que inicia o sistema operacional. AtualizaRelogio.bat: net stop w32time net start w32time w32tm /config /update /manualpeerlist:"0.pool.ntp.org,1.pool.ntp.org,2.pool.ntp.org,3.pool.ntp.org",0x8 /syncfromflags:MANUAL /reliable:yes As URLs "pool.ntp.org" podem ser alteradas, veja no site. Att.
  9. Você pode buscar em uma FileListBox todos os arquivos XML de NFSe's e carregá-los todos para o componente ACBrNFSe. ACBrNFSe1.NotasFiscais.Clear; // limpa o componente for Posicao := 0 to Tamanho-1 do begin FPath := PathWithDelim(FilelistBox1.Directory)+Filelistbox1.Items.Strings[Posicao]; if FileExists(FPath) then ACBrNFSe1.NotasFiscais.LoadFromFile(FPath) else continue; for i := 0 to ACBrNFSe1.NotasFiscais.Count-1 do begin // Leitura das propriedades do XML end; end;
  10. Boa tarde, No svn já existe alguma implementação. Veja na pasta ACBrNFSe a unit ACBrProvedorAgili.pas, testei a leitura do XML e funcionou corretamente. Ainda não testei o webservice em sí, envio e retorno. O que já existe pode lhe servir de base.
  11. Bom dia, Segue anexo correção da leitura dos valores (BaseCalculo, Aliquota, ValorIss, ValorLiquidoNfse) do XML do provedor Coplan. pnfsNFSeR.pas
  12. Boa tarde, Existe a possibilidade da obtenção do código pelo WebService, veja a nota técnica NFCE 2014.001 (disponível neste link).
  13. Ítalo, Já poderia incluir o novo Library Path ...\Fontes\ZLibExGZ dentro do ACBrInstall.
  14. Bom dia, Tenha certeza que esteja mesmo com o instalador da última versão do SVN, faça o checkout novamente. Se persistir o erro, tente instalar o ACBr em outro computador e verá que o erro não é no instalador e sim algum problema ocorreu na instalação do Delphi XE7 deste primeiro computador. Eu tenho o XE7, instalei e não ocorreu o erro.
  15. Bom dia Juliomar, Fiz testes de várias maneiras e sempre me aparece a mensagem de homologação e não aparece os itens da NF-e. No trecho de código que citou, meu XML não entra em nenhuma condição. Como o danfe simplificado foi desenvolvido recentemente penso que seja mais provável que ninguém esteja utilizando por isso ninguém reclamou do que não esteja com algum problema. De qualquer maneira vou post em anexo o XML (com alterações de dados da empresa), se puder ajudar agradeço. 51150199999999999999550010000079521000079522-nfe.xml
  16. Bom dia, A Danfe da NFC-e não tem em RaveReport mas tem em QuickReport, FortesReport, FastReport com comunicação atráves do spooler do Windows, e ainda com ESCPOS que é a comunicação direta com a impressora não fiscal.
  17. É verdade, consultei as notas no webservice de NFeConsultaDest e estão manifestadas.
  18. Ítalo, Fiz o exemplo abaixo para testar as units alteradas que você anexou NSU := 0 repeat NSU := NSU + 1; ACBrNFe1.DistribuicaoDFe(UF, CNPJ, '', NSU); MaxNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU; until (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU = MaxNSU); O resultado foi 329 consultas, destas 93 vieram com o schema="procNFe_v2.00.xsd" e consequentemente foi salvo o XML completo da NF-e, e 236 vieram com schema="resNFe_v1.00.xsd" e gravando somente o resumo. Nenhuma destas NF-es foi feito manifestação do destinatário dando ciência da operação. Fiz várias vezes o mesmo procedimento e sempre as mesmas NFes veem com procNFe e resNFe, deve existir algum critério para isso não?
  19. Siga os passos descritos pelo Isaque: http://isaquesp.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html
  20. Boa noite Juliomar, Testei de várias formas e com vários arquivos XML. A Danfe em retrato em FortesReport funciona perfeitamente, porém a simplificada ocorre o que relatei no primeiro post, veja: A mensagem 'HOMOLOGAÇÂO - SEM VALOR FISCAL' está sempre aparecendo porque não tem a condição "visible = false" quando o ambiente está em produção onde no Danfe retrato existe esta condição. // Danfe simplificada if FNFe.Ide.tpAmb = taHomologacao then begin rllMsgTipoEmissao.Caption := 'HOMOLOGAÇÂO - SEM VALOR FISCAL'; rllMsgTipoEmissao.Enabled := True; rllMsgTipoEmissao.Visible := True; end; // Danfe retrato if FNFe.Ide.tpAmb = taHomologacao then begin rllHomologacao.Caption := 'AMBIENTE DE HOMOLOGAÇÃO - NF-E SEM VALOR FISCAL'; rllHomologacao.Visible := True; end else begin rllHomologacao.Caption := ''; rllHomologacao.Visible := False; end; Sobre os itens não consegui corrigir o não aparecimento dos itens, talvez seja o DataSource que existe no Danfe Retrato e não existe no Danfe Simplificado. Att.
  21. Na verdade o GraphicEx somente utiliza essa unit, o projeto original é o que o Daniel passou mesmo. Acredito que separar Delphi e Lazarus com IFDEFs é o melhor caminho.
  22. Boa tarde, A unit ZLibExGZ faz parte do GraphicEx com permissão para uso comercial, porém nada é comentado sobre a compatibilização com Lazarus.
  23. Bom dia, Somente agora pude testar a Danfe simplificada em FortesReport e encontrei inconsistências: 1 - A mensagem "HOMOLOGAÇÂO - SEM VALOR FISCAL" sempre está sendo impressa independente da tag tpAmb 1 ou 2. 2 - Os itens da Danfe nunca estão sendo impressos utilizando ACBrNFe1.NotasFiscais.Imprimir; Att.
  24. Boa tarde Humberto, As discussões sobre este novo webservice estão concentradas neste tópico: Tem relatos nele que estão conseguindo ler o Gzip em Delphi sem problemas.
×
×
  • 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.