LOS PROBLEMAS CONTINUAN
Publicado por DANIEL (57 intervenciones) el 18/07/2007 00:43:05
Buenas tardes ante todo, continuando con la rutina de mis muchisimos errores he encontrado el kit del problema, pero no lo veo razonable, lo explico;
He encontrado que me da un error al hacer lo siguiente -->
procedure TFrmMontajes.FormActivate(Sender: TObject);
BEGIN
//Inicializamos variables
comprobar := false;
llamada_cliente := false;
llamada_grupo := false;
operacion := #0;
//Abrimos las tablas necesarias
Modulo_Datos.tb_lk_montajes.Open;
Modulo_Datos.tb_lk_productos.Open;
Modulo_Datos.tb_lk_montadores.Open;
Modulo_Datos.tb_lk_grupos.Open;
Modulo_Datos.tb_lk_linmontaje.Open;
//si existe 1 o mas registros en la tabla
IF (Modulo_Datos.tb_lk_montajes.RecordCount > 0) THEN -- Aqui es el error ????
BEGIN
Modulo_Datos.tb_lk_montajes.First;
Edit1.Text := IntToStr(Modulo_Datos.tb_lk_montajesCodigo.Value);
Fecha_Pedido.Date := Modulo_Datos.tb_lk_montajesFecha_Pedido.AsDateTime;
Fecha_Montaje.Date := Modulo_Datos.tb_lk_montajesFecha_Montaje.AsDateTime;
END
ELSE
BEGIN
//si no existe ningun registro
Fecha_Pedido.Date := Date;
Fecha_Montaje.Date := Date+10;
Edit1.Text := '';
END;
//preparamos la pantalla
Iniciar_Botones;
END;
--> Nada mas activar el formulario me da este error "Project Proyecto_FrioSur.exe raised exception class EOleException with mesage "El proveeodr de datos u otro servicio devolvio un estado E_FAIL', process stopped. Use Step or Run to continue.
Haver si podeis ayudarme porque estoy empezando a cansarme de este error.
He encontrado que me da un error al hacer lo siguiente -->
procedure TFrmMontajes.FormActivate(Sender: TObject);
BEGIN
//Inicializamos variables
comprobar := false;
llamada_cliente := false;
llamada_grupo := false;
operacion := #0;
//Abrimos las tablas necesarias
Modulo_Datos.tb_lk_montajes.Open;
Modulo_Datos.tb_lk_productos.Open;
Modulo_Datos.tb_lk_montadores.Open;
Modulo_Datos.tb_lk_grupos.Open;
Modulo_Datos.tb_lk_linmontaje.Open;
//si existe 1 o mas registros en la tabla
IF (Modulo_Datos.tb_lk_montajes.RecordCount > 0) THEN -- Aqui es el error ????
BEGIN
Modulo_Datos.tb_lk_montajes.First;
Edit1.Text := IntToStr(Modulo_Datos.tb_lk_montajesCodigo.Value);
Fecha_Pedido.Date := Modulo_Datos.tb_lk_montajesFecha_Pedido.AsDateTime;
Fecha_Montaje.Date := Modulo_Datos.tb_lk_montajesFecha_Montaje.AsDateTime;
END
ELSE
BEGIN
//si no existe ningun registro
Fecha_Pedido.Date := Date;
Fecha_Montaje.Date := Date+10;
Edit1.Text := '';
END;
//preparamos la pantalla
Iniciar_Botones;
END;
--> Nada mas activar el formulario me da este error "Project Proyecto_FrioSur.exe raised exception class EOleException with mesage "El proveeodr de datos u otro servicio devolvio un estado E_FAIL', process stopped. Use Step or Run to continue.
Haver si podeis ayudarme porque estoy empezando a cansarme de este error.
Valora esta pregunta


0