Ticket #900 -> Poder eledir la conexión en la pantalla de login

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1062 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Build/Installer.fbpInf

@@ -6,7 +6,7 @@
   <propertysets/>
   <variables>
     <project_path>
-      <![CDATA[C:\Codigo tecsitel]]>
+      <![CDATA[C:\Codigo Tecsitel]]>
     </project_path>
   </variables>
   <properties>

Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas

@@ -71,6 +71,7 @@ begin
 
   ShowHourglassCursor;
   try
+    dmConexion.EstablecerConexion(cbConexiones.ItemIndex);
     bOK := FController.ComprobarUsuario(edtUser.Text, edtPassword.Text);
   finally
     HideHourglassCursor;
@@ -96,18 +97,18 @@ procedure TfEditorLogin.ToolButton4Click(Sender: TObject);
 var
   ATimer : Boolean;
 begin
-  {*ATimer := False;
+  ATimer := False;
   if Timer1.Enabled then
   begin
     ATimer := True;
     Timer1.Enabled := False;
-  end;*}
+  end;
 
   dmConexion.ConfigurarConexion;
   RellenarConexiones;
 
-  {*if ATimer then
-    Timer1.Enabled := True;*}
+  if ATimer then
+    Timer1.Enabled := True;
 end;
 
 procedure TfEditorLogin.edtUserKeyPress(Sender: TObject; var Key: Char);

Source/Base/Conexion/uDataModuleConexion.pas

@@ -28,6 +28,7 @@ type
     function HayConexion : Boolean;
     function ProbarConexion(const ATargetURL : String): Boolean;
     procedure ConfigurarConexion;
+    procedure EstablecerConexion(aID : integer);
     property TargetURL : String read GetTargetURL write SetTargetURL;
     property Channel: TROTransportChannel read GetChannel;
     property Message: TROBinMessage read GetMessage;
@@ -115,6 +116,11 @@ begin
   FreeAndNil(FListaConexiones);
 end;
 
+procedure TdmConexion.EstablecerConexion(aID: integer);
+begin
+  Self.TargetURL := FListaConexiones[aID];
+end;
+
 function TdmConexion.GetChannel: TROTransportChannel;
 begin
   Result := ROChannel;

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.9.4.0\0"
               VALUE "ProductVersion", "1.9.4.0\0"
-              VALUE "CompileDate", "lunes, 11 de junio de 2012 16:21\0"
+              VALUE "CompileDate", "martes, 12 de junio de 2012 10:58\0"
          END
     END
     BLOCK "VarFileInfo"