Limpieza de mensajes de warning.

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

Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas

@@ -54,6 +54,7 @@ var
   dsData: IDADataset;
 
 begin
+  Result := -1;
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
 
   try

Source/GUIBase/uViewDetallesBase.dfm

@@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       DroppedDownWidth = 145
       MaxMRUCount = 0
       FontName = 'Tahoma'
-      ItemIndex = 35
+      ItemIndex = 34
       Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
       Sorted = True
       TabOrder = 2

Source/GUIBase/uViewDetallesBase.pas

@@ -11,7 +11,13 @@ uses
   PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox,
   uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls,
   ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
-  TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces;
+  TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
+  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   IViewDetallesBase = interface(IViewBase)
@@ -532,8 +538,6 @@ function TfrViewDetallesBase.DarPosicionCAMPO(const Nombre: String): Integer;
 var
   i: Integer;
 begin
-  Result := -1;
-
   i:=0;
   while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre)
   and   (i < cxGridView.ColumnCount)) do

Source/GUIBase/uViewFiltroBase.dfm

@@ -30,6 +30,7 @@ object frViewFiltroBase: TfrViewFiltroBase
       Align = alTop
       ParentBackground = True
       TabOrder = 0
+      TabStop = False
       AutoContentSizes = [acsWidth, acsHeight]
       ExplicitWidth = 128
       object txtFiltroTodo: TcxTextEdit

Source/GUIBase/uViewFiltroBase.pas

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

Source/GUIBase/uViewGridBase.pas

@@ -97,7 +97,7 @@ type
     function GetDblClick: TNotifyEvent; virtual;
     function GetGrid : TcxGrid; virtual; abstract;
     function GetFocusedView : TcxGridDBTableView; virtual; abstract;
-    function esSeleccionCeldaDatos: Boolean; virtual; abstract;
+    function EsSeleccionCeldaDatos: Boolean; virtual; abstract;
     function getNumSeleccionados: Integer;
 
     procedure SetFilter(const Value: string); virtual;

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -103,10 +103,10 @@ begin
 end;
 
 function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
-var
+{var
   dsMaster: IDADataset;
   dsDetail: IDADataset;
-  AStream: TMemoryStream;
+  AStream: TMemoryStream;}
 begin
   Result := Binary.Create;
   FConnection.BeginTransaction;
@@ -124,7 +124,6 @@ begin
     frxReport.PreviewPages.SaveToStream(Result);
 
   finally
-    AStream.Free;
     FConnection.RollbackTransaction;
   end;
 

Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas

@@ -74,7 +74,7 @@ var
 
 begin
   Result := False;
-
+  IDCuenta := 0;
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
 
   try
@@ -151,13 +151,11 @@ var
 
   RefSubCuenta: String;
   NumCuenta: Integer;
-  RefTienda: String;
-  NumTienda: Integer;
   IDCuenta: Integer;
 
 begin
   Result := False;
-
+  IDCuenta := 0;
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
 
   try
@@ -248,8 +246,6 @@ function TsrvContabilidad.DarNumOrden: Integer;
 var
   AConn : IDAConnection;
   dsData: IDADataset;
-  dsCommand: IDASQLCommand;
-
 begin
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
 
@@ -277,7 +273,6 @@ var
 
 begin
   Result := False;
-  AWhere := NIL;
 
   AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
   { Construir la expresión del Where a partir de los parámetros

Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas

@@ -57,10 +57,6 @@ begin
 end;
 
 function TRptEtiquetasContacto.GenerarInforme(const AID: String): Binary;
-var
-  AStream: TMemoryStream;
-  dsMaster: IDADataset;
-
 begin
   Result := Binary.Create;
 

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas

@@ -91,14 +91,14 @@ begin
 end;
 
 procedure TRptPresupuestosCliente.GenerarPresupuesto(const AID: Integer);
-var
+{var
   AStream: TMemoryStream;
   dsMaster: IDADataset;
-  dsDetail: IDADataset;
+  dsDetail: IDADataset;}
 begin
   //AStream := TMemoryStream.Create;
 
-  try
+//  try
     {dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
     dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID'], [AID], False);
 
@@ -118,11 +118,11 @@ begin
     frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
     frxReport.PrepareReport(False);
 
-  finally
+{  finally
     //AStream.Free;
     dsMaster := Nil;
     dsDetail := Nil;
-  end;
+  end;}
 end;
 
 end.

Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas

@@ -85,11 +85,11 @@ begin
 end;
 
 procedure TRptRecibosCliente.GenerarRecibo(const ID: Integer);
-var
+{var
   dsMaster: IDADataset;
   dsCompensados : IDADataset;
   AStream: TMemoryStream;
-
+}
 begin
 //  AStream := TMemoryStream.Create;
 

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,6 +29,9 @@
     <Borland.ProjectType />
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 23 de mayo de 2008 17:19</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.2.3.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
               VALUE "ProductVersion", "2.2.3.0\0"
-              VALUE "CompileDate", "lunes, 14 de julio de 2008 15:59\0"
+              VALUE "CompileDate", "lunes, 14 de julio de 2008 16:37\0"
          END
     END
     BLOCK "VarFileInfo"