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

Subida para que compile como es debido (subida a medias de David)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@242 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-02-05 12:11:55 +00:00
parent 6d714950ba
commit f3baa44aab
13 changed files with 346 additions and 249 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Base/Base.dpk
View File

@ -103,6 +103,7 @@ contains
uControllerBase in 'Controladores\uControllerBase.pas',
uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
schBase_Intf in 'schBase_Intf.pas',
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule};
uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule},
uStringsUtils in 'Utiles\uStringsUtils.pas';
end.

3
Source/Base/Base.dproj
View File

@ -44,6 +44,8 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -143,6 +145,7 @@
<DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

28
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -598,7 +598,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos)
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -772,7 +772,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -861,7 +861,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1141,7 +1141,7 @@ type
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes)
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1566,7 +1566,7 @@ type
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1969,7 +1969,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2278,7 +2278,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2428,7 +2428,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2493,7 +2493,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2540,7 +2540,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2700,7 +2700,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2856,7 +2856,7 @@ type
end;
{ TContratosEmpleadosDataTableRules }
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
private
protected
{ Property getters and setters }
@ -2891,7 +2891,7 @@ type
end;
{ TDescripcionesProveedoresDataTableRules }
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
private
protected
{ Property getters and setters }

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

12
Source/Servicios/FactuGES.RODL
View File

@ -25,6 +25,18 @@
</Parameter>
</Parameters>
</Operation>
<Operation Name="DarListaDescripcionesProveedores" UID="{F3C0D310-7A7D-4944-9E69-B8AC84FEFA00}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
</Parameter>
</Parameters>
</Operation>
<Operation Name="DarListaContratosEmpleados" UID="{988C2AB6-4815-4F1B-891C-CFBB57E7B85E}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>

34
Source/Servicios/FactuGES_Intf.pas
View File

@ -158,6 +158,8 @@ type
['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary;
function DarListaDescripcionesProveedores: String;
function DarListaContratosEmpleados: String;
end;
{ CosrvContactos }
@ -172,6 +174,8 @@ type
function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
function GenerateEtiquetasReport(const ContactosID: String): Binary;
function DarListaDescripcionesProveedores: String;
function DarListaContratosEmpleados: String;
end;
{ IsrvLogin }
@ -925,6 +929,36 @@ begin
end
end;
function TsrvContactos_Proxy.DarListaDescripcionesProveedores: String;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaDescripcionesProveedores');
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvContactos_Proxy.DarListaContratosEmpleados: String;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaContratosEmpleados');
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvLogin }
class function CosrvLogin.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvLogin;

36
Source/Servicios/FactuGES_Invk.pas
View File

@ -26,6 +26,8 @@ type
published
procedure Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaDescripcionesProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaContratosEmpleados(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvLogin_Invoker = class(TDataAbstractService_Invoker)
@ -246,6 +248,40 @@ begin
end;
end;
procedure TsrvContactos_Invoker.Invoke_DarListaDescripcionesProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaDescripcionesProveedores: String; }
var
lResult: String;
begin
try
lResult := (__Instance as IsrvContactos).DarListaDescripcionesProveedores;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaDescripcionesProveedoresResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
procedure TsrvContactos_Invoker.Invoke_DarListaContratosEmpleados(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaContratosEmpleados: String; }
var
lResult: String;
begin
try
lResult := (__Instance as IsrvContactos).DarListaContratosEmpleados;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaContratosEmpleadosResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
{ TsrvLogin_Invoker }
procedure TsrvLogin_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -103,7 +103,8 @@ uses
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule},
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uStringsUtils in '..\Base\Utiles\uStringsUtils.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

12
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -36,6 +36,15 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion"></VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@ -56,6 +65,7 @@
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "domingo, 03 de febrero de 2008 21:59\0"
VALUE "CompileDate", "martes, 05 de febrero de 2008 12:55\0"
END
END
BLOCK "VarFileInfo"