FoxPro/Visual FoxPro - Agregar a un cursoe datos de una tabla

Que tal amigos

Tengo dos tabla libres :

Cabecera y Detalle

Creo un cursor de un cursor tempotal y solo extraigo 2 campos de las tablas indicadas de la siguiente forma :

Select a, b from cur_temp group by a, b into cursor cur_temp

Tengo una 3era .tabla libre que tiene como 20 campos y ahi traslado los 2 campos del cursor creado

Pregunta :

Como hago para agregar al cursor CUR_TEMP los 18 campos restantes y luego en la edicion grabar todos
los campos a la tabla libre C

Agradezco sus comentarios y segerencias.

atte.,

Gabriel

Hola Gabriel:

A ver si te entiendo??

1.- Tienes tres tablas y haces un cursor de 2 unicamente
2.- Luego tienes una tercera Tabla
3.- Agregas en tu tabla temporal ?? cual tabla temporal la del cursor
4.- Barres toda la tabla 3 y quieres grabar en el cursor los datos de la tercera tabla ??


suerte..

Sha

Gracias Amigo SAULl por tu sugerencia en verdad lo hice asi utilizando el CREATE CURSOR osea estaba en lo correcto, pero para añadir los campos utilize una codificacion mas moderna y actual como se dice...

Aqui te muestro el codigo empleado :

Local mierror
TRY
BEGIN TRANSACTION
SELECT temp_prueba
INSERT INTO temp_prueba ( carpeta, num_bl ) SELECT iddoc, docu_num FROM cur_bl
END TRANSACTION
CATCH TO mierror
MESSAGEBOX("Se ha producido un error: "+ mierror.message,0+16,"Aviso del Sistema")
ROLLBACK
ENDTRY

Pero tengo el siguiente problema :

Como el grid usa un cursor temporal ( CREATE CURSOR) y lo cargo de datos mediante los TEXTBOX estos aparecen DESACTIVADOS, me dicen por ahi es porque la tabla esta vacia pero al comienzo esta en blanco la tabla...
Lo curioso que he podido activar algunos campos TEXTBOX con el clasico :

Thisform.text1.enabled = .t.

Pero no me permite en todos los campos restantes...

Y luego para grabar el CURSOR a la tabla DBF tendre que utilizar el APPRND FROM....es correcto!!!!

Alguna sugerencia como solucion...

Gracias por tu colaboracion.

attte.,

Gabriel

Hola Gabriel:

Si lo que pretenes es que los campos tengan sean los campos de tu cursor haz esto

Select TuCursorParaelGid
SCATTER MEMVAR

para cada texto

asigna esta propiedad Tucajadetexto1.ControlSource = m.miprimercampo

Tucajadetexto2.ControlSource = m.misegundocampo
Tucajadetexto3.ControlSource = m.mitercercampo

Cuando lo quieras agregar a tu table



Select TuCursorParaelGid
lo puedes hacer de tres formas

1.- APPEND BLANK
GATTHER MEMVAR &&voltea todas las variables m. (que son de memoria) a tu tabla

2.- APPEN BLANK
REPLACE tuPrimerCampo with m.tuPrimerCampo
...


3.-

TRY
BEGIN TRANSACTION
SELECT temp_prueba
APPEND BLANK
INSERT INTO tusCampos Value (m.campo1, m.campo2 Etc)

END TRANSACTION
CATCH TO mierror
MESSAGEBOX("Se ha producido un error: "+ mierror.message,0+16,"Aviso del Sistema")
ROLLBACK
ENDTRY

Suerte.


pdta
El

TRY
BEGIN TRANSACTION

Se utlizan cuando usas tablas relacionales si no practicamente no te hace nada en el RollBack


sha

Nuevamente Muchas gracias amigo SAUL...

En verdad me distes una idea para resolver mi problema...

Saludos,

Gabriel.