Complemento Do Endereço Do Emitente

[Carlos Tre]

Prezados,

 

Alguma razão em particular para o campo "complemento" [cdsEmitente.FieldByName('XCpl')] ter sido deixado de fora em

 

[procedure TdmACBrNFeFR.CarregaEmitente]?

      cdsEmitenteDADOS_ENDERECO.AsString :=
        Trim(FieldByName('XLgr').AsString) + ', ' + trim(FieldByName('Nro').AsString) + ' - ' +
        Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + #13 +
        'Fone: ' + Trim(FieldByName('Fone').AsString) + ' - CEP: ' + Trim(FieldByName('CEP').AsString);

Pergunto o porquê em razão de ter sido questionado e 1) não quero consertar por mim mesmo e perder, inadvertidamente, a correção em uma próxima atualização; 2) pode ser que tenha que ser deixado de fora mesmo em função de alguma limitação que eu não esteja vendo.

 

Agradeço antecipadamente a sua preciosa ajuda.

 

Cordialmente,

Carlos

 

 

[Régys Silveira]

Em qual DANFE? (FastReport, Rave, RaveCB, Fortes, etc).

[Carlos Tre]

Olá Régys,

 

Muito obrigado por responder. FastReports (TdmACBrNFeFR.CarregaEmitente).

 

Cordialmente,

Carlos

[Régys Silveira]

Eu acho que no FastReport foi falta mesmo de adicionar, se quiser, pode adicionar e anexar aqui que subimos a alteração.

[Carlos Tre]

Olá Regys,

 

Muito obrigado mais uma vez. Farei como sugeriu e hoje mais tarde eu anexo aqui.

 

Cordialmente,

Carlos

[Carlos Tre]

Olá Régys,

 

Eu acho que no FastReport foi falta mesmo de adicionar, se quiser, pode adicionar e anexar aqui que subimos a alteração.

Esta é a modificação que sugiro:
      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) + ' - CEP: ' + Trim(FieldByName('CEP').AsString);

Cordialmente,

Carlos

[Régys Silveira]

Por favor anexo o arquivo modificado, para que possamos comparar e fazer o merge.

[Carlos Tre]

Olá Régys,

 

Por favor note que o arquivo local não corresponde à última versão disponível no repositório.

 

Cordialmente,

Carlos

 

ACBrNFeDANFEFRDM.zip

ACBrNFeDANFEFRDM.zip

Editado 3 Dezembro, 2013 por Carlos Tre

[wilson_jr]

Caros boa tarde,

Utilizo o ACBrNFeDANFeQR, e nele também não mostra o complemento no campo de endereço do destinatário.

Alterei as units para que contemplasse isso.

Vejam se é possível incluir nos fontes do ACBr.

Grato desde já.

ACBrNFeDANFeQR.rar

[Régys Silveira]

Seria interessante você atualizar para o Trunk2, pois o Trunk não está mais sendo atualizado pelo core.

[wilson_jr]

Obrigado Régys,

estarei mudando para o Trunk2 assim que possível e volto a informar aqui caso necessário.

Grato.

Wilson