Calculando una fecha con IncMonth

[gsilvei]

Hola amigos,
tengo un pequeño problema q no estoy consiguiendo entender,
tengo dos campos: fecha inicial y otro fecha final,
al fecha inicial le IncMonth, 12, y el resultado lo coloca en el campo fecha final, hasta ahi todo correcto,
solo que si quiero alterar la fecha final al salvar, no salva la fecha que altere
gracias

[marcoszorrilla]

Sobre qué aplicas IncMonth, sobre un campo de una base de datos?

Tendrás que hacer un "Post", para salvar los cambios. Pero si estás trabajando con otro componente Monthcalendar, TDAteTimePicker.... entonces el valor de este componente u otro tendrás que trasladarlo campo y luego hacer Post.

Código Delphi [-]
Edit;
CampoFecha.Value:=TDateTimePicker.Date;
Post;

Un Saludo.

[gsilvei]

ambos campos son de una base de datos.

Código Delphi [-]
procedure TFormPropostaApolice.INICIALExit(Sender: TObject);
var Data : tdatetime;
begin
  Data := INICIAL.Value;
  Data := IncMonth(Data,12);
  FINAL.Value:= Data;
end;

[gsilvei]

Hola,
Alguien tiene alguna idea?
Gracias

[gsilvei]

Resolvido a la fuerza bruta.

Código Delphi [-]
var    Data : tdatetime;

  if P_FINVIGENCIA.Enabled = False then
    begin
     Data := P_INIVIGENCIA.Value; 
     Data := IncMonth(Data,12);
     P_FINVIGENCIA.Value:= Data;
    end
    else
    if P_FINVIGENCIA.Enabled = True then
    Data := P_FINVIGENCIA.Value;