Pesquisar na Comunidade

Olá pessoal, No Lazarus, no evento OnKeyPress de um form coloquei o seguinte comando: Key := AnsiUpperCase(Key)[1]; Porém quando uso acento ou "ç" a letra não retorna maiúscula como acontece no delphi: Alguém já passou por isso? Help!

Bom dia pessoal! Estamos nos deparando com um problema na geração do XML para NFe com acentuação, o método "ACBrNFe.NotasFiscais.GravarXML()" grava o arquivo na pasta teoricamente sem problema, porém ao fazer um "TStringList.LoadFromFile" pelo Delphi XE2 os caracteres com acentos vem com problema, exemplo, o caracter í vem Ã-. O mesmo acontece quando damos um "ShowMessage()" usando o método "ACBrNFe.NotasFiscais.Items[0].XML". Ou seja, não é uma situação que acontece apenas no debug do Delphi. Vimos no tópico Link que foi falado sobre isso porém para resolver outra coisa, mas assim como lá, aqui a situação acontece na unit ACBrUtil, método "NativeStringToUTF8" é chamado o "SetCodePage(RBS, 0, False)" e nesse momento que é alterado. A título de curiosidade, notamos que ao abrir o XML pelo Notepad++ a formatação está em "UTF-8 (sem BOM)" se converter para "UTF-8" e salvar, o arquivo passa a carregar certo no Delphi e mostra corretamente no "ShowMessage()". Outra coisa que percebemos é que se circundar o método dessa forma "Utf8ToAnsi(ACBrNFe.NotasFiscais.Items[0].XML)" passa a retornar corretamente. Lembrando, esse problema só acontece olhando para todo o arquivo XML nos 2 métodos acima mencionados, se tentarmos pegar o resultado, por exemplo, "ACBrNFe.NotasFiscais.Items[0].nfe.cobr.dup.items[0].ndup" a situação não acontece, é retornada a palavra acentuada corretamente. Para simular no exemplo em "..\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi", colocarmos no botão “Importar TXT/XML” dois "ShowMessage()" antes da linha 1357, conforme a imagem em anexo: ShowMessage(ACBrNFe1.NotasFiscais.Items[0].XML); ShowMessage(Utf8ToAnsi(ACBrNFe1.NotasFiscais.Items[0].XML)); E o resultado conforme descrevi estão tbm em imagem em anexo, além do arquivo XML. Nossa dúvida é, vamos ter que fazer isso, colocar Utf8ToAnsi(), em todo lugar ou existe outra forma de pegar o XML inteiro do componente acentuado corretamente? 41170111434649000137550010000903371000903371-nfe.xml

Eu realizei um pequeno ajuste no ACBrMonitorPlus para que efetue a remoção dos acentos ao gerar a(s) resposta(s). Eu precisei realizar este ajuste pois na linguagem em que desenvolvo hoje (Xharbour 32bits) não consigo obter corretamente o retorno de caracteres acentuados (Ex: Rejeição eu recebia como Rejeição), mesmo convertendo de UTF8 para ANSI. Acredito que este problema também possa ocorrer para outros que usam linguagens mais antigas e, por isso criei uma opção para que seja possível remover os acentos da(s) resposta(s) e assim ter a mesma legível. Anexo imagem da nova opção criada na guia Monitor bem como os arquivos modificados (compactado). Eu estou usando o ACBrMonitorPlus com as alterações aplicadas com sucesso. Gostaria de solicitar para que seja analisado o ajuste realizado e caso seja útil, aplicado ao repositório. Obs: No ACBrMonitorPlus existe uma opção para remoção de acentos que era usada pelo antigo ACBrNfeMonitor (seção ACBrNfeMonitor, opção RetirarAcentos) e, além desta outras opções que ao meu entender foram deixadas como uma forma de manter a compatibilidade, mas que no caso da remoção de acentos não esta funcionando. Talvez seja interessante revisar estas opções de compatibilidade mantidas. Obrigado, AjutesACBrMonitorPlus.zip

Boa noite pessoal. Notei que o alguns acentos estão incorretos no ACBrMonitor, fiz a revisão num arquivo onde encontrei os erros e ajustei a acentuação que por algum motivo ficou desconfigurada devido alguma edição sem o formato UTF8. Tomei a liberdade de fazer alguns ajustes em outras palavras como por exemplo, número e último(a) que encontrei no fonte, anexo o arquivo que revisei a pouco. ACBrMonitor1.zip

No ACBRMONITORPLUS o Arquivo TXT de saida gerado esta no formato UT-8 e o arquivo LOG de Comandos.TXT no formato ANSI Quando se lê o arquivo de saida os acentos aparecem trocados. Ao menos para mim é assim.

Ola pessoal, Pesquisei tudo que pude sobre o assunto mas ainda me sobram algumas dúvidas. Antes de 1/7/16 somente o campo "Natureza de Operação" não poderia ter caracteres acentuados. Agora nenhum campo mais pode ter acento? Nem Razão Social, nem Descrição do Produto, nem Dados Adicionais?, etc. É isso mesmo? Gostaria de saber como os colegas estão tratando este assunto. ---- Ao usar a função "Retirar Acentos do Xml" no AcbrMonitorPlus, muitos dados ficam errados, como por exemplo: Razão Social, Endereço, Cidades (Tatuí vira Tatu), Estados (So Paulo), etc. Eu não programo em Delphi, mas na linguagem que uso, tenho uma rotina que troca os caracteres acentuados pelos correspondentes não acentuados. Segue abaixo o código para sugestão de implementação no Acbr: Recebo a linha de texto na variável &cStringIn e devolvo o texto reformatado na variável &cStringOu -* Código da Procedure *- &cStringOu = trim(&cStringIn) &cFilterIn = "ÁÉÍÓÚáéíóúÀÈÌÒÙàèìòùÂÊÎÔÛâêîôûÄËÏÖÜäëïöüÃÕãõÇçÑñº/\&" &cFilterOu = "AEIOUaeiouAEIOUaeiouAEIOUaeiouAEIOUaeiouAOaoCcNno--e" &Fx = len(&cStringOu) For &ff= 1 to &Fx &cPedIn = substr(&cFilterIn,&ff,1) If StrSearch(&cStringOu,&cPedIn) > 0 &cPedOu = substr(&cFilterOu,&ff,1) &cStringOu = StrReplace(&cStringOu,&cPedIn,&cPedOu) EndIf EndFor -* Fim do Código *- Não fica perfeito mas melhora bem. O problema é chamar a procedure para cada linha do Xml nos nossos sistemas. Se for aceito e implementado no Acbr já serve para todos. Espero que sirva. Obrigado e abraços a todos

Galera estou tendo dificuldades na impressão da DACTE pelo Fortes Report (já até desisti com o Quick Report). O primeiro erro eu resolvi setando a versão do Fortes Report, descomentando a linha 342 "{initialization RLConsts.SetVersion(3,72,'B');}" do arquivo ACBrDACTeRL.pas. Agora estou tendo dificuldades com a acentuação. Está saindo os caracteres estranhos onde tem acento como "EndereÃ|o" ao invés de "Endereço". Um fato interessante: Eu deletei os fontes do CTe, atualizei novamente, abri o ACBrDACTeRLRetrato.pas pelo bloco de notas e fica tudo certo, mas ai eu abro pelo delphi, dá uns erros, depois já aparece estranho e quando volto a abrir pelo TXT já fica tudo errado. Eu deletei novamente. Abri pelo bloco de notas, copiei tudo, abri pelo delphi, deu erro, salvei, abri pelo bloco de notas e colei o original. Ai abre certinho pelo delphi, mas quando mando a impressão, o ACBr se perde nas variáveis e não fica preenchido os campos. Se algúem tiver uma resposta pronta ai eu agradeço, se não, eu já estou fazendo alterações e tentando fazer funcionar aqui, hora que der posto os arquivos corrigidos.