DIEGO J B PIRES
Membros-
Total de ítens
68 -
Registro em
-
Última visita
Últimos Visitantes
352 visualizações
DIEGO J B PIRES's Achievements
-
Problema com a consulta CNPJ. Está dando erro no captcha.
-
Encontrei uma propriedade Layout e coloquei lPadraoEntrega Vllw
-
Boa tarde Estava usando a versão Fast Report para impressão dos boletos, mas tive que mudar pro Fortes Report que é gratuito, porém o boleto não a parte do canhoto (No fortes). Alguem que tenha inserido e possa me apoiar? Att
-
Erro ao imprimir boleto fastReport
DIEGO J B PIRES replied to DIEGO J B PIRES's tópico in ACBrBoleto
Deu certo meu caro. Vacilo aqui.Esqueci de atualizar o fr3. Como faço uma cópia pro meu diretório não tinha atualizado. -
Pessoal, Estou com erro ao imprimir boleto pelo fastReport após as ultimas atualizações; O erro é esse.. monitorei o projeto meu e não tive alterações nem encontrei esse memo93. Sabem dizer se o ACBR ta errado ou é alguma mudança que preciso fazer aqui?
-
Ler certificado digital salvo no banco de dados
um tópico no fórum postou DIEGO J B PIRES NFC-e - Nota Fiscal do Consumidor Eletrônica
Pessoal Se alguem puder me ajudar. Até procurei no forum e encontrei falando do meu problema, mas não consegui encaixar pra resolver o meu caso. Tenho salvo no banco de dados o arquivo do certificado. *.pfx. Atualmente faço o download numa pasta temporária e utilizo, mas queria ler o certificado direto do banco de dados sem ter baixá-lo... Utilizo o firebird. O campo no banco está como BLOB SUB_TYPE 0 SEGMENT SIZE 2048; function VerificarValidadeCertificado(caminho, senha : string) : TDate; var nfe : TACBrNFe; begin if (senha = '') or not(FileExists(caminho)) then begin Result := 0; Exit; end; try nfe := CriarACBrNFe; nfe.Configuracoes.Certificados.ArquivoPFX := caminho; nfe.Configuracoes.Certificados.Senha := senha; nfe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; nfe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; nfe.Configuracoes.Geral.SSLLib := libWinCrypt; nfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; Result := nfe.SSL.CertDataVenc; finally FreeAndNil(nfe); end; end; Criei essa função para pegar no banco de dados function Certificado : string; var cds : TBDClientDataSet; begin try cds := CriaCds; cds.Close; cds.SQL.Add('SELECT * FROM EMPRESA ' + ' WHERE EMPCOD = ' + IntToStr(GetSessao.Empresa.Codigo) ); cds.Open; Result := cds.FieldByName('EMPCERT').AsString; finally FreeAndNil(cds); end; end; Porém dá erro! Alguem que sofreu com isso, pode me ajudar? Eu salvo assim no BD procedure TfrmCadastroEmpresa.TelaParaCds; begin inherited; cdsCadastro.Editar; cdsCadastro.FieldByName('EMPCERTSENHA').AsString := Criptografar(txtSenhaCertificado.Value); if (arquivoSelecionado <> '') then TBlobField(cdsCadastro.FieldByName('EMPCERTARQ')).LoadFromFile(arquivoSelecionado); cdsCadastro.Post; end; -
Arquivo Fast Report/Forte Report
um tópico no fórum postou DIEGO J B PIRES Dúvidas não relacionadas ao ACBr
Boa noite pessoal, Vocês por acaso, tem algum arquivo fr3 (Fast Report) ou do Fortes Reports de ordem de serviço ou pedido que possam compartilhar? Ainda estou aprendendo a mexer com essa ferramenta de relatório. Desde já agradeço. -
Automatização de rotina
um tópico no fórum postou DIEGO J B PIRES NFC-e - Nota Fiscal do Consumidor Eletrônica
Pessoal, Gostaria de ajuda para quem puder.. Desenvolvi uma rotina que captura as alíquotas do Imposto Estimado (IBPT) para não ficar dependendo daqueles arquivos em excel. Porém gostaria de automatizar esse processo para executar em segundo plano por exemplo, como um segundo aplicativo, sem depender do principal. Alguem já fez algo parecido ? -
Obrigado por responder.. Estou tentando utilizar a opção de imprimir o danfe com a tarja de cancelada. Mesmo mudando a propriedade cancelada para true, percebi que muda apenas o label do protocolo. Andei pesquisando em posts sobre o assunto e lá comenta que tem q estar em ambiente produção e mesmo assim não funciona. procedure ImprimirDocNFe(xml : string; abrir, pdf : Boolean; diretorio : string; logoOficial : Boolean); var danfe : TACBrNFeDANFEFR; NomeArquivo : string; nfe : TACBrNFe; caminhoLogo : string; begin try nfe := CriarACBrNFe; danfe := TACBrNFeDANFEFR.Create(nfe); nfe.NotasFiscais.Clear; nfe.NotasFiscais.Add.LerXML(xml); danfe.FastFile := TPath.Combine(DirAcbrLayouts , ModeloDanfe); if not logoOficial then caminhoLogo := CaminhoLogoDocDefault(edfNFE) else caminhoLogo := CaminhoLogoEmpresa; danfe.Logo := caminhoLogo; nfe.DANFE := danfe; nfe.DANFE.Cancelada := True; nfe.DANFE.Usuario := GetSessao.UsuarioAtivo.Nome; nfe.DANFE.Sistema := NomeEmpresaDesenvolvedora; nfe.DANFE.PathPDF := diretorio; if pdf then begin nfe.NotasFiscais.ImprimirPDF; NomeArquivo := danfe.ArquivoPDF; end else nfe.NotasFiscais.Imprimir;
-
Dúvidas sobre função Imprimir Cancelamento.
um tópico no fórum postou DIEGO J B PIRES NFC-e - Nota Fiscal do Consumidor Eletrônica
Pessoal, Estou tentando usando função IMPRIMIRCANCELADO que tem no ACBR NFe, porém não sei se estou fazendo certo, mas não aconteceu nada diferente. Estava esperando por exemplo, algum indicador que aquela NF foi cancelada e tal. Sabem dizer a forma certa de usar e o que acontece ?