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

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

Browse Source
This commit is contained in:
David Arranz 2007-10-03 16:36:37 +00:00
parent ffb2ec7ac5
commit 6f80808fc3
5 changed files with 1289 additions and 1354 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/Servidor/FactuGES_Server.bdsproj
View File

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

64
Source/Servidor/FactuGES_Server.dpr
View File

@ -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};
uses
ExceptionLog,
uROComInit,
Forms,
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',
srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService},
srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas',
srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas',
srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas',
srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas',
RegExpr in 'Utiles\RegExpr.pas',
uBusinessUtils in 'Utiles\uBusinessUtils.pas',
uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
uReferenciasUtils in 'Utiles\uReferenciasUtils.pas',
srvConfiguracion_Impl in 'srvConfiguracion_Impl.pas' {srvConfiguracion: TDARemoteService},
srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas' {srvFamilias: TDARemoteService},
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
uRestriccionesUsuarioUtils in 'Utiles\uRestriccionesUsuarioUtils.pas',
uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
uServerAppUtils in 'Utiles\uServerAppUtils.pas',
uSesionesUtils in 'Utiles\uSesionesUtils.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},
srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService},
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_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',
RegExpr in 'Utiles\RegExpr.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},;
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2530
Source/Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

46
Source/Servidor/Utiles/uTiendaWebUtils.pas
View File

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

2
Source/Servidor/uDataModuleServer.pas
View File

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