Duda en Cursor
Publicado por Ramoncito (81 intervenciones) el 17/03/2009 22:06:08
estoy tratando de Jalar los datos que cumplen una condicion a un Cursor en un form pasado a una Grid1... y no me aparece en el grid...
Tengo la Tabla de Ventas... en el cual se realizan los movimientos.. con un num de ticket..
ticket cantidad articulo precio
1 2 xxx 1.00
1 1 otro artic 2.00
1 2 otro 1.00
en otro form tengo un text1 en el cual pongo esta condicion en ¨Valid asi
USE tickets AGAIN IN 0 SHARED
SELECT tickets
SET ORDER TO folticket
SEEK nfolio
IF FOUND()
uSE temp
SELECT temp
APPEND fields folio,Cant,codigo,articulo,;
precio,total from ventas FOR folio=nfolio
Thisform.Grid1.Refresh
ELSE
MESSAGEBOX('El Registro..no existe')
ENDIF
INIT DEL FORM
Create Cursor Temp(Folio n(6),;
Cant n(8),;
articulo c(80),;
precio n(12,2),;
Ttotal n(12,2))
WITH Thisform.Grid1
.RecordSourceType = 1
.RecordSource = 'Temp'
.Column1.ControlSource = 'Temp.CANT'
.Column2.ControlSource = 'Temp.ARTICULO'
.Column3.ControlSource = 'Temp.PRECIO'
.Column4.ControlSource = 'Temp.TTOTAL'
EndWith
PERO NO ME JALA LOS DATOS DE VENTAS AL CURSOR... PORQUE...??
GRACIAS
Tengo la Tabla de Ventas... en el cual se realizan los movimientos.. con un num de ticket..
ticket cantidad articulo precio
1 2 xxx 1.00
1 1 otro artic 2.00
1 2 otro 1.00
en otro form tengo un text1 en el cual pongo esta condicion en ¨Valid asi
USE tickets AGAIN IN 0 SHARED
SELECT tickets
SET ORDER TO folticket
SEEK nfolio
IF FOUND()
uSE temp
SELECT temp
APPEND fields folio,Cant,codigo,articulo,;
precio,total from ventas FOR folio=nfolio
Thisform.Grid1.Refresh
ELSE
MESSAGEBOX('El Registro..no existe')
ENDIF
INIT DEL FORM
Create Cursor Temp(Folio n(6),;
Cant n(8),;
articulo c(80),;
precio n(12,2),;
Ttotal n(12,2))
WITH Thisform.Grid1
.RecordSourceType = 1
.RecordSource = 'Temp'
.Column1.ControlSource = 'Temp.CANT'
.Column2.ControlSource = 'Temp.ARTICULO'
.Column3.ControlSource = 'Temp.PRECIO'
.Column4.ControlSource = 'Temp.TTOTAL'
EndWith
PERO NO ME JALA LOS DATOS DE VENTAS AL CURSOR... PORQUE...??
GRACIAS
Valora esta pregunta


0