titoalomia

Quita del entorno de datos el cursor, pon en la clausula report mId_pedido = Thisform.txtIdped.Value REPORT FORM rpedido.frx FOR idped=mid_pedido PREVIEW noconsole

Hazle en el evento valid o interactive change del combo el seek a la tabla inscricpcin lcCodigo=This.Value && el value del cmb en la columna desde la cual devuelve el valor o BoundColumn =SEEK(lcCodigo,"inscripción","código") Cuando cierres el form...

Debes crear un indice único o principal en la tabla que seria un indice compuesto año+código, y antes de adicionar el registro y si al indice le pusiste el nombre anocodigo buscas así: Si el año el carácter: lcCadena=año+código si es numerico...

USE IN micursor

nYear=YEAR(DATE()) nMonth=MONTH(DATE()) nDay=DAY(DATE()) nHora_salida=VAL(SUBSTR(Hor_Sal,1,2)) nMinuto_salida=VAL(SUBSTR(Hor_Sal,4,2)) nSegundo_salida=0 lcHora_salida=DATETIME(nYear, nMonth, nDay , nHora_salida , nMinuto_salida,nSegundo_salida)...

Si manejas integridad referencial puedes hacer eliminación en cascada, de lo contrario te toca poner un botón eliminar en cada form. Busca en portalfox.com todo lo relacinado con integridad referencial.

No utilices USE inscripción, sino SELECT inscripción, porque cuando abres una tabla en un select queda abierta. Otra forma seria: If used("inscripción") select inscripción else Use inscripción Endif

Listo, apenas tenga un tiempito con mucho gusto te colaboro

Bueno ya le respondí en la otra pregunta, no olvides de finalizarlas y te pude ayudar en algo.

1.) Debes seleccionar todos los campos de la tabla Inscripción, por ejemplo> Select código,nombre,apellidos,MAX(lec) FROM Inscripción Where Nie=cNie Into Cursor LacActual IF Reccount() > 0 Thisform.txtCodigo.Value ) LecActual.Codigo Etc. Else...