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@32 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-10-03 16:26:44 +00:00
parent 87b5b28b1c
commit 104245b3c1
5 changed files with 180 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Source/Base_Group.groupproj
View File

@ -5,8 +5,6 @@
<ItemGroup />
<ItemGroup>
<Projects Include="Base\Base.dproj" />
<Projects Include="Base\ControllerBase\ControllerBase.dproj" />
<Projects Include="Base\GUIBase\GUIBase.dproj" />
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
@ -23,32 +21,14 @@
<Target Name="Base:Make">
<MSBuild Projects="Base\Base.dproj" Targets="Make" />
</Target>
<Target Name="ControllerBase">
<MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="" />
</Target>
<Target Name="ControllerBase:Clean">
<MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="Clean" />
</Target>
<Target Name="ControllerBase:Make">
<MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="Make" />
</Target>
<Target Name="GUIBase">
<MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="" />
</Target>
<Target Name="GUIBase:Clean">
<MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="Clean" />
</Target>
<Target Name="GUIBase:Make">
<MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;ControllerBase;GUIBase" />
<CallTarget Targets="Base" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;ControllerBase:Clean;GUIBase:Clean" />
<CallTarget Targets="Base:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;ControllerBase:Make;GUIBase:Make" />
<CallTarget Targets="Base:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

57
Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm Normal file
View File

@ -0,0 +1,57 @@
object srvConfiguracion: TsrvConfiguracion
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schConfiguracion
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 160
Width = 300
object schConfiguracion: TDASchema
ConnectionManager = dmServer.ConnectionManager
Datasets = <
item
Params = <
item
Name = 'CODIGO'
DataType = datString
Size = 50
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONFIGURACION'
SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end>
end>
Name = 'darValor'
Fields = <
item
Name = 'VALOR'
DataType = datString
Size = 100
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 40
Top = 16
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 80
end
end

80
Source/Servidor/Configuracion/srvConfiguracion_Impl.pas Normal file
View File

@ -0,0 +1,80 @@
unit srvConfiguracion_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider,
uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer,
uDABin2DataStreamer;
type
{ TsrvConfiguracion }
TsrvConfiguracion = class(TDataAbstractService, IsrvConfiguracion)
schConfiguracion: TDASchema;
Bin2DataStreamer: TDABin2DataStreamer;
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
protected
{ IsrvConfiguracion methods }
function DarValor(const CODIGO: String): String;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, uDAInterfaces, uDataModuleServer, Variants,
uROClasses;
procedure Create_srvConfiguracion(out anInstance : IUnknown);
begin
anInstance := TsrvConfiguracion.Create(NIL);
end;
{ srvConfiguracion }
procedure TsrvConfiguracion.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
end;
function TsrvConfiguracion.DarValor(const CODIGO: String): String;
var
ADataSet : IDADataset;
begin
try
ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]);
ADataSet.Open;
if ADataSet.Dataset.RecordCount > 0 then
Result := ADataSet.Dataset.Fields[0].AsVariant
else
RaiseError('Falta variable de configuracion: ' + CODIGO);
finally
ADataSet.Close;
end;
end;
procedure TsrvConfiguracion.DataAbstractServiceBeforeAcquireConnection(
aSender: TObject; var aConnectionName: string);
begin
ConnectionName := dmServer.ConnectionName;
end;
initialization
TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);
finalization
end.

35
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -103,16 +103,17 @@
<Compiler Name="DuplicatesIgnored">True</Compiler>
<Compiler Name="UnitInitSeq">True</Compiler>
<Compiler Name="LocalPInvoke">True</Compiler>
<Compiler Name="CodePage"></Compiler> <Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
<Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
<Compiler Name="XMLUnknownEntity">True</Compiler>
<Compiler Name="XMLInvalidNameStart">True</Compiler>
<Compiler Name="XMLInvalidName">True</Compiler>
<Compiler Name="XMLExpectedCharacter">True</Compiler>
<Compiler Name="XMLCRefNoResolve">True</Compiler>
<Compiler Name="XMLNoParm">True</Compiler>
<Compiler Name="XMLNoMatchingParm">True</Compiler>
</Compiler>
<Compiler Name="CodePage"></Compiler>
<Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
<Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
<Compiler Name="XMLUnknownEntity">True</Compiler>
<Compiler Name="XMLInvalidNameStart">True</Compiler>
<Compiler Name="XMLInvalidName">True</Compiler>
<Compiler Name="XMLExpectedCharacter">True</Compiler>
<Compiler Name="XMLCRefNoResolve">True</Compiler>
<Compiler Name="XMLNoParm">True</Compiler>
<Compiler Name="XMLNoMatchingParm">True</Compiler>
</Compiler>
<Linker>
<Linker Name="MapFile">3</Linker>
<Linker Name="OutputObjs">0</Linker>
@ -180,15 +181,13 @@
<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>
<Signing Name="SignAssembly">False</Signing>
</Signing>
<buildevents/>
</Delphi.Personality>
</Excluded_Packages>
<Signing>
<Signing Name="SignAssembly">False</Signing>
</Signing>
<buildevents/>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

27
Source/Servidor/FactuGES_Server.dpr
View File

@ -18,7 +18,26 @@ uses
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 '..\Modulos\Empresas\Servidor\srvEmpresas_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',
@ -33,8 +52,8 @@ uses
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 '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_Intf.pas',
schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.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',
@ -45,7 +64,7 @@ uses
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 '..\Modulos\Usuarios\Servidor\srvUsuarios_Impl.pas';
srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDARemoteService},;
{$R *.res}
{$R ..\Servicios\RODLFile.res}