Fortes Report x Cte (trunk2)

[msiscampos]

Boa Tarde, 

 

A impressão dos documentos originários em ACBrCTe (trunk2) em Fortes

a chave da Nfe por exemplo  não esta sendo verticalmente.

tipo: 

NF-E000419999 3514 0446 7322
                           1000 0999 5500
                           1000 4199 9910
                            0563 5145

 

 

[Juliana Tamizou]

Boa noite.

Você está tendo problemas com a impressão da NFe, seria isso mesmo? 

Por favor anexe uma imagem para ficar mais claro.

Att.

[msiscampos]

Bom dia Juliana

O Problema é na Impressão do Cte

nos Campos Documentos Originarios

 

[msiscampos]

Eu Abri o tópico e coloquei  não esta imprimindo

Verticalmente, na verdade, não esta Imprimindo

na horizontal. conforme a imagem.

[Daniel Simoes]

Não sou conhecedor do CTe, mas estou disposto a ajudar...

Porem confesso que não compreendi qual o problema que você esta querendo relatar...

Como está imprimindo ? (use o Paint e circule o erro)

Como deveria imprimir ??

[msiscampos]

O mesmo Cte impresso em quick report

alinhamento dos documentos

[Daniel Simoes]

Poderia ser mais específico ?

Por favor me explique como se eu tivesse 5 anos... use o Paint e circule o que você vê de errado...

[msiscampos]

Veja bem,  os circundados é o mesmo cte impresso pelo fortes

que deveriam ser igual ao retangulo impresso no Quick

 

[msiscampos]

Daniel, eu acho que descobri o que ta acontecendo

No Formulário  frmDACTeRLRetrato 
tem um memo  rlDocOrig_cpf1  dos documentos originários 

È assim, quando os documentos são de papel é usado 
o campo cdsdocumentos.CNPJCPF_1 para colocar o CNPJ do responsavel
   

//Varrendo NF comum
  for I := 0 to (FCTe.infCTeNorm.infDoc.infNF.Count - 1) do
  begin
    with FCTe.infCTeNorm.infDoc.InfNF.Items do
    begin
      if (Item mod 2) = 0 then
      begin
        cdsDocumentos.Append;

        cdsDocumentos.FieldByname('TIPO_1').AsString := 'NF';
        cdsDocumentos.FieldByname('CNPJCPF_1').AsString := FormatarCNPJouCPF(FCTe.Rem.CNPJCPF);
        cdsDocumentos.FieldByname('DOCUMENTO_1').AsString := serie + '-' + nDoc;
      end
      else
      begin
        cdsDocumentos.FieldByname('TIPO_2').AsString := 'NF';
        cdsDocumentos.FieldByname('CNPJCPF_2').AsString := FormatarCNPJouCPF(FCTe.Rem.CNPJCPF);
        cdsDocumentos.FieldByname('DOCUMENTO_2').AsString := serie + '-' + nDoc;

        cdsDocumentos.Post;
      end;
      inc(Item);
    end;
  end;

Quando o documento é Eletronico ele usa esse mesmo campo
    para colocar a chave do documento eletronico. só que 
    na hora de gerar o relatorio não cabe no espaço rlDocOrig_cpf1
    a chave formatada.

for I := 0 to (FCTe.infCTeNorm.infDoc.InfNFE.Count - 1) do
  begin
    with FCTe.infCTeNorm.infDoc.InfNFE.Items do
    begin
      if (Item mod 2) = 0 then
      begin
        cdsDocumentos.Append;
        cdsDocumentos.FieldByname('TIPO_1').AsString := 'NF-E ' + copy(chave, 26, 9);
        cdsDocumentos.FieldByname('CNPJCPF_1').AsString := FormatarChaveAcesso(chave);
      end
      else
      begin
        cdsDocumentos.FieldByname('TIPO_2').AsString := 'NF-E ' + copy(chave, 26, 9);
        cdsDocumentos.FieldByname('CNPJCPF_2').AsString := FormatarChaveAcesso(chave);
        cdsDocumentos.Post;
      end;
      inc(Item);
    end;

Dessa forma quando for documento eletronico o  rlDocOrig_cpf1.width (largura)
devera ser alterado em tempo de execução. só que eu não sei exatamente 
onde se coloca essa alteração.

[Juliomar Marchetti]

Boa tarde!

Vou verificar isso a noite e se possível subir a alteração no SVN!

[Daniel Simoes]

@msiscampos,

Desculpe-me pela demora na resposta... (dia corrido)

@Juliomar,

Agradeço a ajuda... acho que você tem mais aptidão do que eu para analisar esse caso...

[msiscampos]

Bom dia, a todos

gostaria de saber se houve alguma novidade sobre as alterações

[Juliomar Marchetti]

Bom dia

só para constar estou tratando para que o mesmo identifique e aumente o tamanho do campo em tempo de execução!

eliminando o problema e formatando o campo

[Daniel Simoes]

Juliomar,

Não é só deixar os Labels como "AutoSize" ?

Acho que o mais correto, seria deixar o campo com o espaço necessário para ele... (sem precisar de ajustes em run-time)... se necessário, diminua a fonte...

[Juliomar Marchetti]

Juliomar,

Não é só deixar os Labels como "AutoSize" ?

Acho que o mais correto, seria deixar o campo com o espaço necessário para ele... (sem precisar de ajustes em run-time)... se necessário, diminua a fonte...

Em principio não Daniel!

pois é um único label onde agrega diversos! ou melhor deixa eu pensar em uma situação e testar

[Juliomar Marchetti]

Boa tarde

começamos pela sugestão do Daniel!

por favor queira atualizar o svn e testar ! Obrigado

[msiscampos]

Boa Tarde Juliomar ,

Infelizmente, não funcionou, eu  até ja tinha testado habilitando o

auto size, só funciona se aumentar o tamanho doTRLMemo,

só que aí sobrepõe o outro 

 

[Juliomar Marchetti]

Sim bem como previ!

agora vou fazer via código e conferir o tamanho do mesmo!

se for possível anexar aqui um xml com os dados eu consigo já testar!

[msiscampos]

Bom dia juliomar, talvez seria até mais facil trabalhar somente

com um TRLMemo, pq quando não for documento eletronico

colocaria no mesmo o cnpj, serie , numero, etc e quando for 

eletronico a chave formatada

35140501445613000103570010000035871000035878-cte.xml

[Juliomar Marchetti]

Boa noite!

conforme sugestão removi os outros dois TRLMemo e deixei somente o primeiro nos dois lados!

assim se ele preencher ou não somente vai add na linha!

favor atualizar, recompilar e testar

[msiscampos]

Bom dia, Juliomar

Dessa forma funcionou funcionou Perfeitamente, 

obrigado mais uma vez