ayuda addnew

PILO · Mensaje por **PILO** » Mié Ene 03, 2007 4:01 pm

Necesito si alguien me pued explicar los siguiente:
desde un formularino con un oDataSet creo otro
para añadir un registro a este oDataSet,
en el nuevo formulario para poner los datos utilizo so siguiente
oSender:oDataSet := ::oParent:oDataSet
ne la opcion ONCREATE
esto me funciona bien, pero como soy un novato lo que quiero hacer es los
siguiente en el nuevo formulario donde
pongo los datos nuevos:
Necesito utilizar todos los datos que tiene el oDataSet del formulario
anterior
me explico en un TDBEDIT, cuando salo de el tengo que comprobar que el dato
de dicho campo no exista en la base de
datos oDataSet. Una ayuda para esto de cualquiera de vosostros no tiene por
que ser el equipo de Xailer
Con esta ayuda y las que he espueto anteriormente, creo que ya puedo pasar
mis programas a Xailer.
Tamien la he puesto en la profesional

PILO · Mensaje por **PILO** » Mié Ene 03, 2007 4:05 pm

A que se me Olvida FELIZ 2007 A TODOS

ddupre · Mensaje por **ddupre** » Mié Ene 03, 2007 5:52 pm

/*
* Proyecto: wventas
* Fichero: Prog6110.prg
* Descripción: Pantalla para leer los campos de la tabla Ramos en A y M
* Autor: Daniel J. Du Pré
* Fecha: 02/09/2006
*/
#include "Xailer.ch"
CLASS TProg6110 FROM TForm
COMPONENT oLabel1
COMPONENT oLabel2
COMPONENT oNroRamo
COMPONENT oDetalle
COMPONENT oAceptar
COMPONENT oCancelar
METHOD CreateForm()
METHOD FirstCreate( oSender )
METHOD NroRamoExit( oSender, oNextCtl )
ENDCLASS
#include "Prog6110.xfm"
//---------------------------------------------------------- --------------------
METHOD FirstCreate(oSender) Class TProg6110
oSender:oDataSet := ::oParent:oRamos
Return Nil
//---------------------------------------------------------- --------------------
METHOD NroRamoExit( oSender, oNextCtl ) CLASS TProg6110
WITH OBJECT oSender
if :Value == 0
MsgInfo("Nro. de Ramo no válido")
Return .F.
endif
if :oDataSet:seek(str(:Value,4))
MsgInfo("Ya existe Ramo con ese nro.")
Return .F.
endif
END WITH
Return .T.
//---------------------------------------------------------- --------------------
--

PILO · Mensaje por **PILO** » Jue Ene 04, 2007 11:21 am

Gracias por tu aportacion, lo probare y te respodere
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje
news:[email=459bdf43@news.xailer.com...]459bdf43@news.xailer.com...[/email]
> Pilo:
> Te adjunto un .prg hecho en Xailer que hace la validación correspondiente
> Espero que te sirva, a mi me funciona perfecto, no se si habrá forma de
> hacer lo mismo pero más profesional, yo también soy un novato.
>
>
>
> Saludos y feliz 2007!!!
> Daniel
>
> PILO escribió:
>> Necesito si alguien me pued explicar los siguiente:
>> desde un formularino con un oDataSet creo otro
>> para añadir un registro a este oDataSet,
>> en el nuevo formulario para poner los datos utilizo so siguiente
>> oSender:oDataSet := ::oParent:oDataSet
>> ne la opcion ONCREATE
>> esto me funciona bien, pero como soy un novato lo que quiero hacer es los
>> siguiente en el nuevo formulario donde
>> pongo los datos nuevos:
>> Necesito utilizar todos los datos que tiene el oDataSet del formulario
>> anterior
>> me explico en un TDBEDIT, cuando salo de el tengo que comprobar que el
>> dato
>> de dicho campo no exista en la base de
>> datos oDataSet. Una ayuda para esto de cualquiera de vosostros no tiene
>> por
>> que ser el equipo de Xailer
>> Con esta ayuda y las que he espueto anteriormente, creo que ya puedo
>> pasar
>> mis programas a Xailer.
>> Tamien la he puesto en la profesional
>>
>>
>>
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: wventas
> * Fichero: Prog6100.prg
> * Descripción: Manenimiento de la tabla auxiliar de Ramos
> * Autor: Daniel J. Du Pré Ruiz
> * Fecha: 22/08/2006
> */
>
> #include "Xailer.ch"
>
> CLASS TRamos FROM TForm
>
> COMPONENT oToolBar1
> COMPONENT oNtxRamos
> COMPONENT oRamos
> COMPONENT oBrowseRamos
> COMPONENT oBrowseRamosColumn1
> COMPONENT oBrowseRamosColumn2
>
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
> METHOD BrowseRamosColumn2HeaderClick( oSender, nFlags, nPosX, nPosY )
> METHOD BrowseRamosColumn1HeaderClick( oSender, nFlags, nPosX, nPosY )
> METHOD PrimeroClick( oSender )
> METHOD AnteriorClick( oSender )
> METHOD SiguienteClick( oSender )
> METHOD UltimoClick( oSender )
> METHOD Agregar( oSender )
> METHOD Eliminar( oSender )
> METHOD Modificar( oSender )
> METHOD FormKeyDown( oSender, nKey, nFlags )
> METHOD CerrarClick( oSender )
>
> ENDCLASS
>
> #include "Prog6100.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormInitialize( oSender ) CLASS TRamos
>
> ::oRamos():Open()
> ::oRamos():OrdSetFocus(1,,,.T.)
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD BrowseRamosColumn1HeaderClick( oSender, nFlags, nPosX, nPosY )
> CLASS TRamos
>
> ::oRamos():OrdSetFocus(1,,,.T.)
> ::oBrowseRamos():GoTop()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD BrowseRamosColumn2HeaderClick( oSender, nFlags, nPosX, nPosY )
> CLASS TRamos
>
> ::oRamos():OrdSetFocus(2,,,.T.)
> ::oBrowseRamos():GoTop()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD PrimeroClick( oSender ) CLASS TRamos
>
> ::oBrowseRamos():GoTop()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD AnteriorClick( oSender ) CLASS TRamos
>
> ::oBrowseRamos():GoUp()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD SiguienteClick( oSender ) CLASS TRamos
>
> ::oBrowseRamos():GoDown()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD UltimoClick( oSender ) CLASS TRamos
>
> ::oBrowseRamos():GoBottom()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Agregar( oSender ) CLASS TRamos
> local oForm
>
> WITH OBJECT oForm := TProg6110():CreateForm(Self)
> :cText := "Agregar Ramos"
> ::oRamos:AddNew()
> :oNroRamo:lEnabled := .T.
> :oNroRamo:Value := 0
> :ShowModal()
> if :nModalResult == mrOK
> ::oRamos:Update()
> ::oBrowseRamos:Refresh()
> else
> ::oRamos:Cancel()
> endif
> END WITH
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Eliminar( oSender ) CLASS TRamos
>
> if MsgYesNo("¿Confirma eliminar este Ramo?")
> ::oRamos():Delete()
> endif
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD Modificar( oSender ) CLASS TRamos
> Local oForm
>
> WITH OBJECT oForm := TProg6110():New(Self)
> :cText := "Modificación de Ramos"
> :oNroRamo:lEnabled := .F.
> ::oRamos:Edit()
> :ShowModal()
> if :nModalResult == mrOK
> ::oRamos:Update()
> ::oBrowseRamos:RefreshCurrent()
> else
> ::oRamos:Cancel()
> endif
> :End()
> END WITH
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TRamos
>
> IF nKey == VK_RETURN
> ::oToolbar1:aItems[ 6 ]:OnClick()
> Return 0
> ENDIF
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD CerrarClick( oSender ) CLASS TRamos
>
> ::Close()
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
------------------------------------------------------------ --------------------
> /*
> * Proyecto: wventas
> * Fichero: Prog6110.prg
> * Descripción: Pantalla para leer los campos de la tabla Ramos en A y M
> * Autor: Daniel J. Du Pré
> * Fecha: 02/09/2006
> */
>
> #include "Xailer.ch"
>
> CLASS TProg6110 FROM TForm
>
> COMPONENT oLabel1
> COMPONENT oLabel2
> COMPONENT oNroRamo
> COMPONENT oDetalle
> COMPONENT oAceptar
> COMPONENT oCancelar
>
> METHOD CreateForm()
> METHOD FirstCreate( oSender )
> METHOD NroRamoExit( oSender, oNextCtl )
>
> ENDCLASS
>
> #include "Prog6110.xfm"
>
> //---------------------------------------------------------- --------------------
>
> METHOD FirstCreate(oSender) Class TProg6110
>
> oSender:oDataSet := ::oParent:oRamos
>
> Return Nil
>
> //---------------------------------------------------------- --------------------
>
> METHOD NroRamoExit( oSender, oNextCtl ) CLASS TProg6110
>
> WITH OBJECT oSender
> if :Value == 0
> MsgInfo("Nro. de Ramo no válido")
> Return .F.
> endif
> if :oDataSet:seek(str(:Value,4))
> MsgInfo("Ya existe Ramo con ese nro.")
> Return .F.
> endif
> END WITH
>
> Return .T.
>
> //---------------------------------------------------------- --------------------
>

PILO · Mensaje por **PILO** » Jue Ene 04, 2007 4:11 pm

Daniel me puedes ayudar con esto:
con otra varialbe al salir del los que quiero es los siguiente
cuando sale tengo que filtrar la base de datos por un campo
para que solo tenga esto, ya que esta variable se puede repetir en todos
los grupos, y solo quiero ver si existe en este, si exite tengo que poner otra
lo que e utilizado es esto y me da error, me puedes dar alguna idea.
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva
WITH OBJECT oSender
if :Value = " "
MsgInfo("No dado Codigo")
Return .F.
endif
:oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //Me da error aqui de self
if :oDataSet:Locate("EXPLO = :Value" )
MsgInfo("Ya existe El codigo" + :VALUE )
Return .F.
endif
:oDataSet:SetFilter()
END WITH
RETURN Nil
--

ddupre · Mensaje por **ddupre** » Jue Ene 04, 2007 8:24 pm

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Pilo:<br>
No estoy seguro de lo que te voy a decir porque todavÃa me cuesta
bastante "leer" cÃdigo xailer, pero interpreto esto:<br>
Tu quieres filtrar una tabla por el valor que ingresÃ el usuario de tu
aplicaciÃn enÂ "oSender:value", asumiendo que CODIGO es el campo por el
cual quieres filtrar yo pondrÃa esto:<br>
</tt><br>
<font face="Arial" size="2">ÂÂ :oDataSet:SetFilter("CODIGO = :VALUE")<br>
<br>
Espero que te sirva, y espero que lo dicho no sea un disparate.<span
class="moz-smiley-s6"><span> :-[ </span></span><br>
<br>
Saludos<br>
Daniel.<br>
<br>
<strong><br>
</strong></font>PILO escribiÃ:
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<meta http-equiv="Content-Type" content="text/html; ">
<meta content="MSHTML 6.00.2900.2995" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Daniel me puedes ayudar con esto:</font></div>
<div><font face="Arial" size="2">ÂÂÂÂ<strong>con otraÂvarialbe
alÂsalir del los que quiero es los siguiente</strong></font></div>
<div><font face="Arial" size="2">ÂÂÂ <strong>cuando sale tengo que
filtrar la base de datos por un campo</strong></font></div>
<div><font face="Arial" size="2"><strong>para que solo tenga esto, ya
que esta variable se puede repetir en todos</strong></font></div>
<div><font face="Arial" size="2"><strong>los grupos, y solo quiero
ver si existe en este, si exite tengo que poner otra</strong></font></div>
<div><font face="Arial" size="2"><strong>lo que e utilizado es esto y
me da error, me puedes dar alguna idea.</strong><br>
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva</font></div>
<div><font face="Arial" size="2">ÂÂ WITH OBJECT oSender<br>
ÂÂÂÂÂ if :Value = " ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂ "<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("No dado Codigo")<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //<strong>Me
da error aquiÂde self</strong><br>
</font></div>
</blockquote>
<b><font color="#3333ff" face="Arial" size="2">Â Â Â ÂÂ Â
:oDataSet:SetFilter("CODIGO = :VALUE")</font></b>
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<div><font face="Arial" size="2">ÂÂÂÂÂ if :oDataSet:Locate("EXPLO =
:Value" )<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("Ya existe El codigo" + :VALUE )<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter()<br>
ÂÂ END WITH</font></div>
<div>Â</div>
<div><font face="Arial" size="2">RETURN Nil<br>
</font></div>
</blockquote>
</body>
</html>

YouTube · Mensaje por **ignacio** » Vie Ene 05, 2007 11:40 am

Daniel,
Mejor así
:oDataSet:SetFilter("CODIGO = " + ToString( :VALUE ) )
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje news:[email=459d545e@news.xailer.com...]459d545e@news.xailer.com...[/email]
Pilo:
No estoy seguro de lo que te voy a decir porque todavía me cuesta bastante "leer" código xailer, pero interpreto esto:
Tu quieres filtrar una tabla por el valor que ingresó el usuario de tu aplicación en "oSender:value", asumiendo que CODIGO es el campo por el cual quieres filtrar yo pondría esto:
:oDataSet:SetFilter("CODIGO = :VALUE")
Espero que te sirva, y espero que lo dicho no sea un disparate. :-[
Saludos
Daniel.
PILO escribió:
Daniel me puedes ayudar con esto:
con otra varialbe al salir del los que quiero es los siguiente
cuando sale tengo que filtrar la base de datos por un campo
para que solo tenga esto, ya que esta variable se puede repetir en todos
los grupos, y solo quiero ver si existe en este, si exite tengo que poner otra
lo que e utilizado es esto y me da error, me puedes dar alguna idea.
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva
WITH OBJECT oSender
if :Value = " "
MsgInfo("No dado Codigo")
Return ..F.
endif
:oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //Me da error aqui de self
:oDataSet:SetFilter("CODIGO = :VALUE")
if :oDataSet:Locate("EXPLO = :Value" )
MsgInfo("Ya existe El codigo" + :VALUE )
Return ..F.
endif
:oDataSet:SetFilter()
END WITH
RETURN Nil
--

ddupre · Mensaje por **ddupre** » Vie Ene 05, 2007 11:45 am

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Ingnacio:<br>
<br>
Excelente, como siempre<br>
<br>
Gracias<br>
Daniel.<br>
<br>
</tt><br>
Ignacio Ortiz de ZÃÃiga escribiÃ:
<blockquote cite="mid459e2b38$1@news.xailer.com" type="cite">
<title></title>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<meta content="MSHTML 6.00.5730.11" name="GENERATOR">
<div><font face="Arial" size="2">Daniel, </font></div>
<div>Â</div>
<div><font face="Arial" size="2">Mejor asÃ</font></div>
<div>Â</div>
<div><font face="Arial" size="2">:oDataSet:SetFilter("CODIGO = " +
ToString( :VALUE ) )</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un saludo</font></div>
<div><br>
<br>
-- <br>
Ignacio Ortiz de ZÃÃiga<br>
<a href="http://www.xailer.com">http://www.xailer.com</a></div>
<blockquote dir="ltr"
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div>"Daniel Du PrÃ" <<a
href="mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</a>>
escribiÃ en el mensaje <a href="news:459d545e@news.xailer.com">news:459d545e@news.xailer.com</a>....</div>
<tt>Pilo:<br>
No estoy seguro de lo que te voy a decir porque todavÃa me cuesta
bastante "leer" cÃdigo xailer, pero interpreto esto:<br>
Tu quieres filtrar una tabla por el valor que ingresÃ el usuario de tu
aplicaciÃn enÂ "oSender:value", asumiendo que CODIGO es el campo por el
cual quieres filtrar yo pondrÃa esto:<br>
</tt><br>
<font face="Arial" size="2">ÂÂ :oDataSet:SetFilter("CODIGO =
:VALUE")<br>
<br>
Espero que te sirva, y espero que lo dicho no sea un disparate.<span
class="moz-smiley-s6"><span> :-[ </span></span><br>
<br>
Saludos<br>
Daniel.<br>
<br>
<strong><br>
</strong></font>PILO escribiÃ:
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<meta content="MSHTML 6.00.2900.2995" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Daniel me puedes ayudar con esto:</font></div>
<div><font face="Arial" size="2">ÂÂÂÂ<strong>con otraÂvarialbe
alÂsalir del los que quiero es los siguiente</strong></font></div>
<div><font face="Arial" size="2">ÂÂÂ <strong>cuando sale tengo
que filtrar la base de datos por un campo</strong></font></div>
<div><font face="Arial" size="2"><strong>para que solo tenga
esto, ya que esta variable se puede repetir en todos</strong></font></div>
<div><font face="Arial" size="2"><strong>los grupos, y solo
quiero ver si existe en este, si exite tengo que poner otra</strong></font></div>
<div><font face="Arial" size="2"><strong>lo que e utilizado es
esto y me da error, me puedes dar alguna idea.</strong><br>
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva</font></div>
<div><font face="Arial" size="2">ÂÂ WITH OBJECT oSender<br>
ÂÂÂÂÂ if :Value = " ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂ "<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("No dado Codigo")<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //<strong>Me
da error aquiÂde self</strong><br>
</font></div>
</blockquote>
<b><font color="#3333ff" face="Arial" size="2">Â Â Â ÂÂ Â
:oDataSet:SetFilter("CODIGO = :VALUE")</font></b>
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<div><font face="Arial" size="2">ÂÂÂÂÂ if :oDataSet:Locate("EXPLO
= :Value" )<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("Ya existe El codigo" + :VALUE )<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter()<br>
ÂÂ END WITH</font></div>
<div>Â</div>
<div><font face="Arial" size="2">RETURN Nil<br>
</font></div>
</blockquote>
</blockquote>
</blockquote>
</body>
</html>

ddupre · Mensaje por **ddupre** » Vie Ene 05, 2007 11:49 am

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Ignacio:<br>
Una duda, ToString(:VALUE) siempre que el CODIGO sea tipo carÃcter
Âverdad?.<br>
ÂSi CODIGO es numÃrico valdrÃa la forma que puse?<br>
</tt><br>
Saludos<br>
<br>
<br>
Ignacio Ortiz de ZÃÃiga escribiÃ:
<blockquote cite="mid459e2b38$1@news.xailer.com" type="cite">
<title></title>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<meta content="MSHTML 6.00.5730.11" name="GENERATOR">
<div><font face="Arial" size="2">Daniel, </font></div>
<div>Â</div>
<div><font face="Arial" size="2">Mejor asÃ</font></div>
<div>Â</div>
<div><font face="Arial" size="2">:oDataSet:SetFilter("CODIGO = " +
ToString( :VALUE ) )</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un saludo</font></div>
<div><br>
<br>
-- <br>
Ignacio Ortiz de ZÃÃiga<br>
<a href="http://www.xailer.com">http://www.xailer.com</a></div>
<blockquote dir="ltr"
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div>"Daniel Du PrÃ" <<a
href="mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</a>>
escribiÃ en el mensaje <a href="news:459d545e@news.xailer.com">news:459d545e@news.xailer.com</a>....</div>
<tt>Pilo:<br>
No estoy seguro de lo que te voy a decir porque todavÃa me cuesta
bastante "leer" cÃdigo xailer, pero interpreto esto:<br>
Tu quieres filtrar una tabla por el valor que ingresÃ el usuario de tu
aplicaciÃn enÂ "oSender:value", asumiendo que CODIGO es el campo por el
cual quieres filtrar yo pondrÃa esto:<br>
</tt><br>
<font face="Arial" size="2">ÂÂ :oDataSet:SetFilter("CODIGO =
:VALUE")<br>
<br>
Espero que te sirva, y espero que lo dicho no sea un disparate.<span
class="moz-smiley-s6"><span> :-[ </span></span><br>
<br>
Saludos<br>
Daniel.<br>
<br>
<strong><br>
</strong></font>PILO escribiÃ:
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<meta content="MSHTML 6.00.2900.2995" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Daniel me puedes ayudar con esto:</font></div>
<div><font face="Arial" size="2">ÂÂÂÂ<strong>con otraÂvarialbe
alÂsalir del los que quiero es los siguiente</strong></font></div>
<div><font face="Arial" size="2">ÂÂÂ <strong>cuando sale tengo
que filtrar la base de datos por un campo</strong></font></div>
<div><font face="Arial" size="2"><strong>para que solo tenga
esto, ya que esta variable se puede repetir en todos</strong></font></div>
<div><font face="Arial" size="2"><strong>los grupos, y solo
quiero ver si existe en este, si exite tengo que poner otra</strong></font></div>
<div><font face="Arial" size="2"><strong>lo que e utilizado es
esto y me da error, me puedes dar alguna idea.</strong><br>
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva</font></div>
<div><font face="Arial" size="2">ÂÂ WITH OBJECT oSender<br>
ÂÂÂÂÂ if :Value = " ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂ "<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("No dado Codigo")<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //<strong>Me
da error aquiÂde self</strong><br>
</font></div>
</blockquote>
<b><font color="#3333ff" face="Arial" size="2">Â Â Â ÂÂ Â
:oDataSet:SetFilter("CODIGO = :VALUE")</font></b>
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<div><font face="Arial" size="2">ÂÂÂÂÂ if :oDataSet:Locate("EXPLO
= :Value" )<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("Ya existe El codigo" + :VALUE )<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter()<br>
ÂÂ END WITH</font></div>
<div>Â</div>
<div><font face="Arial" size="2">RETURN Nil<br>
</font></div>
</blockquote>
</blockquote>
</blockquote>
</body>
</html>

YouTube · Mensaje por **ignacio** » Vie Ene 05, 2007 12:27 pm

Daniel,
No, no vale. Ya que en la cadena se incluye la cadena ":VALUE" y no el valor realmente.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje news:[email=459e2d50@news.xailer.com...]459e2d50@news.xailer.com...[/email]
Ignacio:
Una duda, ToString(:VALUE) siempre que el CODIGO sea tipo carácter ¿verdad?.
¿Si CODIGO es numérico valdría la forma que puse?
Saludos
Ignacio Ortiz de Zúñiga escribió:
Daniel,
Mejor así
:oDataSet:SetFilter("CODIGO = " + ToString( :VALUE ) )
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> escribió en el mensaje news:[email=459d545e@news.xailer.com....]459d545e@news.xailer.com....[/email]
Pilo:
No estoy seguro de lo que te voy a decir porque todavía me cuesta bastante "leer" código xailer, pero interpreto esto:
Tu quieres filtrar una tabla por el valor que ingresó el usuario de tu aplicación en "oSender:value", asumiendo que CODIGO es el campo por el cual quieres filtrar yo pondría esto:
:oDataSet:SetFilter("CODIGO = :VALUE")
Espero que te sirva, y espero que lo dicho no sea un disparate. :-[
Saludos
Daniel.
PILO escribió:
Daniel me puedes ayudar con esto:
con otra varialbe al salir del los que quiero es los siguiente
cuando sale tengo que filtrar la base de datos por un campo
para que solo tenga esto, ya que esta variable se puede repetir en todos
los grupos, y solo quiero ver si existe en este, si exite tengo que poner otra
lo que e utilizado es esto y me da error, me puedes dar alguna idea.
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva
WITH OBJECT oSender
if :Value = " "
MsgInfo("No dado Codigo")
Return ..F.
endif
:oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //Me da error aqui de self
:oDataSet:SetFilter("CODIGO = :VALUE")
if :oDataSet:Locate("EXPLO = :Value" )
MsgInfo("Ya existe El codigo" + :VALUE )
Return ..F.
endif
:oDataSet:SetFilter()
END WITH
RETURN Nil
--

ddupre · Mensaje por **ddupre** » Vie Ene 05, 2007 12:43 pm

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Ignacio:<br>
<br>
Entiendo lo que me dices pero no me queda claro como debo escribirlo si
quiero comparar cadenas o nÃmeros.<br>
<br>
</tt>Saludos<br>
<br>
<br>
Ignacio Ortiz de ZÃÃiga escribiÃ:
<blockquote cite="mid459e3620$1@news.xailer.com" type="cite">
<title></title>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<meta content="MSHTML 6.00.5730.11" name="GENERATOR">
<div><font face="Arial" size="2">Daniel, </font></div>
<div>Â</div>
<div><font face="Arial" size="2">No, no vale. Ya que en la cadena se
incluye la cadena ":VALUE" y no el valor realmente.</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un saludo</font></div>
<div><br>
-- <br>
Ignacio Ortiz de ZÃÃiga<br>
<a href="http://www.xailer.com">http://www.xailer.com</a></div>
<blockquote dir="ltr"
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div>"Daniel Du PrÃ" <<a
href="mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</a>>
escribiÃ en el mensaje <a href="news:459e2d50@news.xailer.com">news:459e2d50@news.xailer.com</a>....</div>
<tt>Ignacio:<br>
Una duda, ToString(:VALUE) siempre que el CODIGO sea tipo carÃcter
Âverdad?.<br>
ÂSi CODIGO es numÃrico valdrÃa la forma que puse?<br>
</tt><br>
Saludos<br>
<br>
<br>
Ignacio Ortiz de ZÃÃiga escribiÃ:
<blockquote cite="mid459e2b38$1@news.xailer.com" type="cite">
<meta content="MSHTML 6.00.5730.11" name="GENERATOR">
<div><font face="Arial" size="2">Daniel, </font></div>
<div>Â</div>
<div><font face="Arial" size="2">Mejor asÃ</font></div>
<div>Â</div>
<div><font face="Arial" size="2">:oDataSet:SetFilter("CODIGO = "
+ ToString( :VALUE ) )</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un saludo</font></div>
<div><br>
<br>
-- <br>
Ignacio Ortiz de ZÃÃiga<br>
<a href="http://www.xailer.com">http://www.xailer.com</a></div>
<blockquote dir="ltr"
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div>"Daniel Du PrÃ" <<a
href="mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</a>>
escribiÃ en el mensaje <a href="news:459d545e@news.xailer.com">news:459d545e@news.xailer.com</a>.....</div>
<tt>Pilo:<br>
No estoy seguro de lo que te voy a decir porque todavÃa me cuesta
bastante "leer" cÃdigo xailer, pero interpreto esto:<br>
Tu quieres filtrar una tabla por el valor que ingresÃ el usuario de tu
aplicaciÃn enÂ "oSender:value", asumiendo que CODIGO es el campo por el
cual quieres filtrar yo pondrÃa esto:<br>
</tt><br>
<font face="Arial" size="2">ÂÂ :oDataSet:SetFilter("CODIGO =
:VALUE")<br>
<br>
Espero que te sirva, y espero que lo dicho no sea un disparate.<span
class="moz-smiley-s6"><span> :-[ </span></span><br>
<br>
Saludos<br>
Daniel.<br>
<br>
<strong><br>
</strong></font>PILO escribiÃ:
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<meta content="MSHTML 6.00.2900.2995" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Daniel me puedes ayudar con
esto:</font></div>
<div><font face="Arial" size="2">ÂÂÂÂ<strong>con
otraÂvarialbe alÂsalir del los que quiero es los siguiente</strong></font></div>
<div><font face="Arial" size="2">ÂÂÂ <strong>cuando sale
tengo que filtrar la base de datos por un campo</strong></font></div>
<div><font face="Arial" size="2"><strong>para que solo tenga
esto, ya que esta variable se puede repetir en todos</strong></font></div>
<div><font face="Arial" size="2"><strong>los grupos, y solo
quiero ver si existe en este, si exite tengo que poner otra</strong></font></div>
<div><font face="Arial" size="2"><strong>lo que e utilizado
es esto y me da error, me puedes dar alguna idea.</strong><br>
METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva</font></div>
<div><font face="Arial" size="2">ÂÂ WITH OBJECT oSender<br>
ÂÂÂÂÂ if :Value = " ÂÂÂÂÂÂ ÂÂÂÂÂÂ ÂÂ "<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("No dado Codigo")<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter("CODIGO = ::oGRUPO_NIF:VALUE") //<strong>Me
da error aquiÂde self</strong><br>
</font></div>
</blockquote>
<b><font color="#3333ff" face="Arial" size="2">Â Â Â ÂÂ Â
:oDataSet:SetFilter("CODIGO = :VALUE")</font></b>
<blockquote cite="mid459d1919@news.xailer.com" type="cite">
<div><font face="Arial" size="2">ÂÂÂÂÂ if
:oDataSet:Locate("EXPLO = :Value" )<br>
ÂÂÂÂÂÂ ÂÂ MsgInfo("Ya existe El codigo" + :VALUE )<br>
ÂÂÂÂÂÂ ÂÂ Return ..F.<br>
ÂÂÂÂÂ endif<br>
ÂÂÂÂÂ :oDataSet:SetFilter()<br>
ÂÂ END WITH</font></div>
<div>Â</div>
<div><font face="Arial" size="2">RETURN Nil<br>
</font></div>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</blockquote>
</body>
</html>

PILO · Mensaje por **PILO** » Vie Ene 05, 2007 2:19 pm

METHOD EXPLOExit( oSender, oNextCtl ) CLASS TFexplonueva
WITH OBJECT oSender
if :Value = " "
MsgInfo("No dado Codigo")
Return .F.
endif
:oDataSet:SetFilter("CODIGO = " + ToString( :VALUE ) ) /aqui he puesto lo que me dices
if :Locate("EXPLO = :Value" )
MsgInfo("Ya existe El codigo" + :VALUE )
Return .F.
endif
:oDataSet:SetFilter()
END WITH
*/
RETURN Nil
DA EL ERROR SIGUIENTE
(b)TDBFDATASET:FILTER(1556)
Error BASE/1003 No existe la variable: A
Argumentos: ()
**************************** Registro de errores *****************************
Fecha: 05-01-2007
Hora: 14:17:26
Memoria libre: 508732
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.2.1 Version 1.2a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1003
Estado: .F.
Descripción: No existe la variable
Operación: A
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)TDBFDATASET:FILTER (1556)
DBGOTOP (0)
TDBFDATASET:GOTOP (361)
TDBFDATASET:FILTER (1559)
(b)XDBFDATASET:XDBFDATASET (92)
TDBFDATASET:SETFILTER (0)
TFEXPLONUEVA:EXPLOEXIT (154)
TDBEDIT:ONEXIT (0)
TDBEDIT:VALID (906)
TFEXPLONUEVA:GONEXTCONTROL (0)
TFEXPLONUEVA:WMKEYDOWN (565)
TGROUPBOX:WMKEYDOWN (961)
TSTDCONTROL:WMKEYDOWN (961)
TDBEDIT:WMKEYDOWN (518)
TFEXPLONUEVA:SHOWMODAL (0)
TFEXPLOTA:ADDNEWEXPLOTA (340)
(b)TFEXPLOTA:FORMINITIALIZE (107)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (372)
TREBAR:WMCOMMAND (256)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (28)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 14
Filtro: CODIGO = A
Relación:
Orden del índice: 3
Clave activa: 3
--

PILO · Mensaje por **PILO** » Vie Ene 05, 2007 2:51 pm

:oDataSet:SetFilter("CODIGO = '" + ToString( :VALUE )+"'" )
Esto es la forma que no me ha dado errores
--