Consultor Eletrônico

Status: Unverified

GOAL:

How to get a value from exisitng Progress Window to new .NET Form?

GOAL:

Is is possible to get a value from exisitng Progress Window to new .NET Form?

FACT(s) (Environment):

Windows
OpenEdge 10.2A

FIX:

1.- First option:

Code from Progress .w

ON VALUE-CHANGED OF BrOrder IN FRAME DEFAULT-FRAME
DO:
DISPLAY Order.OrderNum CreditCard OrderStatus Salesrep CustNum
WITH FRAME {&FRAME-NAME}.
hForm:setValue(STRING(Order.OrderNum)).
END.

Code in .NET Form

METHOD PUBLIC VOID setValue(cVal AS CHARACTER ):
ultraTextEditor1:TEXT = cVal.
RETURN.
END METHOD.

2.- Second Option:

Code from Progress .w

ON VALUE-CHANGED OF BrOrder IN FRAME DEFAULT-FRAME
DO:
DISPLAY Order.OrderNum CreditCard OrderStatus Salesrep CustNum
WITH FRAME {&FRAME-NAME}.
/* Publish OrderNum change */
PUBLISH "OrderChanged" (Order.OrderNum).
END.

Code in .NET Form

DEFINE VARIABLE textBox2 AS System.Windows.Forms.TextBox NO-UNDO.
textBox2 = NEW System.Windows.Forms.TextBox().
textBox2:Location = NEW System.Drawing.Point(12, 30).
textBox2:Name = "textBox2".
textBox2:Size = NEW System.Drawing.Size(100, 20).
MainForm:Controls:Add(textBox2).

PROCEDURE OrderChanged:
DEFINE INPUT PARAMETER piOrderNum AS INTEGER.
textBox2:Text = STRING(piOrderNum).
END PROCEDURE.