Requiero explicacion error ACTIVATE DIALOG

[russimicro]

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]

Muestra solo esto:

Code: Select all | Expand

   FW_FUNCSST1.PRG => (b)MENUX( 2179 ) -> (b) de BAD -> Malo.

Regards, saludos.

[russimicro]

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]

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.

[russimicro]

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]

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]

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

Gracias, tks.

Regards, saludos.

[russimicro]

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]

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.

[russimicro]

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]

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]

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.

[russimicro]

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]

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.

[Patricio Avalos Aguirre]

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