Ver Mensaje Individual
  #8  
Antiguo 04-05-2012
camiz camiz is offline
Miembro
 
Registrado: ene 2012
Posts: 69
Reputación: 13
camiz Va por buen camino
solucionado

gracias a todos por sus comentarios, lo que yo necesitaba que la aplicacion haga era que el texto o codigo que ingresaba en un Edit (txt_arcodigo_repuesto) al momento de crear un registro no se guarde repetido.

creo que lo he solucionado con este codigo delphi despues de tantas trasnochadas tengo este simple codigo pero que en mi aplicacion si funciona como lo deseaba, lo comparto quizas a alguien novato como yo lo necesite.

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

he probado con muchos codigos pero este es el que funciona
lo que hace es comparar el codigo que ya esta dado de alta o mas dicho guardado en la tabla con el de el DBEdit (txt_arcodigo_repuesto) que se esta ingresando y son iguales nos salta el error.
y cancela todo.

soy novato pero si a este codigo le falta algo es bueno su comentario.
Responder Con Cita