topic-3269

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Class: 'NIL' has no exported
Posted: Mon Jun 12, 2006 03:21 PM

Estimados,

por que al ejecutar el programa me tira este error:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: SETFOCUS
Args:

Stack Calls
===========
Called from SETFOCUS(0)
Called from (b)MAIN(118)
Called from TDIALOG:INITIATE(0)
Called from TDIALOG:HANDLEEVENT(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from MAIN(118)

Code: Select all Collapse

   oDlg:= oDlgEnlace( oBrw, oTextos, oBtns, oBmp, oFuentes )

   //----------( Acción del botón )----------

   ACTIVATE DIALOG oDlg CENTERED ON init (;
      oBrw: SetFocus(),;
      oBrw: ResetBarPos(),;
      oBrw: UpStable(),;
      oBrw: Reset(),;
      oBrw: Refresh(),;
      oBrw: gobottom(),;
      BuildTimer( IF ( aConfiguracion[ 01 ] < 17, 0x64, 0xB4 ),;
      aConfiguracion, aProductos, aSurtidores, aSetVars, oDlg );
       )

   DBCloseAll()

   AEval( oFuentes, { | aFuentes | aFuentes:END( ) } )

RETURN ( NIL )

//------------------------------------------------------------------------------

STATIC FUNCTION BuildTimer( nComando, aConfiguracion, aProductos, aSurtidores, aSetVars, oDlg )
   MEMVAR oTimer

   DEFINE Timer oTimer Interval Val( aSetVars[ 03 ] );
      Action ( NuevasCargas( nComando, aConfiguracion, aProductos, aSurtidores, aSetVars ) ) OF oDlg

   ACTIVATE timer oTimer

   RETURN ( NIL )

//------------------------------------------------------------------------------

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Class: 'NIL' has no exported
Posted: Mon Jun 12, 2006 04:25 PM

porque oBrw es Nil :roll:

Saludos :shock:

Saludos/regards

RenOmaS

skype: americo.balboa

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Class: 'NIL' has no exported
Posted: Mon Jun 12, 2006 07:37 PM

Gracias,

Pero me gustaria ver la solucion, ya que OBRW aparentemente lo estoy creando, es mas cuando ejecuto el programa el obrw se arma:

Code: Select all Collapse

oDlg:= oDlgEnlace( oBrw, oTextos, oBtns, oBmp, oFuentes)

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Class: 'NIL' has no exported
Posted: Mon Jun 12, 2006 08:44 PM

Tendrias que publicar mas codigo..

Saludos

Saludos/regards

RenOmaS

skype: americo.balboa

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Esto seria asi como AUTO-RESPONSED
Posted: Tue Jun 13, 2006 02:11 PM

Amigos,

Primeramente quiero agradecerle a mi amigo de Williams (wmormar) porque me ayudo a solucionar el inconveniente posteado.

Voy a hacerlo sencillo y me gustaría recibir alguna explicacion "Técnica" al respecto porque realmente perdí mucho tiempo buscando solución.

Si vamos a utilizar una declaracion de este tipo:

Code: Select all Collapse

function main()
    local oBrw
    ...

Al momento de enviar oBrw como dato en una funcion se la debe pasar como referencia.

Code: Select all Collapse

oDlg:= CrearBrowser( @oBrw )

En cambio, cuando se utiliza un array de esa variable:

Code: Select all Collapse

function main()
    local oBrw:= array( 01 )
    ...

Al momento de enviar oBrw como dato en una funcion la cual crea el browser, tenemos que enviarlo asi:

Code: Select all Collapse

oDlg:= CrearBrowser( oBrw )

Alguien podría explicarme porque?
Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

thefull

Posts: 731

Joined: Fri Oct 07, 2005 07:42 AM

Re: Esto seria asi como AUTO-RESPONSED
Posted: Tue Jun 13, 2006 02:38 PM

Es muy simple.

Por que , un array, SIEMPRE es pasado por referencia ;-)

Ah!!! ¿ como se te quedo el cuerpo? ....jejeje

Saludos

Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)

FiveTech Support Forums

Continue the discussion