FoxPro/Visual FoxPro - Ayuda con scan...endscan e insert

 
Vista:

Ayuda con scan...endscan e insert

Publicado por gaston (80 intervenciones) el 19/02/2009 12:33:11
Hola, por favor necesito saber como recorrer un cursor con SCAN, comparar algunos de sus valores e insertar aquellos valores que me sirven en un cursor creado previamente.

Por ejemplo, tengo un cursor con los siguientes campos cliente, articulo y fecha (los clientes y los articulos se repiten muchas veces dentro de mi cursor, solo difiere la fecha)

Por otro lado he creado un cursor con los campos cliente, articulo y fecha.

Ahora bien, quiero recurrer el cursor con la funcion SCAN e ir insetando datos dentro del cursor que tengo vacio.

Desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con scan...endscan e insert

Publicado por Mario (199 intervenciones) el 19/02/2009 13:24:32
select cursor1
Scan
If Condicion
insert into Cursor1 (campo1, campo2, campoN);
values (cursor2.campo1, cursor2.campo2, cursor2.campoN)
endif

endscan

Si necesitas agregar los registros del cursor2 que no existan en cursor1 podes adaptar el codigo siguiente a tus necesidades

Insert into Cursor1;
Select * from cursor2 ;
where CampoClave not in (select CampoClave from cursor1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar