git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@34 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Servidor/FactuGES_Server.bdsproj

@@ -181,6 +181,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 			<VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</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>
 		<Signing>

Source/Servidor/FactuGES_Server.dpr

@@ -16,55 +16,35 @@ uses
   FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
   FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
   srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
-  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
   srvLogin_Impl in 'srvLogin_Impl.pas',
   srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
-  srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService};
+  srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService},
-
+  srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas',
-uses
+  srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas',
-  ExceptionLog,
+  srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas',
-  uROComInit,
+  srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas',
-  Forms,
+  RegExpr in 'Utiles\RegExpr.pas',
-  uServerMainForm in 'uServerMainForm.pas' {fServerForm},
-  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
-  uConexionBD in 'Configuracion\uConexionBD.pas' {frConexionBD: TFrame},
-  uConfGeneral in 'Configuracion\uConfGeneral.pas' {frConfGeneral: TFrame},
-  uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion: TForm},
-  uFrameConfiguracion in 'Configuracion\uFrameConfiguracion.pas' {FrameConfiguracion: TFrame},
-  uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule},
-  FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
-  FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
-  srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
-  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
-  srvLogin_Impl in 'srvLogin_Impl.pas',
-  srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},,
-  uSesionesUtils in 'Utiles\uSesionesUtils.pas',
-  uUsersManager in 'uUsersManager.pas',
-  uServerAppUtils in 'Utiles\uServerAppUtils.pas',
-  uBizEmpleadosServer in '..\Modulos\Contactos\Model\uBizEmpleadosServer.pas',
   uBusinessUtils in 'Utiles\uBusinessUtils.pas',
-  uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
+  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
-  uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
-  uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
-  uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
   uReferenciasUtils in 'Utiles\uReferenciasUtils.pas',
-  srvConfiguracion_Impl in 'srvConfiguracion_Impl.pas' {srvConfiguracion: TDARemoteService},
+  uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
-  srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas' {srvFamilias: TDARemoteService},
+  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
-  schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
+  uServerAppUtils in 'Utiles\uServerAppUtils.pas',
-  schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
+  uSesionesUtils in 'Utiles\uSesionesUtils.pas',
-  schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
+  uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
+  uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
+  uBizEmpleadosServer in '..\Modulos\Contactos\Model\uBizEmpleadosServer.pas',
   schEmpresasServer_Intf in '..\Base\Empresas\Model\schEmpresasServer_Intf.pas',
-  srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDARemoteService},
+  schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
-  srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService},
+  schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
-  schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
+  schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
-  schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
   schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
   schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
-  uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
+  schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
-  RegExpr in 'Utiles\RegExpr.pas',
+  schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas';
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDARemoteService},;
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/Utiles/uTiendaWebUtils.pas

@@ -1,46 +0,0 @@
-unit uTiendaWebUtils;
-
-interface
-
-function HayConexionConTienda(const AODBCName : String; var AErrorMsg: String): Boolean;
-
-implementation
-
-uses
-  SysUtils, SqlExpr, Dialogs, ADODB;
-
-function HayConexionConTienda(const AODBCName : String; var AErrorMsg: String): Boolean;
-var
-  ADOConnection1: TADOConnection;
-begin
-  AErrorMsg := '';
-  ADOConnection1 := TADOConnection.Create(nil);
-  try
-    with ADOConnection1 do
-    begin
-      Name := 'ADOConnection1';
-      Provider := 'MSDASQL.1';
-      LoginPrompt := False;
-      ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;' +
-        'Data Source=' + AODBCName;
-
-      try
-        Connected := True;
-        Result := True;
-        Connected := False;
-      except
-        on E : Exception do
-        begin
-          Result := False;
-          AErrorMsg := e.Message;
-        end;
-      end;
-    end;
-  finally
-    FreeAndNIL(ADOConnection1);
-  end;
-end;
-
-
-
-end.

Source/Servidor/uDataModuleServer.pas

@@ -75,7 +75,7 @@ implementation
 
 uses
   DateUtils, JclFileUtils, ActiveX, Forms, Registry, Windows, Dialogs,
-  uSesionesUtils, uServerAppUtils, ExtCtrls;
+  ExtCtrls, uSesionesUtils, uServerAppUtils;
 
 function DarRutaInformes : String;
 begin