Ir para conteúdo
  • Cadastre-se

Solivan

Membros
  • Total de ítens

    451
  • Registro em

  • Última visita

  • Days Won

    6

Tudo que Solivan postou

  1. Todas as ferramentas que se destacam no mercado, geralmente são feitas utilizando a linguagem java, agora a IDE, mais utilizada acho que seria o eclipse.
  2. Solivan

    Erro ao compilar ACBrNFSe

    Bom dia Ítalo, encontrei um pequeno bug no último update da NFS-e, acho que a variável FPMimeType, declarada na unit ACBrDFeWebService, não está visível para as demais. Att. Solivan
  3. Pergunta difícil, melhor em que sentido, mais leve, mais recurso, mais abrangência ? o que seria ? defina melhor ? Aqui mesmo no fórum tem uma enquete sobre a IDE mais utilizada pelos usuários do ACBr, acho que temos o D7 e depois o 2010 como preferência de uso.
  4. Fica fácil você validar isso pelo tamanho do código você saberia que tipo de dados estaria inserido no campo, então de acordo com cada modelo você faria a validação, no result da função caso seja false você não informa esse campo no sat, simples.
  5. Solivan

    Erro Windows XP

    Isso pode ter acontecido em apenas um computador que utilizava o Windows XP, por se tratar de uma versão 64 bits do processador onde as DLLs e chamadas de funções mudam.
  6. Tente o seguinte amigo; function ColorToHTML(const Color: TColor): string; var ColorRGB: Integer; begin ColorRGB := ColorToRGB(Color); Result := Format('#%0.2X%0.2X%0.2X', [GetRValue(ColorRGB), GetGValue(ColorRGB), GetBValue(ColorRGB)]); end; WebBrowser1.Navigate(Format('about:<body bgcolor="%s" style="overflow:hidden"/>', [ColorToHTML(clRed)])); Fonte: http://stackoverflow.com/questions/9760969/tembeddedwb-and-background-color ou http://www.swissdelphicenter.ch/en/showcode.php?id=1254
  7. Amigo tem como voce disponibilizar o fortesreport-ce para Delphi7, o seu link esta quebrado ! O que baixei do github deu erro me ajuda por favor. Link para o Fhttps://drive.google.com/file/d/0B5axIrSIW8CZdTNSTERJWTVmLWM/viewortes CE
  8. Já tinha recompilado, atualizaram a unit pcnConvercao.pas e o erro foi embora.
  9. Italo o arquivo pcnConversao.pas veio com um pequeno bug, o tipo que você adicionou, somou um item a mais na declaração mas não foi incrementado no array antes const TpcnTpEventoString : array[0..26] of String =('110110', '110111', '210200', depois const TpcnTpEventoString : array[0..27] of String =('110110', '110111', '210200',
  10. Boa tarde a todos, Atualizei hoje o meu repositório, recompilei através do instalador, e quando fui compilar meu projeto de nota fiscal, um erro estranho aconteceu, testei também com o demo e o erro persiste. Talvez os adms saibam, qual o erro com base no que foi alterado recentemente. Obrigado! Imagens da Tela de Erro
  11. Segue em anexo fortes atualizado para utilizar os componentes do trunk2! Baixar Fortes D7 e XE Não esquecer de adicionar os caminhos ao Library Path E:\Fontes\Componentes\Fortes Report D7 E:\Fontes\Componentes\Fortes Report D7\Packages E:\Fontes\Componentes\Fortes Report D7\Binary\Win32_D7_vcl
  12. Eu desistir de usar esse fortes report comunity, e optei pelos antigos fontes que já vinha utilizando, apenas renomeei os pacotes para os nomes utilizados pela suite ACBr, acho que tem em algum post aqui no fórum, o anexo para download.
  13. Pode ser também problema nos path do componente, verifique se não tem alguma propriedade apontando para algum diretório inválido.
  14. primeiro você joga no form o componente do fortes report e associa ao componente ACBrNFe, depois alimenta o componente, e em seguida executa os passos que citei acima. Assim você vai ter um preview da sua Nota antes de enviar. Abra o exemplo do ACBrNFe que você vai ter uma idéia geral de como fazer todos os passos.
  15. pra você mostrar uma visualização antes de enviar a sefaz basta você usar ACBRDanfeQualquerQueSeja.MostrarPreview := True ; ACBRDanfeQualquerQueSeja.Imprimir ; assim você vai ter um preview de como vai ficar o danfe. uso dessa forma. Solivan!
  16. Amigo para você selecionar um Certificado use: ACBrNFe1.SSL.SelecionarCertificado ; para checar se o Certificado foi carregado if ACBrNFe1.SSL.CertificadoLido then c_Certificado.text := ACBrNFe1.SSL.CertNumeroSerie ; para associar o certificado ao componente: ACBrNFe1.SSL.NumeroSerie := c_Certificado.text ; ACBrNFe1.SSL.CarregarCertificado ; e por a vai. Solivan!
  17. Acho que um bom banco para guardar qualquer tipo de informação seria o SQL Server Express, utilizo ele que por sinal é muito rápido e confiável.
  18. Sua pergunta não é muito clara quanto a informação que você deseja obter, mas se estiver querendo reaver o número de série, use o seguinte; ACBrECF1.NumSerie ; Att. Solivan
  19. Italo efetuei varios testes e o protocolo não vem, então fiz uma pequena alteração afim de corrigir,não sei se é a melhor forma de contornar a situação segue abaixo o arquivo alterado e o modo como estou fazendo pra consultar a NF-e. if ConsultarNotaFiscal_ComItens( DataSet.FieldByName('CodigoNFe').AsInteger ) then begin ACBrNFe1.NotasFiscais.Clear ; AlimentarComponenteNFe( DataSet.FieldByName('NumeroNFe').AsInteger ); ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Validar; FChave := Trim(DataSet.FieldByName('ChaveNFe').AsString) ; if not ValidarChave( FChave ) then begin MessageError('Chave da Nota Fiscal inválida.'); Exit ; end; FPathXML := IncludeTrailingPathDelimiter( cPathRaizNFe + cAutorizadas ) + FChave + '-nfe.xml' ; ACBrNFe1.WebServices.Consulta.NFeChave := FChave ; if ACBrNFe1.WebServices.Consulta.Executar then begin if ACBrNFe1.WebServices.Consulta.retCancNFe.cStat = 101 then begin MessageWarning('Nota Fiscal Cancelada.'); end; FPathEvento := IncludeTrailingPathDelimiter( cPathRaizNFe + cRetornoMssg ) + FChave + '-sit.xml' ; ACBrNFe1.WebServices.Consulta.protNFe.PathNFe := FPathXML ; //ACBrNFe1.WebServices.Consulta.protNFe.PathRetConsSitNFe := FPathEvento ; ACBrNFe1.WebServices.Consulta.protNFe.PathRetConsReciNFe := '' ; // Função gravar XML, grava o XML, da forma que foi gerado e assinado e sem o protocolo. irrelevante. //ACBrNFe1.NotasFiscais.Items[0].GravarXML( ExtractFileName( FPathXML ), ExtractFilePath( FPathXML ) ); ACBrNFe1.WebServices.Consulta.protNFe.Versao := '3.10' ; // Caso não informe o campo vem vazio dentro do XML // adicionei uma linha pra gravar o arquivo no final do processo gerarXML ACBrNFe1.WebServices.Consulta.protNFe.GerarXML ; TrataRetornosNFeGravaBancoDados( DataSet.FieldByName('CodigoNFe').AsInteger, 0, FChave, FPathXML ) ; end else MessageInfo( 'NF-e ainda não autorizada. Use o botão Enviar NF-e caso queira autoriza-la junto a Sefaz.' ) ; end; Depois que o arquivo é salvo no disco pela função GerarXML então carrego novamente o arquivo como mostra abaixo e imprimo. ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile( FPathXML ) ; ACBrNFe1.NotasFiscais.ImprimirPDF ; ACBrNFe1.NotasFiscais.Imprimir; Baixar o arquivo com modificação O arquivo ao qual me refiro é o pcnProcNFe.pas. Notei algo diferente também quando ele faz a consulta dentro do XML contem uma outra chave diferente da que informei. Obrigado!
  20. Uso o Delphi XE e este erro realmente acontece, tenho que modificar toda vez que instalo desde as primeiras versões do trunk.
  21. tente compilar o pacote que estiver com problemas (manualmente pelo Delphi), e quando o erro surgir, você adiciona a unit na cláusula uses salva, fecha o delphi e tenta instalar novamente.
  22. É só declarar a unit pcnGerador, que o erro some.
  23. boa tarde Ítalo, sem querer ser chato, mas aquela alteração (nas ultimas revisões não me lembro qual), pra gravar os dados do protNFe, de alguma forma já contempla também a correção no caso de consulta da NF-e ? como foi descrito no posto acima. Obrigado!
  24. Obrigado Italo pela pronta resposta. Eu já faço exatamente como você listou na sua resposta, só que achei que pudesse ter outra forma. obrigado.
×
×
  • 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.

The popup will be closed in 10 segundos...