Hola,
Tengo una aplicación, hecha en delphi 6 con una BD en IB7.
Una de las ventanas de mi aplicación está compuesta por un DBGrid, y tres botones, que son, nuevo, editar y borrar.
Editar y nuevo, me abren una ventana, con los mismos campos que aparecen en el dbgrid.
Los botones Nuevo y borrar me funcionan perfectamente. El problema viene cuando intento editar.
Esto es,Inserto un nuevo registro(Botón "Nuevo"), dejando el campo de fecha vacío (tipo date, sql3),y luego edito ese campo, (Botón "Editar"), e introduzco una fecha válida, que veo como aparece en los campos correspondientes de mi DBGrid, y al pulsar aceptar, (guardar) RESULTA QUE NO ME GUARDA LAS FECHAS.
Sin embargo, cuando lo que no relleno con datos, es un campo Varchar, al editarlo para añadirle ese dato, me lo guarda sin problemas.
Vamos, que el código de post etc, que tiene asociado el botón editar, parece que tiene que estar bien, pues de otro modo, no me guardaría tampoco el dato que introduzco en el campo varchar.
Lo más curioso del tema es que, si al insertar el registro inserto datos en el campo fecha, y luego quiero editar ese campo fecha, ENTONCES SI ME LO GUARDA!!!!!
El código para el botón editar es:
Código Delphi
[-]
screen.cursor := crHourGlass;
FrmVtos := TFrmVtos.Create(Self);
Screen.cursor := crDefault;
TRY
FrmDModule.TbVtosVna.Insert;
FrmVtos.ShowModal;
If FrmVtos.modalresult = mrOk Then Begin
if FrmDModule.TbVtosVnaFECHAINI.value < FrmDModule.TbVtosVnaFECHAFIN.value Then Begin
FrmDModule.TbVtosVna.Post;
FrmDModule.TbVtosVna.Close;
FrmDModule.TbVtosVna.Open;
end
else begin
Application.MessageBox( 'La Fecha Inicial debe ser menor que la Final',
'Atencion', mb_ICONEXCLAMATION);
FrmDModule.TbVtosVna.Cancel;
end;
End Else Begin
FrmDModule.TbVtosVna.Cancel;
End;
FINALLY
FrmVtos.Free;
END;
¿tal vez sea algo relacionado las propiedades que tengo para ese campo en esa tabla? Aparentemente está todo bien. ¿Alguna Idea?
Os agradeceré cualquier orientación que me podais dar, por que estoy algo desesperada con este tema.
Muchas gracias a todos, por todo,
Virginia