Ir para conteúdo
  • Cadastre-se

dev botao

Modificação da Função FormatarChaveAcesso


nolher
  • Este tópico foi criado há 2894 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia, boa tarde e boa noite! Conforme for a hora pra todos.

Pessoal estamos com CT-e e MDF-e em produção, e fomos questionados pela mudança de mascara da Chave de Acesso, e gostaria de questionar o motivo desta mudança.

Em Trunk1 (ACBrCTeUtil) havia a seguinte função de Mascarar a Chave de Acesso: 

class function CTeUtil.FormatarChaveAcesso(AValue: String; Mascara: Boolean = False ): String;
begin
  AValue := DFeUtil.LimpaNumero(AValue);
  if Mascara
   then Result := copy(AValue,1,2)  + '-' + copy(AValue,3,2)  + '/' +
                  copy(AValue,5,2)  + '-' + copy(AValue,7,2)  + '.' +
                  copy(AValue,9,3)  + '.' + copy(AValue,12,3) + '/' +
                  copy(AValue,15,4) + '-' + copy(AValue,19,2) + '-' +
                  copy(AValue,21,2) + '-' + copy(AValue,23,3) + '-' +
                  copy(AValue,26,3) + '.' + copy(AValue,29,3) + '.' +
                  copy(AValue,32,3) + '-' + copy(AValue,35,1) + '-' +
                  copy(AValue,36,2) + '.' + copy(AValue,38,3) + '.' +
                  copy(AValue,41,3) + '-' + copy(AValue,44,1)
   else Result := copy(AValue,1,4)  + ' ' + copy(AValue,5,4)  + ' ' +
                  copy(AValue,9,4)  + ' ' + copy(AValue,13,4) + ' ' +
                  copy(AValue,17,4) + ' ' + copy(AValue,21,4) + ' ' +
                  copy(AValue,25,4) + ' ' + copy(AValue,29,4) + ' ' +
                  copy(AValue,33,4) + ' ' + copy(AValue,37,4) + ' ' +
                  copy(AValue,41,4);
end;
 

Em Trunk2 (ACBrDFeUtil) há a seguinte função de Mascarar a Chave de Acesso: 

function FormatarChaveAcesso(AValue: String): String;
var
  I: Integer;
begin
  AValue := OnlyNumber(AValue);
  I := 1;
  Result := '';
  while I < Length(AValue) do
  begin
    Result := Result+copy(AValue,I,4)+' ';
    Inc( I, 4);
  end;

  Result := Trim(Result);
end;
 

O porque dessa mudança e porque tirou a opção da primeira mascara.

 

Certo de vossas atenção, antecipo agradecimentos,

 

Atenciosamente

______________________________________________________

Nilton Olher Serafim
Analista de Sistema - Inovação Tecnologia 
Skype: nolher
Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...

Bom dia, a todos!

 

Alguém chegou a verificar essa questão acima?

Tem alguma informação para nós?

Pode ser alterado?

Atenciosamente,

 

Editado por nolher

______________________________________________________

Nilton Olher Serafim
Analista de Sistema - Inovação Tecnologia 
Skype: nolher
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2894 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.