From f0674202160f64a151460e4ed3b08d233a7c13ef Mon Sep 17 00:00:00 2001 From: david Date: Thu, 10 Jul 2008 15:58:06 +0000 Subject: [PATCH] Limpieza de mensajes de warning. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@268 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/uEjerciciosController.pas | 4 --- .../Controller/uEmpresasController.pas | 8 ++--- .../Controller/uTiendasEmpresaController.pas | 1 - .../Empresas/Views/uViewTienda.dfm | 1 + .../Empresas/Views/uViewTienda.pas | 7 +++- .../Controller/uUsuariosController.pas | 34 +++++++++---------- .../Usuarios/Views/uEditorUsuario.dfm | 18 +++++----- .../Usuarios/Views/uEditorUsuario.pas | 1 - .../Usuarios/Views/uViewUsuario.dfm | 9 +++++ .../Usuarios/Views/uViewUsuario.pas | 8 ++++- Source/Base/Utiles/uCalculosUtils.pas | 8 ++--- Source/Base/Utiles/uDataTableUtils.pas | 6 ++-- .../Controller/uApuntesController.pas | 5 --- .../Controller/uAsientosController.pas | 6 ---- .../Controller/uBalancesController.pas | 4 --- .../Controller/uCuentasController.pas | 4 --- .../uCuentasEspecialesController.pas | 4 --- .../Controller/uEpigrafesController.pas | 4 --- .../Controller/uSubCuentasController.pas | 9 ++--- .../Contabilidad/Model/uBizApuntes.pas | 2 ++ .../Modulos/Contabilidad/Model/uBizDiario.pas | 6 ++-- .../Views/uViewListaSubCuentas.dfm | 3 ++ .../Views/uViewListaSubCuentas.pas | 8 ++++- 23 files changed, 74 insertions(+), 86 deletions(-) diff --git a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas index 46c3d59b..70dd1e96 100644 --- a/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas +++ b/Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas @@ -201,8 +201,6 @@ end; function TEjerciciosController.ValidarEjercicio(AEjercicio: IBizEjercicio): Boolean; begin - Result := False; - if not Assigned(AEjercicio) then raise Exception.Create ('Ejercicio no asignado'); @@ -264,8 +262,6 @@ end; function TEjerciciosController.Eliminar(AEjercicio: IBizEjercicio): Boolean; begin - Result := False; - if not Assigned(AEjercicio) then raise Exception.Create ('Ejercicio no asignado'); diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas index a6ff573d..d07a6d97 100644 --- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas @@ -31,7 +31,7 @@ type FDataModule : IDataModuleEmpresas; function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual; public - constructor Create; virtual; + constructor Create; override; destructor Destroy; override; function Eliminar(const ID : Integer): Boolean; overload; @@ -76,6 +76,7 @@ end; constructor TEmpresasController.Create; begin + inherited; FDataModule := TDataModuleEmpresas.Create(Nil); end; @@ -83,7 +84,6 @@ function TEmpresasController.DarListaTiendas( AEmpresa: IBizEmpresa): TStringList; var ATiendas: IBizEmpresasTiendas; - i : integer; begin if not Assigned(AEmpresa) then raise Exception.Create ('Empresa no asignada (DarListaTiendas)'); @@ -133,8 +133,6 @@ end; function TEmpresasController.Eliminar(AEmpresa: IBizEmpresa): Boolean; begin - Result := False; - if not Assigned(AEmpresa) then raise Exception.Create ('Empresa no asignada (Eliminar)'); @@ -215,8 +213,6 @@ end; function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean; begin - Result := False; - if not Assigned(AEmpresa) then raise Exception.Create ('Empresa no asignada (ValidarEmpresa)'); diff --git a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas index 1e6658f7..c68d7d0f 100644 --- a/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas @@ -40,7 +40,6 @@ end; function TTiendasEmpresaController.DarListaTiendas: TStringList; var ATiendas: IBizEmpresasTiendas; - i : integer; begin ATiendas := AppFactuGES.EmpresaActiva.Tiendas; ATiendas.DataTable.Active := True; diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm index 19179540..d3e08b23 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm +++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.dfm @@ -17,6 +17,7 @@ inherited frViewTienda: TfrViewTienda Align = alTop ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 451 diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas index 88dcc8da..4bd4eb30 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas +++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas @@ -6,7 +6,12 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxControls; + cxControls, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, + dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter; type IViewTienda = interface(IViewBase) diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index ccbf48db..9fb1357d 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -120,7 +120,7 @@ type function GetUsarPasswordsSeguras: Boolean; procedure SetUsarPasswordsSeguras(const Value: Boolean); public - constructor Create; virtual; + constructor Create; override; destructor Destroy; override; procedure Logoff; @@ -314,17 +314,22 @@ begin if Assigned(AUser) then begin AUser.Active := True; - + AEditorCambiar := TfEditorCambiarPassword.Create(NIL); with AEditorCambiar do try Controller := Self; Usuario := AUser; CambioObligatorio := False; + if (Length(Trim(AUser.PASS)) = 0) then EditAtu.Enabled := False; + if (ShowModal = mrOk) then - Result := CambiarPassword(AIDUser, EditNova.Text); + Result := CambiarPassword(AIDUser, EditNova.Text) + else + Result := False; + finally Release; AUser.Active := False; @@ -352,6 +357,7 @@ end; constructor TUsuariosController.Create; begin + inherited; AsignarDataModule; FCurrentUser := NIL; FUserControl := TUserControl.Create(nil); @@ -372,7 +378,6 @@ end; function TUsuariosController.DarListaPerfilesUsuario: TStringList; var APerfilesUsuario: IBizPerfilUsuario; - i : integer; begin APerfilesUsuario := FDataModule.GetPerfiles; APerfilesUsuario.DataTable.Active := True; @@ -396,7 +401,6 @@ end; function TUsuariosController.DarListaUsuarios: TStringList; var AUsuarios: IBizUsuario; - i : integer; begin AUsuarios := FDataModule.GetUsuarios; AUsuarios.DataTable.Active := True; @@ -484,7 +488,9 @@ begin AUser.Active := True; if AUser.DataTable.RecordCount > 0 then - Result := EliminarUsuario(AUser.ID); + Result := EliminarUsuario(AUser.ID) + else + Result := False; end; function TUsuariosController.EliminarUsuario(const AIDUser: integer): Boolean; @@ -499,6 +505,8 @@ begin case FUserControl.Criptografia of cPadrao: Result := ucStandard; cMD5: Result := ucMD5; + else + Result := ucStandard; end; end; @@ -525,8 +533,6 @@ end; function TUsuariosController.GuardarPerfil(APerfil: IBizPerfilUsuario): Boolean; begin - Result := False; - if not Assigned(APerfil) then raise Exception.Create('No hay perfil asignado (GuardarPerfil)'); @@ -538,8 +544,6 @@ end; function TUsuariosController.GuardarUsuario(AUser: IBizUsuario): Boolean; begin - Result := False; - if not Assigned(AUser) then raise Exception.Create('No hay usuario asignado (GuardarUsuario)'); @@ -554,8 +558,6 @@ function TUsuariosController.HayUsuarioConPerfil( var TempDS: TDataset; begin - Result := False; - try TempDS := FUserControl.DataConnector.UCGetSQLDataset('Select ' + FUserControl.TableUsers.FieldUserID + ' as IdUser from ' + FUserControl.TableUsers.TableName + @@ -738,8 +740,6 @@ end; function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean; begin - Result := False; - if not Assigned(APerfil) then raise Exception.Create ('Perfil no asignado (ValidarPerfil)'); @@ -754,8 +754,6 @@ end; function TUsuariosController.ValidarUsuario(AUser: IBizUsuario): Boolean; begin - Result := False; - if not Assigned(AUser) then raise Exception.Create ('Usuario no asignado (ValidarUsuario)'); @@ -920,8 +918,8 @@ begin end; procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario); -var - Condicion: TDAWhereExpression; +{var + Condicion: TDAWhereExpression;} begin // AQUI HAY QUE TENER EN CUENTA QUE UN USUARIO PUEDE QUE NO TENGA ACCESO diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm index 79ca05bf..f973c39a 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm @@ -26,13 +26,13 @@ inherited fEditorUsuario: TfEditorUsuario inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 638 - ExplicitHeight = 332 + ExplicitWidth = 636 + ExplicitHeight = 330 inline frViewUsuario1: TfrViewUsuario Left = 0 Top = 0 - Width = 638 - Height = 332 + Width = 636 + Height = 330 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -42,14 +42,14 @@ inherited fEditorUsuario: TfEditorUsuario ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 638 - ExplicitHeight = 332 + ExplicitWidth = 636 + ExplicitHeight = 330 inherited dxLayoutControlArticulo: TdxLayoutControl - Width = 638 + Width = 636 LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 638 + ExplicitWidth = 636 DesignSize = ( - 638 + 636 273) inherited PngSpeedButton3: TPngSpeedButton Top = 84 diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas index ed11dfae..3a1831f8 100644 --- a/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas @@ -127,7 +127,6 @@ var AContinuar : Boolean; begin inherited; - AContinuar := False; if FUsuario.EsNuevo then begin if (frViewUsuario1.ePassword.Text <> frViewUsuario1.eConfirmarPassword.Text) then diff --git a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm index 958a85ea..3f1593b3 100644 --- a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm +++ b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm @@ -13,6 +13,7 @@ inherited frViewUsuario: TfrViewUsuario Align = alTop ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth] DesignSize = ( 510 @@ -111,6 +112,8 @@ inherited frViewUsuario: TfrViewUsuario Top = 167 Properties.EchoMode = eemPassword Properties.PasswordChar = '*' + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard @@ -127,6 +130,8 @@ inherited frViewUsuario: TfrViewUsuario Top = 194 Properties.EchoMode = eemPassword Properties.PasswordChar = '*' + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard @@ -146,8 +151,12 @@ inherited frViewUsuario: TfrViewUsuario Properties.ImmediateUpdateText = True Properties.PostPopupValueOnTab = True Properties.OnValidate = cbPerfilPropertiesValidate + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard diff --git a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas index 98cf11f7..a5e10703 100644 --- a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas +++ b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas @@ -9,7 +9,13 @@ uses uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit, cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton, uBizUsuarios, cxDropDownEdit, ExtCtrls, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox; + cxDBLookupComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, + dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinsdxLCPainter; type IViewUsuario = interface(IViewBase) diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas index 5b9e1dae..be8a4a46 100644 --- a/Source/Base/Utiles/uCalculosUtils.pas +++ b/Source/Base/Utiles/uCalculosUtils.pas @@ -33,8 +33,6 @@ function CalcularLineaConcepto (const ADataTable : TDADataTable): Double; var ImporteTotal : Double; begin - ImporteTotal := 0; - with ADataTable do begin if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then @@ -74,12 +72,14 @@ var ABookmark : TBookmark; begin + ImporteUnidad := 0; + ImporteSobrante := 0; + ABookmark := ADetalles.DataTable.GetBookMark; try - ABookmark := ADetalles.DataTable.GetBookMark; ADetalles.DataTable.DisableControls; ADetalles.DataTable.DisableEventHandlers; - + ADetalles.DataTable.First; Unidades := 0; while not ADetalles.DataTable.eof do diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas index 5b6771ff..8729e6f1 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -528,6 +528,8 @@ var ASourceField: TDAField; ADetailFields : TStringList; begin + ADetailFields := Nil; + if not ASource.Active then ASource.Open; @@ -548,9 +550,7 @@ begin ADetailFields.Add(ATarget.DetailFields); end; end; - end - else - ADetailFields := Nil; + end; ATarget.Insert; { Hay que desactivar los eventos para que dejan de funcionar diff --git a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas index 898d5662..058b96ab 100644 --- a/Source/Modulos/Contabilidad/Controller/uApuntesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uApuntesController.pas @@ -232,10 +232,7 @@ end; function TApuntesController.ValidarApunte(AApunte: IBizApunte): Boolean; var Descuadre : Double; - begin - Result := False; - if not Assigned(AApunte) then raise Exception.Create ('Apuntes no asignados'); @@ -334,8 +331,6 @@ end; function TApuntesController.Eliminar(AApunte: IBizApunte): Boolean; begin - Result := False; - if not Assigned(AApunte) then raise Exception.Create ('Apunte no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas index a43eafe6..9e47492e 100644 --- a/Source/Modulos/Contabilidad/Controller/uAsientosController.pas +++ b/Source/Modulos/Contabilidad/Controller/uAsientosController.pas @@ -136,8 +136,6 @@ function TAsientosController.CerrarCajaBanco(IdSubcuenta: Integer): Boolean; var AAsiento: IBizAsiento; begin - Result:= False; - AAsiento:= Anadir(IdSubCuenta); try AAsiento.TIPO := 'X'; //CIERRE DE CAJA @@ -208,8 +206,6 @@ end; function TAsientosController.ValidarAsiento(AAsiento: IBizAsiento): Boolean; begin - Result := False; - if not Assigned(AAsiento) then raise Exception.Create ('Asiento no asignado'); @@ -301,8 +297,6 @@ end; function TAsientosController.Eliminar(AAsiento: IBizAsiento): Boolean; begin - Result := False; - if not Assigned(AAsiento) then raise Exception.Create ('Asiento no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas b/Source/Modulos/Contabilidad/Controller/uBalancesController.pas index 9ee89c9b..77c83dc8 100644 --- a/Source/Modulos/Contabilidad/Controller/uBalancesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uBalancesController.pas @@ -159,8 +159,6 @@ end; function TBalancesController.ValidarBalance(ABalance: IBizBalance): Boolean; begin - Result := False; - if not Assigned(ABalance) then raise Exception.Create ('Balance no asignado'); @@ -240,8 +238,6 @@ end; function TBalancesController.Eliminar(ABalance: IBizBalance): Boolean; begin - Result := False; - if not Assigned(ABalance) then raise Exception.Create ('Balance no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas index 944aec27..193c83dc 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uCuentasController.pas @@ -172,8 +172,6 @@ end; function TCuentasController.ValidarCuenta(ACuenta: IBizCuenta): Boolean; begin - Result := False; - if not Assigned(ACuenta) then raise Exception.Create ('Cuenta no asignado'); @@ -341,8 +339,6 @@ end; function TCuentasController.Eliminar(ACuenta: IBizCuenta): Boolean; begin - Result := False; - if not Assigned(ACuenta) then raise Exception.Create ('Cuenta no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas b/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas index 536f8f8c..52f06d92 100644 --- a/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas @@ -160,8 +160,6 @@ end; function TCuentasEspecialesController.ValidarCuentaEspecial(ACuentaEspecial: IBizCuentaEspecial): Boolean; begin - Result := False; - if not Assigned(ACuentaEspecial) then raise Exception.Create ('CuentaEspecial no asignado'); @@ -242,8 +240,6 @@ end; function TCuentasEspecialesController.Eliminar(ACuentaEspecial: IBizCuentaEspecial): Boolean; begin - Result := False; - if not Assigned(ACuentaEspecial) then raise Exception.Create ('CuentaEspecial no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas index 5727628d..b7587a31 100644 --- a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas +++ b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas @@ -180,8 +180,6 @@ end; function TEpigrafesController.ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean; begin - Result := False; - if not Assigned(AEpigrafe) then raise Exception.Create ('Epigrafe no asignado'); @@ -264,8 +262,6 @@ end; function TEpigrafesController.Eliminar(AEpigrafe: IBizEpigrafe): Boolean; begin - Result := False; - if not Assigned(AEpigrafe) then raise Exception.Create ('Epigrafe no asignado'); diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 1458d52d..10132b81 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -197,9 +197,9 @@ begin end; function TSubCuentasController.BuscarCompras: IBizSubCuenta; -var +{var Condicion: TDAWhereExpression; - +} begin ShowHourglassCursor; try @@ -313,7 +313,6 @@ end; function TSubCuentasController.DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList; var ASubCuentas: IBizSubCuenta; - i : integer; begin case TipoSubCuenta of @@ -387,8 +386,6 @@ end; function TSubCuentasController.ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean; begin - Result := False; - if not Assigned(ASubCuenta) then raise Exception.Create ('SubCuenta no asignado'); @@ -543,8 +540,6 @@ end; function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean; begin - Result := False; - if not Assigned(ASubCuenta) then raise Exception.Create ('SubCuenta no asignado'); diff --git a/Source/Modulos/Contabilidad/Model/uBizApuntes.pas b/Source/Modulos/Contabilidad/Model/uBizApuntes.pas index f2c1fc06..438bf493 100644 --- a/Source/Modulos/Contabilidad/Model/uBizApuntes.pas +++ b/Source/Modulos/Contabilidad/Model/uBizApuntes.pas @@ -72,6 +72,8 @@ var ABookmark : TBookmark; NumOrdenMax : Integer; begin + ABookmark := NIL; + with Self.DataTable do begin if not Opening then diff --git a/Source/Modulos/Contabilidad/Model/uBizDiario.pas b/Source/Modulos/Contabilidad/Model/uBizDiario.pas index 257b4303..892c9e6a 100644 --- a/Source/Modulos/Contabilidad/Model/uBizDiario.pas +++ b/Source/Modulos/Contabilidad/Model/uBizDiario.pas @@ -54,9 +54,9 @@ begin end; procedure TBizExtractoMovimiento.AfterPost(Sender: TDADataTable); -var +{var i, x: Integer; - +} begin //Comprobamos los cambios para solo recalcular en el caso de modificar el importe //y aņadir un asiento nuevo @@ -77,11 +77,11 @@ end; procedure TBizExtractoMovimiento.CalcularSaldo; var - varImporteAnt: double; varImportePos: double; ABookmark: Pointer; begin + ABookmark := NIL; DataTable.DisableControls; DataTable.DisableEventHandlers; diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm index 05c2fbd4..c7b9f24b 100644 --- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm @@ -18,6 +18,7 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas Align = alTop ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 453 @@ -51,6 +52,8 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas Caption = 'Ignorar en contabiliad' Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D TabOrder = 1 Width = 203 end diff --git a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas index 278f715b..e3be4952 100644 --- a/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas +++ b/Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas @@ -6,7 +6,13 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, - cxControls, cxCheckBox, uSubCuentasController; + cxControls, cxCheckBox, uSubCuentasController, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinXmas2008Blue, dxSkinsdxLCPainter; type IViewListaSubcuentas = interface(IViewBase)