Ver Mensaje Individual
  #7  
Antiguo 30-11-2011
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 19
look Va camino a la fama
Cita:
Empezado por JairoC Ver Mensaje
Hola!!! Quiero actualizar los Id_cierrez de cada factura... Y cuando hago el open; se tilda el programa... Este es parte del codigo... NO se si está bien... Gracias!
Código Delphi [-]
num_cierre:=DM2.IBDataSet_CierreZID_CIERREZ.Value;
 DM2.IBDataSet_CierreZ.Post;
 with(dm.IBQuery_general)do
      begin
        FieldDefs.Clear;
        SQL.Clear;
        SQL.Add('update facturas_de_ventas set id_cierrez=:cierre where id_cierrez is null');
        ParamByName('cierre').AsInteger:=num_cierre;
        Open;// Lo debugueo y se tilda acá...
      end;

Código Delphi [-]
num_cierre:=DM2.IBDataSet_CierreZID_CIERREZ.Value;
 DM2.IBDataSet_CierreZ.Post;
 with(dm.IBQuery_general)do
      begin
        FieldDefs.Clear;
        SQL.Clear;
        SQL.Add('update facturas_de_ventas set id_cierrez=:cierre where id_cierrez is null');
        ParamByName('cierre').AsInteger:=num_cierre;
        execsql  //// deberia de ir esto
      end;
__________________
all your base are belong to us
Responder Con Cita