Montando uma rotina multi idiomas
Outro dia, me pediram um relatório que permitisse imprimi-lo em vários idiomas (português,inglês,espanhol e alemão). Então fiquei pensando, qual seria a melhor escolha para desenvolver.
Na dica abaixo, irei exemplificar como fazer tal código, seja para um relatório quanto para uma tela.
Inicialmente montei a pergunta
|
1 2 3 4 5 6 7 |
Static Function CriaSX1(cPerg) PutSx1(cPerg, "01","Idioma?", "", "", "mv_ch1", "N",1, 0, 1, "C", "", "", "", "", "mv_par01", ; "Português", "", "", "", ; "English" , "", "", ; "Español" , "", "", ; "Deutsch" , "", "", "", "", "", {"Selecione o idioma","",""}, {"","",""}, {"","",""}) Return |
Pensei em algumas opções, umas delas foi utilizando array
|
1 |
Private aTitulo := {"Titulo","Title","Titulo","Titel"} //Portugues, Ingles, Espanhol, Alemão |
Então meu fonte ficaria assim:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
#include "Protheus.ch" User Function MeuFonte() //Declaro minhas variaveis Private aTitulo := {"Titulo","Title","Titulo","Titel"} //Portugues, Ingles, Espanhol, Alemão Private nIdioma := 0 Private cTitulo := "" //Crio a pergunta caso não exista CriaSX1("MEUFONTE") //Exibo a pergunta Pergunte("MEUFONTE",.T.) //Para ficar mais facil para entender, eu coloco na variavel nIdioma o retorno da pergunta nIdioma := mv_par01 //Defino o conteudo das variaveis conforme o idioma seleciondo cTitulo := aTitulo[nIdioma] ******** //Imprimo o texto conforme o idioma alert(cTitulo) ou alert(aTitulo[nIdioma]) Return Static Function OutraTela() //como declarei a variavel como Private, posso chamá-la de qualquer outra função alert(cTitulo) Return |
Outra forma que pode ser usada é usando arquivo texto externo, tipo:
|
1 2 3 4 5 6 7 8 9 10 11 |
Arquivo: meufonte1.txt //Portugues Arquivo: meufonte2.txt //Ingles Arquivo: meufonte3.txt //Espanhol Arquivo: meufonte4.txt //Alemão ou Arquivo: meufonte.portugues Arquivo: meufonte.english Arquivo: meufonte.espanol Arquivo: meufonte.deutsch |
O conteúdo dos arquivos
| Português | Inglês | Espanhol | Alemão |
| Laranja | Orange | Naranja | Orange |
| Uva | Grape | Uva | Traube |
| Maça | Apple | Manzana | Apfel |
O fonte pode ficar assim considerando a pergunta
|
1 2 3 4 5 6 7 |
Static Function CriaSX1(cPerg) PutSx1(cPerg, "01","Idioma?", "", "", "mv_ch1", "N",1, 0, 0, "C", "", "", "", "", "mv_par01", ; "Português", "", "", "", ; "English" , "", "", ; "Español" , "", "", ; "Deutsch" , "", "", "", "", "", {"Selecione o idioma","",""}, {"","",""}, {"","",""}) Return |
Exemplo 1
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#Include 'Protheus.ch' User Function MeuFonte() Local nIdioma := 0 Local cArquivo := "" Private aIdioma := {} CriaSX1("MEUFONTE") Pergunte("MEUFONTE",.T.) nIdioma := MV_PAR01 cArquivo := "\system\idiomas\meufonte"+Alltrim(Str(nIdioma))+".txt" if Ler(cArquivo) For i:=1 to len(aIdioma) alert(aIdioma[i]) Next endif Return |
ou assim:
Exemplo 2
|
1 2 3 4 5 6 7 |
Static Function CriaSX1(cPerg) PutSx1(cPerg, "01","Idioma?", "", "", "mv_ch1", "N",1, 0, 0, "C", "", "", "", "", "mv_par01", ; "Portugues", "", "", "", ; "English" , "", "", ; "Espanol" , "", "", ; "Deutsch" , "", "", "", "", "", {"Selecione o idioma","",""}, {"","",""}, {"","",""}) Return |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#Include 'Protheus.ch' User Function MeuFonte() Local cIdioma := "" Local cArquivo := "" Private aIdioma := {} CriaSX1("MEUFONTE") if !Pergunte("MEUFONTE",.T.) return endif cIdioma := SelIdi(mv_par01,"MEUFONTE") //pega o texto do combo ao invés da posição cArquivo := "\system\idiomas\meufonte."+lower(cIdioma) if Ler(cArquivo) For i:=1 to len(aIdioma) alert(aIdioma[i]) Next endif Return |
Criei a função SelIdi(), apenas para capturar o texto da seleção, pode fazer de outras maneiras, mas vou postar abaixo uma delas:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Static Function SelIdi(nOpc,cPerg) Local cRet := "" Pergunte(cPerg,.F.) dbSelectArea("SX1") dbSetOrder(1) dbSeek(cPerg) While !Eof() .And. AllTrim(SX1->X1_GRUPO) == cPerg .and. SX1->X1_ORDEM == "01" //como sei que a ordem é a primeira, já deixei chumbado cCampo := @("SX1->X1_DEF"+StrZero(nOpc,2)) //pego a posição e concateno com o resto do nome do campo cRet := &cCampo //pego apenas o conteudo usando a macro substituição dbSelectArea("SX1") dbSkip() EndDo Return(cRet) |
O fonte abaixo é para ler um arquivo texto
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
Static Function Ler(cArquivo) Local cLinha := "" Local nHdl Local lRet := .F. nHdl := fOpen(cArquivo) If nHdl == -1 IF FERROR()== 516 ALERT("Feche a planilha que gerou o arquivo.") EndIF EndIf //+---------------------------------------------------------------------+ //| Verifica se foi possível abrir o arquivo | //+---------------------------------------------------------------------+ If nHdl == -1 MsgAlert("O arquivo de nome "+Alltrim(cArquivo)+" nao pode ser aberto! Verifique os parametros.","Atencao!") Return Endif FSEEK(nHdl,0,0) //Posiciona no inicio do arquivo fClose(nHdl) //fecha o arquivo FT_FUse(cArquivo) //abre o arquivo FT_FGOTOP() //posiciona na primeira linha do arquivo aIdioma:={} While !FT_FEOF() clinha := FT_FREADLN() if !empty(cLinha) AADD(aIdioma,cLinha) endif FT_FSKIP() EndDo FT_FUse() fClose(nHdl) if Len(aIdioma)>0 lRet := .T. Endif Return(lRet) |
Espero que tenha sido útil, dúvidas? Comente…
arquivo array fOpen FSEEK fUse idioma importar multi idiomas pergunte portugues string SX1 system texto