Cita:
Empezado por camiz
loquillo3 hecha un vistaso este hilo, no soy experto pero yo tenia un problema parecido al tuyo queria que no se guarden repetidos, echale un vistaso al ultimo mensaje a ver si te sirve de algo.
http://www.clubdelphi.com/foros/showthread.php?t=78546
quizas no sea el codigo mas adecuado pero funciona.
|
ya habia visto ese hilo y utilize tu codigo:
Código Delphi
[-]procedure TfrmAltaRepuestos.btn_arguardarClick(Sender: TObject); if (frmConeccion.Repuesto_vista_02.Locate('CODIGO', txt_arcodigo_repuesto.Text, [])) and (frmConeccion.Repuesto_vista_02CODIGO.Text = txt_arcodigo_repuesto.Text) then
begin
Application.MessageBox('Este código ya existe, debe crear otro para este artìculo.', 'Mensaje', MB_ICONSTOP or MB_OK); txt_arcodigo_repuesto.SetFocus;
Abort;
end
else
begin
frmConeccion.Repuesto_save2.Post;
end
me puedes explicar en esta parte del codigo
Código:
if (frmConeccion.Repuesto_vista_02.Locate('CODIGO', txt_arcodigo_repuesto.Text, [])) and (frmConeccion.Repuesto_vista_02CODIGO.Text = txt_arcodigo_repuesto.Text) then