He tratado de solucionar mi problema, aplicandoo sus sugerencias y otras personales, pero no logro dar con la solucion.
Esto lo habia expuesto hace unos dias atras, pero mi urgencia me hace recurrir de esta forma y no se si es correcto, de no ser asi pido disculpas.
Tengo 3 programas que componen mi aplicacion, el que me presenta el problema se llama Consulta.PRG.
En el tengo un COMBOBOX, donde debo seleccionar Profesionales, el cual deriva como resultado la presentacion de sus pacientes en un XBROWSE.
Problemas:
1. Antes de presentar la lista en el XBROWSE, realizo algunas validaciones, si todo se cumple, el listado sera desplegado.
Cuando la Validacion es Correcta, y doy BOTON SALIR, Vuelve al menu y togo OK.
2. Cuando Selecciono un profesional y al validar EMITE ALGUN MENSAJE DE ERROR AL USUARIO, para seleccionar otro profesional, SI doy BOTON SALIR, el Sistema SE CAE, emitiendo la ventana del error y saliendose del sistema.
3. Todo se produce al dar BOTON SALIR, despues de algun mensaje en la Validacion de Profesional.
Dejo un Link, donde he dejado un Archivo llamado FORO.RAR, donde estan los 3 programas PRG, RES, Y BAT de complicacion.
Link que Contiene el archivo Foro.rar:
https://drive.google.com/file/d/1YGsjw0 ... sp=sharing
Desde ya muchas gracias.
Antonio.
detalle del Error.
Code: Select all
Path and name: C:\Util\Foro\Menucon.exe (32 bits)
Size: 3,220,480 bytes
Compiler version: Harbour 3.2.0dev (r1506171039)
FiveWin Version: FWH 15.07
Windows version: 5.1, Build 2600 Service Pack 3
Time from start: 0 hours 0 mins 27 secs
Error occurred at: 27/11/2018, 12:33:17
Error description: Error BASE/1072 Argument error: <>
Args:
[ 1] = N 5
[ 2] = C HECTOR RIQUELME
Stack Calls
===========
Called from: .\source\classes\TGET.PRG => TGET:LOSTFOCUS( 1223 )
Called from: .\source\classes\CONTROL.PRG => TGET:KILLFOCUS( 1083 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1696 )
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 592 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3544 )
Called from: => SETFOCUS( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 799 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1720 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1705 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3544 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 289 )
Called from: .\Consulta.PRG => CONSU_PACI( 88 )
Called from: .\Menucon.PRG => (b)MAIN( 46 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 638 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 872 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1705 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3544 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1062 )
Called from: .\Menucon.PRG => MAIN( 58 )
System
======
CPU type: Intel(R) Core(TM)2 Duo CPU E7400 @ 2.80GHz 2800 Mhz
Hardware memory: 1980 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 9
1 ,
2 , C:\Util\Foro\Menucon.exe
3 , C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.6028_x-ww_61e65202
4 , C:\WINDOWS\system32\SHELL32.dll
5 , C:\WINDOWS\system32\SHLWAPI.dll
6 DDE Server Window, C:\WINDOWS\system32\OLE32.DLL
7 Default IME, C:\WINDOWS\system32\MSCTF.dll
8 GDI+ Window, C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.6002.23846_x-ww_f7dfd05e\GDIPLU
9 M, C:\WINDOWS\system32\msctfime.ime
Variables in use
================
Procedure Type Value
==========================
TGET:LOSTFOCUS
Param 1: O Class: ERROR
TGET:KILLFOCUS
Param 1: N 1508232
Local 1: N 5
Local 2: C "HECTOR RIQUELME "
Local 3: U
Local 4: U
TCONTROL:HANDLEEVENT
Param 1: N 1508232
Local 1: U
TGET:HANDLEEVENT
Param 1: N 8
Param 2: N 1508232
Param 3: N 0
Local 1: U
_FWH
Param 1: N 8
Param 2: N 1508232
Param 3: N 0
Local 1: U
SETFOCUS
Param 1: N 0
Param 2: N 8
Param 3: N 1508232
Param 4: N 0
Param 5: N 10
Local 1: O Class: TGET
TBTNBMP:LBUTTONDOWN
Param 1: N 1508232
TCONTROL:HANDLEEVENT
Param 1: N 24
Param 2: N 86
Param 3: N 1
TBTNBMP:HANDLEEVENT
Param 1: N 513
Param 2: N 1
Param 3: N 1572950
Local 1: U
_FWH
Param 1: N 513
Param 2: N 1
Param 3: N 1572950
DIALOGBOX
Param 1: N 1572950
Param 2: N 513
Param 3: N 1
Param 4: N 1572950
Param 5: N 29
Local 1: O Class: TBTNBMP
TDIALOG:ACTIVATE
Param 1: N 4194304
Param 2: C "#1004"
Param 3: N 2229088
Param 4: O Class: TDIALOG
CONSU_PACI
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Local 1: N 2229088
Local 2: S
Local 3: O Class: TDIALOG
(b)MAIN
Local 1: O Class: TFONT
Local 2: O Class: TFONT
Local 3: O Class: TSAY
Local 4: O Class: TFONT
Local 5: O Class: TSAY
Local 6: O Class: TDIALOG
Local 7: O Class: TSAY
TBTNBMP:CLICK
Param 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
TCONTROL:HANDLEEVENT
Param 1: N 21
Param 2: N 26
Param 3: N 0
Local 1: L .T.
Local 2: S
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1376282
Local 1: U
_FWH
Param 1: N 514
Param 2: N 0
Param 3: N 1376282
WINRUN
Param 1: N 1376282
Param 2: N 514
Param 3: N 0
Param 4: N 1376282
Param 5: N 3
Local 1: O Class: TBTNBMP
TWINDOW:ACTIVATE
Param 1: N 2229088
MAIN
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TCURSOR
5 TFONT
6 TWINDOW
7 TDIALOG
8 TBRUSH
9 TCONTROL
10 TBITMAP
11 TSAY
12 TGET
13 GET
14 TCLIPGET
15 TBUTTON
16 TRECT
17 TBAR
18 TBTNBMP
19 TMSGBAR
20 TCOMBOBOX
21 TXBROWSE
22 TXBRWCOLUMN
23 TSCROLLBAR
24 TREG32
Memory Analysis
===============
330 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
