O
OctavioOlguin
Guest
Help.. as I'm really lost.... Had an abl window that called a .net class, next time I recompilled, It won't run... reverted to stored versions, but to no avail... Calling program makes this: USING Procs.Ven.ven06100 FROM PROPATH. .... PROCEDURE MuestraAvance : DEFINE INPUT PARAMETER pVendedor AS INTEGER NO-UNDO. DEFINE INPUT PARAMETER pNumVenta AS INTEGER NO-UNDO. DEFINE VARIABLE oForm AS procs.ven.ven06100 NO-UNDO . oForm = NEW procs.ven.ven06100(pVendedor, pNumVenta) . WAIT-FOR System.Windows.Forms.Application:Run (oForm) . CATCH err AS Progress.Lang.Error: MESSAGE err:GetMessage (1) VIEW-AS ALERT-BOX . END CATCH. END PROCEDURE. On called Class, got this... USING Progress.Windows.Form. USING system.Drawing.*. BLOCK-LEVEL ON ERROR UNDO, THROW. CLASS Procs.Ven.ven06100 INHERITS Form : DEFINE PRIVATE VARIABLE components AS System.ComponentModel.IContainer NO-UNDO. DEFINE PRIVATE VARIABLE buttonOk AS System.Windows.Forms.Button NO-UNDO. DEFINE PRIVATE VARIABLE fNombreEmpleado AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE fTickets AS System.Windows.Forms.TextBox NO-UNDO. DEFINE PRIVATE VARIABLE LabelKilos AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE LAbelTicket AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE LAvance AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE LNumeroTickets AS System.Windows.Forms.Label NO-UNDO. DEFINE PRIVATE VARIABLE progressBar1 AS System.Windows.Forms.ProgressBar NO-UNDO. DEFINE PRIVATE VARIABLE textBox1 AS System.Windows.Forms.TextBox NO-UNDO. DEFINE PRIVATE VARIABLE textKilos AS System.Windows.Forms.TextBox NO-UNDO. CONSTRUCTOR PUBLIC ven06100( xVendedor AS INTEGER, xVenta AS INTEGER): SUPER(). InitializeComponent ( ). CargaDatos(xVenta, xVendedor). CATCH e AS Progress.Lang.Error: UNDO, THROW e. END CATCH. END CONSTRUCTOR. DESTRUCTOR PUBLIC ven06100( ): IF VALID-OBJECT(components) THEN DO: CAST(components, System.IDisposable)
ispose(). END. END DESTRUCTOR. METHOD PROTECTED VOID CargaDatos (INPUT pVenta AS INTEGER, INPUT pVendedor AS INTEGER): DEFINE VARIABLE ValMax AS CHARACTER NO-UNDO. RUN func\GetCFG.p("Meta de Ventas", "", "", OUTPUT ValMax). IF ValMax = "" THEN DO: RUN func\SetCFG.P("Meta de Ventas", "", "", 1, 250). ValMax = "250". END. FIND Ticket NO-LOCK WHERE Ticket.Ticket = pVenta NO-ERROR. FIND VendedorDia NO-LOCK WHERE VendedorDia.Fecha = TODAY AND VendedorDia.Nomina = pVendedor NO-ERROR. IF NOT AVAILABLE VendedorDia THEN RETURN. // primer venta del dia. no hay registro hasta que se cobra. FIND Empleado NO-LOCK WHERE Empleado.Nomina = pVendedor. FNombreEmpleado:text = Empleado.Nombre. textBox1:text = STRING(pVenta). lAvance:TEXT = "Meta de Venta". fTickets:text = STRING(VendedorDia.Tickets). progressBar1:MAXIMUM = max(INTEGER(ValMax), VendedorDia.Cantidad). progressBar1:value = VendedorDia.Cantidad. textKilos:TEXT = STRING(VendedorDia.Cantidad). /* IF INTEGER(ValMax) MuestraAvance Procs\Ven\Ven06034.w at line 4642 (c:\tap\Procs\Ven\Ven06034.r) [16/09/19@18:08:42.129-0500] P-052536 T-047760 1 4GL -- USER-INTERFACE-TRIGGER Procs\Ven\Ven06034.w at line 2671 (c:\tap\Procs\Ven\Ven06034.r) (Searched message and it is: System.InvalidOperationException: Starting a second message loop on a single thread is not valid operation. Use Form.ShowDialog instead. You cannot WAIT-FOR a Progress built-in event once any .NET forms are made visible. Use WAIT-FOR Application:Run(form) or WAIT-FOR formx:ShowDialog() instead. (13967) I'm really confused... can anybody see why happened this? TIA Jorge Olguin
Continue reading...
ispose(). END. END DESTRUCTOR. METHOD PROTECTED VOID CargaDatos (INPUT pVenta AS INTEGER, INPUT pVendedor AS INTEGER): DEFINE VARIABLE ValMax AS CHARACTER NO-UNDO. RUN func\GetCFG.p("Meta de Ventas", "", "", OUTPUT ValMax). IF ValMax = "" THEN DO: RUN func\SetCFG.P("Meta de Ventas", "", "", 1, 250). ValMax = "250". END. FIND Ticket NO-LOCK WHERE Ticket.Ticket = pVenta NO-ERROR. FIND VendedorDia NO-LOCK WHERE VendedorDia.Fecha = TODAY AND VendedorDia.Nomina = pVendedor NO-ERROR. IF NOT AVAILABLE VendedorDia THEN RETURN. // primer venta del dia. no hay registro hasta que se cobra. FIND Empleado NO-LOCK WHERE Empleado.Nomina = pVendedor. FNombreEmpleado:text = Empleado.Nombre. textBox1:text = STRING(pVenta). lAvance:TEXT = "Meta de Venta". fTickets:text = STRING(VendedorDia.Tickets). progressBar1:MAXIMUM = max(INTEGER(ValMax), VendedorDia.Cantidad). progressBar1:value = VendedorDia.Cantidad. textKilos:TEXT = STRING(VendedorDia.Cantidad). /* IF INTEGER(ValMax) MuestraAvance Procs\Ven\Ven06034.w at line 4642 (c:\tap\Procs\Ven\Ven06034.r) [16/09/19@18:08:42.129-0500] P-052536 T-047760 1 4GL -- USER-INTERFACE-TRIGGER Procs\Ven\Ven06034.w at line 2671 (c:\tap\Procs\Ven\Ven06034.r) (Searched message and it is: System.InvalidOperationException: Starting a second message loop on a single thread is not valid operation. Use Form.ShowDialog instead. You cannot WAIT-FOR a Progress built-in event once any .NET forms are made visible. Use WAIT-FOR Application:Run(form) or WAIT-FOR formx:ShowDialog() instead. (13967) I'm really confused... can anybody see why happened this? TIA Jorge OlguinContinue reading...