DIEGO J B PIRES

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

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?

Obrigado por responder. Esse vídeo aqui tinha visto mesmo, mas tentei aqui e não consegui adequar a forma que o cara fez com meu jeito aqui. Mesmo assim obrigado.

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;

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.

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 ?

Meu caro deu certo! Obrigado.

Oi Juliomar, Quando refiro a "cortado", são as palavras "Cte Cancelado". As margens influenciam nessa parte ?

Para o cte cancelado, o dacte esta saindo com o texto "cortado". Alguem sabe como resolver ? Imagem de como está saindo. Já quando uso fr3 em formato paisagem não imprime...

Deu certo. Mudei o arquivo do danfe para paisagem e funcionou. Tava usando um retrato. Obrigado!

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;

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 ?

Obrigado por responder. No componente de NFe, encontrei a opção ExibirErroSchema. Seria esse né ?

Pessoal, To desenvolvendo o manifesto do destinatário. Percebi que a mensagem de erro de validade do certificado por exemplo, não aparecem para o usuário apenas no modo debug. Porém o mesmo não ocorre com a parte de geração de boletos. Como faço pra que as mensagens de erro do manifesto apareçam pros usuários. Refiro as mensagens já tratadas pelo componente do acbr.

Dei uma pesquisa sobre class Helper.. até entendi a aplicabilidade, mas não consegui encaixar com as procedures do ACBR Boleto Alguem pode me ajudar ? Obrigado.

Oi meus caros, Gostaria de saber se tem jeito de sobrescrever o nome do boleto gerado em pdf do FastReport. Unit: ACBRBOLETOFCFR na seguinte linha: frxPDFExport.Title := 'Boleto'; Eu poderia mudar nesse trecho, mas acontece que toda vez que tiver atualização nesse arquivo, precisaria ficar dando manutenção. Alguma ideia?

vc é o cara. deu certo! vlw

Segue o xml NFSe_202000000000003.xml

Ainda não deu certo... Mesmo eu utilizando a função antes de salvar no banco pra evitar algum problema, não deu certo tb.

Oi Italo, mesmo usando a função pra remover a acentuação não deu certo. Usei a função antes de carregar na função do acbr e mesmo assim deu ruim; Alguma outra sugestão ? Fiz assim xml := AnsiToAscii(cdsImp.FieldByName('IMPXMLXML').AsString); nfs.NotasFiscais.LoadFromString(xml);

Obrigado meu caro.

Sim, estou usando o ACBRNFSe