Pesquisar na Comunidade
Showing results for tags 'danfe fast report'.
Encontrado 2 registros
-
10/11/2015 -- ACBrNFeDANFEFRDM -- [-] Correção do desconto no item valor acima de 999,99 por : Henrique Leonardo Fast.rar
-
A função CollateBr suprimia caracteres não identificados no case, exemplo: se passásemos 'N.TESTE' ela devolvia 'NN TESTE'. Sugestão de correção da função function CollateBr(Str: String): String; para: function CollateBr(Str: String): String; var Resultado,Temp: string; vChar: Char; Tamanho, i: integer; begin Result := ''; Tamanho := Length(str); i := 1; while i <= Tamanho do begin Temp := Copy(str,i,1); vChar := Temp[1]; Resultado := vChar; //Adicionado, pois quando encontrava um caractere não previsto no case abaixo, a função suprimia o caractere. Exemplo 'N. TESTE' ficava 'NN TESTE' case vChar of 'á', 'â', 'ã', 'à', 'ä', 'å', 'Á', 'Â', 'Ã', 'À', 'Ä', 'Å': Resultado := 'A'; 'é', 'ê', 'è', 'ë', 'É', 'Ê', 'È', 'Ë': Resultado := 'E'; 'í', 'î', 'ì', 'ï', 'Í', 'Î', 'Ì', 'Ï': Resultado := 'I'; 'ó', 'ô', 'õ', 'ò', 'ö', 'Ó', 'Ô', 'Õ', 'Ò', 'Ö': Resultado := 'O'; 'ú', 'û', 'ù', 'ü', 'Ú', 'Û', 'Ù', 'Ü': Resultado := 'U'; 'ç', 'Ç': Resultado := 'C'; 'ñ', 'Ñ': Resultado := 'N'; 'ý', 'ÿ', 'Ý', 'Y': Resultado := 'Y'; else if vChar > #127 then Resultado := #32 {$IFDEF DELPHI12_UP} else if CharInset(vChar, ['a'..'z','A'..'Z','0'..'9','-',' ']) then {$ELSE} else if vChar in ['a'..'z','A'..'Z','0'..'9','-',' '] then {$ENDIF} Resultado := UpperCase(vCHAR); end; Result := Result + Resultado; i := i + 1; end; end;
