Un método append que funciona en un Grid y falla en un TForm con controles

[gorsan]

Hola de nuevo. Diréis que soy un poco inútil pero me pasa una cosa curiosa que paso a detallaros a continuación:

En un Modulo de datos tengo una IBDataSet y un DataSet apuntando a él.
Sobre un formulario dispongo un Grid enlazado a ese DataSet de modo que el TForm queda encima y el grid debajo y mediante lo siguiente conmuto entre uno y otro:

Código Delphi [-]
procedure TWFicha.TBFichaClick(Sender: TObject);
begin
   PNEdicion.BringToFront;
   GLista.SendToBack;
   if TBTabla.Down = True then TBTabla.Down := False;
   if TBFicha.Down = False then TBFicha.Down := True;
end;

Código Delphi [-]
procedure TWFicha.TBTablaClick(Sender: TObject);
begin
   GLista.BringToFront;
   PNEdicion.SendToBack;
   if TBTabla.Down = False then TBTabla.Down := True;
   if TBFicha.Down = True then TBFicha.Down := False;
   GLista.SetFocus;
end;

En el formulario dispongo tantos controles DBEdit como campos hay en el grid. Bueno pues la cuestión es que desde el grid el método append funciona perfectamente y añade un nuevo registro sin problemas. Pero si desde el Form dispongo de una botonera para ejecutar el método append y luego el post como sigue:

Código Delphi [-]
procedure TWFicha.TBAddClick(Sender: TObject);
begin
   TBAdd.Enabled:=False;
   TBEditar.Enabled:=False;
   TBBorrar.Enabled:=False;
   TBGrabar.Enabled:=True;
   TBCancelar.Enabled:=True;
   TBCargarFoto.Enabled:=False;
   TBEliminarFoto.Enabled:=False;
   TBCalcular.Enabled:=False;
   TBCerrar.Enabled:=False;
   TBImprimir.Enabled:=False;
   TBSalir.Enabled:=False;
   EBuscar.SetFocus;
   with DMFicha.IBStoredProc1 do
    begin
     StoredProcName:='GENERADOR_TRABAJADOR';
     Prepare;
     ExecProc;
   end;
   with DMFicha.IBFicha do
    try
       DisableControls;
       Close;
       Open;
       Append;
    finally
       EnableControls;
    end;

   WFicha.DBCONTADOR.Text:=IntToStr(DMFicha.IBStoredProc1.Params[0].Value);
   WFicha.DBAlta.Text:=DateToStr(Now);
   WFicha.DBBAJA.Text:='';
   DMFicha.IBStoredProc1.Close;
   DMFicha.IBFicha.Post;
   {NuevoRegistro:=True;}
   DBPRIMER_APELLIDO.SetFocus;
end;

Código Delphi [-]
procedure TWFicha.TBGrabarClick(Sender: TObject);
begin
   TBAdd.Enabled:=True;
   TBEditar.Enabled:=True;
   TBBorrar.Enabled:=True;
   TBGrabar.Enabled:=False;
   TBCancelar.Enabled:=False;
   TBCargarFoto.Enabled:=True;
   TBEliminarFoto.Enabled:=True;
   TBCalcular.Enabled:=True;
   TBCerrar.Enabled:=True;
   TBImprimir.Enabled:=True;
   TBSalir.Enabled:=True;
   DMFicha.IBFicha.Edit;
   DMFicha.IBFicha.Post;
end;

Otra cosa curiosa es que sobre los controles del Form puedo editar los datos y guarda los cambios directamente sin el post pero no permite el método append lanzando la siguiente excepción:
"cannot focus a disabled or invisible window"
Alguna idea. Seguro que es la tontería mas grande del mundo pero no lo veo.

[ecfisa]

Hola gorsan.

La verdad me cuesta entender la situación, por ejemplo:

Sobre un formulario dispongo un Grid enlazado a ese DataSet de modo que el TForm queda encima y el grid debajo

¿ Como logras eso ?

Además hay controles como GLista, PNEdicion, WFicha que no imagino la clase y no me queda en claro cuál es su función

Otra cosa curiosa es que sobre los controles del Form puedo editar los datos y guarda los cambios directamente sin el post pero no permite el método append lanzando la siguiente excepción:
"cannot focus a disabled or invisible window"

Ese error es provocado por darle el foco (SetFocus) a un control que en ese momento, tiene su propiedad Visible o Enabled en False.
Hay tres puntos donde llamas al método SetFocus:

Código Delphi [-]
procedure TWFicha.TBTablaClick(Sender: TObject);
begin
  ...
  GLista.SetFocus; // (1)
end;

procedure TWFicha.TBAddClick(Sender: TObject);
begin
  ...
  EBuscar.SetFocus; // (2)
  ...
  DBPRIMER_APELLIDO.SetFocus; // (3)
end;

Con seguridad la provoca una (o mas) de ellas.

Saludos

[gorsan]

Buenos días.
Muchas gracias por responder. Se agradece.
No. No parece ser ese el caso ya que he deshabilitado las tres sentencias que señalas y el errror sigue produciendose.
Intentaré explicar un poco el concepto del programa.

Lo del Grid y el Form: es solo una forma alternativa de presentar al usuario, segun su iniciativa, los datos de una tabla, ya que ambos estan conectados al mismo DataSource que enlaza con la tabla. Si pulsa el boton "ficha" aparece lo que llamo la ficha que no es mas que un panel, PNEdition, con los controles DBEdit conectados a los distintos campos de la tabla. Si pulsa el boton "tabla" se presenta el grid que está debajo y que apunta a los mismos datos mediante el metodo GLista.BringToFront; y el panel PNEdicion con los controles DBEdit pasan a un segundo plano mediante el metodo PNEdition.SendToBack;
Sinceramente, no creo que el problema esté aquí. De hecho, he eliminado las 3 referencias al foco y la excepcion sigue produciendose.

Mi idea primera era que solo se puedieran añadir registros a la tabla a traves de la "ficha" mediante un boton (TBAdd: TToolButton) y con el codigo que expongo en mi anterior post, ya que cada nuevo registro lleva un número unico que se produce con un generador que manejo desde la BD (campo contador). Por tanto que desde el grid no se permitiera el metodo append, solo la edicion de los datos de los campos. Para ello disponía:

Código Delphi [-]
procedure TDMFicha.IBFichaBeforeInsert(DataSet: TDataSet);
begin
if WFicha.GLista.Focused then abort;
if WNomina.GListaN.Focused then abort;
end;

Digo disponia porque este codigo fue lo primero que descarté al comenzar a darse el error. Una vez descartado compruebo con asombro como desde el Grid sí que puedo añadir un registro y no solo editar los anteriores.
Por tanto y concluyendo, desde los dbedit que estan sobre el PNEdicion se editan los datos que ya estan en la tabla pero cuando pretendo añadir un nuevo registro, sobre estos mismos controles, e introduzco los nuevos datos de este, falla al hacer el metodo post dando la excepcion que comento.
No se si he aclarado el "pastel" que tengo liado pero lo de bringtofront y sendtoback no creo sea el problema y lo del setfocus tampoco.
Muchas gracias por vuestro esfuerzo.

[Neftali [Germán.Estévez]]

Estoy bastante de acuerdo con ecfisa. Ese error normalmente está provocado por el SetFocus o similares, cuando un control se encuentra no visible o no accesible. Por ejemplo, cuando está en un TabSheet que no es activo.
Piensa que a veces el SetFocus se puede llamar de forma indirecta, cuando activas ventanas, cuando se ejecuta SetActiveControl,...

[gorsan]

Gracias Neftalí.
No entiendo nada. He inhabilitado las sentencias que dice ecfisa pero sigue produciéndose la excepción. Si estoy escribiendo sobre controles DBEdit entiendo que el foco del teclado lo tiene el contenedor del componente DBEdit, pero la excepción salta cuando hago un método post contra el DataSet que está admitiendo las actualizaciones de los datos. Entiendo que lo que falla, y no se porque, es el método append del TIBDataSet que soporta los datos. El tinglao tiene que estar por otro sitio ...

[ecfisa]

Hola gorsan.

Ya con los datos que me faltaban en mano, una tabla de prueba y dejando de lado las llamadas al TIBStoredProc, pude reproducir tu caso sin obtener ningún error.

Este es el código de la prueba:

Código Delphi [-]
...
procedure TWFicha.btnFichaClick(Sender: TObject);
begin
   PNEdicion.BringToFront;
   GLista.SendToBack;
   if TBTabla.Down = True then TBTabla.Down := False;
   if TBFicha.Down = False then TBFicha.Down := True;
end;

procedure TWFicha.btnTablaClick(Sender: TObject);
begin
  GLista.BringToFront;
  PNEdicion.SendToBack;
  if TBTabla.Down = False then TBTabla.Down := True;
  if TBFicha.Down = True then TBFicha.Down := False;
  GLista.SetFocus;
end;


procedure TWFicha.TBAddClick(Sender: TObject);
begin
   TBAdd.Enabled:=False;
   TBEditar.Enabled:=False;
   TBBorrar.Enabled:=False;
   TBGrabar.Enabled:=True;
   TBCancelar.Enabled:=True;
   TBCargarFoto.Enabled:=False;
   TBEliminarFoto.Enabled:=False;
   TBCalcular.Enabled:=False;
   TBCerrar.Enabled:=False;
   TBImprimir.Enabled:=False;
   TBSalir.Enabled:=False;
   EBuscar.SetFocus;
   {
   with DMFicha.IBStoredProc1 do
   begin
     StoredProcName:='GENERADOR_TRABAJADOR';
     Prepare;
     ExecProc;
   end;
   }

   with DMFicha.IBFicha do
   try
    DisableControls;
    {  ???????
    Close;
    Open;
    }
    Append;
   finally
    EnableControls;
   end;

   WFicha.DBCONTADOR.Text:= '123';//IntToStr(DMFicha.IBStoredProc1.Params[0].Value);
   WFicha.DBAlta.Text:=DateToStr(Now);
   WFicha.DBBAJA.Text:='';
  // DMFicha.IBStoredProc1.Close;
   DMFicha.IBFicha.Post;
   DBPRIMER_APELLIDO.SetFocus;
end;

procedure TWFicha.TBGrabarClick(Sender: TObject);
begin
   TBAdd.Enabled:=True;
   TBEditar.Enabled:=True;
   TBBorrar.Enabled:=True;
   TBGrabar.Enabled:=False;
   TBCancelar.Enabled:=False;
   TBCargarFoto.Enabled:=True;
   TBEliminarFoto.Enabled:=True;
   TBCalcular.Enabled:=True;
   TBCerrar.Enabled:=True;
   TBImprimir.Enabled:=True;
   TBSalir.Enabled:=True;
   DMFicha.IBFicha.Edit;
   DMFicha.IBFicha.Post;
end;
...

¿ Seguro que no hay mas código involucrado ? ¿ Algo en algún evento ?

Saludos

[gorsan]

Hola ecfisa. Muchas gracias por tu ayuda y por "pegarte" con mi farragoso código. Ahí va más porque sí, hay más código implicado.
Si tienes paciencia échale un vistazo a ver si ves algo que te llame la atención en el sentido que nos ocupa. Se trata del módulo de datos donde están alojados los componentes que manejan los datos. Si, ya se, es un pantano. Pero yo no veo aquí tampoco el núcleo del error que nos ocupa. En tres veces por los problemas de numero máximo de caracteres admitidos:

Código Delphi [-]
unit Mod_Dat2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, StdCtrls, Mask, DBCtrls, ExtCtrls, ToolWin,
  ExtDlgs, jpeg, DB, Buttons, IBCustomDataSet, IBSQL, IBDatabase,
  IBStoredProc, RpDefine, RpCon, RpConDS, RpRave, RpBase, RpSystem, IBQuery,
  RpConBDE;

type
  TDMFicha = class(TDataModule)
    IBFicha: TIBDataSet;
    DSFicha: TDataSource;
    IBTLocal_Ficha: TIBTransaction;
    IBStoredProc1: TIBStoredProc;
    IBFichaCONTADOR: TIntegerField;
    IBFichaPRIMER_APELLIDO: TIBStringField;
    IBFichaSEGUNDO_APELLIDO: TIBStringField;
    IBFichaNOMBRE: TIBStringField;
    IBFichaMODULO: TIntegerField;
    IBFichaTALLER: TIBStringField;
    IBFichaTURNO: TIBStringField;
    IBFichaALTA: TDateField;
    IBFichaBAJA: TDateField;
    IBFichaFOTO: TBlobField;
    IBFichaOBSERVACIONES: TMemoField;
    IBFichaFORMATO: TIBStringField;
    IBFichaDIA_1: TIBStringField;
    IBFichaDIA_2: TIBStringField;
    IBFichaDIA_3: TIBStringField;
    IBFichaDIA_4: TIBStringField;
    IBFichaDIA_5: TIBStringField;
    IBFichaDIA_6: TIBStringField;
    IBFichaDIA_7: TIBStringField;
    IBFichaDIA_8: TIBStringField;
    IBFichaDIA_9: TIBStringField;
    IBFichaDIA_10: TIBStringField;
    IBFichaDIA_11: TIBStringField;
    IBFichaDIA_12: TIBStringField;
    IBFichaDIA_13: TIBStringField;
    IBFichaDIA_14: TIBStringField;
    IBFichaDIA_15: TIBStringField;
    IBFichaDIA_16: TIBStringField;
    IBFichaDIA_17: TIBStringField;
    IBFichaDIA_18: TIBStringField;
    IBFichaDIA_19: TIBStringField;
    IBFichaDIA_20: TIBStringField;
    IBFichaDIA_21: TIBStringField;
    IBFichaDIA_22: TIBStringField;
    IBFichaDIA_23: TIBStringField;
    IBFichaDIA_24: TIBStringField;
    IBFichaDIA_25: TIBStringField;
    IBFichaDIA_26: TIBStringField;
    IBFichaDIA_27: TIBStringField;
    IBFichaDIA_28: TIBStringField;
    IBFichaDIA_29: TIBStringField;
    IBFichaDIA_30: TIBStringField;
    IBFichaDIA_31: TIBStringField;
    IBFichaHORAS_REALES: TIntegerField;
    IBFichaHORAS_CALCULADAS: TIntegerField;
    IBFichaSALARIO: TFloatField;
    IBFichaANO: TSmallintField;
    IBFichaMES: TIBStringField;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    IBQGeneral_Taller_Turno: TIBQuery;
    IBQNomina_Taller_Turno: TIBQuery;
    RvDataSetConnection2: TRvDataSetConnection;
    RvProject2: TRvProject;
    IBQuery1: TIBQuery;
    IBQuery2: TIBQuery;
    IBQuery3: TIBQuery;
    IBQuery4: TIBQuery;
    procedure IBFichaAfterDelete(DataSet: TDataSet);
    procedure IBFichaAfterPost(DataSet: TDataSet);
    procedure DSFichaDataChange(Sender: TObject; Field: TField);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure Buscar(Campo, Texto : string);
    procedure Ordena(Campo, Orientacion: String);
    procedure Calcular_HorasTrabajadas;
    procedure IBFichaBeforeInsert(DataSet: TDataSet);
    procedure Calculo_Horas_Minoradas;
    function ReduccionHoras(HR: integer; FC: double; PH: double):double;
    function CalculoSalario(HC: double; PH: double):double;
    procedure CreateTable(const TableName1: string);
    procedure CreateTableParametros(const TableName2: string);
    procedure CreateTableTotales(const TableName3: string);
  private
    { Private declarations }
    FOriginalSQL : string;
  public
    { Public declarations }
  end;

var
  DMFicha: TDMFicha;

implementation

uses Man_Ficha, Man_Nomina, Mod_Dat5, Mod_Dat1, Apertura, Apertura2;

{$R *.dfm}

procedure TDMFicha.IBFichaAfterDelete(DataSet: TDataSet);
begin
   IBFicha.Transaction.CommitRetaining;
   IBFicha.Refresh;
end;

procedure TDMFicha.IBFichaAfterPost(DataSet: TDataSet);
begin
   IBFicha.Transaction.CommitRetaining;
   IBFicha.Refresh;
end;

procedure TDMFicha.DSFichaDataChange(Sender: TObject; Field: TField);
var
  m: TStream;
begin
 if IBFichaFOTO.IsNull then
   //para registros sin imagen poner imagen vacia.
   WFicha.Image2.Picture:=nil
  else
   begin
    if IBFichaFORMATO.AsString='BMP' then
      //si es formato BMP
      WFicha.Image2.Picture.Graphic:=TBitmap.Create
    else if IBFichaFORMATO.AsString='JPG' then
      //si es formato JPG
      WFicha.Image2.Picture.Graphic:=TJpegImage.Create
    else
     Exit;
    //copiar los datos desde la tabla con un stream
    m:=IBFicha.CreateBlobStream(IBFichaFOTO, bmRead);
    WFicha.Image2.Picture.Graphic.LoadFromStream(m);
    m.Free;
   end;
   With WFicha.StatusBar1 do
   begin
     Panels[0].Text:=' Registros -> '+IntToStr(DMFicha.IBFicha.RecordCount);
     Panels[1].Text:=' '+DMFicha.IBFicha.FieldByName('PRIMER_APELLIDO').asString;
     Panels[2].Text:=' '+DMFicha.IBFicha.FieldByName('SEGUNDO_APELLIDO').asString;
     Panels[3].Text:=' '+DMFicha.IBFicha.FieldByName('NOMBRE').asString;
     Panels[4].Text:=' '+DMFicha.IBFicha.FieldByName('MODULO').asString;
     Panels[5].Text:=' '+DMFicha.IBFicha.FieldByName('TALLER').asString;
     Panels[6].Text:=' '+DMFicha.IBFicha.FieldByName('TURNO').asString;
   end;
end;

procedure TDMFicha.DataModuleCreate(Sender: TObject);
begin
   IBTLocal_Ficha.StartTransaction;
   FOriginalSQL := IBFicha.SelectSQL.Text;
end;

procedure TDMFicha.DataModuleDestroy(Sender: TObject);
begin
  IBTLocal_Ficha.Commit;
end;

procedure TDMFicha.Buscar(Campo, Texto : string);
begin
 if (TallerFicha<>'') and (TallerNomina='') then FOriginalSQL:='SELECT * FROM '+TallerFicha;
 if (TallerFicha='') and (TallerNomina<>'') then FOriginalSQL:='SELECT * FROM '+TallerNomina;
 if (TallerFicha<>'') and (TallerNomina<>'') then FOriginalSQL:='SELECT * FROM '+TallerFicha;
  With IBFicha do
   try
      // Desconectamos los controles
      DisableControls;
      // Cerramos
      Close ;
      // Restablecemos la sentencia original
      SelectSQL.Clear;
      SelectSQL.Add(FOriginalSQL);
      // Si no se ha de buscar nada, se abre la tabla y se sale
      if Texto = '' then
      begin
         Open;
         Last;
         First;
         Exit;
      end;
      SelectSQL.Add('WHERE '+Campo+' LIKE '+QuotedStr(Texto+ '%'));
      // Ordenamos por el campo que se hace la busqueda
      SelectSQL.Add('ORDER BY '+Campo);
      Open ;
   finally
      // Conectamos los controles
      EnableControls;
   end;
end;

procedure TDMFicha.Ordena(Campo, Orientacion: String);
var
  I: integer;
begin
  with IBFicha do
    try
       DisableControls;
       Close;
       for I:=SelectSQL.Count - 1 downto 0 do
         if pos('ORDER BY', uppercase(SelectSQL[i])) <> 0 then SelectSQL.Delete(I);
       SelectSQL.Add('ORDER BY '+Campo+Orientacion);
       Open;
       Last;
       First;
    finally
       EnableControls;
    end;
end;

procedure TDMFicha.Calcular_HorasTrabajadas;
var
  Numero_Jornadas: integer;
begin
   {CÁLCULO DE LAS HORAS REALES}
   {Se cuentan las X y se multiplica por 4 horas si el turno es M o T; o por 8 si es M-T}
   Numero_Jornadas:=0;
   if DMFicha.IBFichaDIA_1.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_2.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_3.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_4.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_5.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_6.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_7.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_8.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_9.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_10.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_11.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_12.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_13.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_14.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_15.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_16.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_17.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_18.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_19.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_20.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_21.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_22.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_23.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_24.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_25.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_26.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_27.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_28.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_29.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_30.AsString ='X' then Inc(Numero_Jornadas);
   if DMFicha.IBFichaDIA_31.AsString ='X' then Inc(Numero_Jornadas);
   DMFicha.IBFicha.Edit;
   if DMFicha.IBFichaTURNO.AsString ='M' then DMFicha.IBFichaHORAS_REALES.AsInteger:= (Numero_Jornadas*4);
   if DMFicha.IBFichaTURNO.AsString ='T' then DMFicha.IBFichaHORAS_REALES.AsInteger:= (Numero_Jornadas*4);
   if DMFicha.IBFichaTURNO.AsString ='M-T' then DMFicha.IBFichaHORAS_REALES.AsInteger:= (Numero_Jornadas*8);
   DMFicha.IBFicha.Post;
end;

procedure TDMFicha.IBFichaBeforeInsert(DataSet: TDataSet);
begin
{Para impedir que desde el WFicha.DbGrid cuando estas con los cursores y llegas
 al ultimo te añada un registro en blanco. 
{if WFicha.GLista.Focused then abort;
if WNomina.GListaN.Focused then abort;}
end;

[gorsan]

No me se me permite por razones de cupo o algo así, enviar el resto de la unit que contiene el módulo de datos.
¿Existe la posibilidad de hacerlo en un *.txt?

[ecfisa]

Hola gorsan.

Empezado por gorsan

N
¿Existe la posibilidad de hacerlo en un *.txt?

Si por supuesto. Guarda el código en un archivo .txt, comprimilo y adjuntalo al mensaje, mediante el ícono clip:



Saludos.

[Casimiro Notevi]

Empezado por ecfisa

y adjuntalo al mensaje, mediante el ícono clip:

Nunca me había fijado en ese icono , siempre lo he hecho desde el botón "Gestionar Archivos Adjuntos" que está un poco más abajo..

[gorsan]

Siento discrepar pero a mi no me sale el icono que muestras, en su lugar, es decir, inmediatamente a la izquierda de los iconos deshacer y rehacer, tengo una especie de combo que pone archivos adjuntos y el desplegable de persiana no hace nada. No se como subir un fichero salvo por e-mail.
Gracias por vuestras respuestas.

[ecfisa]

Hola gorsan.

Debes tener algún problema con el navegador o su configuración, acabo de crear un usuario con 0 mensajes para descartar cualquier restricción por el número de mensajes.
Y tanto con Mozilla Firefox como con Internet Explorer visualizo y puedo acceder por el ícono que te mencioné y también por el que indicó Casimiro.

Saludos

[gorsan]

Una vez resuelto el problema adjunto el fichero con el codigo.

[gorsan]

Hola. Buenos dias.
Ya he dado con el problema. Me ha traido de cabeza porque el mensaje "cannot focus a disabled or invisible window" no me daba las pistas adecuadas, mas bien al contrario.
Las prisas no son buenas y yo tenía que entregar la aplicación cuanto antes. Debido a un cambio de ultima hora del cliente (el comprador del programa) tuve que rehacer el planteamiento de la base de datos desde inicio con un montón de código ya hecho. Entonces me sobraba un campo. Ese campo estaba con su control data-aware sobre el formulario ficha. Pues nada lo eliminé sin darme cuenta de que estaba declarado como not null. Error imperdonable. Desde el formulario saltaba el error al invocar el metodo append y dejar ese campo en blanco. Desde el grid no saltaba el error porque como lo metia a mano pues no daba el error. Pero no me digais que el tenor literal del error no da ninguna pista acerca de esto. Deberia haber sido la base de datos la que se quejara de alguna manera ¿no?
En todo caso, muchas gracias a ecfisa por su tiempo y a todos los demas que os habeis interesado.
Doy por concluido este hilo. Un saludo para todos y salud.

[ecfisa]

Hola gorsan.

Empezado por gorsan

Pero no me digais que el tenor literal del error no da ninguna pista acerca de esto. Deberia haber sido la base de datos la que se quejara de alguna manera ¿no?

Si, realmente no es orientativo en este caso... Me alegra que lo encontraras

Saludos