Pequena Alteração Visual - Danfe Ravecb

[Leonardo Gregianin]

Bom dia, fiz uma pequena alteração visual no arquivo ACBrDANFeCBRaveRetrato.pas para não mostrar o traço "-" quando não há informação, grato se subirem para o repositorio.

--- ACBrDANFeCBRaveRetrato.pas-rev5088.svn000.tmp.pas	qui nov 22 12:45:44 2012
+++ ACBrDANFeCBRaveRetrato.pas	qui mai 16 09:05:03 2013
@@ -355,7 +355,10 @@
            NewLine;
            if vDuasLinhas then
            begin
-              vEnd:=SiteDoEmitente+' - '+EmailDoEmitente;
+              if (SiteDoEmitente <> '') and (EmailDoEmitente <> '') then
+                 vEnd := SiteDoEmitente+' - '+EmailDoEmitente;
+              if (SiteDoEmitente = '') and (EmailDoEmitente <> '') then
+                 vEnd := EmailDoEmitente;
               PrintCenter(vEnd,CenterX);
            end
            else

 

 

 

 

[Juliomar Marchetti]

Anexar a unit com a alteração por favor

[juaumkiko]

Enviado para o SVN.

 

Revisão: 5316.

 

Obrigado

[Leonardo Gregianin]

Obrigado você João Henrique.