como faço pra criar function acho que começa assim FUNCTION Calcular (Quero saber o que coloco aqui) EndFunction.
Procurei no forum por function e não achei tem como colocar aqui um exemplo ah que mostre tambem como eu faço pra chamar a function
Exemplo tirado do help do progress Código: /* Define doubler() */ FUNCTION doubler RETURNS INTEGER (INPUT parm1 AS INTEGER): RETURN (2 * parm1). END FUNCTION. DISPLAY "doubler(2)=" doubler(2).
FUNCTION fNumerico RETURNS LOGICAL ( fChar AS CHARACTER ) : /*------------------------------------------------------------------------------ Purpose: Retorna yes se entrada for numero ------------------------------------------------------------------------------*/ DEFINE VARIABLE fDecimalAux AS DECIMAL NO-UNDO. fDecimalAux = DECIMAL(fChar) NO-ERROR. IF ERROR-STATUS:ERROR THEN RETURN NO. ELSE RETURN YES. END FUNCTION. message fNumerico ('123') skip fNumerico('ad') view-as alert-box.
