Tienda web

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@70 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Servidor/FactuGES_Server.dpr

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

Source/Servidor/FactuGES_Server.dproj

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

Source/Servidor/Utiles/uTiendaWebUtils.pas

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