emerson82
New Member
Hello,
I've a problem, my users wish fill a register about Mat rules and that rule be run when the program is running.
Is there some way to create this?
I solved this problem with the follow source:
formula = "out1 = " + formula-norma-lem.formula-txt[ict].
OUTPUT TO c:\ems204\spool\tmp0100.p.
PUT "define output parameter out1 as decimal no-undo initial 0." FORMAT "x(80)" SKIP.
PUT "define input parameter N as DECIMAL no-undo ." FORMAT "x(80)" SKIP.
PUT formula FORMAT "x(80)" SKIP.
PUT "MESSAGE STRING(OUT1) VIEW-AS ALERT-BOX. " FORMAT "x(80)" SKIP.
PUT "return." SKIP.
OUTPUT CLOSE.
RUN c:\ems204\spool\tmp0100.p ( OUTPUT amostra, qtde-prod).
LEAVE.
But only my computer has progress appbuilder when I'm running the program at user's computer I receive a message that the program can't run.
Thanks,
Emerson
I've a problem, my users wish fill a register about Mat rules and that rule be run when the program is running.
Is there some way to create this?
I solved this problem with the follow source:
formula = "out1 = " + formula-norma-lem.formula-txt[ict].
OUTPUT TO c:\ems204\spool\tmp0100.p.
PUT "define output parameter out1 as decimal no-undo initial 0." FORMAT "x(80)" SKIP.
PUT "define input parameter N as DECIMAL no-undo ." FORMAT "x(80)" SKIP.
PUT formula FORMAT "x(80)" SKIP.
PUT "MESSAGE STRING(OUT1) VIEW-AS ALERT-BOX. " FORMAT "x(80)" SKIP.
PUT "return." SKIP.
OUTPUT CLOSE.
RUN c:\ems204\spool\tmp0100.p ( OUTPUT amostra, qtde-prod).
LEAVE.
But only my computer has progress appbuilder when I'm running the program at user's computer I receive a message that the program can't run.
Thanks,
Emerson