FiveTech Software tech support forums

Tengo un dialogo con un twbrowse y unos botones, normales sin imagen el problema es que quito el twbrowse me presenta el dualogo y lo pongo y ya no me lo presenta, cuales son las propiedas que debo cambiar.

uso xhb.

saludos.
fernando sandoval ruiz

Fernando,

Has redefinido el browse desde el PRG ? Si no lo haces, Windows no encuentra la clase del browse, y no puede crear el diálogo.

Efectivamente lo esoy redefiniendo, aqui esta el codigo al que me refiero.
*-----------------------------------------------------------------
FUNCTION BrwEmpresas( oWnd ,oAdo )
LOCAL oDlg,oFontBrw,oParMulti,oBrw,oCol,oEmpresas,oErr
Local oBAltas,oBModificar,oBBorrar, oBSeleccion,obSalir
Local lNEmp

oEMPRESAS := CREATEOBJECT( "ADODB.Recordset" )
oEmpresas:CursorLocation := 3
oEmpresas:CursorType := 3
oEmpresas:LockType := 3
oEmpresas:MaxRecords := 0
TRY
oEMPRESAS:Open( "SELECT * FROM CATCLIE","DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=comandas;UID=root;PWD=root;" )
CATCH oErr
? oErr:Description
RETURN NIL
END TRY
//oInspect( oEmpresas)
oEmpresas:MoveFirst()


DEFINE DIALOG oDlg RESOURCE "DLGMANDB" TITLE "MANTENIMIENTO DE EMPRESAS"

REDEFINE BROWSE oBrw ID 101 OF oDlg

//DEFINE DIALOG oDlg SIZE 300, 300

/* @ 0, 0 BROWSE oBrw;
ON RIGHT CLICK oBrw:Report( "TCBrowse report", .T. )

ADD COLUMN TO oBrw;
DATA oEmpresas:Fields( "NomCli" ):Value;
HEADER "Nombre del Cliente";
COLOR CLR_RED, CLR_GREEN

ADD COLUMN TO oBrw;
DATA oEmpresas:Fields( "DirCli" ):Value;
HEADER "Direccion del Cliente";
COLOR CLR_RED, CLR_GREEN

oBrw:lCellStyle = .T.

oBrw:bLogicLen := { || oEmpresas:RecordCount }
oBrw:bGoTop := { || oEmpresas:MoveFirst() }
oBrw:bGoBottom := { || oEmpresas:MoveLast() }
oBrw:bSkip := { | nSkip | AdoSkip(oEmpresas,nSkip ) }
oBrw:cAlias := "ARRAY"
*/
/*
REDEFINE BUTTON oBAltas ID 202 OF oDlg ;
ACTION (AltasCias( ID_AALT, oEmpresas ) ,SelEmpresa(oWnd, oEmpresas ), oEmpresas:Refresh(.t.) , oBrw:Refresh() , oEmpresas:End() ,oDlg:End() , SysRefresh() )

REDEFINE BUTTON oBModificar ID 203 OF oDlg ;
ACTION AltasCias( ID_AMOD, oEmpresas )

REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;
ACTION ( if( MsgYesNo( OemToAnsi( ;
"¨Seguro que quiere borrar la Empresa " + Empresas:Fields(1):value ) , ;
BorrarRegistro(oAdo , "empresas" , "numemp" , oEmpresas:Fields(1):value ) , "" ) , oEmpresas:refresh() ) )

REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;
ACTION (SelEmpresa(oWnd , oEmpresas ), SysRefresh() ,oDlg:End())

REDEFINE BUTTON oBSalir ID 206 OF oDlg ;
ACTION ( oEmpresas:Close(), oDlg:End())
*/
ACTIVATE DIALOG oDlg CENTER
oFontBrw:End()


RETURN( NIL )


lo raro es que si lo quito el redefine me presenta el dialogo, o lo mismo si lo hago con dialogo directo si me presenta el browse.

Fernando,

Déjanos ver el RC de este diálogo.

DLGMANDB DIALOG 21, 24, 285, 157
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Control de Bases de Datos"
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "&Seleccionar", 201, 224, 8, 50, 40
PUSHBUTTON "&Crear", 202, 224, 61, 50, 14
PUSHBUTTON "&Modificar", 203, 224, 79, 50, 14
PUSHBUTTON "&Eliminar", 204, 224, 97, 50, 14
PUSHBUTTON "&Refrescar", 205, 224, 116, 50, 14
PUSHBUTTON "&No Selecionar", 206, 224, 133, 50, 14
CONTROL "", 101, "TWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 8, 5, 205, 142
}

Fernando,

Estás usando "TWBrowse" en el RC, pero usas la clase TCBrowse en el PRG. Cambia en el RC a "TCBrowse".

O estás usando el browse de Hernán ?

uso el tcbrowse y tsbrowse de manuel mercado son con los que estube probando, que de echo este dialogo lo tengo trabajndo en otro sistema pero con odbc , hb,fwh. solo que por hacer pruebas y ver lo de la calse tole decidi hacer algo con el xhb, y ahi empezaron los problemas.


gracias inge.
fernando sandoval ruiz

Fernando,

Si usas el TCBrowse entonces escribe "TCBrowse" en el RC. Si usas TSBrowse, pues "TSBrowse". Así debería funcionar correctamente.

Gracias Inge. Antonio, cada dia se aprende algo , o nos corrige viejos errores.


saludos.
fernando sandoval ruiz