Inserir Campo Na Impressão Danfe Fastreports

[Desenv. AT Info Sistemas]

Bom dia, tive que colocar na impressão da DANFE do FastReports o campo complemento do remetente (cdsEmitente.FieldByName('XCpl')) que estava faltando. Acredito que este campo seja essencial para os dados do remetente, então enviei em anexo o fonte alterado para os senhores efetuarem um merge. Qualque dúvida estou a disposição.

 

Att Matthias Bebber Breda

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

Bom dia!

tem certeza que funcionou?

não faltou quem sabe um else ali?

[Desenv. AT Info Sistemas]

Bom dia!

tem certeza que funcionou?

não faltou quem sabe um else ali?

 

Funcionou, na verdade esse IF é só pra concatenar o complemento quando existe, senão tem complemente continua como era antes.

[Juliomar Marchetti]

Mas pelo que entendi ele até concatena mas depois ele substitui pelo mesmo texto anterior sem a concatenação!

certo?

[Desenv. AT Info Sistemas]

Mas pelo que entendi ele até concatena mas depois ele substitui pelo mesmo texto anterior sem a concatenação!

certo?

Não, ele não substitui pelo texto anterior sem concatenação, de uma olhada abaixo.

      cdsEmitenteDADOS_ENDERECO.AsString := Trim(FieldByName('XLgr').AsString) + ', ' + trim(FieldByName('Nro').AsString);
	   if (trim(FieldByName('XCpl').AsString) <> '') then
          cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ', ' + Trim(FieldByName('XCpl').AsString);
       cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ' - ' +
											 Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + #13 +
											'Fone: ' + Trim(FieldByName('Fone').AsString) +

[Juliomar Marchetti]

Obrigado pela colaboração 

já está no svn