In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Returno de Dato

Foro público de Xailer en español
Responder
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Returno de Dato

Mensaje por carlos »

Tengo un oEditUser, donde tecleo la clave de Usuario
Pero tambien tengo un boton que me abre un objecto TdbfBrow, como le hago
para que del :oBfUSer que es mi objecto tdbfbrowse me returne el Valor al
oEditUser???
Tengo esto
WITH OBJECT ::oBrUser := TDbfBrowse():New(Self)
:nMarqueeStyle := bmHIGHLROWMS
:SetBounds( 80, 92, 230, 120 )
WITH OBJECT TBrwRecSel():New( ::oBrUser )
:nWidth := 24
:Create()
END
:nRowHeight := 18
WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
:cHeader := "ID"
:nWidth := 57
:cFieldName := "IDUSUARIO"
:Create()
:OnGetData := { |o, c, n| c := ::oDbfDS2:IDUSUARIO }
END
WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
:cHeader := "NOMBRE"
:nWidth := 129
:cFieldName := "NOMBRE"
:Create()
:OnGetData := { |o, c, n| c := ::oDbfDS2:Nombre }
END
WITH OBJECT :oImageList
:nWidth := 16
:nHeight := 16
:Add( "Usuario" )
END
:cAlias :="Usuarios"
:SetDbf("Usuarios")
:Create()
End WITH
Gracias de antemanos
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9445
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Returno de Dato

Mensaje por ignacio »

Carlos,
No se si entiendo que es lo que quiere hacer. En principio parece que tiene
un formulario con un TEdit y un botón. En la acción de dicho botón muestra
un segundo formulario con un Browse, y supongo que a la salida del segundo
formulario desea que el actual valor de alguna columna del browse se
incruste en el campo TEdit del primer formulario.
¿Es correcto?
Gracias
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:4223b028$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Tengo un oEditUser, donde tecleo la clave de Usuario
> Pero tambien tengo un boton que me abre un objecto TdbfBrow, como le hago
> para que del :oBfUSer que es mi objecto tdbfbrowse me returne el Valor al
> oEditUser???
>
> Tengo esto
>
> WITH OBJECT ::oBrUser := TDbfBrowse():New(Self)
> :nMarqueeStyle := bmHIGHLROWMS
> :SetBounds( 80, 92, 230, 120 )
> WITH OBJECT TBrwRecSel():New( ::oBrUser )
> :nWidth := 24
> :Create()
> END
> :nRowHeight := 18
> WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
> :cHeader := "ID"
> :nWidth := 57
> :cFieldName := "IDUSUARIO"
> :Create()
> :OnGetData := { |o, c, n| c := ::oDbfDS2:IDUSUARIO }
> END
>
> WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
> :cHeader := "NOMBRE"
> :nWidth := 129
> :cFieldName := "NOMBRE"
> :Create()
> :OnGetData := { |o, c, n| c := ::oDbfDS2:Nombre }
> END
> WITH OBJECT :oImageList
> :nWidth := 16
> :nHeight := 16
> :Add( "Usuario" )
> END
> :cAlias :="Usuarios"
> :SetDbf("Usuarios")
> :Create()
> End WITH
>
> Gracias de antemanos
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Returno de Dato

Mensaje por carlos »

Mira,, tengo que en el mismo formulario, yo tengo un oEditUser y al lado un
boton del ToolBar, cuando yo doy click en el boton, activo un objeto brow
dentro del mismo formulario, quiero ahora, que me retorne el Valor escogido
en el brow y me lo deposite en el oEditUser, ademas de que me limpie o me
quite el brow al regresarme el valor,, eso tambien quiero hacerlo cuando
teclee el click derecho sobre el oEditUser.
El ejemplo del Browse, lo envie en el mensaje anterior
Gracias
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:422464e3$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> No se si entiendo que es lo que quiere hacer. En principio parece que
tiene
> un formulario con un TEdit y un botón. En la acción de dicho botón muestra
> un segundo formulario con un Browse, y supongo que a la salida del segundo
> formulario desea que el actual valor de alguna columna del browse se
> incruste en el campo TEdit del primer formulario.
>
> ¿Es correcto?
>
> Gracias
>
> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
> news:4223b028$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> > Tengo un oEditUser, donde tecleo la clave de Usuario
> > Pero tambien tengo un boton que me abre un objecto TdbfBrow, como le
hago
> > para que del :oBfUSer que es mi objecto tdbfbrowse me returne el Valor
al
> > oEditUser???
> >
> > Tengo esto
> >
> > WITH OBJECT ::oBrUser := TDbfBrowse():New(Self)
> > :nMarqueeStyle := bmHIGHLROWMS
> > :SetBounds( 80, 92, 230, 120 )
> > WITH OBJECT TBrwRecSel():New( ::oBrUser )
> > :nWidth := 24
> > :Create()
> > END
> > :nRowHeight := 18
> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
> > :cHeader := "ID"
> > :nWidth := 57
> > :cFieldName := "IDUSUARIO"
> > :Create()
> > :OnGetData := { |o, c, n| c := ::oDbfDS2:IDUSUARIO }
> > END
> >
> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
> > :cHeader := "NOMBRE"
> > :nWidth := 129
> > :cFieldName := "NOMBRE"
> > :Create()
> > :OnGetData := { |o, c, n| c := ::oDbfDS2:Nombre }
> > END
> > WITH OBJECT :oImageList
> > :nWidth := 16
> > :nHeight := 16
> > :Add( "Usuario" )
> > END
> > :cAlias :="Usuarios"
> > :SetDbf("Usuarios")
> > :Create()
> > End WITH
> >
> > Gracias de antemanos
> >
> >
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9445
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Returno de Dato

Mensaje por ignacio »

Carlos,
No entiendo a que se refiere cuando dice que activa un Browse en el mismo formulario:
¿Esta oculto y lo muestra?
¿O simplemente le pasa el foco?
¿O le cambia el tamaño?
¿O realmente está lanzando un nuevo formulario con el Brw como le comente yo en mi anterior mensaje?
A que se refiere cuando dice que le limpie o quite el brow:
¿A ocultarlo?
¿O realmente quiere sencillamente cerrar el nuevo formulario que se ha abierto con el Brw?
Para ejecutar cualquier código cuando se pulsa el botón derecho del ratón en un control deberá capturar el evento OnContextMenu, OnRButtonDown, o OnRButtonUp, siendo el primero el más apropiado si piensa mostrar un menú contextual.
Saludos
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje news:[email=42249f6b@ozsrv2.ozlan.local...]42249f6b@ozsrv2.ozlan.local...[/email]
> Mira,, tengo que en el mismo formulario, yo tengo un oEditUser y al lado un
> boton del ToolBar, cuando yo doy click en el boton, activo un objeto brow
> dentro del mismo formulario, quiero ahora, que me retorne el Valor escogido
> en el brow y me lo deposite en el oEditUser, ademas de que me limpie o me
> quite el brow al regresarme el valor,, eso tambien quiero hacerlo cuando
> teclee el click derecho sobre el oEditUser.
>
> El ejemplo del Browse, lo envie en el mensaje anterior
>
> Gracias
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:422464e3$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> No se si entiendo que es lo que quiere hacer. En principio parece que
> tiene
>> un formulario con un TEdit y un botón. En la acción de dicho botón muestra
>> un segundo formulario con un Browse, y supongo que a la salida del segundo
>> formulario desea que el actual valor de alguna columna del browse se
>> incruste en el campo TEdit del primer formulario.
>>
>> ¿Es correcto?
>>
>> Gracias
>>
>> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
>> news:4223b028$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> > Tengo un oEditUser, donde tecleo la clave de Usuario
>> > Pero tambien tengo un boton que me abre un objecto TdbfBrow, como le
> hago
>> > para que del :oBfUSer que es mi objecto tdbfbrowse me returne el Valor
> al
>> > oEditUser???
>> >
>> > Tengo esto
>> >
>> > WITH OBJECT ::oBrUser := TDbfBrowse():New(Self)
>> > :nMarqueeStyle := bmHIGHLROWMS
>> > :SetBounds( 80, 92, 230, 120 )
>> > WITH OBJECT TBrwRecSel():New( ::oBrUser )
>> > :nWidth := 24
>> > :Create()
>> > END
>> > :nRowHeight := 18
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader := "ID"
>> > :nWidth := 57
>> > :cFieldName := "IDUSUARIO"
>> > :Create()
>> > :OnGetData := { |o, c, n| c := ::oDbfDS2:IDUSUARIO }
>> > END
>> >
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader := "NOMBRE"
>> > :nWidth := 129
>> > :cFieldName := "NOMBRE"
>> > :Create()
>> > :OnGetData := { |o, c, n| c := ::oDbfDS2:Nombre }
>> > END
>> > WITH OBJECT :oImageList
>> > :nWidth := 16
>> > :nHeight := 16
>> > :Add( "Usuario" )
>> > END
>> > :cAlias :="Usuarios"
>> > :SetDbf("Usuarios")
>> > :Create()
>> > End WITH
>> >
>> > Gracias de antemanos
>> >
>> >
>>
>>
>
>
--
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9445
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Returno de Dato

Mensaje por ignacio »

This is a multi-part message in MIME format.
------=_NextPart_000_0009_01C51F5F.6B38DCD0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000A_01C51F5F.6B38DCD0"
------=_NextPart_001_000A_01C51F5F.6B38DCD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Carlos,=20
Espero haber comprendido exactamente lo que desea hacer. En caso =
contrario le ruego que me mande un proyecto con exactamente lo que desea =
hacer e indicando que es lo que no le funciona exactamente.
Un Saludo
"Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje news:4224c17e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Carlos,=20
No entiendo a que se refiere cuando dice que activa un Browse en el =
mismo formulario:
=BFEsta oculto y lo muestra?
=BFO simplemente le pasa el foco?
=BFO le cambia el tama=F1o?
=BFO realmente est=E1 lanzando un nuevo formulario con el Brw como le =
comente yo en mi anterior mensaje?
A que se refiere cuando dice que le limpie o quite el brow:
=BFA ocultarlo?
=BFO realmente quiere sencillamente cerrar el nuevo formulario que se =
ha abierto con el Brw?
Para ejecutar cualquier c=F3digo cuando se pulsa el bot=F3n derecho =
del rat=F3n en un control deber=E1 capturar el evento OnContextMenu, =
OnRButtonDown, o OnRButtonUp, siendo el primero el m=E1s apropiado si =
piensa mostrar un men=FA contextual.
Saludos
"Carlos Cede=F1o Vera" <carlos@labodegadeclimas.com> escribi=F3 en el =
mensaje news:[email=42249f6b@ozsrv2.ozlan.local...]42249f6b@ozsrv2.ozlan.local...[/email]
> Mira,, tengo que en el mismo formulario, yo tengo un oEditUser y al =
lado un
> boton del ToolBar, cuando yo doy click en el boton, activo un objeto =
brow
> dentro del mismo formulario, quiero ahora, que me retorne el Valor =
escogido
> en el brow y me lo deposite en el oEditUser, ademas de que me limpie =
o me
> quite el brow al regresarme el valor,, eso tambien quiero hacerlo =
cuando
> teclee el click derecho sobre el oEditUser.
>=20
> El ejemplo del Browse, lo envie en el mensaje anterior
>=20
> Gracias
> "Ignacio Ortiz de Z=FA=F1iga" <InvalidAccount@ozs.com> escribi=F3 en =
el mensaje
> news:422464e3$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> No se si entiendo que es lo que quiere hacer. En principio parece =
que
> tiene
>> un formulario con un TEdit y un bot=F3n. En la acci=F3n de dicho =
bot=F3n muestra
>> un segundo formulario con un Browse, y supongo que a la salida del =
segundo
>> formulario desea que el actual valor de alguna columna del browse =
se
>> incruste en el campo TEdit del primer formulario.
>>
>> =BFEs correcto?
>>
>> Gracias
>>
>> "Carlos Cede=F1o Vera" <carlos@labodegadeclimas.com> escribi=F3 en =
el mensaje
>> news:4223b028$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> > Tengo un oEditUser, donde tecleo la clave de Usuario
>> > Pero tambien tengo un boton que me abre un objecto TdbfBrow, como =
le
> hago
>> > para que del :oBfUSer que es mi objecto tdbfbrowse me returne el =
Valor
> al
>> > oEditUser???
>> >
>> > Tengo esto
>> >
>> > WITH OBJECT ::oBrUser :=3D TDbfBrowse():New(Self)
>> > :nMarqueeStyle :=3D bmHIGHLROWMS
>> > :SetBounds( 80, 92, 230, 120 )
>> > WITH OBJECT TBrwRecSel():New( ::oBrUser )
>> > :nWidth :=3D 24
>> > :Create()
>> > END
>> > :nRowHeight :=3D 18
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader :=3D "ID"
>> > :nWidth :=3D 57
>> > :cFieldName :=3D "IDUSUARIO"
>> > :Create()
>> > :OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:IDUSUARIO }
>> > END
>> >
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader :=3D "NOMBRE"
>> > :nWidth :=3D 129
>> > :cFieldName :=3D "NOMBRE"
>> > :Create()
>> > :OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:Nombre }
>> > END
>> > WITH OBJECT :oImageList
>> > :nWidth :=3D 16
>> > :nHeight :=3D 16
>> > :Add( "Usuario" )
>> > END
>> > :cAlias :=3D"Usuarios"
>> > :SetDbf("Usuarios")
>> > :Create()
>> > End WITH
>> >
>> > Gracias de antemanos
>> >
>> >
>>
>>
>=20
>
------=_NextPart_001_000A_01C51F5F.6B38DCD0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2604" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Carlos, </FONT></DIV>
<DIV><FONT size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2>Espero haber comprendido exactamente lo que desea =
hacer. En=20
caso contrario le ruego que me mande un proyecto con exactamente lo que =
desea=20
hacer e indicando que es lo que no le funciona exactamente.</FONT></DIV>
<DIV><FONT size=3D2></FONT>Â</DIV>
<DIV><FONT size=3D2>Un Saludo</FONT></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:InvalidAccount@ozs.com">InvalidAccount@ozs.com</A>> =
escribi=F3=20
en el mensaje <A=20
=
href=3D"news:4224c17e$1@ozsrv2.ozlan.local">news:4224c17e$[email=1@ozsrv2.ozlan.]1@ozsrv2.ozlan.[/email]=
local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Carlos, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>No entiendo a que se refiere cuando =
dice que=20
activa un Browse <STRONG><FONT color=3D#ff0000>en el mismo=20
formulario</FONT></STRONG>:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>=BFEsta oculto y lo =
muestra?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFO simplemente le pasa el =
foco?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFO le cambia el =
tama=F1o?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>=BFO realmente est=E1 =
lanzando un nuevo=20
formulario con el Brw como le comente yo en mi anterior=20
mensaje?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>A que se refiere cuando dice que le =
limpie o=20
quite el brow:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>=BFA ocultarlo?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><STRONG>=BFO realmente quiere =
sencillamente cerrar=20
el nuevo formulario que se ha abierto con el =
Brw?</STRONG></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT><FONT face=3DArial=20
size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para ejecutar cualquier c=F3digo =
cuando se pulsa el=20
bot=F3n derecho del rat=F3n en un control deber=E1 capturar el evento =
OnContextMenu,=20
OnRButtonDown, o OnRButtonUp, siendo el primero el m=E1s apropiado si =
piensa=20
mostrar un men=FA contextual.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Saludos</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Carlos Cede=F1o Vera" <</FONT><A=20
href=3D"mailto:carlos@labodegadeclimas.com"><FONT face=3DArial=20
size=3D2>carlos@labodegadeclimas.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje </FONT><A =
href=3D"news:42249f6b@ozsrv2.ozlan.local"><FONT=20
face=3DArial size=3D2>news:42249f6b@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> Mira,, tengo =
que en el=20
mismo formulario, yo tengo un oEditUser y al lado un<BR>> boton del =
ToolBar, cuando yo doy click en el boton, activo un objeto =
brow<BR>> dentro=20
del mismo formulario, quiero ahora, que me retorne el Valor =
escogido<BR>>=20
en el brow y me lo deposite en el oEditUser, ademas de que me limpie o =
me<BR>> quite el brow al regresarme el valor,, eso tambien quiero =
hacerlo=20
cuando<BR>> teclee el click derecho sobre el oEditUser.<BR>> =
<BR>> El=20
ejemplo del Browse, lo envie en el mensaje anterior<BR>> <BR>>=20
Gracias<BR>> "Ignacio Ortiz de Z=FA=F1iga" <</FONT><A=20
href=3D"mailto:InvalidAccount@ozs.com"><FONT face=3DArial=20
size=3D2>InvalidAccount@ozs.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje<BR>> </FONT><A=20
href=3D"news:422464e3$1@ozsrv2.ozlan.local"><FONT face=3DArial=20
size=3D2>news:422464e3$1@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Carlos,<BR>>><BR>>> No se =
si entiendo=20
que es lo que quiere hacer. En principio parece que<BR>> =
tiene<BR>>>=20
un formulario con un TEdit y un bot=F3n. En la acci=F3n de dicho =
bot=F3n=20
muestra<BR>>> un segundo formulario con un Browse, y supongo que =
a la=20
salida del segundo<BR>>> formulario desea que el actual valor de =
alguna=20
columna del browse se<BR>>> incruste en el campo TEdit del =
primer=20
formulario.<BR>>><BR>>> =BFEs =
correcto?<BR>>><BR>>>=20
Gracias<BR>>><BR>>> "Carlos Cede=F1o Vera" <</FONT><A=20
href=3D"mailto:carlos@labodegadeclimas.com"><FONT face=3DArial=20
size=3D2>carlos@labodegadeclimas.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje<BR>>> </FONT><A=20
href=3D"news:4223b028$1@ozsrv2.ozlan.local"><FONT face=3DArial=20
size=3D2>news:4223b028$1@ozsrv2.ozlan.local</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> > Tengo un oEditUser, donde tecleo la =
clave de=20
Usuario<BR>>> > Pero tambien tengo un boton que me abre un =
objecto=20
TdbfBrow, como le<BR>> hago<BR>>> > para que del :oBfUSer =
que es=20
mi objecto tdbfbrowse me returne el Valor<BR>> al<BR>>> >=20
oEditUser???<BR>>> ><BR>>> > Tengo esto<BR>>>=20
><BR>>> > WITH OBJECT ::oBrUser :=3D=20
TDbfBrowse():New(Self)<BR>>> >ÂÂÂÂÂ=2 0
:nMarqueeStyle :=3D bmHIGHLROWMS<BR>>> =
>ÂÂÂÂÂ=2 0
:SetBounds( 80, 92, 230, 120 )<BR>>> =
>ÂÂÂÂÂ=2 0
WITH OBJECT TBrwRecSel():New( ::oBrUser )<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nWidth :=3D =
24<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Create()<BR>>>=20
>ÂÂÂÂÂ END<BR>>>=20
>ÂÂÂÂÂ :nRowHeight :=3D 18<BR>>>=20
>ÂÂÂÂÂ WITH OBJECT TDbfBrwColumn():New( =
::oBrUser=20
)<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:cHeader :=3D=20
"ID"<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:nWidth=20
:=3D 57<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:cFieldName :=3D "IDUSUARIO"<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Create()<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :OnGetData :=3D { =
|o, c, n|=20
c :=3D ::oDbfDS2:IDUSUARIO }<BR>>> =
>ÂÂÂÂÂ=2 0
END<BR>>> ><BR>>> >ÂÂÂÂÂ =
WITH=20
OBJECT TDbfBrwColumn():New( ::oBrUser )<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :cHeader :=3D=20
"NOMBRE"<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:nWidth :=3D 129<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :cFieldName :=3D=20
"NOMBRE"<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:Create()<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ=20
:OnGetData :=3D { |o, c, n| c :=3D ::oDbfDS2:Nombre }<BR>>>=20
>ÂÂÂÂÂ END<BR>>>=20
>ÂÂÂÂÂ WITH OBJECT :oImageList<BR>>> =
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nWidth :=3D =
16<BR>>>=20
>ÂÂÂÂÂ&a mp;nbsp;ÂÂ :nHeight :=3D=20
16<BR>>> >ÂÂÂÂÂ&a mp;nbsp;ÂÂ =
:Add(=20
"Usuario" )<BR>>> >ÂÂÂÂÂ =
END<BR>>>=20
>ÂÂÂÂÂ :cAliasÂÂ=20
:=3D"Usuarios"<BR>>> >ÂÂÂÂÂ=2 0
:SetDbf("Usuarios")<BR>>> >ÂÂÂÂÂ=2 0
:Create()<BR>>> >Â End WITH<BR>>> ><BR>>> =
>=20
Gracias de antemanos<BR>>> ><BR>>>=20
><BR>>><BR>>><BR>> <BR>></FONT> =
</BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_000A_01C51F5F.6B38DCD0--
------=_NextPart_000_0009_01C51F5F.6B38DCD0
Content-Type: application/octet-stream;
name="carlos.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="carlos.zip"
UEsDBBQAAgAIAAyVSDJubZVOdQEAAFICAAAKAAAAY2FybG9zLnhwal1SwU7D MAy9V+o/7ANQxbjn
AOsmilY6tRUgEIcs9UpYmkROMjH+misnnHZDiFPes19s5zkvm7q6Wy7a1zRp jxYYfECa5OAESuul
0UxwVMalSRW8Df5Es1G2MIOVCpB93HLcmoBpUnKpS9MFBWyFw2ISW+wpE5SX VkGhnedagGNZm6XJ
06bkWu7A+YkXgnqmyYYjH8ADOiLVsmTZipIPxONM8+wyTWpQwB0wgjdBqi6C OBHXR1ahl5+zDmbP
31+y5xezJltnMW2PtezfPBVtkXdQctzHDnRvAO0jfKk2bVHdN2TIdfBm4F6K EoYDxxyEorFGV8Zx
ctiGvtA7M9EmWIvg3FpquA/DFjDmcPhz4yxp3gx6EbyXup8yjxy1JraGAyg2 J78MQjWuIE5Vcrsi
qyftgmJGAfl8CkQtdd2TPr4gL2raaFUXy/iKhhYjIJfIJkQea6FCN4ZOMLrp fnVnTM5v32OADiq7
KtZjwfn5E4x7vfq/6B9QSwMEFAACAAgAwJtiMj6hNDDHAAAAGwEAABEAAABT b3VyY2UvY2FybG9z
LnByZ12OvYrCQBDH+0DeYcg1SQoTBUEWrhDEzuPwLGyXyWAG9nbCuIv43L7A ZfcsxGZgfvy/urYs
oIVvlTthEJO/PeNIKgbQqpPrYtJL5ju6ovKE/PAGDo8hOoGBgHxQO1iw4OYz OUabJNmyjUH0mUo4
WgP9putX3arv14l2ZVEWH+zRxTmpOlt2pAscq8TnVUhDVIKDZV83iQHAdsod gcUbPHFwBOYTqv+x
VZac9qK/y7oxX3SrXw3QmJ9RbinrLekYnw1HClHn9X9QSwMEFAACAAgAmZxi MhbIMsiUAQAAjwQA
ABQAAABTb3VyY2UvRnJtQ2FybG9zLnByZ71TTU/CQBC9k/AfJngBgi1gTMwm HqAfepCWAKLXZbvI
6tIl222UGH61f8DuUrXlI3pQt5eZN7Mz+95M7Wa1Ak0YSrGmRAkEBEsuEgP6 jCyozDBfLh0DWyv5
YEIuTYhkK8LeYmSAXqqE3Jo+JQuMoH1ht7t2t90+16hdrVQrJywmPI0o1O4x 41RaZFHTuHPTG49h
4gu57IA/CgdbW4cAwAkHwzDwggkIL2Kqswv2U6VEvAf3pMTrvhTPCe3oSiY+ 8CbXoQuOpFhR3aPe
KOLFO9ucOogxjSMqoZSY93Q4I09HUoq13BnfT61WvMA11MvafKn9Ml8afX7y OiiKmLPlgmAO2MUK
54ixAV3Ca/bV0ljUWtCBTUt7kUgyr5t7SlLtnsEGNvnlvBcaU2WeUs/LGS4j b3I7CiBgXHu2ffqr
p6DCEekP8b9jagHh7DHbbEBoZyPAHMSnLGEzTrUolrI+8YykL0ia5AvixZEp 969Uv1mhQ5QzmuYn
QVPMU0PqY2pXVBmsng28UZpnSYK5Va5T1OHvqb8DUEsDBBQAAgAIAJmcYjKy jIGPqQEAAOIEAAAU
AAAAU291cmNlL0ZybUNhcmxvcy54Zm2tk89ugkAQxu8mvsOEEybEAIJakh4E MbRptQGqZ5S1kiLb
LBDbx+4bdHf5tzZNaxMvZJkZvvnNt8OjG3qrOTgERQVaYHKUB+A8zIIAQvam 9Xv9HgAE5RsilljF
w5YVoMLGZRbnMowmUwX0kaaAYaoKjFQVmqpdiN4LsG5BeopIBE5EUpyDg2L0 iaW6Bi9wxmtCdpAH
dTcZpMcAgijLIUAk2UsK0DZU3xD0MydNUFZskrg4MAnD0M8zHkpeDlxdHzep Wn9Qj7i5Cz1Y2feu
EzIaN04KjeOwE8VZopNMEdJ93ZVpCNNTKG2swA0l01WhZB2lJeKjc0WpTXTt 6Zu7nP+MYZdFgbMK
pDr/jaKpDEanRjEYUyjq7qHW7XBWzKndq5jkgf8CzwiJPmyCTzmqqIXABeiU 2tTZ5dKHNjGEqnSd
5Mk25V4OF8MmLrYPbXJycFoeW5O+A7Vy3A0PRTEifOTqs84Pls/afTInYvzM iDMvrs2jX5/HRztq
/0U8XT/duLiflfn41P1u2lTcMP4hn0/sWoXFVZxv024bxdIm8ftW+m747C/5 mvV7X1BLAQIUABQA
AgAIAAyVSDJubZVOdQEAAFICAAAKAAAAAAAAAAAAIAC0gQAAAABjYXJsb3Mu eHBqUEsBAhQAFAAC
AAgAwJtiMj6hNDDHAAAAGwEAABEAAAAAAAAAAAAgALSBnQEAAFNvdXJjZS9j YXJsb3MucHJnUEsB
AhQAFAACAAgAmZxiMhbIMsiUAQAAjwQAABQAAAAAAAAAAAAgALSBkwIAAFNv dXJjZS9Gcm1DYXJs
b3MucHJnUEsBAhQAFAACAAgAmZxiMrKMgY+pAQAA4gQAABQAAAAAAAAAAAAg ALSBWQQAAFNvdXJj
ZS9Gcm1DYXJsb3MueGZtUEsFBgAAAAAEAAQA+wAAADQGAAAAAA==
------=_NextPart_000_0009_01C51F5F.6B38DCD0--

Attached files carlos.zip (1.8 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

Returno de Dato

Mensaje por carlos »

Muchas gracias,, eso mismo es precisamente lo que deseaba,, pero con el TdbfBrow,,, gracias amigo
Bye
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:42260829$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Carlos,
Espero haber comprendido exactamente lo que desea hacer. En caso contrario le ruego que me mande un proyecto con exactamente lo que desea hacer e indicando que es lo que no le funciona exactamente.
Un Saludo
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje news:4224c17e$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Carlos,
No entiendo a que se refiere cuando dice que activa un Browse en el mismo formulario:
¿Esta oculto y lo muestra?
¿O simplemente le pasa el foco?
¿O le cambia el tamaño?
¿O realmente está lanzando un nuevo formulario con el Brw como le comente yo en mi anterior mensaje?
A que se refiere cuando dice que le limpie o quite el brow:
¿A ocultarlo?
¿O realmente quiere sencillamente cerrar el nuevo formulario que se ha abierto con el Brw?
Para ejecutar cualquier código cuando se pulsa el botón derecho del ratón en un control deberá capturar el evento OnContextMenu, OnRButtonDown, o OnRButtonUp, siendo el primero el más apropiado si piensa mostrar un menú contextual.
Saludos
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje news:[email=42249f6b@ozsrv2.ozlan.local...]42249f6b@ozsrv2.ozlan.local...[/email]
> Mira,, tengo que en el mismo formulario, yo tengo un oEditUser y al lado un
> boton del ToolBar, cuando yo doy click en el boton, activo un objeto brow
> dentro del mismo formulario, quiero ahora, que me retorne el Valor escogido
> en el brow y me lo deposite en el oEditUser, ademas de que me limpie o me
> quite el brow al regresarme el valor,, eso tambien quiero hacerlo cuando
> teclee el click derecho sobre el oEditUser.
>
> El ejemplo del Browse, lo envie en el mensaje anterior
>
> Gracias
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:422464e3$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> No se si entiendo que es lo que quiere hacer. En principio parece que
> tiene
>> un formulario con un TEdit y un botón. En la acción de dicho botón muestra
>> un segundo formulario con un Browse, y supongo que a la salida del segundo
>> formulario desea que el actual valor de alguna columna del browse se
>> incruste en el campo TEdit del primer formulario.
>>
>> ¿Es correcto?
>>
>> Gracias
>>
>> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
>> news:4223b028$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> > Tengo un oEditUser, donde tecleo la clave de Usuario
>> > Pero tambien tengo un boton que me abre un objecto TdbfBrow, como le
> hago
>> > para que del :oBfUSer que es mi objecto tdbfbrowse me returne el Valor
> al
>> > oEditUser???
>> >
>> > Tengo esto
>> >
>> > WITH OBJECT ::oBrUser := TDbfBrowse():New(Self)
>> > :nMarqueeStyle := bmHIGHLROWMS
>> > :SetBounds( 80, 92, 230, 120 )
>> > WITH OBJECT TBrwRecSel():New( ::oBrUser )
>> > :nWidth := 24
>> > :Create()
>> > END
>> > :nRowHeight := 18
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader := "ID"
>> > :nWidth := 57
>> > :cFieldName := "IDUSUARIO"
>> > :Create()
>> > :OnGetData := { |o, c, n| c := ::oDbfDS2:IDUSUARIO }
>> > END
>> >
>> > WITH OBJECT TDbfBrwColumn():New( ::oBrUser )
>> > :cHeader := "NOMBRE"
>> > :nWidth := 129
>> > :cFieldName := "NOMBRE"
>> > :Create()
>> > :OnGetData := { |o, c, n| c := ::oDbfDS2:Nombre }
>> > END
>> > WITH OBJECT :oImageList
>> > :nWidth := 16
>> > :nHeight := 16
>> > :Add( "Usuario" )
>> > END
>> > :cAlias :="Usuarios"
>> > :SetDbf("Usuarios")
>> > :Create()
>> > End WITH
>> >
>> > Gracias de antemanos
>> >
>> >
>>
>>
>
>
--
Arriba
Responder

Volver a “Xailer Spanish”