Pesquisar na Comunidade
Showing results for tags 'formatarchaveacesso'.
Encontrado 1 registro
-
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