DANFe da NFC-e está saindo com o valor total dos itens cortado

[Augusto Knirsch]

Boa Tarde, 

Gostaria de pedir ajuda aos amigos do ACBr, quando vou imprimir um DANFe de uma NFC-e utilizando o Fortes, o valor total dos itens da linha está saindo sem as casas decimais, ou seja, está cortando um pedacinho.

Anexei uma imagem com algumas tentativas de configuração, a que chegou mais perto foi a seguinte:

Result := TACBrNFe.Create(nil);
 //........
TACBrNFeDANFCEClass(Result.DANFE).ImprimeQRCodeLateral := True;
TACBrNFeDANFCEClass(Result.DANFE).ImprimeLogoLateral   := True;
TACBrNFeDANFCEClass(Result.DANFE).LarguraBobina := 275;
Result.DANFE.ImprimeEmUmaLinha                         := True;
Result.DANFE.MargemEsquerda := 2;
Result.DANFE.MargemDireita  := 2;

Se eu alterar a propriedade ImprimeEmUmaLinha para false, funciona perfeitamente, ma eu gostaria que funcionasse imprimindo somente em uma linha... Alguém já passou por esse problema?

[Daniel Simoes]

Como fica se definir:

Result.DANFE.ImprimeEmUmaLinha := False;

[Augusto Knirsch]

Boa Tarde @Daniel Simoes,

Se alterar para:

Result.DANFE.ImprimeEmUmaLinha := False;

Fica conforme imagem em anexo, corta 4 caracteres, mas na descrição quando a mesma for longa.

[Agnaldo Prates]

6 horas atrás, Augusto Knirsch disse:

Boa Tarde @Daniel Simoes,

Se alterar para:

Result.DANFE.ImprimeEmUmaLinha := False;

Fica conforme imagem em anexo, corta 4 caracteres, mas na descrição quando a mesma for longa.

Está informando qual valor na margem esquerda?

[Augusto Knirsch]

Bom Dia @Agnaldo Prates,

Testei com várias combinações de valores, o melhor resultado foi:

Result.DANFE.MargemEsquerda := 2;
Result.DANFE.MargemDireita  := 2;

 

[Agnaldo Prates]

24 minutos atrás, Augusto Knirsch disse:

Bom Dia @Agnaldo Prates,

Testei com várias combinações de valores, o melhor resultado foi:

Result.DANFE.MargemEsquerda := 2;
Result.DANFE.MargemDireita  := 2;

 

Bom dia Augusto.

Cara na minha rotina eu faço assim, porém uso o Fast Report, veja o resultado na imagem anexa.

        case NFE.Configuracoes.Geral.ModeloDF  of
        moNFe :
        begin
            NFE.DANFE.MargemInferior:=0.3;
            NFE.DANFE.MargemSuperior:=0.3;
            NFE.DANFE.MargemEsquerda:=0.5;
            NFE.DANFE.MargemDireita :=0.5;
            NFE.DANFE.MostraPreview := True;
            NFE.DANFE.TipoDANFE              := tiRetrato;
            DANFE_FR.FastFile                := DM.NFE_DANFE+'DANFeRetratoNovo.fr3';
            DANFE_FR.FastFileEvento          := DM.NFE_DANFE+'EVENTOS.fr3';
            DANFE_FR.FastFileInutilizacao    := DM.NFE_DANFE+'inutilizacao.fr3';
            NFE.DANFE.ImprimeTotalLiquido    := True;
        end;
        moNFce :
        begin
            NFE.DANFE.MargemInferior:=0.1;
            NFE.DANFE.MargemSuperior:=0.1;
            NFE.DANFE.MargemEsquerda:=0.1;
            NFE.DANFE.MargemDireita :=0.1;
            NFE.DANFE.MostraPreview := True;
            NFE.DANFE.TipoDANFE              := tiNFCe;
            NFE.DANFE.ImprimeTotalLiquido    := True;
            DANFE_FR.FastFile                := DM.NFE_DANFE+'DANFeNFCe.fr3';
        End;

 

[Augusto Knirsch]

@Agnaldo Prates Obrigado pela resposta,

Infelizmente sem sucesso, testei com os valores utilizados por você. Se eu usar a propriedade 

Result.DANFE.ImprimeEmUmaLinha := False;

A impressão fica boa, o valor não é cortado, a descrição quando muito longa até corta, mas a impressão como um todo fica boa, o problema é que eu gostaria de utilizar a propriedade

Result.DANFE.ImprimeEmUmaLinha := True;

Pois economiza papel e acho que fica um layout mais agradável visualmente.

[Augusto Knirsch]

Bom Dia @Daniel Simoes,

Gostaria de enviar uma alteração que fiz para analise e possível inclusão ao SVN, segue imagens e arquivo alterado.

ACBrDANFCeFortesFr.pas

[Daniel Simoes]

Muito bacana... esse é o poder do OpenSource...

Estou terminando algumas coisas aqui.. e já analiso...

[EMBarbosa]

55 minutos atrás, Augusto Knirsch disse:

Bom Dia @Daniel Simoes,

Gostaria de enviar uma alteração que fiz para analise e possível inclusão ao SVN, segue imagens e arquivo alterado.

ACBrDANFCeFortesFr.pas

Enviei a sua sugestão ao SVN na revisão 16081.

Queira por favor testar e reportar qualquer problema.

[Augusto Knirsch]

Fiz vários testes após atualizar os fontes com a ultima versão do SVN, funciona perfeitamente!

Obrigado a todos que responderam!

[brajan]

Estou com um problema que os descontos não estao mais aparecendo, antes ele somava os descontos e saia um totalizados agora so aparece o desconto se eu der no item o taotal não esta aparecendo.

[Augusto Knirsch]

32 minutos atrás, brajan disse:

Estou com um problema que os descontos não estao mais aparecendo, antes ele somava os descontos e saia um totalizados agora so aparece o desconto se eu der no item o taotal não esta aparecendo.

Boa Tarde @brajan, 

Acredito que seja outro tópico... Mas verifica se a propriedade

TACBrNFeDANFCEClass(Result.DANFE).ImprimeDescAcrescItem := True;

está marcada como True.

[Juliana Tamizou]

Boa tarde @brajan.

Conforme citado pelo @Augusto Knirsch seu relato é outro tópico, caso ainda precise de ajuda, por favor crie um novo para seu problema.

Att.