Campo cprod cortando no ACBRNFeDANFERL(Fortes Report)

[Wilsonn]

olá boa tarde a todos, tentei abrir a unit ACBrNFeDANFeRLRetrato para tentar resolver a questão da quebra de linha do campo cprod no danfe, mas dá a seguinte mensagem:

Error creating form:Ancestor for 'TfrlDANFeRL' not found. alguém sabe o porquê desta mensagem? estou usando fortes report-ce-master com XE2.

bom a mensagem é clara que não encontrou o form pai (TfrlDANFeRL), mas como isso pode ser revolvido?

Editado 15 Abril, 2016 por Programador

[hleorj]

Não ficaria mas fácil, alterar a propriedade LarguraCodProd para : 100 ?

E fazer um teste e verificar se atende a sua necessidade. @Programador.

Mas , caso contrario  : 

   1- Abra a Unit ACBrNFeDANFeRL.pas

  2 - Abra unit ACBrNFeDANFeRLRetrato, faça os seus ajustes.

 

[Wilsonn]

Olá Hleorj boa tarde.

é verdade mais fácil ajustar a propriedade larguraCodProd, não tinha observado esta propriedade, já ajustei e resolveu, muito obrigado por responder.

[FLEXNET]

Em 11/04/2016 at 17:14, Juliomar Marchetti disse:

Vamos lá use a força! os fontes são abertos e o gerador de relatório também, abra os fontes e tente resolver! depois é só deixar aqui a contribuição!

 

Será que alguém conseguiu resolver esse caso... eu não consegui. O Código ainda sai em branco com FortesRport

Editado 30 Junho, 2016 por FLEXNET
faltou a imagem

[hleorj]

46 minutos atrás, FLEXNET disse:

Será que alguém conseguiu resolver esse caso... eu não consegui. O Código ainda sai em branco com FortesRport

1- Faça alguns testes com o demo

2- Verifique a propriedade LarguraProd

3- Verifique se está marcado ExibirEan

4- Atualize os seus códigos

5- Se fez a 4 ,, volte ao item 1 

6- Se o código do produto estive com 60 caracteres, não existe solução no ACbr.

7- Post o seu arquivo xml para analise.

Obrigado, pelos seu cometários pois são de grande ajuda.

 

[FLEXNET]

Vamos lá Henrique, respondendo:

1- Faça alguns testes com o demo

  Mesmo Problema

2- Verifique a propriedade LarguraProd

esta 54, mas ja tentei com 10, 20, 30 e 60 sem efeito

3- Verifique se está marcado ExibirEan

True ou False não muda nada

4- Atualize os seus códigos

Atualizado, deu na mesma.

5- Se fez a 4 ,, volte ao item 1 

Feito...  mesma coisa.

6- Se o código do produto estive com 60 caracteres, não existe solução no ACbr.

tem 6 dígitos

7- Post o seu arquivo xml para analise.

Anexado

Obrigado.

51160300169060000132550010000001251000001258-nfe.xml

Editado 1 Julho, 2016 por FLEXNET
Anexo

[hleorj]

@FLEXNET, não encontrei problemas na utilização.

Verifique a instalação do ACbr. 

[FLEXNET]

 

Em 01/07/2016 at 15:05, hleorj disse:

@FLEXNET, não encontrei problemas na utilização.

Verifique a instalação do ACbr. 

 

@hleorj. Uma dúvida, preciso reinstalar todos pacotes ACBR ? ou somente o pacote referente ao Acbr_DanfeRL.dpk ?

 

Muito agradecido pela atenção.

[hleorj]

3 horas atrás, FLEXNET disse:

 

 

@hleorj. Uma dúvida, preciso reinstalar todos pacotes ACBR ? ou somente o pacote referente ao Acbr_DanfeRL.dpk ?

 

Muito agradecido pela atenção.

Reinstalar tudo

[Juliomar Marchetti]

pode ser mas se tu usar o acbrinstall basta next next install

[FLEXNET]

@Juliomar Marchetti 

@hleorj

Obrigado pelas dicas... reenistalei tudo novamente pelo acbrinstall, e passou a funcionar perfeitamente.

 

valew!!

 

[alexpseletr]

meu problema é que esta cortando a parte debaixo da decrição e titulo

Tem algum jeito de deixar 1mm a mais para baixo ? parece que a fonte esta meio grande ...

Uso lazarus com linux

na descrição do produto (titulo) ficou cortando , o codigo tem de ser grande assim mesmo devido a alguns produtos ter codigo maior

[Juliomar Marchetti]

Isso ocorre só no pdf ou no na visualização também?

[alexpseletr]

uso o ACBrNFe1.NotasFiscais.ImprimirPDF; 

dai sai direto o pdf o visualizar eu nao consegui localizar .

[Juliomar Marchetti]

Acho que o problema está na fonte usada, ele foi feito baseado nas do windows.

tente achar uma e instale no linux para resolver

[alexpseletr]

Spoiler

 

Estranho , ja ta instalado , usava no sistema antigo do governo ele exigia fontes windows .

Cheguei a iniciar um danfe proprio usando um fork do fpdf mas esta na metade ainda do desenvolvimento , se quiserem posso enviar os fontes dai podem juntar ao projeto (a vantagem é que gera pdf usando apenas 1 unit)

[alexpseletr]

Segue em anexo o exemplo do danfe com os fontes , caso deseje integrar ao acbr acredito que seria valido pois tambem roda no delphi

exemplo_pdf.zip

a funçao linha acabou ficando de fora

procedure TNFE_frm.linha(altura, largura, esquerda, superior: double;
  sbordas, vlabel, texto: string; tfonte: TPDFFontFamily; fStilo: TPDFFontStyle;
  Sfonte: double; vAlinhamento: string);
begin

  if Pos('N', sbordas) > 0 then
    pdf.SetLineWidth(0.25)
  else
    pdf.SetLineWidth(0.05);
  if Pos('T', sbordas) > 0 then
    pdf.line(esquerda, superior, (esquerda + largura), superior);
  if (Pos('B', sbordas) > 0) then
    pdf.line(esquerda, (superior + altura), (esquerda + largura), (superior + altura));
  if (Pos('L', sbordas) > 0) then
    pdf.line(esquerda, superior, esquerda, (superior + altura));
  if (Pos('R', sbordas) > 0) then
    pdf.line((esquerda + largura), superior, (esquerda + largura), (superior + altura));


  //superior-= 21;
  // impressao das labels
  if (vlabel <> '') then
  begin
    // if (fonte='')then
    // fonte := 'ffCourier,fsBold,5';

    // f = split(",",fonte);
    // pdf.SetFont(f[0], f[1], f[2]);
    pdf.SetFont(tfonte, fsNormal, 5);
    pdf.setXY(esquerda - (Sfonte / 10), superior + (Sfonte / 4));
    pdf.Cell(largura, 0, vlabel, '',  vAlinhamento);
  end;
  // impressao do texto
  if (texto <> '') then
  begin
    //if (tfonte='')then
    // tfonte := 'Courier,7,L';

    //  f = split(",",tfonte);
    // pdf.SetFont(f[0], f[1], f[2]);
    pdf.SetFont(tfonte, fStilo, Sfonte);
    pdf.setXY(esquerda, superior + 5);
    pdf.Cell(largura, 0, texto, '', vAlinhamento);
  end;

end; 

 

[Juliomar Marchetti]

Desculpe mas fiquei sem entender!

abri os fontes e não notei nada com o ACBr

 

[RicardoVoigt]

Bom dia,

@alexpseletr acho que vc devia abrir um novo tópico descrevendo melhor o que vc quer compartilhar...

Seria interessante vc descrever em qual IDE (Lazarus ou qual versão do Delphi) vc usa? Qual a origem do fonte? Se este Danfe está de acordo com o modelo do Manual de Orientação...

Eu baixei aqui seu arquivo, mas não testei ainda no Lazarus...vi que vc usou uma biblioteca (digamos assim) geradora de PDF em pascal (libjpfpdf.pas), e junto tem uma rotina que gera o Danfe usando esta biblioteca (gerapdf_botao.pas) pegando os dados da NF-e diretamente do componente ACBrNFe.

Na melhor das hipóteses, (se aceitarem) essa sugestão poderia virar mais um componente no ACBr pra gerar o Danfe diretamente em PDF... ?

Att

Ricardo

[Reverson]

Boa tarde pessoal! Notei que este topico ficou parado e agora tive o mesmo problema. Atualizei novamente os fontes mas o campo codigo do produto continua avançando dentro do campo do nome.

A solução foi implementada? existe algum parametro adicional a ser preenchido?

 

 

Grato!

[Reverson]

Bom dia pessoal!

Sei que o tópico esta meio parado e dada as informações contidas aqui no tópico solucionei o problema utilizando os seguintes valores para o tamanho do campo cprod: 55

Para complementar escrevi uma função para tratar da quebra das linhas automaticamente evitando que o usuário tenha que fazer as quebras manuais.

No também parametrizei para que fosse ajustado o tamanho do campo cprod e o comprimento de corte. Sendo assim deixo o codigo como contribuição para quem passar pelo mesmo problema.

Segue o código:

  function QuebraString(texto : string; comprimento: Integer; Caracquebra : string) : string;
  var
  LarguraTexto, cortes,i,ponteiro : integer ;
  Resto,Resultado : string;
  begin
    Resultado := '';
    LarguraTexto:= Length(texto);
    Cortes:= Round(LarguraTexto/ comprimento);
    ponteiro:=1;

         for i:= 1 to Cortes do
              begin
              Resultado:= resultado + copy(texto,ponteiro,comprimento)+' ';
              Ponteiro:= ponteiro+comprimento;
        end;
     

      if (Resultado='') then  Result:= texto else
                              Result:= Resultado;
  end;

 

 

No preenchimento do campo cprod, no lasso dos itens da nfe usei da seguinte forma:

        if (emissorQuebraCProd.AsInteger >0) then
             Prod.cProd := QuebraString(ItensCod_referencial.AsString,emissorQuebraCProd.AsInteger,' ') else
              Prod.cProd := ItensCod_Referencial.AsString;

 

 

Grato mais uma vez!

 

 

[Juliana Tamizou]

Boa tarde @edulamy

Sua postagem foi movida para um noco tópico para que fique separada da situação relatada aqui.

Att.

[xim.logan]

Em 30/06/2016 at 20:02, FLEXNET disse:

Será que alguém conseguiu resolver esse caso... eu não consegui. O Código ainda sai em branco com FortesRport

Amigo, como conseguiu colocar o codigo para sair em branco? estou tentando colocando " " mas ta dando erro, gostaria que nao saisse nada.

Em 30/06/2016 at 20:02, FLEXNET disse:

Será que alguém conseguiu resolver esse caso... eu não consegui. O Código ainda sai em branco com FortesRport

Amigo, como conseguiu colocar o codigo para sair em branco? estou tentando colocando " " mas ta dando erro, gostaria que nao saisse nada.