Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tienda web

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@70 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-17 15:58:04 +00:00
parent 0c8e497b87
commit aa94628a1b
3 changed files with 61 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -160,10 +160,10 @@ uses
uBizOscManufacturerServer in '..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas',
uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
uBizOscProductServer in '..\Modulos\Tienda web\Model\uBizOscProductServer.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame};
uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

7
Source/Servidor/FactuGES_Server.dproj
View File

@ -41,6 +41,13 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

51
Source/Servidor/Utiles/uTiendaWebUtils.pas Normal file
View File

@ -0,0 +1,51 @@
unit uTiendaWebUtils;
interface
//function TratarCadena (Cadena: String): String;
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;CHARSET=utf8;' +
'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;
{function TratarCadena (Cadena: String): String;
begin
Result := StringReplace(Cadena, '''', '\\''', []);
end;}
end.