Força um erro, na linguagem AdvPL, para que possa ser tratado posteriormente. Para isso, esta função recebe uma string com a descrição do erro que será apresentada de acordo com o ambiente que está executando.
UserException ( < cDescricao> ) --> Nil
Nome | Tipo | Descrição | Obrigatório | Referência |
cDescricao | Caracter | Indica a string que contém a descrição do erro forçado através da função. | X |
//Cria uma view No Banco de Dados User Function MakeView(cNomeView,cView) // Se For SqlServer //Dropa a View se Existir If "MSSQL" $ Upper(Trim(TcGetDb())) // Verifica se existe a view BeginSql Alias "QVIEW" SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS WHERE TABLE_NAME = %Exp:cNomeView% EndSql If QVIEW->(EOF()) //Criar a View cMkView := "CREATE VIEW " + cNomeView cMkView += " AS " cMkView += cView TCSQLEXEC(cMkView) If TcSqlExec(cMkView) <> 0 UserException('ERRO AO CRIAR A VIEW ' + cNomeView + CRLF + TCSqlError() ) Endif Endif QVIEW->(dbCloseArea()) Endif // Se For Oracle If "ORACLE" $ Upper(Trim(TcGetDb())) //Criar a View cMkView := "CREATE OR REPLACE VIEW " + cNomeView cMkView += " AS " cMkView += cView Memowrit(cNomeView+'.sql',cMkView) if TcSqlExec( cMkView ) <> 0 UserException('ERRO AO CRIAR A VIEW ' + cNomeView + CRLF + TCSqlError() ) Endif Endif Returnou
If Empty(cPadrao) .or. ValType(cPadrao) <> "C" UserException("Parametro Invalido - RetRecnoLP()") Return(0) EndIf