diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res index 1641339f..8b251f31 100644 Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas index 662e8c76..fb39abe5 100644 --- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas @@ -29,7 +29,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; @@ -99,8 +99,6 @@ end; function TEmpresasController.Eliminar(AEmpresa: IBizEmpresa): Boolean; begin - Result := False; - if not Assigned(AEmpresa) then raise Exception.Create ('Empresa no asignada'); @@ -181,8 +179,6 @@ end; function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean; begin - Result := False; - if not Assigned(AEmpresa) then raise Exception.Create ('Empresa no asignada'); diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index f0ccde38..565ad3e9 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -117,7 +117,7 @@ type function GetUsarPasswordsSeguras: Boolean; procedure SetUsarPasswordsSeguras(const Value: Boolean); public - constructor Create; virtual; + constructor Create; override; destructor Destroy; override; procedure Logoff; @@ -305,6 +305,7 @@ var AUser : IBizUsuario; AEditorCambiar : TfEditorCambiarPassword; begin + Result := False; AUser := FDataModule.GetUsuario(AIDUser); if Assigned(AUser) then begin @@ -362,7 +363,6 @@ end; function TUsuariosController.DarListaPerfilesUsuario: TStringList; var APerfilesUsuario: IBizPerfilUsuario; - i : integer; begin APerfilesUsuario := FDataModule.GetPerfiles; APerfilesUsuario.DataTable.Active := True; @@ -386,7 +386,6 @@ end; function TUsuariosController.DarListaUsuarios: TStringList; var AUsuarios: IBizUsuario; - i : integer; begin AUsuarios := FDataModule.GetUsuarios; AUsuarios.DataTable.Active := True; @@ -467,6 +466,8 @@ end; function TUsuariosController.EliminarUsuario(AUser: IBizUsuario): Boolean; begin + Result := False; + if not Assigned(AUser) then raise Exception.Create('No hay usuario asignado (EliminarUsuario)'); @@ -489,6 +490,8 @@ begin case FUserControl.Criptografia of cPadrao: Result := ucStandard; cMD5: Result := ucMD5; + else + Result := ucStandard; end; end; @@ -515,8 +518,6 @@ end; function TUsuariosController.GuardarPerfil(APerfil: IBizPerfilUsuario): Boolean; begin - Result := False; - if not Assigned(APerfil) then raise Exception.Create('No hay perfil asignado (GuardarPerfil)'); @@ -528,8 +529,6 @@ end; function TUsuariosController.GuardarUsuario(AUser: IBizUsuario): Boolean; begin - Result := False; - if not Assigned(AUser) then raise Exception.Create('No hay usuario asignado (GuardarUsuario)'); @@ -544,8 +543,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 + @@ -713,8 +710,6 @@ end; function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean; begin - Result := False; - if not Assigned(APerfil) then raise Exception.Create ('Perfil no asignado (ValidarPerfil)'); @@ -729,8 +724,6 @@ end; function TUsuariosController.ValidarUsuario(AUser: IBizUsuario): Boolean; begin - Result := False; - if not Assigned(AUser) then raise Exception.Create ('Usuario no asignado (ValidarUsuario)'); @@ -895,8 +888,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/Base/Base.dproj b/Source/Base/Base.dproj index 0f6384ce..4cbe355e 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -53,57 +53,57 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas index 5b9e1dae..483327b3 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 @@ -75,11 +73,13 @@ var begin - try - ABookmark := ADetalles.DataTable.GetBookMark; - ADetalles.DataTable.DisableControls; - ADetalles.DataTable.DisableEventHandlers; + ImporteUnidad := 0; + ImporteSobrante := 0; + ABookmark := ADetalles.DataTable.GetBookMark; + ADetalles.DataTable.DisableControls; + ADetalles.DataTable.DisableEventHandlers; + try 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 2d4a816a..17248414 100644 --- a/Source/Base/Utiles/uDataTableUtils.pas +++ b/Source/Base/Utiles/uDataTableUtils.pas @@ -524,6 +524,8 @@ begin if not ATarget.Active then ATarget.Open; + ADetailFields := Nil; + // żATarget es una tabla detalle? if Assigned(ATarget.MasterSource) then begin diff --git a/Source/GUIBase/GUIBase.dpk b/Source/GUIBase/GUIBase.dpk index f2838c37..182a7139 100644 --- a/Source/GUIBase/GUIBase.dpk +++ b/Source/GUIBase/GUIBase.dpk @@ -41,7 +41,30 @@ requires dxLayoutControlD11, dxPScxCommonD11, dxPsPrVwAdvD11, - dxPScxGrid6LnkD11; + dxPScxGrid6LnkD11, + dxSkinscxPCPainterD11, + dxSkinsCoreD11, + dxSkinsdxLCPainterD11, + dxSkinOffice2007BlackD11, + dxSkinBlackD11, + dxSkinBlueD11, + dxSkinCaramelD11, + dxSkinCoffeeD11, + dxSkinGlassOceansD11, + dxSkiniMaginaryD11, + dxSkinLilianD11, + dxSkinLiquidSkyD11, + dxSkinLondonLiquidSkyD11, + dxSkinMcSkinD11, + dxSkinMoneyTwinsD11, + dxSkinOffice2007BlueD11, + dxSkinOffice2007GreenD11, + dxSkinOffice2007PinkD11, + dxSkinOffice2007SilverD11, + dxSkinSilverD11, + dxSkinStardustD11, + dxSkinValentineD11, + dxSkinXmas2008BlueD11; contains uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor}, diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 163d1d12..3232a732 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,22 +58,43 @@ MainSource - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 @@ -164,6 +185,8 @@
frViewTotales
TFrame + +