Correção Do Telefone Na Danfe Sp (Acbrnfedanferl)

[New Standard Software]

Correção para verificar o Digito (9) nos celulares para o estado de SÃO PAULO.

Correção na função:

function TfrlDANFeRL.FormatarFone(AValue: String): String;

var vAux: string;

i: Integer;

pOk: Boolean;

begin

Result := AValue;

if DFeUtil.NaoEstaVazio(AValue) then

begin

vAux := '';

pOk := False;

AValue := DFeUtil.LimpaNumero(AValue);

i := Length(AValue);

if i > 11 then

AValue := Copy(AValue, i-10,Length(AValue));

for i := Length(AValue) downto 1 do

begin

if Length(vAux) = 4 then

vAux := AValue+'-'+vAux

else

begin

if (Length(vAux) > 8) then

begin

if (not pOk) and ((i = 3) and (AValue[1] <> '0')) then

begin

vAux := ') '+AValue+vAux;

pOk := True;

end else

begin

if (not pOk) and not (i = 1) then

begin

vAux := AValue+') '+vAux;

pOk := True;

end else

vAux := AValue+vAux;

end;

end else

vAux := AValue + vAux;

end;

end;

if pOk then

vAux := '('+vAux;

Result := vAux;

// if Length(DFeUtil.LimpaNumero(AValue)) > 10 then

// AValue := copy(DFeUtil.LimpaNumero(AValue),2,10); //Casos em que o DDD vem com ZERO antes somando 3 digitos

//

// AValue := DFeUtil.Poem_Zeros(DFeUtil.LimpaNumero(AValue), 10);

// Result := '('+copy(AValue,1,2) + ') ' + copy(AValue,3,4) + '-' + copy(AValue,7,4);

end;

end;

Editado 2 Outubro, 2014 por newstandard

[Juliomar Marchetti]

Bom dia

verifique se na pasta ACBrComum ou ACBrDiversos não tem já essa função!

para que seja chamado ao invés de termos em diversos locais!