S
scottemick
Guest
FUNCTION fn-ISDECIMAL RETURN LOGICAL (INPUT ip_textin AS CHAR): DEFINE VAR va-value AS DECIMAL NO-UNDO. ip_textin=trim(ip_textin). IF ip_textin ="" OR ip_textin = ? THEN RETURN NO. ASSIGN va-value = DECIMAL(ip_textin) no-error. RETURN NOT ERROR-STATUS:ERROR. /*IF error-status:error THEN return NO.*/ RETURN YES. END FUNCTION. FOR EACH eDB_MajorGroupTotals: DEFINE VAR va-results AS LOGICAL. DEFIN VAR va-netsales AS DECIMAL. ASSIGN va-results = fn-ISDECIMAL(Netsales). ASSIGN va-netsales = DECIMAL(Netsales). DISPLAY Netsales va-results va-netsales. END. The able system can read them, classify them just fine in ABLE.
Continue reading...
Continue reading...