FiveTech Support Forums

Hola...
Buenas Tardes,

Estoy incluyendo en mi aplicacion una busqueda incremental con xBrowse
pero al correr la aplicacion me da este error :

Application
===========
Path and name: C:\Proyectos\Software\SisImei\sisimei.exe (32 bits)
Size: 1,867,264 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 22/09/2009, 12:12:47
Error description: Error FiveWin/2 Duplicated Id: No: 4001
Args:

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => TDIALOG:DEFCONTROL(348)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMRESOURCE(687)
Called from: OBJDATAB.PRG => VER_PACIENTES(187)
Called from: sisimei.prg => (b)MAIN(79)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(441)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(626)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1286)
Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(952)
Called from: sisimei.prg => MAIN(112)


Este ese el Codigo :


PROCEDURE Ver_Pacientes()
LOCAL oDlg
LOCAL oBrush
LOCAL oBtn
LOCAL oBrw
LOCAL lExit := FALSE
LOCAL INDICE := oSistema:DIR+oSistema:PACINOMB+oSistema:NTX
LOCAL OldArea := SELECT()

OpenShared( FILE_PACIENTE, "Paciente" )
SET INDEX TO &INDICE

DEFINE DIALOG oDlg RESOURCE "VER_HISTORIAS" ICON oSistema:Icono

// Browse
REDEFINE XBROWSE oBrw ID 4001 OF oDlg;
ALIAS Alias();
FIELDS FIELD-> Cedula, FIELD-> Nombre, FIELD-> Direccion, FIELD-> Telefono;
HEADER "CEDULA", "NOMBRE", "DIRECCION", "TELEFONO";
COLORS CLR_BLUE, CLR_WHITE;
MESSAGE "Arhivo de Historias de Pacientes"

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:bSeek := {|c| DbSeek( Upper( c ) ) }
oDlg:oClient := oBrw
oBrw:CreateFromResource( 4001 )

// Botones
REDEFINE BTNBMP oBtn ID 4002 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )

REDEFINE BTNBMP oBtn ID 4003 OF oDlg;
2007;
CENTER;
ACTION ( Buscar_Paciente(), lExit := FALSE )

REDEFINE BTNBMP oBtn ID 4004 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )

REDEFINE BTNBMP oBtn ID 4005 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )


REDEFINE BTNBMP oBtn ID 4006 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )

ACTIVATE DIALOG oDlg VALID lExit ON INIT oBrw:SetFocus()

close index
dbcloseArea()
RETURN


STATIC PROCEDURE Buscar_Paciente( oBrw )
LOCAL oDlg
LOCAL oBrush
LOCAL oBtn
LOCAL oBrow
LOCAL oGet
LOCAL lExit := FALSE

DEFINE DIALOG oDlg RESOURCE "BUSCAR_PACIENTE" ICON oSistema:Icono

// Get
REDEFINE GET oGet ID 4002 OF oDlg;
VALID SiExisteCedula( oGet, oBrw )

// Botones
REDEFINE BTNBMP oBtn ID 4004 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )

REDEFINE BTNBMP oBtn ID 4005 OF oDlg;
2007;
CENTER;
ACTION ( lExit := TRUE, oDlg:End() )

ACTIVATE DIALOG oDlg VALID lExit

RETURN


STATIC FUNCTION SiExisteCedula( oGet, oBrw )

RETURN nil



A ver que sucede,
Desde ya muchas Gracias...

Albeiro,

Quita esta linea: oBrw:CreateFromResource( 4001 )

Ya tenías creado el XBROWSE con el REDEFINE XBrowse.

Gracias Manuel,

Funciono..