Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1062 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2012-06-12 11:27:09 +00:00
parent 703c860436
commit ad81e76a95
5 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Build/Installer.fbpInf
View File

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

9
Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
View File

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

6
Source/Base/Conexion/uDataModuleConexion.pas
View File

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

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.9.4.0\0" VALUE "FileVersion", "1.9.4.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"