Una de ADO y dos de xbrowse

Post Reply
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

Una de ADO y dos de xbrowse

Post by leandro »

Amigos del foro tengan buen día. Aqui yo molestando de nuevo.

1-> ADO, puedo buscar una coinsidencia dentro de un recorset ya creado? Algo asi como hacer un DbSeek(). No se si s pueda.

2- XBROWSE, Como puedo validar la captura en un xbrowse al momento de digitar para que funcione como el valid en un get. Para que si no es correcta la captura no permita salir.

3- XBROWSE, Puedo hacer que cuando presione una tecla especifica (por ejemplo f2) me execute alguna funcion?

Espero haberme hecho entender.. Gracias de antemano
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
User avatar
leandro
Posts: 958
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Contact:

La solucíon....

Post by leandro »

Amigos la solución con respecto a la primera pregunta es la siguiente:

var:="0001"
Reg:=oRs:Find("codigotalla='"+var+"'")
oRs:Absoluteposition:=Reg

Espero les sirva...
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
User avatar
Lisa Giordano
Posts: 25
Joined: Wed Jul 09, 2008 5:56 pm

Re: Una de ADO y dos de xbrowse

Post by Lisa Giordano »

Ciao ho provato la tua soluzione ma reg è uguale a NIL
Grazie
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Re: Una de ADO y dos de xbrowse

Post by sysctrl2 »

::oGrid:aCols[1]:bEditValid := { | oGet, oCol | ::ValidaColsGrid1( oGet, oCol ) }

METHOD ValidaColsGrid1( oGet, oCol ) CLASS AbcTiendita
local cCodigo := oGet:Value()

*** aqui el codigo
if !dbseek( cCodigo )
return .f.
endif

return .t.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
Post Reply