Código: Selecionar todos
FUNCTION Alltrim( texto )
RETURN LTrim(RTrim( texto ))
Abs.BASE/2022 Argument error: ALLTRIM
Explanation: Argument to ALLTRIM() was not a character value.
Action: Correct the program.
Código: Selecionar todos
FUNCTION MacroType( cExpression )
LOCAL cType := "U", bBlock
BEGIN SEQUENCE WITH { | e | Break( e ) }
bBlock := hb_MacroBlock( cExpression )
cType := ValType( Eval( bBlock ) )
END SEQUENCE
RETURN cType
Não teria que ser: ValType( var ) = "C"Dudu_XBase escreveu:Coloquei um valtype(var)<>"U" estranho algum erro na base usando o sqlrdd