Ver Mensaje Individual
  #10  
Antiguo 10-09-2012
loquillo3 loquillo3 is offline
Miembro
 
Registrado: oct 2007
Posts: 51
Reputación: 19
loquillo3 Va por buen camino
Cita:
Empezado por camiz Ver Mensaje
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); //buscamos y comparamos el codigo del TDBEdit    
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
Responder Con Cita