Favor Ayuda Urgente

[remtec]

Amigos


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  Expand view

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

 

[karinha]

Antonio para probrar, cual és el usuário y clave? Saludos.

admin - admin,

Gracias.

[remtec]

Karinha

Muchas gracias por responder.

Disculpa, me falto:

Usuario: ADMIN

Clave: ADMIN

Saludos

[karinha]

Karinha

Muchas gracias por responder.

Disculpa, me falto:

Usuario: ADMIN

Clave: ADMIN

Saludos

USUBOX.DBF - Debes usar password en el futuro. Estoy a mirar.

[karinha]

Iniciando:

Code: Select all  Expand view

BASE/1072    Argument error: <>

     Explanation:  The arguments to the <>, #, or != operator were of
     incompatible types.

     Action:  Correct the program.
 

[remtec]

Hola Karinha

Lo del campo clave, lo cambie, para poder ver usuario y clave en la dbf.

Esto que posteas, no lo entiendo??

BASE/1072 Argument error: <>

Explanation: The arguments to the <>, #, or != operator were of
incompatible types.

Action: Correct the program.

Saludos.

[karinha]

Cuando tiene pacientes en xbrowse, programa no se rompe.

[karinha]

BASE/1072 Argument error: <>, esto, és el que estoy intentando encontrar. Saludos.

[remtec]

Karinha

Es correcto, cuando el profesional tiene pacientes, se muestra y si das Boton Salir, el programa retorna bien.

Pero si seleccionas un profesional que no tenga pacientes oo que no cumpla con la validad, se muestra mensaje al Usuario y al dar boton Salir, el Sistema Cae.

Saludos.
Antonio

[karinha]

Exato.

Mira:

No comprendo:

Code: Select all  Expand view

STATIC FUNCTION  Carga_paci( cCod_pro1 )

   IF Len( cCod_pro1 ) = 0
      MsgStop( "No ha Seleccionado Profesional Medico" )
      RETURN
   ENDIF

   carchi := 'PACI' + trim( cCod_pro1 )

   ? "carchi: ", carchi
 

??? PACIRIQU?? no hay este .DBF.

[horacio]

Verifica el control combobox, pon sort en no ( no ordenado ) y el style dropdown list. con esos cambios a mi me funciona.

Saludos

[karinha]

Code: Select all  Expand view

   IF !file( '&carchi..dbf' )

      // Msginfo( "MEDICO SELECCIONADO NO TIENE INGRESOS DE PACIENTES 1" )
      //oCod_pro1:SetArray( aProfe )

      // SIN EL MsgStop(), funciona... ?????
      /*
      MsgStop( OemToAnsi( "MDICO SELECCIONADO NO TIENE INGRESOS DE PACIENTES" ), ;
               OemToAnsi( "MDICO SELECCIONADO - NO COMPRENDO? SE ROMPE AQUI?" ) )
      */

      RETURN NIL // ASI NO SE ROMPE. NO COMPRENDO???

   ENDIF
 



[karinha]

En efecto, tiene un error aquí. Compruebe las propiedades del COMBOBOX.

Code: Select all  Expand view

   REDEFINE COMBOBOX oCod_pro1 VAR nCod_pro1 ITEMS ArrTranspose( aProfe )[2] ;
      ID 102 OF oDlg1 COLORS nRGB( 9, 11, 10 ), nRGB( 73, 250, 202 )         ;
      ON CHANGE ( cCod_pro1 := ArrTranspose( aProfe )[1][oCod_pro1:nAt],     ;
                  Carga_paci( cCod_pro1 ), oPaci:Refresh(), oSay2:Refresh() )
 

Saludos.

[karinha]

tiene algo mal en este diálogo. Y no uso Pellesc.exe

Mira, que el ID 102 no aparece en la imagen.

Si guardo como archivo .RC, me devuelve todo mal y en binario.



Saludos.

[karinha]

Otra cosa: Vea el control de xBrowse, usted está utilizando, LISTBOX.

Correcto és:

Code: Select all  Expand view

#include "..\include\WinApi.ch"

TEST DIALOG 6, 15, 306, 227
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TXBrowse demo"
FONT 8, "MS Sans Serif"
{
 DEFPUSHBUTTON "OK", IDOK, 252, 211, 50, 14
 CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 4, 5, 297, 202
}

CLIP BITMAP "../bitmaps/clip.bmp"
STAR BITMAP "../bitmaps/16x16/favorite.bmp"
GREEN BITMAP "../bitmaps/green.bmp"
RED BITMAP "../bitmaps/red.bmp"
BACKGROUND BITMAP "../bitmaps/fiveback.bmp"
 

Saludos.