FiveTech Software tech support forums

... Lo estoy haciendo asi LOCAL aFields:={} aFields:=oCursor obrw := TXBrowse():New( ownd ) obrw:SetArray( aFields, .t. ) oCursor lo llamo asi oTb := TMsTable( cTabla ):New( oDatabase, cTabla ) // Abrimos la tabla, traemos el resultado a nuestro cliente if !oTb:Open() MsgInfo( "No se puede ...

... valor en un array y luego descativo el que quiero...a menos que la barra de botones sea un array de 2 dimesiones, entonces tendrias que probar con oTb:aControls[1, 2]:disable(), o algo asi, o intenta usando oTb:aControls[1]:disable(),haber si te desactiva algun boton, hare pruebas, saludos... :shock:

Prueba con oTb:aControls[2]:disable(), saludos... :shock: bien bien! habia probado con abuttons.... gracias! gracias! Es lo primero que tambien se me habia ocurrido, pero asumiendo que ya lo habias intentado asi, revise la clase ...

joseluisysturiz wrote:Prueba con oTb:aControls[2]:disable(), saludos...

bien bien! habia probado con abuttons....

gracias! gracias!

Prueba con oTb:aControls[2]:disable(), saludos...

... clase TConnect ) 2) abrir la base de datos con el metodo open de la conexión. 3) interactuar con las tablas (clase TTable): - Altas -> oTb:insert() - Bajas -> oTb:delete() - Modificaciones -> oTb:update() - Consultas -> oTb:query() Créeme que cuando te acostumbras todo es super ...

Crea la instancia:
local oTB := TaskBar() // barra de tarea de Windows

y luego para desactivar o activar:

oTB:HideShowTaskBar(.f.)
oTB:HideShowTaskBar(.t.)

Funciona perfectamente, al menos, en XP y Vista.

... )} STATIC FUNCTION SeekMySql(nKey,cBusca,oLbx,oOrden,oTabla) *----------------------------------------------------- oTB:End() If nKey=8 cbusca:= SubStr(cbusca,1,Len(cbusca)-1) oTb:cQuery:= 'SELECT * FROM '+oTabla+' WHERE '+oOrden+" LIKE '"+cbusca+"%' ...

Para los que le interese, con esto resolvi el problema :D WITH OBJECT oBrow :bGoTop := {|| oTb:GoTop() } :bGoBottom := {|| oTb:GoBottom() } :bSkip := {| n | oTb:Skip( IIF( n == nil,1,n)) } :bBof := {|| oTb:Bof() } :bEof := {|| oTb:Eof() } :bBookMark := {| n | IIF( n ...

... oBrow, oTabs, oCol LOCAL oWndMain, nRegis := Space(05), cTable LOCAL nCont := 0 *-- IF oWndConj == NIL *-- cTable := "contratos" oTb := oApp:oServer:Query( "SELECT * FROM " + cTable ) IF oTb:LastRec() = 0 FOR nCont = 1 To 10 oTb:FieldPut("edificio",STRZERO( ...

Hola Yo lo estoy haciendo con eagle de la siguiente forma y funciona de maravilla , en el campo blob puede guardar cualquier cosa. oTb:=TMsQuery():New(::oDataBase) cImagen:=oTb:ReadFromFile(cFoto) cInsert:= "INSERT INTO `fotos` (`cfoto`,`codigo`,`ctexto`) VALUES " cInsert +="('"+cImagen+"','"+str(nCodigo)+"','"+alltrim(cTexto)+"');" ...

... )} STATIC FUNCTION SeekMySql(nKey,cBusca,oLbx,oOrden,oTabla) *----------------------------------------------------- oTB:End() If nKey=8 cbusca:= SubStr(cbusca,1,Len(cbusca)-1) oTb:=oServer:Query('SELECT * FROM '+oTabla+' WHERE '+oOrden+" LIKE '"+cbusca+"%' ORDER BY ...

... oBSeleccion ID 201 OF oDlg ; ACTION (SelEmpresa(oWnd , oRecSet ), SysRefresh() ,oDlg:End()) REDEFINE BUTTON oBSalir ID 206 OF oDlg ; ACTION ( oTb:Close(), oDlg:End()) */ ACTIVATE DIALOG oDlg ; ON INIT oDlg:SetControl( oBrw ) ; CENTER oFontBrw:End() RETURN( NIL )

Hola, Aqui estan los codigos para usar segun la sintaxis de tdbodbc olbx:bgotop:={||otb:gotop()} // Bloque de codigo para ir al primer //registro olbx:bgobottom:={||otb:gobottom()} // Bloque de codigo para ir al //ultimo registro olbx:bskip:={|nskip,nold,nsaltos|nold:=otb:recno(),otb:skip(nskip),nsaltos:=nold-otb:recno(),if(nsaltos+nold ...

... FUNCTION BrwEmpresas(oWnd ,oODbc ) LOCAL oDlg,oDlgCtrlCat,oGRID,oFontBrw,oLBX,oParMulti local aObj := {} Local oTb Local oBAltas,oBModificar,oBBorrar, oBSeleccion,obSalir Local lNEmp oTb := TDbOdbc():New( "empresas", oODbc) //oTb := TRecordSet():New(oOdbc,,"Empresas") ...