FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Requiero explicacion error ACTIVATE DIALOG
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 02:15 AM

Buena noche...

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => L_CIEMES_INVENTARIO( 610 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => A_FACTCIER_CIERRES( 94 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)MENUX( 2179 )

Called from: .\source\classes\menu.prg => TMENU:COMMAND( 1582 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:COMMAND( 1178 )

Called from: => TWINDOW:HANDLEEVENT( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

Requiero ayuda para entender error segun la secuencia del error anterior

Revisando las clases de fivewin.

Analisis de la clase DIALOG.PRG Y WINDOW.PRG, para ver el porque del error anterior y su consecuencia.. segun la secuencia de "called from :", del error anterior

primero este error es exporadico, por lo tanto tratar de simularlo con un "codigo ejemplo", no aplica.

? Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 ) , parto desde aqui donde se activa un formulario ....

Requiero ampliacion del porque al activar el dialogo , se genera DIALOGBOXINDIRECT( 0 ) ...

... pregunto por error al activar el dialogo.... ?

... o sino hay error y finalizo la ejecucion del dialogo, porque no sigue mostrando las acciones dentro del diagolo creado ?

... hay o no error en el dialogo ? o termino exitosamente y las siguientes acciones son normales al flujo de fivewin ?

=> luego se invoca _FWH( 3719 ) , por error o por el llamado del app ?

.. que despues genera : Called from: => TWINDOW:HANDLEEVENT( 0 ) ,

que depues invoca TWINDOW:COMMAND( 1178 ),

que despues invoca ".\source\classes\menu.prg => TMENU:COMMAND( 1582 )"

y es aqui donde se presenta la accion de invocar opciones del menu con : 

  case hWndCtl == 0 .and. ::oMenu != nil

       ::oMenu:Command( nID )

al final se ejecuta una opcion del menu propio del app.... por un error en un dialogo que no tiene nada que ver con la opcion del menu ejecutada !!! ???

si es por un error en el dialogo, la duda esta aqui... este llamado a un funcion segun tmenu:command es por seleccion del operario o por recuperacion del sistema ante un error ?

Called from: .\source\classes\menu.prg => TMENU:COMMAND( 1582 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)MENUX( 2179 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => A_FACTCIER_CIERRES( 94 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => L_CIEMES_INVENTARIO( 610 )

Gracias a los expertos

JONSSON RUSSI

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 12:26 PM
Muestra solo esto:
Code: Select all Collapse
   FW_FUNCSST1.PRG => (b)MENUX( 2179 ) -> (b) de BAD -> Malo.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 12:30 PM

Favor revisar la duda,,, la cambie o redacte de una forma mas clara...

Gracias

IF !EMPTY( cFunEje )

           bBloEje := ( "{||" + cFunEje  + "}" )

           IF validaPermisoFW(cNroOpc,nil,m->nPerFilXXX)



              MENUITEM ( ALLTRIM(cNomOpc) ) BLOCK  &(bBloEje)  // line 2179





           ELSE

              MENUITEM ( ALLTRIM(cNomOpc) ) DISABLED  BLOCK &( bBloEje)

           ENDIF



        ELSE



           IF validaPermisoFW(cNroOpc,nil,m->nPerFilXXX)

              MENUITEM ( ALLTRIM(cNomOpc) )

           ELSE

              MENUITEM ( ALLTRIM(cNomOpc) ) DISABLED

           ENDIF



        ENDIF
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 12:58 PM

Cual mensageria que vien en el ERROR.LOG? Muestre a mensageria.

MENUITEM ( ALLTRIM(cNomOpc) ) BLOCK &(bBloEje) // line 2179 -> Mensageria.

BLOCK &(bBloEje) -> que debria hacer esto?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 01:38 PM

cFunEje := "A_FACTCIER_CIERRES()" //

bBloEje := "{||" + cFunEje + "}"

MENUITEM ( ALLTRIM(cNomOpc) ) BLOCK &bBloEje

karinha... gracias por el interes.. revisando otros errores deduzco que en el activate dialog , no hay error... que termina bien y que luego se ejecuta una opcion del menu por parte del operario... y ya en el llamado a estos metodos es donde se genera un error.. pero este error ya es otro tema a tratar...

Gracias

russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 01:53 PM

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1852 )

Called from: .\source\classes\tget.prg => TGET:HANDLEEVENT( 1329 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => MSGINFO( 0 )

Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => MENSAJES( 394 )

Called from: FUENTES\UTILIDADES\UTILIDAD.PRG => COPIAGESTION( 11167 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => L_CIEMES_INVENTARIO( 610 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => A_FACTCIER_CIERRES( 94 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)MENUX( 2179 )

Called from: .\source\classes\menu.prg => TMENU:COMMAND( 1582 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:COMMAND( 1178 )

Called from: => TWINDOW:HANDLEEVENT( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 1095 )

)

Ahora la duda es :

si en el activate dialog... no hay error y fue un llamado a una opcion del menu : MENUX( 2179 ), metodos que terminan aqui : Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )...

Pregunto por que se disparan estos metodos :

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1852 )

Called from: .\source\classes\tget.prg => TGET:HANDLEEVENT( 1329 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => MSGINFO( 0 )

donde :

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

es el dialogo creado aqui :

     Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

     Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 1095 )

pregunto : dado que este dialogo habia terminado sin error, porque : Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

regresa al contenido de dicho dialogo ?

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 02:19 PM

¿Podrías darme un pequeño ejemplo para probarlo? No entiendo este estilo de programación. Es bastante confuso.

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 02:42 PM

El menu se crea dinamicamente desde un tabla---

La duda es .... si estoy en un formulario de registro de transacciones ---- y si termina ok y luego se ejecuta otra opcion del menu... porque

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

regresa el control al formulario que supuestamente ya habia terminado

Nota: generar un codigo de ejemplo no es practico o facil .. dado que el error es esporadico y el formulario de registro de inventarios es el mas complejo del sistema-

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 03:13 PM

El problema no está aquí:

Llamado desde: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Llamado desde: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Está en tu propio código fuente. Por favor, publica el registro de errores completo.

Sin código para probar, es difícil saber qué estás haciendo mal.

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 04:43 PM

Application

===========

Path and name: D:\ZERUS\zeruswin.exe (32 bits)

Size: *** bytes

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150726)

FiveWin Version : FWH 24.09

Windows version: 6.2, Build 9200

Time from start: 1 hours 0 mins 19 secs

Error occurred at: 09/01/2025, 09:06:20

Error description: Error BASE/1002 No existe el alias: TRA

Stack Calls

===========

Called from: FUENTES\COMUNES\FUNCSLIB.PRG => SELECTAREA_INV( 28459 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VERIFICAALIASCERRADAS( 27318 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VALIDAENTERARTICULO( 24210 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1852 )

Called from: .\source\classes\tget.prg => TGET:HANDLEEVENT( 1329 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => MSGINFO( 0 )

Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => MENSAJES( 394 )

Called from: FUENTES\UTILIDADES\UTILIDAD.PRG => COPIAGESTION( 11167 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => L_CIEMES_INVENTARIO( 610 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => A_FACTCIER_CIERRES( 94 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)MENUX( 2179 )

Called from: .\source\classes\menu.prg => TMENU:COMMAND( 1582 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:COMMAND( 1178 )

Called from: => TWINDOW:HANDLEEVENT( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 1095 )

Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA_( 935 )

Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA( 70 )

Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => (b)TOUCHMENU3( 9137 )

Called from: C:\fwh24_10\source\classes\metropnl.prg => (b)TMETROBTN:NEW( 627 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:LBUTTONUP( 2159 )

Called from: .\source\classes\control.prg => TCONTROL:LBUTTONUP( 737 )

Called from: .\source\classes\btnbmp.prg => TMETROBTN:LBUTTONUP( 1056 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1867 )

Called from: .\source\classes\btnbmp.prg => TMETROBTN:HANDLEEVENT( 2145 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => WINRUN( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:ACTIVATE( 1137 )

Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 7797 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => PRINCIPAL( 1474 )

Called from: FUENTES\MAIN\ZerusMain.prg => ZERUSMAIN( 4824 )

Called from: zeruswin.prg => MAIN( 17 )

russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 04:51 PM

la duda esta aqui... porque se dispara este metodo (*) que esta en un valid de un get dentro del formulario anterior (ya cerrado)

  • VALIDAENTERARTICULO( 24210 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

despues de terminar esta funcion 

Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )

        que muestra un msginfo("mensaje")

Called from: FUENTES\COMUNES\FUNCSLIB.PRG => SELECTAREA_INV( 28459 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VERIFICAALIASCERRADAS( 27318 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VALIDAENTERARTICULO( 24210 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1852 )

Called from: .\source\classes\tget.prg => TGET:HANDLEEVENT( 1329 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => MSGINFO( 0 )

Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 05:01 PM

Publique el INTERFW2.PRG completo para que los miembros del foro lo lean.

Error description: Error BASE/1002 No existe el alias: TRA ?? Como tu hace el apertura?

Gracias, tks, Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
russimicro
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 05:13 PM

si le hacemos seguimiento a la ejecucion segun el log despues de crear y salir del dialogo, seria asi ;

metodo prOpio del app, donde se define un dialogo y se termina normalmente

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 1095 )

metodos invocados por fwh

Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: => TWINDOW:HANDLEEVENT( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => TWINDOW:COMMAND( 1178 )

Called from: .\source\classes\menu.prg => TMENU:COMMAND( 1582 )

metodo invocado por usuario... en una opcion del menu

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)MENUX( 2179 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => A_FACTCIER_CIERRES( 94 )

Called from: FUENTES\GESTION\INVENTARIOS\FactCier.Prg => L_CIEMES_INVENTARIO( 610 )

Called from: FUENTES\UTILIDADES\UTILIDAD.PRG => COPIAGESTION( 11167 )

Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => MENSAJES( 394 )

Called from: FUENTES\COMUNES\FW_FUNCSST2.PRG => MYMEN( 3570 )

// fin del metodo terminado con exito

metodos invocados por fwh 

Called from: => MSGINFO( 0 )

Called from: C:\fwh24_10\source\classes\window.prg => _FWH( 3719 )

Called from: .\source\classes\tget.prg => TGET:HANDLEEVENT( 1329 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1852 )

Called from: .\source\classes\control.prg => TGET:FWLOSTFOCUS( 1251 )

Called from: .\source\classes\tget.prg => TGET:LVALID( 2473 )

aque esta el interrogante : porque el TGET:LVALID( 2473 ) invoca un valid de un get , del formulario cerrado (Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 ))

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => (b)XLEEREGISTROS( 2417 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VALIDAENTERARTICULO( 24210 )

Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => VERIFICAALIASCERRADAS( 27318 )

Called from: FUENTES\COMUNES\FUNCSLIB.PRG => SELECTAREA_INV( 28459 )



// SE PRESENTA ERROR PORQUE LAS TABLAS ESTAN CERRADAS , PORQUE YA SE HABIA SALIDO DE ESE FORMULARIO

nota: al final mi duda esta es el funcionamiento de los TCONTROL:HANDLEEVENT .... para poder luego en mi app.. revisar que estoy haciendo mal---(no se destruyo el formulario , quedaron valid() activos,,, etc)

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 05:46 PM

Muestra el GET donde hay un VALID:

La pregunta es: ¿por qué TGET:LVALID(2473) invoca un GET válido desde la forma cerrada (¿Desde dónde se llama?).

Sin ver qué escribiste mal en el código fuente, es difícil ayudarte. Si lo prefieres, envíaselo al Maestro Navarro para que pueda LEER tu CÓDIGO. ¿De acuerdo?

Prueba esto: comenta el código con // y ve vinculándolo LÍNEA por LÍNEA hasta que se rompa y puedas averiguar dónde te equivocaste. ¿De acuerdo?

Gracias, tks.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Requiero explicacion error ACTIVATE DIALOG
Posted: Tue Sep 02, 2025 06:54 PM
hola a tod@s

revisa que exista el alias

Time from start: 1 hours 0 mins 19 secs
Error occurred at: 09/01/2025, 09:06:20
Error description: Error BASE/1002 No existe el alias: TRA
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Static archive · New replies & topics via GitHub Discussions