Key Violation

[Alsaca]

Perdonad, por explicarlo tan básicamente....

Tabla Paradox. Clave principal Cod_cli

Botón Editar

tclient.edit;
altacli.Enabled:=false;
bitbtn13.Enabled:=false;
bitbtn14.enabled:=false;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit4.Enabled:=true;
dbedit5.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit8.Enabled:=true;
dbedit9.Enabled:=true;
dbedit10.Enabled:=true;
dbedit15.Enabled:=true;
dbedit18.Enabled:=true;
dbedit13.Enabled:=true;
Date1.enabled:=true;
Date2.enabled:=true;
Date3.enabled:=true;
Date4.enabled:=true;
dbedit16.enabled:=true;
dbedit17.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
dbedit14.Enabled:=true;
date5.Enabled:=true;
date6.enabled:=true;
dbedit19.Visible:=false;
dbedit20.Visible:=false;
dbedit21.Visible:=false;
dbedit22.Visible:=false;
dbedit23.Visible:=false;
dbedit24.Visible:=false;
bitbtn4.Enabled:=true;

Botón grabar

tclient.FieldByName('F_exp').asdatetime:=date1.Date;
tclient.FieldByName('F_cad').asdatetime:=date2.Date;
tclient.FieldByName('F_segexp').asdatetime:=date3.Date;
tclient.FieldByName('F_segcad').asdatetime:=date4.Date;
tclient.FieldByName('F_expe').AsDateTime:=date5.Date;
tclient.FieldByName('F_cade').asdatetime:=date6.date;
tclient.FieldByName('F_alta').AsDateTime:=date7.Date;
tclient.Post;
altacli.Enabled:=true;
date7.enabled:=false;
bitbtn4.enabled:=false;
date1.Enabled:=false;
date2.Enabled:=false;
date3.Enabled:=false;
date4.Enabled:=false;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
dbedit5.Enabled:=false;
dbedit6.Enabled:=false;
dbedit7.Enabled:=false;
dbedit8.Enabled:=false;
dbedit9.Enabled:=false;
dbedit10.Enabled:=false;
dbedit13.Enabled:=false;
dbedit16.Enabled:=false;
dbedit17.Enabled:=false;
bitbtn5.enabled:=true;
bitbtn6.enabled:=true;
dbedit14.Enabled:=false;
date5.Enabled:=false;
date6.Enabled:=false;
dbedit15.Enabled:=false;
dbedit18.enabled:=false;
tclient.Close;

Botón Consulta

tclient.Close;
dbedit2.Text:='';
dbedit3.Text:='';
dbedit4.Text:='';
dbedit5.Text:='';
dbedit6.Text:='';
dbedit7.Text:='';
dbedit8.Text:='';
dbedit9.Text:='';
dbedit10.Text:='';
dbedit11.Text:='';
dbedit13.Text:='';
dbedit15.Text:='';
dbedit16.Text:='';
dbedit17.Text:='';
dbedit18.Text:='';
dbedit19.Text:='';
dbedit20.Text:='';
dbedit21.Text:='';
dbedit22.Text:='';
dbedit23.Text:='';
dbedit24.Text:='';
fbuscli:=tfbuscli.create(self);
fbuscli.tclient.active:=true;
fbuscli.showmodal;
tclient.Open;
tclient.edit;
tclient.FieldByName('Cod_cli').Asstring:=fbuscli.tclient.fieldbyname('Cod_cli').asstring;
tclient.FieldByName('f_alta').Asdatetime:=fbuscli.Tclient.fieldbyname('f_alta').Asdatetime;
tclient.FieldByName('nomb').AsString:=fbuscli.Tclient.fieldbyname('nomb').AsString;
tclient.FieldByName('apelli').AsString:=fbuscli.Tclient.fieldbyname('apelli').AsString;
tclient.FieldByName('direc').AsString:=fbuscli.Tclient.fieldbyname('direc').AsString;
tclient.FieldByName('local').AsString:=fbuscli.Tclient.fieldbyname('local').AsString;
tclient.FieldByName('provi').AsString:=fbuscli.Tclient.fieldbyname('provi').AsString;
tclient.FieldByName('cpostal').AsString:=fbuscli.Tclient.fieldbyname('cpostal').AsString;
tclient.FieldByName('dni').AsString:=fbuscli.Tclient.fieldbyname('dni').AsString;
tclient.FieldByName('telf').AsString:=fbuscli.Tclient.fieldbyname('telf').AsString;
tclient.FieldByName('movil').AsString:=fbuscli.Tclient.fieldbyname('movil').AsString;
tclient.FieldByName('n_permi').AsString:=fbuscli.Tclient.fieldbyname('n_permi').AsString;
tclient.FieldByName('f_exp').Asdatetime:=fbuscli.Tclient.fieldbyname('f_exp').Asdatetime;
tclient.FieldByName('f_cad').Asdatetime:=fbuscli.Tclient.fieldbyname('f_cad').Asdatetime;
tclient.FieldByName('tipo').AsString:=fbuscli.Tclient.fieldbyname('tipo').AsString;
tclient.FieldByName('nomb_seg').AsString:=fbuscli.Tclient.fieldbyname('nomb_seg').AsString;
tclient.FieldByName('n_segur').AsString:=fbuscli.Tclient.fieldbyname('n_segur').AsString;
tclient.FieldByName('f_segexp').Asdatetime:=fbuscli.Tclient.fieldbyname('f_segexp').Asdatetime;
tclient.FieldByName('f_segcad').Asdatetime:=fbuscli.Tclient.fieldbyname('f_segcad').Asdatetime;
tclient.FieldByName('n_pere').AsString:=fbuscli.Tclient.fieldbyname('n_pere').AsString;
tclient.FieldByName('f_expe').Asdatetime:=fbuscli.Tclient.fieldbyname('f_expe').Asdatetime;
tclient.FieldByName('f_cade').Asdatetime:=fbuscli.Tclient.fieldbyname('f_cade').Asdatetime;
tclient.FieldByName('tipo1').AsString:=fbuscli.Tclient.fieldbyname('tipo1').AsString;
altacli.Enabled:=false;
dbedit15.visible:=true;
dbedit18.Visible:=true;
date7.Visible:=false;
dbedit11.Enabled:=false;
dbedit11.visible:=true;
bitbtn1.Enabled:=true;
bitbtn3.Enabled:=true;
dbedit18.enabled:=false;
dbedit19.Visible:=true;
dbedit20.Visible:=true;
dbedit21.Visible:=true;
dbedit22.visible:=true;
dbedit23.Visible:=true;
dbedit24.Visible:=true;
dbedit19.enabled:=false;
dbedit20.enabled:=false;
dbedit21.enabled:=false;
dbedit22.enabled:=false;
dbedit23.enabled:=false;
dbedit24.enabled:=false;
borrar.Enabled:=true;
bitbtn13.enabled:=false;
bitbtn14.Enabled:=false;
fbuscli.Free;

Primero hago una busqueda, pulsando el botón de consulta y lo añado al form principal, luego paso a editar y por último accedo a grabar y.... KEY VIOLATION.


Gracias por el interés y un saludo.