[Problemas com a consulta CNPJ]

Problema com a consulta CNPJ. Está dando erro no captcha.

 

[Boleto Fortes Report sem canhoto]

Encontrei uma propriedade Layout e coloquei lPadraoEntrega

 

Vllw

[Boleto Fortes Report sem canhoto]

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]

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.

 

[Erro ao imprimir boleto fastReport]

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]

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.

[Ler certificado digital salvo no banco de dados]

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]

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]

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 ?

[Dúvidas sobre função Imprimir Cancelamento.]

Meu caro deu certo!

Obrigado.

[Dúvidas sobre função Imprimir Cancelamento.]

Oi Juliomar,

Quando refiro a "cortado", são as palavras "Cte Cancelado".

As margens influenciam nessa parte ?

 

[Dúvidas sobre função Imprimir Cancelamento.]

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...

[Dúvidas sobre função Imprimir Cancelamento.]

Deu certo.

Mudei o arquivo do danfe para paisagem e funcionou. Tava usando um retrato.

 

Obrigado!

[Dúvidas sobre função Imprimir Cancelamento.]

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.]

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 ?

[Problema com mensagem de erro]

Obrigado por responder.

No componente de NFe, encontrei a opção ExibirErroSchema.

Seria esse né ?

[Problema com mensagem de erro]

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.

[Apoio com nome do arquivo pdf do boleto pelo fastReport]

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.

[Apoio com nome do arquivo pdf do boleto pelo fastReport]

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?

 

 

 

[Problema com acentuação.]

vc é o cara. deu certo!

 

vlw

[Problema com acentuação.]

Segue o xml

NFSe_202000000000003.xml

[Problema com acentuação.]

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.

 

[Problema com acentuação.]

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);
 

 

 

 

 

[Problema com acentuação.]

Obrigado meu caro.

[Problema com acentuação.]

Sim, estou usando o ACBRNFSe