DANFSe - Fortes - Imprimir itens em "Courier" sem remover espaços duplos

[Edson.pol]

Bom dia.

DANFSe - Fortes Report.

Um cliente precisa que a discriminação dos serviços saia com a fonte "Courier New", para que o serviço e valor individual fique alinhado, em colunas.

Tipo:

DISCRIMINAÇÃO             QTD PREÇO UNITÁRIO  PREÇO TOTAL
TROCA DE ÓLEO............   1         100,00       100,00
ALINHAMENTO DE PNEUS.....   4          20,00        80,00

Mas os espaços duplos estão sendo trocados por espaços simples, fica assim:

DISCRIMINAÇÃO QTD PREÇO UNITÁRIO PREÇO TOTAL
TROCA DE ÓLEO............ 1 100,00 100,00
ALINHAMENTO DE PNEUS..... 4 20,00 80,00

Não estou encontrando o "culpado"... Alguém já precisou fazer a impressão desta forma ?

 

[]´s

Edson.

[Edson.pol]

Questão do espaçamento resolvida.

No meu caso, na unit do provedor CONAM (pnfsNFSeW_CONAM.pas)  

function TNFSeW_CONAM.GerarXml: Boolean;
var
  Gerar: Boolean;
begin
  Gerador.Opcoes.RetirarEspacos := False;
  Gerador.Opcoes.DecimalChar := ',';
  Gerador.ArquivoFormatoXML := '';
 

Desta forma o XML é gerado com os espaços duplos e a impressão sai da forma "correta".

O problema é que alterei a fonte para "Courier New"  na unit ACBrNFSeDANFSeRLClass, e toda vez que houver uma atualização, vou ter que refazer.

procedure TACBrNFSeDANFSeRL.ImprimirDANFSe(NFSe: TNFSe = nil);
var
  i: integer;
  frlDANFSeRLRetrato: TfrlDANFSeRLRetrato;
begin
  frlDANFSeRLRetrato := TfrlDANFSeRLRetrato.Create(Self);
  try
    frlDANFSeRLRetrato.rlmDescricao.Font:='Courier New';
    frlDANFSeRLRetrato.rllCodVerificacao.Font.Size:=9;
    frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.Geral.ConfigGeral.QuebradeLinha);

Uma sugestão seria criar mais uma propriedade no arquivo INI para "RemoverEspacos", outra para Fonte...

e vai chegar um dia que o INI vai ter tantos parâmetros que...

[]´s

Edson

[FLEXNET]

Em 02/03/2016 at 19:21, Edson.pol disse:

Questão do espaçamento resolvida.

No meu caso, na unit do provedor CONAM (pnfsNFSeW_CONAM.pas)  

function TNFSeW_CONAM.GerarXml: Boolean;
var
  Gerar: Boolean;
begin
  Gerador.Opcoes.RetirarEspacos := False;
  Gerador.Opcoes.DecimalChar := ',';
  Gerador.ArquivoFormatoXML := '';
 

Desta forma o XML é gerado com os espaços duplos e a impressão sai da forma "correta".

O problema é que alterei a fonte para "Courier New"  na unit ACBrNFSeDANFSeRLClass, e toda vez que houver uma atualização, vou ter que refazer.

procedure TACBrNFSeDANFSeRL.ImprimirDANFSe(NFSe: TNFSe = nil);
var
  i: integer;
  frlDANFSeRLRetrato: TfrlDANFSeRLRetrato;
begin
  frlDANFSeRLRetrato := TfrlDANFSeRLRetrato.Create(Self);
  try
    frlDANFSeRLRetrato.rlmDescricao.Font:='Courier New';
    frlDANFSeRLRetrato.rllCodVerificacao.Font.Size:=9;
    frlDANFSeRLRetrato.QuebradeLinha(TACBrNFSe(ACBrNFSe).Configuracoes.Geral.ConfigGeral.QuebradeLinha);

Uma sugestão seria criar mais uma propriedade no arquivo INI para "RemoverEspacos", outra para Fonte...

e vai chegar um dia que o INI vai ter tantos parâmetros que...

[]´s

Edson

 Estou com mesmo problema provedor Betha. Sabe dizer qual a Unit que eu configuro isso no provedor Betha ?

Obrigado.

[Juliomar Marchetti]

2 horas atrás, FLEXNET disse:

 Estou com mesmo problema provedor Betha. Sabe dizer qual a Unit que eu configuro isso no provedor Betha ?

Obrigado.

Veja seu problema é em Fast REport e não em Fortes conforme está o link! assim vai acabar confundindo quem vier pesquisar!

[FLEXNET]

11 minutos atrás, Juliomar Marchetti disse:

Veja seu problema é em Fast REport e não em Fortes conforme está o link! assim vai acabar confundindo quem vier pesquisar!

Blz. Juliomar, criei outro tópico.