Danfe Com Fone 0800

[IdealB]

Pessoal, é possível informar no telefone do emitente da NFe o número "0800" ?

Ao imprimir esta saindo assim: FONE: (80)0779-4450

 

grato.

[Italo Giurizzato Junior]

Boa tarde,

 

Favor atualizar os fontes e testar novamente.

[IdealB]

Ítalo, obrigado pelo retorno mas continua o mesmo problema.

 

no XML:

<fone>08007794450</fone>

Editado 15 Janeiro, 2014 por Ideal Brasil

[Italo Giurizzato Junior]

No XML o numero é sem formatação.

 

No DANFE que podemos formatar o numero.

 

Você compilou a sua aplicação com a opção Build que esta no menu Project?

 

Se sim, isso significa que o DANFE que você esta utilizando não utiliza a function FormatarFone que esta dentro da Unit ACBrDFeUtil.pas

[IdealB]

Sim, compilei usando "Build All Project".

Estou usando TACBrNFeDANFERaveCB como gerador.

 

É esse o problema?

[Italo Giurizzato Junior]

Pode ser sim, esse componente talvez possua uma rotina própria pra formatar o telefone.

 

Como não tenho conhecimento em Rave não posso em lhe afirmar.

[IdealB]

Ítalo, tem coisa "Estranha" ai. Olha só:

Trecho da função DFeUtil.FormatarFone(AValue: String):

class function DFeUtil.FormatarFone(AValue: String): String;
var
  lTemp: string;
begin
  // Proposta de Italo
  AValue := IntToStr(StrToInt64Def(LimpaNumero(AValue), 0));
  Result := AValue;
 

Quando entra na função LimpaNumero(), AValue está "08007794450" porem, quando sai, o valor é modificado para "8007794450" assim, o trecho de código abaixo não é executado:

// Incluido por Italo em 15/01/2014
if copy(AValue, 1, 4) = '0800' then
  Result := copy(AValue, 1, 4) + '-' + copy(AValue, 5, 3) + '-' + copy(AValue, 8, 4)

consegue desvendar?

[IdealB]

Ítalo, achei o problema.

 

StrToInt64Def() remove zero a esquerda!!!

if copy(AValue, 1, 4) = '800' then
  Result := copy(AValue, 1, 4) + '-' + copy(AValue, 5, 3) + '-' + copy(AValue, 8, 4)

Seria gambiarra?

[IdealB]

Ítalo, sugestão:

//AValue := IntToStr(StrToInt64Def(LimpaNumero(AValue), 0));

lTemp:= LimpaNumero(AValue);
AValue:= ifthen(lTemp = EmptyStr, '0', AValue);

No meu teste funcionou.

[Italo Giurizzato Junior]

Boa noite,

 

Favor atualizar os fontes e testar novamente.

[Leonardo Gregianin]

Boa tarde Ítalo,

 

Caso o tag do telefone do Emitente e Destinatario constar com DDI + DDD + Telefone, exemplo: 551132320000 a geração do XML e a impressão do Danfe não ficará correta.

 

Segue anexo uma proposta de alteração.

Editado 10 Junho, 2014 por lvr

[Italo Giurizzato Junior]

Bom dia Leonardo,

 

Muito obrigado pela colaboração, já esta disponível.