Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Limpieza de mensajes de warning.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@268 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-10 15:58:06 +00:00
parent 5de8d0e1a4
commit f067420216
23 changed files with 74 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/ApplicationBase/Ejercicios/Controller/uEjerciciosController.pas
View File

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

8
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

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

1
Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
View File

@ -40,7 +40,6 @@ end;
function TTiendasEmpresaController.DarListaTiendas: TStringList;
var
ATiendas: IBizEmpresasTiendas;
i : integer;
begin
ATiendas := AppFactuGES.EmpresaActiva.Tiendas;
ATiendas.DataTable.Active := True;

1
Source/ApplicationBase/Empresas/Views/uViewTienda.dfm
View File

@ -17,6 +17,7 @@ inherited frViewTienda: TfrViewTienda
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
451

7
Source/ApplicationBase/Empresas/Views/uViewTienda.pas
View File

@ -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)

34
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -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

18
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -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

1
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -127,7 +127,6 @@ var
AContinuar : Boolean;
begin
inherited;
AContinuar := False;
if FUsuario.EsNuevo then
begin
if (frViewUsuario1.ePassword.Text <> frViewUsuario1.eConfirmarPassword.Text) then

9
Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
View File

@ -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

8
Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
View File

@ -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)

8
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -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

6
Source/Base/Utiles/uDataTableUtils.pas
View File

@ -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

5
Source/Modulos/Contabilidad/Controller/uApuntesController.pas
View File

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

6
Source/Modulos/Contabilidad/Controller/uAsientosController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uBalancesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uCuentasController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas
View File

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

4
Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
View File

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

9
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

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

2
Source/Modulos/Contabilidad/Model/uBizApuntes.pas
View File

@ -72,6 +72,8 @@ var
ABookmark : TBookmark;
NumOrdenMax : Integer;
begin
ABookmark := NIL;
with Self.DataTable do
begin
if not Opening then

6
Source/Modulos/Contabilidad/Model/uBizDiario.pas
View File

@ -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;

3
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm
View File

@ -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

8
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -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)