/* "# Verifica se o Decimal '123456.1234' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"123456.1234") = TRUE THEN DO:
MESSAGE "ok!" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '1234567.1234' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"1234567.1234") = FALSE THEN DO:
MESSAGE "tamanho dos números naturais ultrapassou o valor máximo permitido." VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '123456.12345' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"123456.12345") = FALSE THEN DO:
MESSAGE "tamanho dos números decimais ultrapassou o valor máximo permitido." VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '123.123' é compativel com o campo de espaço 10,4. " */
IF oMapper:isDecimalCompatible(10,4,"123.123") = TRUE THEN DO:
MESSAGE "ok!" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '12AB.123' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"12AB.123") = FALSE THEN DO:
MESSAGE "possui caracter nas casas naturais" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '123.1AB' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"123.1AB") = FALSE THEN DO:
MESSAGE "possui caracter nas casas decimais" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '.123' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,".123") = FALSE THEN DO:
MESSAGE "obrigatório o uso de casas naturais. O valor correto é 0.1234" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '1234' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"1234") = TRUE THEN DO:
MESSAGE "ok!" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '1234.' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"1234.") = TRUE THEN DO:
MESSAGE "não necessita de casas decimais para passar" VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '12.234.456' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"12.234.456") = FALSE THEN DO:
MESSAGE "existem dois separadores para números decimais." VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal NULL é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,?) = FALSE THEN DO:
MESSAGE "invalida se o valor for NULO." VIEW-AS ALERT-BOX.
END.
/* "# Verifica se o Decimal '' é compativel com o campo de espaço 10,4." */
IF oMapper:isDecimalCompatible(10,4,"") = FALSE THEN DO:
MESSAGE "invalida se o valor for branco." VIEW-AS ALERT-BOX.
END. |