Ver Mensaje Individual
  #5  
Antiguo 28-05-2010
rufo rufo is offline
Miembro
 
Registrado: jul 2006
Posts: 240
Reputación: 18
rufo Va por buen camino
Gracias amigo de nuevo por responder, te pongo mi codigo que tengo

Código Delphi [-]
procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_productos do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         fieldbyname('piezas).asstring:=sedit1.Text;
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         post;
         refresh;
      end;
      begin
       update;
       dm1.T_productos;
       set dm1.T_productos.FieldByName('piezas')= dm1.T_productos.FieldByName('piezas') + dm1.T_productos.FieldByName('new.piezas');
      end;
   end;
Te pongo todo este codigo por que es en el boton que actualiza mi informacion, ahora asi como me lo pusiste anteriormente me marcaba error de codigo entonces lo puse asi como te lo muestro pero me marcar igual el error ya que mi tabla la tengo en Datamodule por esa razon es como yo llamo a la tabla bueno espero que me ayudes o me comentes en donde esta mi error y gracias de nuevo.

Última edición por rgstuamigo fecha: 28-05-2010 a las 21:12:42. Razón: Estética en el código
Responder Con Cita