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

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

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

102
Source/Base/Base.dproj
View File

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

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

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

25
Source/GUIBase/GUIBase.dpk
View File

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

55
Source/GUIBase/GUIBase.dproj
View File

@ -58,22 +58,43 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Almacenes\Base.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\frx11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\frxe11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\fs11.dcp" />
<DCCReference Include="..\Modulos\Almacenes\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Almacenes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Almacenes\rtl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcl.dcp" />
<DCCReference Include="..\Modulos\Almacenes\vcldb.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dxBarD11.dcp" />
<DCCReference Include="dxBarExtItemsD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPsPrVwAdvD11.dcp" />
<DCCReference Include="dxSkinBlackD11.dcp" />
<DCCReference Include="dxSkinBlueD11.dcp" />
<DCCReference Include="dxSkinCaramelD11.dcp" />
<DCCReference Include="dxSkinCoffeeD11.dcp" />
<DCCReference Include="dxSkinGlassOceansD11.dcp" />
<DCCReference Include="dxSkiniMaginaryD11.dcp" />
<DCCReference Include="dxSkinLilianD11.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">
<Form>fDialogBase</Form>
</DCCReference>
@ -164,6 +185,8 @@
<Form>frViewTotales</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

13
Source/GUIBase/uViewFiltroBase.dfm
View File

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

8
Source/GUIBase/uViewFiltroBase.pas
View File

@ -7,7 +7,13 @@ uses
Dialogs, cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutControl,
cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, cxControls,
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
IViewFiltroBase = interface

62
Source/GUIBase/uViewGrid.dfm
View File

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

8
Source/GUIBase/uViewGrid.pas
View File

@ -22,7 +22,13 @@ uses
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
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
IViewGrid = interface(IViewGridBase)

6
Source/GUIBase/uViewGridBase.pas
View File

@ -283,8 +283,10 @@ end;
function TfrViewGridBase.Locate(const AItemIndex: Integer; const AValue: String;
const APartialCompare: Boolean): Boolean;
begin
{ if Assigned(_FocusedView) then
Result := _FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AText, APartialCompare, True, True)}
if Assigned(_FocusedView) then
Result := (_FocusedView.DataController.FindRecordIndexByText(0, AItemIndex, AValue, APartialCompare, True, True) <> -1)
else
Result := False;
end;
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
VALUE "FileVersion", "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
BLOCK "VarFileInfo"