diff --git a/Source/Base/Utiles/uDisplayUtils.pas b/Source/Base/Utiles/uDisplayUtils.pas index 3a447572..92abffa0 100644 --- a/Source/Base/Utiles/uDisplayUtils.pas +++ b/Source/Base/Utiles/uDisplayUtils.pas @@ -34,7 +34,7 @@ begin Font.Style := Styles; end; except - // ignorar las excepciones EPropertyError por no encontrar la propiedad + // ignorar las excepciones EPropertyError por no encontrar la propiedad end; @@ -48,7 +48,11 @@ begin ChildControl := TWinControl(Control).Controls[Index]; // Set font properties - SetFontProperties(ChildControl, Name, Size, Styles); + try + SetFontProperties(ChildControl, Name, Size, Styles); + except + // ignorar las excepciones EPropertyError por no encontrar la propiedad + end; end; end; end; diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 74120da1..8ec1deef 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2700FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.0.0FactuGESFactuGES2.7.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2710FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.7.1.0FactuGESFactuGES2.7.1.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index bec558be..71ec4bfd 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index 68366a0e..fda46bc2 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -188,8 +188,6 @@ begin Albaranes.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorAlbaranesProveedor.GetController: IAlbaranesProveedorController; diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.pas b/Source/Modulos/Articulos/Views/uEditorArticulos.pas index 85d07e27..1cacf3a5 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.pas +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.pas @@ -71,8 +71,6 @@ begin Articulos.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorArticulos.GetArticulos: IBizArticulo; diff --git a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas index d9a019ed..2c3a9ae8 100644 --- a/Source/Modulos/Comisiones/Views/uEditorComisiones.pas +++ b/Source/Modulos/Comisiones/Views/uEditorComisiones.pas @@ -75,8 +75,6 @@ begin Comisiones.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorComisiones.GetComisiones: IBizComisiones; diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 5b50fe62..40cf5389 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas @@ -66,8 +66,6 @@ begin Contactos.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorContactos.GetContactos: IBizContacto; diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index 92e10132..7391844b 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -148,8 +148,6 @@ begin Inventario.DataTable.Active := True; actContraer.Execute; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; procedure TfEditorInventario.actModificarExecute(Sender: TObject); diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas index fae076aa..8008f0e3 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas @@ -82,8 +82,6 @@ begin RemesasCliente.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorRemesasCliente.GetRemesasCliente: IBizRemesaCliente; diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas index f1ad62e2..d8ea86c4 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas @@ -82,8 +82,6 @@ begin RemesasProveedor.DataTable.Active := True; ViewGrid.GotoFirst; - //Para que coja el ancho automático - actAnchoAuto.Execute; end; function TfEditorRemesasProveedor.GetRemesasProveedor: IBizRemesaProveedor; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 39c30524..1b971989 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.6.9.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.6.9.0\0" - VALUE "CompileDate", "lunes, 26 de octubre de 2015 22:39\0" + VALUE "CompileDate", "martes, 27 de octubre de 2015 10:49\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 76a6c90d..819dd7d1 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ