Erro DACTE mostrar NF-e fortes Report

[Diego Limeira da Silva]

bom dia, apos uma atualização do repositorio..  esta mostrando a chave da nfe cortada.... em anexo como esta.. gerado com fortes Report

[Leandro Vignoto]

Nos meus testes também ocorreu isso.

 

Att.

 

Leandro

[Juliomar Marchetti]

Sim está e já foi notado a um tempo por um dos colegas e já está sendo vista para entender o que houve. e corrigir.

[Diego Limeira da Silva]

vo ver se consigo descobrir em que momento isso acontece.. No Aguardo

[Diego Limeira da Silva]

descobri.. função  ali deve ser 44 estava 26

procedure TfrmDACTeRLRetrato.rlb_07_HeaderItensBeforePrint(Sender: TObject; var PrintIt: Boolean);


    if cdsDocumentos.FieldByName('TIPO_1').AsString <> '' then
    begin
      rlDocOrig_tpDoc1.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_1').AsString, 33, ' ')+
      PadRight(cdsDocumentos.FieldByName('CNPJCPF_1').AsString, 44, ' ')+
      cdsDocumentos.FieldByName('DOCUMENTO_1').AsString);
    end;

 consegue validar e disponibilizar?

[gguimp]

A correção sugerida pelo Diego Limeira da Silva deu certo aqui.

Lembrar de corrigir também a condição para 'TIPO_2'.

    if cdsDocumentos.FieldByName('TIPO_1').AsString <> '' then
    begin
      rlDocOrig_tpDoc1.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_1').AsString, 33, ' ')+
      PadRight(cdsDocumentos.FieldByName('CNPJCPF_1').AsString, 44, ' ')+
      cdsDocumentos.FieldByName('DOCUMENTO_1').AsString);
    end;
    if cdsDocumentos.FieldByName('TIPO_2').AsString <> '' then
    begin
      rlDocOrig_tpDoc2.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_2').AsString, 33, ' ')+
      PadRight(cdsDocumentos.FieldByName('CNPJCPF_2').AsString, 44, ' ')+
      cdsDocumentos.FieldByName('DOCUMENTO_2').AsString);
    end;

 

ACBrCTeDACTeRLRetrato.pas

ACBrCTeDACTeRLRetrato.diff

O CPF do motorista também está sendo impresso fora do lugar.

[gguimp]

Correção para CPF do motorista.

ACBrCTeDACTeRLRetrato.dfm

ACBrCTeDACTeRLRetrato.dfm.diff

[Diego Limeira da Silva]

Moderador por favor verifique .. e atualize se estivermos ok.

[gguimp]

Continuei fazendo alguns testes aqui e a impressão não está correta ainda.

[Diego Limeira da Silva]

pra mim resolveu

 

[Adailson Rocha]

A correção sugerida pelo colega gguimp não funcionou, continua cortando a chave de acesso.

[Diego Limeira da Silva]

a alteração que fiz referente de 26 para 44 deu certo.. olha ai

eu alterei somente de um lado.. 

[Juliomar Marchetti]

Sim está correto logo vou subir a mudança 

pois é necessário isso e mais alugma coisa do cpf tanto no delphi quanto no lazarus.

[Adailson Rocha]

Acho que esta faltando o restante da chave de acesso esta saindo apenas 36 posições.

[Diego Limeira da Silva]

  Em 07/02/2017 at 13:18, Juliomar Marchetti disse:

Sim está correto logo vou subir a mudança 

pois é necessário isso e mais alugma coisa do cpf tanto no delphi quanto no lazarus.

Expandir  

cpf somente saiu fora do lugar

[gguimp]

  Em 07/02/2017 at 11:15, Diego Limeira da Silva disse:

a alteração que fiz referente de 26 para 44 deu certo.. olha ai

eu alterei somente de um lado.. 

Expandir  

A chave de acesso possui 44 posições e não 36 como está na imagem.

Editado 8 Fevereiro, 2017 por gguimp
valoalor incorreto.

[Diego Limeira da Silva]

  Em 08/02/2017 at 11:06, gguimp disse:

A chave de acesso possui 44 posições e não 36 como está na imagem.

Expandir  

pior. agora que vc falo .. vo alterar código.. em vez de 44

pegar 54 contando com os espaços

 

 

  Em 08/02/2017 at 12:45, Diego Limeira da Silva disse:

pior. agora que vc falo .. vo alterar código.. em vez de 44

pegar 54 contando com os espaços

 

 

Expandir  

NF-E 000133903 4117 0202 0253 3400 0579 5500 2000 1339 0318 0095 9252 pegando 54 agora sim deu?

[Juliomar Marchetti]

Subi mudanças no svn para do ACBrCTeDACTeRL

favor testarem.