Ver Mensaje Individual
  #3  
Antiguo 11-01-2006
marcoev marcoev is offline
Miembro
 
Registrado: may 2003
Ubicación: Nogales, Sonora, Mex.
Posts: 57
Reputación: 22
marcoev Va por buen camino
primero que nada, gracias por responder el codigo es:

Código Delphi [-]
  Try
    with dmConfigs do
    begin
      If not cnnCoexIni.InTransaction  Then
        cnnCoexIni.BeginTrans;
      tContribuyentes.Append;
    end;
    pageControl.ActivePage:=Datos;
    pCtrl.ActivePage:=tDatos;
    dbClave.SetFocus;
    Controles(False);
  except
    On E: Exception do begin
      Controles(True);
      pageControl.ActivePage:=Consulta;
      tContribuyentes.Cancel;
      with dmConfigs do  begin
        If cnnCoexIni.InTransaction  Then
          cnnCoexIni.RollbackTrans;
      end;
      raise Exception.create('Cont.New: Error al intentar procesar la transaccion, Error: "'+IntToStr(E.HelpContext)+' : '+E.Message+'"')
    end;
  end;

este codigo lo tengo dentro de una Accion, a la cual llamo desde cualquier control, en este caso, la estaba llamando desde un boton de una barra de devexpress, lo mas raro de todo es que si la accion se la asigno a un boton normal, este trabaja de forma correcta. aclaro que el boton de la barra a la que se lo asigno es de uno de esos que viene de forma estandar con las barras de navegacion de bd, no se si esto sea un impedimento para que ejecute mi accion en lugar de la que de seguro viene predefinida; esto se me hace bastante raro tambien porque utilizo la misma barra y opciones en otras formas, y no en todas pasa lo mismo
__________________
saludos a todos y gracias por compartir sus conocimientos y experiencias... ;-)
Responder Con Cita