Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@371 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-14 14:38:09 +00:00
parent 1209b0c0fc
commit 5f7e9ada77
16 changed files with 203 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

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

@ -29,7 +29,7 @@ type
FDataModule : IDataModuleEmpresas; FDataModule : IDataModuleEmpresas;
function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual; function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual;
public public
constructor Create; virtual; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
function Eliminar(const ID : Integer): Boolean; overload; function Eliminar(const ID : Integer): Boolean; overload;
@ -99,8 +99,6 @@ end;
function TEmpresasController.Eliminar(AEmpresa: IBizEmpresa): Boolean; function TEmpresasController.Eliminar(AEmpresa: IBizEmpresa): Boolean;
begin begin
Result := False;
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada'); raise Exception.Create ('Empresa no asignada');
@ -181,8 +179,6 @@ end;
function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean; function TEmpresasController.ValidarEmpresa(AEmpresa: IBizEmpresa): Boolean;
begin begin
Result := False;
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada'); raise Exception.Create ('Empresa no asignada');

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

@ -117,7 +117,7 @@ type
function GetUsarPasswordsSeguras: Boolean; function GetUsarPasswordsSeguras: Boolean;
procedure SetUsarPasswordsSeguras(const Value: Boolean); procedure SetUsarPasswordsSeguras(const Value: Boolean);
public public
constructor Create; virtual; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Logoff; procedure Logoff;
@ -305,6 +305,7 @@ var
AUser : IBizUsuario; AUser : IBizUsuario;
AEditorCambiar : TfEditorCambiarPassword; AEditorCambiar : TfEditorCambiarPassword;
begin begin
Result := False;
AUser := FDataModule.GetUsuario(AIDUser); AUser := FDataModule.GetUsuario(AIDUser);
if Assigned(AUser) then if Assigned(AUser) then
begin begin
@ -362,7 +363,6 @@ end;
function TUsuariosController.DarListaPerfilesUsuario: TStringList; function TUsuariosController.DarListaPerfilesUsuario: TStringList;
var var
APerfilesUsuario: IBizPerfilUsuario; APerfilesUsuario: IBizPerfilUsuario;
i : integer;
begin begin
APerfilesUsuario := FDataModule.GetPerfiles; APerfilesUsuario := FDataModule.GetPerfiles;
APerfilesUsuario.DataTable.Active := True; APerfilesUsuario.DataTable.Active := True;
@ -386,7 +386,6 @@ end;
function TUsuariosController.DarListaUsuarios: TStringList; function TUsuariosController.DarListaUsuarios: TStringList;
var var
AUsuarios: IBizUsuario; AUsuarios: IBizUsuario;
i : integer;
begin begin
AUsuarios := FDataModule.GetUsuarios; AUsuarios := FDataModule.GetUsuarios;
AUsuarios.DataTable.Active := True; AUsuarios.DataTable.Active := True;
@ -467,6 +466,8 @@ end;
function TUsuariosController.EliminarUsuario(AUser: IBizUsuario): Boolean; function TUsuariosController.EliminarUsuario(AUser: IBizUsuario): Boolean;
begin begin
Result := False;
if not Assigned(AUser) then if not Assigned(AUser) then
raise Exception.Create('No hay usuario asignado (EliminarUsuario)'); raise Exception.Create('No hay usuario asignado (EliminarUsuario)');
@ -489,6 +490,8 @@ begin
case FUserControl.Criptografia of case FUserControl.Criptografia of
cPadrao: Result := ucStandard; cPadrao: Result := ucStandard;
cMD5: Result := ucMD5; cMD5: Result := ucMD5;
else
Result := ucStandard;
end; end;
end; end;
@ -515,8 +518,6 @@ end;
function TUsuariosController.GuardarPerfil(APerfil: IBizPerfilUsuario): Boolean; function TUsuariosController.GuardarPerfil(APerfil: IBizPerfilUsuario): Boolean;
begin begin
Result := False;
if not Assigned(APerfil) then if not Assigned(APerfil) then
raise Exception.Create('No hay perfil asignado (GuardarPerfil)'); raise Exception.Create('No hay perfil asignado (GuardarPerfil)');
@ -528,8 +529,6 @@ end;
function TUsuariosController.GuardarUsuario(AUser: IBizUsuario): Boolean; function TUsuariosController.GuardarUsuario(AUser: IBizUsuario): Boolean;
begin begin
Result := False;
if not Assigned(AUser) then if not Assigned(AUser) then
raise Exception.Create('No hay usuario asignado (GuardarUsuario)'); raise Exception.Create('No hay usuario asignado (GuardarUsuario)');
@ -544,8 +543,6 @@ function TUsuariosController.HayUsuarioConPerfil(
var var
TempDS: TDataset; TempDS: TDataset;
begin begin
Result := False;
try try
TempDS := FUserControl.DataConnector.UCGetSQLDataset('Select ' + FUserControl.TableUsers.FieldUserID + ' as IdUser from ' + TempDS := FUserControl.DataConnector.UCGetSQLDataset('Select ' + FUserControl.TableUsers.FieldUserID + ' as IdUser from ' +
FUserControl.TableUsers.TableName + FUserControl.TableUsers.TableName +
@ -713,8 +710,6 @@ end;
function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean; function TUsuariosController.ValidarPerfil(APerfil: IBizPerfilUsuario): Boolean;
begin begin
Result := False;
if not Assigned(APerfil) then if not Assigned(APerfil) then
raise Exception.Create ('Perfil no asignado (ValidarPerfil)'); raise Exception.Create ('Perfil no asignado (ValidarPerfil)');
@ -729,8 +724,6 @@ end;
function TUsuariosController.ValidarUsuario(AUser: IBizUsuario): Boolean; function TUsuariosController.ValidarUsuario(AUser: IBizUsuario): Boolean;
begin begin
Result := False;
if not Assigned(AUser) then if not Assigned(AUser) then
raise Exception.Create ('Usuario no asignado (ValidarUsuario)'); raise Exception.Create ('Usuario no asignado (ValidarUsuario)');
@ -895,8 +888,8 @@ begin
end; end;
procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario); procedure TUsuariosController.FiltrarEmpresa(AUsuario: IBizUsuario);
var {var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;}
begin begin
// AQUI HAY QUE TENER EN CUENTA QUE UN USUARIO PUEDE QUE NO TENGA ACCESO // AQUI HAY QUE TENER EN CUENTA QUE UN USUARIO PUEDE QUE NO TENGA ACCESO

102
Source/Base/Base.dproj
View File

@ -53,57 +53,57 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Obras\adortl.dcp" /> <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Obras\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Obras\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Obras\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Obras\designide.dcp" /> <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Obras\dsnap.dcp" /> <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Obras\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Obras\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Obras\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Obras\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Obras\Jcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Obras\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Obras\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Obras\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Obras\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Obras\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Obras\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Obras\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\rtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Obras\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Obras\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Obras\vcl.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Obras\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Obras\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Obras\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Obras\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Obras\vclx.dcp" /> <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Obras\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

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

@ -33,8 +33,6 @@ function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
var var
ImporteTotal : Double; ImporteTotal : Double;
begin begin
ImporteTotal := 0;
with ADataTable do with ADataTable do
begin begin
if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then
@ -75,11 +73,13 @@ var
begin begin
try ImporteUnidad := 0;
ABookmark := ADetalles.DataTable.GetBookMark; ImporteSobrante := 0;
ADetalles.DataTable.DisableControls;
ADetalles.DataTable.DisableEventHandlers;
ABookmark := ADetalles.DataTable.GetBookMark;
ADetalles.DataTable.DisableControls;
ADetalles.DataTable.DisableEventHandlers;
try
ADetalles.DataTable.First; ADetalles.DataTable.First;
Unidades := 0; Unidades := 0;
while not ADetalles.DataTable.eof do while not ADetalles.DataTable.eof do

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

@ -524,6 +524,8 @@ begin
if not ATarget.Active then if not ATarget.Active then
ATarget.Open; ATarget.Open;
ADetailFields := Nil;
// ¿ATarget es una tabla detalle? // ¿ATarget es una tabla detalle?
if Assigned(ATarget.MasterSource) then if Assigned(ATarget.MasterSource) then
begin begin

25
Source/GUIBase/GUIBase.dpk
View File

@ -41,7 +41,30 @@ requires
dxLayoutControlD11, dxLayoutControlD11,
dxPScxCommonD11, dxPScxCommonD11,
dxPsPrVwAdvD11, 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 contains
uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor}, uEditorBase in 'uEditorBase.pas' {fEditorBase: TCustomEditor},

55
Source/GUIBase/GUIBase.dproj
View File

@ -58,22 +58,43 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Almacenes\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxBarD11.dcp" /> <DCCReference Include="dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxBarExtItemsD11.dcp" /> <DCCReference Include="dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPScxCommonD11.dcp" /> <DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\frx11.dcp" /> <DCCReference Include="dxSkinBlackD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\frxe11.dcp" /> <DCCReference Include="dxSkinBlueD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\fs11.dcp" /> <DCCReference Include="dxSkinCaramelD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\JvAppFrmD11R.dcp" /> <DCCReference Include="dxSkinCoffeeD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\JvCtrlsD11R.dcp" /> <DCCReference Include="dxSkinGlassOceansD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\rtl.dcp" /> <DCCReference Include="dxSkiniMaginaryD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcl.dcp" /> <DCCReference Include="dxSkinLilianD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcldb.dcp" /> <DCCReference Include="dxSkinLiquidSkyD11.dcp" />
<DCCReference Include="dxSkinLondonLiquidSkyD11.dcp" />
<DCCReference Include="dxSkinMcSkinD11.dcp" />
<DCCReference Include="dxSkinMoneyTwinsD11.dcp" />
<DCCReference Include="dxSkinOffice2007BlackD11.dcp" />
<DCCReference Include="dxSkinOffice2007BlueD11.dcp" />
<DCCReference Include="dxSkinOffice2007GreenD11.dcp" />
<DCCReference Include="dxSkinOffice2007PinkD11.dcp" />
<DCCReference Include="dxSkinOffice2007SilverD11.dcp" />
<DCCReference Include="dxSkinsCoreD11.dcp" />
<DCCReference Include="dxSkinscxPCPainterD11.dcp" />
<DCCReference Include="dxSkinsdxLCPainterD11.dcp" />
<DCCReference Include="dxSkinSilverD11.dcp" />
<DCCReference Include="dxSkinStardustD11.dcp" />
<DCCReference Include="dxSkinValentineD11.dcp" />
<DCCReference Include="dxSkinXmas2008BlueD11.dcp" />
<DCCReference Include="frx11.dcp" />
<DCCReference Include="frxe11.dcp" />
<DCCReference Include="fs11.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>
@ -164,6 +185,8 @@
<Form>frViewTotales</Form> <Form>frViewTotales</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

13
Source/GUIBase/uViewFiltroBase.dfm
View File

@ -30,6 +30,7 @@ object frViewFiltroBase: TfrViewFiltroBase
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 128 ExplicitWidth = 128
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
@ -41,12 +42,16 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 273 Width = 273
end end
@ -59,14 +64,18 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 121 Width = 121
end end
@ -79,14 +88,18 @@ object frViewFiltroBase: TfrViewFiltroBase
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 121 Width = 121
end end

8
Source/GUIBase/uViewFiltroBase.pas
View File

@ -7,7 +7,13 @@ uses
Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl, Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl,
cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls,
StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems, StdCtrls, Buttons, cxRadioGroup, TBXDkPanels, TB2ExtItems, TBXExtItems,
TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList; TBX, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type type
IViewFiltroBase = interface IViewFiltroBase = interface

62
Source/GUIBase/uViewGrid.dfm
View File

@ -1,13 +1,13 @@
inherited frViewGrid: TfrViewGrid inherited frViewGrid: TfrViewGrid
Width = 554 Width = 607
Height = 399 Height = 441
ExplicitWidth = 554 ExplicitWidth = 607
ExplicitHeight = 399 ExplicitHeight = 441
object cxGrid: TcxGrid [0] object cxGrid: TcxGrid [0]
Left = 0 Left = 0
Top = 102 Top = 102
Width = 554 Width = 607
Height = 271 Height = 313
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -18,6 +18,8 @@ inherited frViewGrid: TfrViewGrid
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitWidth = 554
ExplicitHeight = 271
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick OnDblClick = cxGridViewDblClick
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -58,7 +60,7 @@ inherited frViewGrid: TfrViewGrid
inline frViewFiltroBase1: TfrViewFiltroBase [1] inline frViewFiltroBase1: TfrViewFiltroBase [1]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 554 Width = 607
Height = 102 Height = 102
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
@ -68,28 +70,40 @@ inherited frViewGrid: TfrViewGrid
ExplicitWidth = 554 ExplicitWidth = 554
ExplicitHeight = 102 ExplicitHeight = 102
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 554 Width = 607
ExplicitWidth = 554 ExplicitWidth = 554
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457
Width = 457
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240
Width = 240
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 344 Left = 376
ExplicitLeft = 344 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 121 StyleDisabled.LookAndFeel.SkinName = ''
Width = 121 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 200
Width = 200
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 554 Width = 607
ExplicitWidth = 554 ExplicitWidth = 554
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 544 Width = 597
ExplicitWidth = 544 ExplicitWidth = 544
end end
end end
@ -97,7 +111,7 @@ inherited frViewGrid: TfrViewGrid
end end
object pnlAgrupaciones: TTBXDockablePanel object pnlAgrupaciones: TTBXDockablePanel
Left = 0 Left = 0
Top = 373 Top = 415
MinClientHeight = 8 MinClientHeight = 8
Align = alBottom Align = alBottom
Caption = 'pnlAgrupaciones' Caption = 'pnlAgrupaciones'
@ -107,23 +121,27 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitTop = 373
ExplicitWidth = 554
object TBXAlignmentPanel1: TTBXAlignmentPanel object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 554 Width = 607
Height = 26 Height = 26
Margins.Left = 10 Margins.Left = 10
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
ExplicitWidth = 554
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 10 Left = 10
Top = 0 Top = 0
Width = 544 Width = 597
Height = 26 Height = 26
Align = alTop Align = alTop
AutoResize = False AutoResize = False
Caption = 'TBXToolbar1' Caption = 'TBXToolbar1'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 544
object TBXItem1: TTBXItem object TBXItem1: TTBXItem
Action = actQuitarAgrupaciones Action = actQuitarAgrupaciones
end end
@ -154,7 +172,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39530.439378252320000000 ReportDocument.CreationDate = 39581.739711365740000000
StyleManager = dxPrintStyleManager1 StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True

8
Source/GUIBase/uViewGrid.pas
View File

@ -22,7 +22,13 @@ uses
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu, cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList, cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uDAInterfaces, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uDAInterfaces,
dxPScxGrid6Lnk; dxPScxGrid6Lnk, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
IViewGrid = interface(IViewGridBase) IViewGrid = interface(IViewGridBase)

6
Source/GUIBase/uViewGridBase.pas
View File

@ -283,8 +283,10 @@ end;
function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String; function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean): Boolean; const APartialCompare: Boolean): Boolean;
begin begin
{ if Assigned(_FocusedView) then if Assigned(_FocusedView) then
Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AText, APartialCompare, True, True)} Result := (_FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AValue, APartialCompare, True, True) <> -1)
else
Result := False;
end; end;
procedure TfrViewGridBase.Preview; procedure TfrViewGridBase.Preview;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.3.0\0" VALUE "FileVersion", "1.0.3.0\0"
VALUE "ProductVersion", "1.0.3.0\0" VALUE "ProductVersion", "1.0.3.0\0"
VALUE "CompileDate", "lunes, 12 de mayo de 2008 10:31\0" VALUE "CompileDate", "lunes, 12 de mayo de 2008 18:18\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"