Ayuda con este cursor

Podrias construir el SELECT-SQL:

lcSQLCodigo = IIF(EMPTY(lcCodigo), ".T.", "cCodigo $ lcCodigo")
lcSQLDescripcion = IIF(EMPTY(lcDescripcion),;
".T.", "cDescripcion $lcDescripcion")

lcSQLCategoria = IIF(EMPTY(lcCategoria),;
".T.", "cCategoria = lcCategoria")


ldSQLFecha = IIF(EMPTY(ldFecha),".T.","dFecha = ldFecha")

SELECT * FROM Productos ;
WHERE &lcSQLCodigo .AND. &lcSQLDescripcion ;
AND &lcSQLCategoria .AND. &lcSQLFecha ;
INTO CURSOR cProductos



ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal
VFP Bookmarks http://del.icio.us/esparta/vfp

Andys wrote:

Amigos:
Estoy tratando de hacer un corsor de consulta de
articulos asi:

Pero que tenga los siguientes parametros.

lCodigo="2222" &&Que el codigo contega 2222
ldescripcion="*AB*" &&Que la descripcion contega AB
lCategoria="Buenas" &&Que la categoria se igual a buenas
lFecha="" && todas las fechas
lprovedor="" && Todos los provedores.


Lo que quiero es que el cursor me muestre de la tabla
articulos los registros que contengan estas
acaracteriticaso que y si las variables estan vacias me
muetre todos los articulos.

Por favor agradezco cualquiera ayuda.

Gracias.

Andys Bohorquez
Cartagena -Colombia

Espartaco,
Probe tu ejemplo de SELECT-SQL pero me da un error.
¡Falta algun operando!

Por favor te gradesco mucho que me ayudes con esto.

Gracias.

Andys Bohorquez
Cartagena -Colombia

Podrias construir el SELECT-SQL:

lcSQLCodigo = IIF(EMPTY(lcCodigo), ".T.", "cCodigo $

lcCodigo")

lcSQLDescripcion = IIF(EMPTY(lcDescripcion),;
".T.", "cDescripcion

$lcDescripcion")

lcSQLCategoria = IIF(EMPTY(lcCategoria),;
".T.", "cCategoria = lcCategoria")


ldSQLFecha = IIF(EMPTY(ldFecha),".T.","dFecha = ldFecha")

SELECT * FROM Productos ;
WHERE &lcSQLCodigo .AND. &lcSQLDescripcion ;
AND &lcSQLCategoria .AND. &lcSQLFecha ;
INTO CURSOR cProductos



ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal
VFP Bookmarks http://del.icio.us/esparta/vfp

Andys wrote:

Amigos:
Estoy tratando de hacer un corsor de consulta de
articulos asi:

Pero que tenga los siguientes parametros.

lCodigo="2222" &&Que el codigo contega 2222
ldescripcion="*AB*" &&Que la descripcion contega AB
lCategoria="Buenas" &&Que la categoria se igual a

buenas

lFecha="" && todas las fechas
lprovedor="" && Todos los provedores.


Lo que quiero es que el cursor me muestre de la tabla
articulos los registros que contengan estas
acaracteriticaso que y si las variables estan vacias

me

muetre todos los articulos.

Por favor agradezco cualquiera ayuda.

Gracias.

Andys Bohorquez
Cartagena -Colombia

.

Desconozco cual sea tu error, pero si funciona correctamente, lo he
hecho por años, deberías revisar que es lo que tienen tus variables (con
el Debugger), para así ver dónde está el error, a continuación un
ejemplo donde se vé que si ejecuta correctamente:

OPEN DATABASE(HOME(2)+"Data\TestData")
lcEmp_id = ""
lcCust_id ="AN"
lcSQLemp = IIF(EMPTY(lcEmp_id),".T.","ALLTRIM(Emp_id) = lcEmp_id")
lcSQLCust = IIF(EMPTY(lcCust_id),".T.","lcCust_id $ cust_id")
SELECT * FROM orders ;
WHERE &lcSQLemp .AND. &lcSQLCust ;
INTO CURSOR cOrders
BROW


ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal
VFP Bookmarks http://del.icio.us/esparta/vfp

Andys wrote:

Espartaco,
Probe tu ejemplo de SELECT-SQL pero me da un error.
¡Falta algun operando!

Por favor te gradesco mucho que me ayudes con esto.

Gracias.

Andys Bohorquez
Cartagena -Colombia

Podrias construir el SELECT-SQL:

lcSQLCodigo = IIF(EMPTY(lcCodigo), ".T.", "cCodigo $

lcCodigo")

lcSQLDescripcion = IIF(EMPTY(lcDescripcion),;
".T.", "cDescripcion

$lcDescripcion")

lcSQLCategoria = IIF(EMPTY(lcCategoria),;
".T.", "cCategoria = lcCategoria")


ldSQLFecha = IIF(EMPTY(ldFecha),".T.","dFecha = ldFecha")

SELECT * FROM Productos ;
WHERE &lcSQLCodigo .AND. &lcSQLDescripcion ;
AND &lcSQLCategoria .AND. &lcSQLFecha ;
INTO CURSOR cProductos


Andys wrote:

Amigos:
Estoy tratando de hacer un corsor de consulta de
articulos asi:

Pero que tenga los siguientes parametros.

lCodigo="2222" &&Que el codigo contega 2222
ldescripcion="*AB*" &&Que la descripcion contega AB
lCategoria="Buenas" &&Que la categoria se igual a

buenas

lFecha="" && todas las fechas
lprovedor="" && Todos los provedores.


Lo que quiero es que el cursor me muestre de la tabla
articulos los registros que contengan estas
acaracteriticaso que y si las variables estan vacias

me

muetre todos los articulos.

Por favor agradezco cualquiera ayuda.

Gracias.

Andys Bohorquez
Cartagena -Colombia

.

Probe y salio este error en esta linea
SELECT * FROM Productos ; pero el ejemplo debe funcionar
buscare cual sera mi error y te comentare como me fue.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Desconozco cual sea tu error, pero si funciona

correctamente, lo he

hecho por años, deberías revisar que es lo que tienen

tus variables (con

el Debugger), para así ver dónde está el error, a

continuación un

ejemplo donde se vé que si ejecuta correctamente:

OPEN DATABASE(HOME(2)+"Data\TestData")
lcEmp_id = ""
lcCust_id ="AN"
lcSQLemp = IIF(EMPTY(lcEmp_id),".T.","ALLTRIM(Emp_id) =

lcEmp_id")

lcSQLCust = IIF(EMPTY(lcCust_id),".T.","lcCust_id $

cust_id")

SELECT * FROM orders ;
WHERE &lcSQLemp .AND. &lcSQLCust ;
INTO CURSOR cOrders
BROW


ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal
VFP Bookmarks http://del.icio.us/esparta/vfp

Andys wrote:

Espartaco,
Probe tu ejemplo de SELECT-SQL pero me da un error.
¡Falta algun operando!

Por favor te gradesco mucho que me ayudes con esto.

Gracias.

Andys Bohorquez
Cartagena -Colombia

Podrias construir el SELECT-SQL:

lcSQLCodigo = IIF(EMPTY(lcCodigo), ".T.", "cCodigo $

lcCodigo")

lcSQLDescripcion = IIF(EMPTY(lcDescripcion),;
".T.", "cDescripcion

$lcDescripcion")

lcSQLCategoria = IIF(EMPTY(lcCategoria),;
".T.", "cCategoria = lcCategoria")


ldSQLFecha = IIF(EMPTY(ldFecha),".T.","dFecha =

ldFecha")

SELECT * FROM Productos ;
WHERE &lcSQLCodigo .AND. &lcSQLDescripcion ;
AND &lcSQLCategoria .AND. &lcSQLFecha ;
INTO CURSOR cProductos


Andys wrote:

Amigos:
Estoy tratando de hacer un corsor de consulta de
articulos asi:

Pero que tenga los siguientes parametros.

lCodigo="2222" &&Que el codigo contega 2222
ldescripcion="*AB*" &&Que la descripcion contega AB
lCategoria="Buenas" &&Que la categoria se igual a

buenas

lFecha="" && todas las fechas
lprovedor="" && Todos los provedores.


Lo que quiero es que el cursor me muestre de la tabla
articulos los registros que contengan estas
acaracteriticaso que y si las variables estan vacias

me

muetre todos los articulos.

Por favor agradezco cualquiera ayuda.

Gracias.

Andys Bohorquez
Cartagena -Colombia

.

.

Te cuento que rediseñe nuevamente teniendo en cuenta el
ultimo ejemplo que me mostraste y todo salio bien
funciona perfecto.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Probe y salio este error en esta linea
SELECT * FROM Productos ; pero el ejemplo debe funcionar
buscare cual sera mi error y te comentare como me fue.

Gracias.

Andys Bohorquez
Cartagena-Colombia

Desconozco cual sea tu error, pero si funciona

correctamente, lo he

hecho por años, deberías revisar que es lo que tienen

tus variables (con

el Debugger), para así ver dónde está el error, a

continuación un

ejemplo donde se vé que si ejecuta correctamente:

OPEN DATABASE(HOME(2)+"Data\TestData")
lcEmp_id = ""
lcCust_id ="AN"
lcSQLemp = IIF(EMPTY(lcEmp_id),".T.","ALLTRIM(Emp_id) =

lcEmp_id")

lcSQLCust = IIF(EMPTY(lcCust_id),".T.","lcCust_id $

cust_id")

SELECT * FROM orders ;
WHERE &lcSQLemp .AND. &lcSQLCust ;
INTO CURSOR cOrders
BROW


ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º

Espartaco Palma Martínez
SysOp http://www.PortalFox.com
México D.F.
MoBlogs!
http://weblogs.golemproject.com/esparta/ <- Tech
http://www.espartha.com/blog/ <- Personal
VFP Bookmarks http://del.icio.us/esparta/vfp

Andys wrote:

Espartaco,
Probe tu ejemplo de SELECT-SQL pero me da un error.
¡Falta algun operando!

Por favor te gradesco mucho que me ayudes con esto.

Gracias.

Andys Bohorquez
Cartagena -Colombia

Podrias construir el SELECT-SQL:

lcSQLCodigo = IIF(EMPTY(lcCodigo), ".T.", "cCodigo $

lcCodigo")

lcSQLDescripcion = IIF(EMPTY(lcDescripcion),;
".T.", "cDescripcion

$lcDescripcion")

lcSQLCategoria = IIF(EMPTY(lcCategoria),;
".T.", "cCategoria =

lcCategoria")

ldSQLFecha = IIF(EMPTY(ldFecha),".T.","dFecha =

ldFecha")

SELECT * FROM Productos ;
WHERE &lcSQLCodigo .AND. &lcSQLDescripcion ;
AND &lcSQLCategoria .AND. &lcSQLFecha ;
INTO CURSOR cProductos


Andys wrote:

Amigos:
Estoy tratando de hacer un corsor de consulta de
articulos asi:

Pero que tenga los siguientes parametros.

lCodigo="2222" &&Que el codigo contega 2222
ldescripcion="*AB*" &&Que la descripcion contega AB
lCategoria="Buenas" &&Que la categoria se igual a

buenas

lFecha="" && todas las fechas
lprovedor="" && Todos los provedores.


Lo que quiero es que el cursor me muestre de la

tabla

articulos los registros que contengan estas
acaracteriticaso que y si las variables estan vacias

me

muetre todos los articulos.

Por favor agradezco cualquiera ayuda.

Gracias.

Andys Bohorquez
Cartagena -Colombia

.

.

.