Limpieza de mensajes de warning.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@268 f4e31baf-9722-1c47-927c-6f952f962d4b

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');
 

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)');
 

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;

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

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)

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;
@@ -321,10 +321,15 @@ begin
         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
+{var
-  Condicion: TDAWhereExpression;
+  Condicion: TDAWhereExpression;}
 begin
 
   // AQUI HAY QUE TENER EN CUENTA QUE UN USUARIO PUEDE QUE NO TENGA ACCESO

Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm

@@ -26,13 +26,13 @@ inherited fEditorUsuario: TfEditorUsuario
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
-      ExplicitWidth = 638
+      ExplicitWidth = 636
-      ExplicitHeight = 332
+      ExplicitHeight = 330
       inline frViewUsuario1: TfrViewUsuario
         Left = 0
         Top = 0
-        Width = 638
+        Width = 636
-        Height = 332
+        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
+        ExplicitWidth = 636
-        ExplicitHeight = 332
+        ExplicitHeight = 330
         inherited dxLayoutControlArticulo: TdxLayoutControl
-          Width = 638
+          Width = 636
           LookAndFeel = dxLayoutOfficeLookAndFeel1
-          ExplicitWidth = 638
+          ExplicitWidth = 636
           DesignSize = (
-            638
+            636
             273)
           inherited PngSpeedButton3: TPngSpeedButton
             Top = 84

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

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

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)

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,9 +72,11 @@ var
   ABookmark : TBookmark;
 
 begin
+  ImporteUnidad := 0;
+  ImporteSobrante := 0;
 
+  ABookmark := ADetalles.DataTable.GetBookMark;
   try
-    ABookmark := ADetalles.DataTable.GetBookMark;
     ADetalles.DataTable.DisableControls;
     ADetalles.DataTable.DisableEventHandlers;
     

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
+  end;
-  else
-    ADetailFields := Nil;
 
   ATarget.Insert;
   { Hay que desactivar los eventos para que dejan de funcionar

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');
 

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');
 

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');
 

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');
 

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');
 

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');
 

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');
 

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

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;
 

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

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)