MSParseError

MSParseError ( ) --> cMensagemErro

cMensagemErro(caracter)
• Retorna a mensagem de erro que ocorreu na última execução da função MSParse().

#INCLUDE 'TOTVS.CH'User Function TestM1()Local tSQL := ""Local sErro := ""Local sSql := ""                           tSQL += "create proc sp_Teste (@dtInicial char(10), @dtFinal char(18), @ben_id char(6)) " + chr(13)tSQL += "as " + chr(13)tSQL += "declare " + chr(13)tSQL += "	@id		integer = 1, " + chr(13)tSQL += "	@din	money, " + chr(13)tSQL += "	@hoje	date " + chr(13)tSQL += "begin " + chr(13)	tSQL += "    select distinct " + chr(13)tSQL += "           j.nav_n2 navio, " + chr(13)tSQL += "           isnull(g.proc_nome,'NAO DEVOLVIDO') local_dev, " + chr(13)tSQL += "			dateadd(hour, 2, b.data_saida) " + chr(13)tSQL += "    from   tabela1 a, " + chr(13)tSQL += "           tabela2 b " + chr(13)tSQL += "    where a.dt_entrada between convert(datetime,@dtInicial,103) and convert(datetime,@dtFinal,103) " + chr(13)tSQL += "    and a.cliente = b.cliente " + chr(13)tSQL += "end " + chr(13)tSQL += "go "saida := msparse(tSQL,"INFORMIX")conout("Traduzido: ")conout(saida)  sErro = msparseerror()conout("Erro encontrado: ")conout(sErro)conout("FIM")return