FiveTech Software tech support forums

... "NL", "Cta","Debe","Haber","St.My" ; FIELDSIZES 20 , 50, 55 ,130 , 20 ; UPDATE ; ID 119 OF oDlg mysetBrowse(oLb1,oWDetTabla) REDEFINE GET oWMIO_HB VAR WMIO_HB PICTURE "99999999.99" ID 960 WHEN .F. OF oDlg ACTIVATE DIALOG oDlg Gracias

... 954 ) Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:SKIP( 1455 ) Called from: D:\PRGS\SVITE_D\PRG\ekafunc.prg => (b)MYSETBROWSE( 4079 ) Called from: D:\SOFT\FWXH1208\TWBROWSE\WBROWSE.PRG => TWBROWSE:SKIP( 2359 ) Called from: D:\SOFT\FWXH1208\TWBROWSE\WBROWSE.PRG ...

Aqui va,,, Salu2 FUNCTION MySetBrowse( oBrw,oTable ) if ValType( oBrw ) != "O" .or. ValType( oTable ) != "O" RETURN (NIL) else oBrw:bGoTop := { || oTable:Gotop() } oBrw:bGoBottom := { || oTable:GoBottom() } oBrw:bSkip ...

... ; HEADERS "Ingresos","Egresos","Saldo" ; SIZES 80, 80, 80 ; SIZE 200,100; OF oDlg //Y ESTA LA PUEDES MOSTAR? //MySetbrowse(oLbx, oDatos ) // importante para la navegacion ACTIVATE DIALOG oDlg CENTER Return(nil) //Esta funcion permite manejar las tablas aun sin ...

la funciion mysetbrowse es una funcion de de la clase eagle1 para manejo de mysql y es seguro que el problema radica en el seteo del objeto del recordset para la tablas de mysql con Eagle1. mysetBrowse(oLbx,oTabla) que tienes dentro ...

mysetBrowse(oLbx,oTabla) que tienes dentro de esta funcion?? oTabla que tipo de dato tiene es un objeto DBF o un recordset u otro objeto? usas SetDbf() o SetAdo(), te podria sugerir pasar los datos a un array o una estructura ...

... ; CURSOR oDedo; FIELDSIZES 80,60,60,60,60 AUTOSORT ; ON DBLCLICK MTCA10PRO( "E",oSYS_DAT,oLbx,oCon,oDBaseCia,oTabla,cNmTabla) ; ID 172 OF oDlg mysetBrowse(oLbx,oTabla) oLbx:bKeyDown := {|nKey| MTCA10_KEY( nKey,oSYS_DAT, oLbx,oDlg,oCon,oDBaseCia,oTabla,cNmTabla )} REDEFINE BITMAP RESOURCE "BC_NUEVO" ...

... Ramo, ([Enter] o Doble Click => Modifica)"; HEADERS "Descripción" ID 401 OF oDlg oQuery:GoTop():Read() // No se olvide nunca de esta linea MySetBrowse(oLbx,oQuery) // No Olvidarse Nunca de Esta Línea oLbx:cAlias := "ARRAY" // No Olvidarse de "ESTO", si no se tranca Nota: Yo Utilizo el TWBROWSE, ...

... ; "Cod.Area" ID 401 OF oDlg REDEFINE BUTTON oButSalir ID 101 OF oDlg; ACTION oDlg:End() oTabla:GoTop():Read() // No se olvide nunca de esta linea MySetBrowse( oLbx, oTabla ) oLbx:cAlias:="ARRAY" // <==== SIN ESTO NO TRABAJA <<=== oDlg:oClient := oLbx ACTIVATE DIALOG oDlg CENTER oTabla:close() ...

... no tener que efectuar estos pasos previos y trabajar directamente. Parece que el problema tiene su origen en las definiciones que hace el eagle en MySetBrowse() de los bloques: oLbx:bGoTop := { || oTabla:GoTop(), MsFetchRow( oTabla:hResult ) } oLbx:bGoBottom :={||oTabla:GoBottom(),MsFetchRow(oTabla:hResult ...

... ; "Cod.Area" ID 401 OF oDlg REDEFINE BUTTON oButSalir ID 101 OF oDlg; ACTION oDlg:End() oTabla:GoTop():Read() // No se olvide nunca de esta linea MySetBrowse( oLbx, oTabla ) oDlg:oClient := oLbx ACTIVATE DIALOG oDlg CENTER oTabla:close() ELSE MSGALERT("No se puede abrir la tabla: " + cTabla ) ...

... FROM movimientos WHERE agencia_origen='"+OP:AGENCIA+"' OR agencia_destino ='"+OP:AGENCIA+"'" ) oBrw := TXBrowse():new( oDlg ) oBrw:CreateHeader() MySetBrowse( oBrw,oQry ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY ...