Pular para o conteúdo principal

Postagens

Mostrando postagens de outubro, 2013

Retirando acentos

Às vezes, por exemplo quando vamos gravar contas de e-mail, não queremos que o usuário digite acentos. Para "estes momentos", use a função  FwNoAccent( ) . Veja o exemplo abaixo: user function fTiraAcent ()    cString := "Você não pôde tomar café hoje."    cString := FwNoAccent ( cString )    alert ( cString ) return •  Veja também: Função SplitPath()

SplitPath - Dividindo um path

Exemplo SplitPath Quando trabalhamos, acessando arquivos, as vezes precisamos de detalhes destes. A ADVPL, possui a função SplitPath que já divide um path em: drive, path, nome do arquivo e extensão. Segue um exemplo: user function fDividePath()     Local cPatharq := "C:\TEMP\DOC\DOCUMENTO.TXT"     Local cDrive, cDir, cArq, cExt    SplitPath( cPatharq, @cDrive, @cDir, @cArq, @cExt )    msgalert(cDrive +chr(10)+ cDir +chr(10)+ cArq +chr(10)+ cExt, "Função SplitPath " ) return • Veja também: Somando strings

Testar erro na execução de uma query

É importante testar erros, antes de executar uma query, para evitar erros de execução. Uma boa maneira é testar o retorno da função  TCSQLEXEC() . A query abaixo, tem um erro proposital, para que a janela com o erro apareça : user function fTestaQry ()     dbselectarea ( "SA1" )    cSql := "SELECT * FRO SA1010"    nQueryRet := TCSQLEXEC ( cSql )     if nQueryRet < 0       return msgstop ( "ERRO NA QUERY: "  + chr(10) + TCSQLError ())     endif return •  Veja também: Tabelas customizadas. Quantas?