From 27e40864a2d9b9b12327094ed4e03d91799866d5 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 10 Jul 2008 10:01:15 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@267 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- .../Servidor/srvImpresiones_Impl.dfm | 194 ------------------ .../Servidor/srvImpresiones_Impl.pas | 130 ------------ 2 files changed, 324 deletions(-) delete mode 100644 Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.dfm delete mode 100644 Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.pas diff --git a/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.dfm b/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.dfm deleted file mode 100644 index c5b4625a..00000000 --- a/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.dfm +++ /dev/null @@ -1,194 +0,0 @@ -object srvImpresiones: TsrvImpresiones - OldCreateOrder = True - OnCreate = DARemoteServiceCreate - RequiresSession = True - SessionManager = dmServer.SessionManager - AcquireConnection = True - ServiceSchema = schImpresiones - ServiceAdapter = DABINAdapter - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection - Height = 202 - Width = 392 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = ''#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Referencias_CODIGO' - DataType = datString - Size = 50 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'CODIGO' - Alignment = taLeftJustify - end - item - Name = 'Referencias_DESCRIPCION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Referencias' - Alignment = taLeftJustify - end - item - Name = 'Referencias_VALOR' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'digo' - Alignment = taLeftJustify - end - item - Name = 'Referencias_ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify - end> - Left = 150 - Top = 24 - end - object schImpresiones: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams - Datasets = < - item - Params = <> - Statements = < - item - Connection = 'IBX' - TargetTable = 'REFERENCIAS' - SQL = - 'SELECT '#10' CODIGO, DESCRIPCION, VALOR, ID_EMPRESA'#10' FROM'#10' RE' + - 'FERENCIAS' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'VALOR' - TableField = 'VALOR' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end> - end> - Name = 'Referencias' - Fields = < - item - Name = 'CODIGO' - DataType = datString - Size = 50 - BlobType = dabtUnknown - DictionaryEntry = 'Referencias_CODIGO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DictionaryEntry = 'Referencias_DESCRIPCION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VALOR' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DictionaryEntry = 'Referencias_VALOR' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'Referencias_ID_EMPRESA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - Commands = < - item - Params = < - item - Name = 'VALOR' - DataType = datString - Size = 255 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_CODIGO' - DataType = datString - Size = 50 - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end - item - Name = 'OLD_ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'REFERENCIAS' - SQL = - 'UPDATE REFERENCIAS'#10' SET '#10' VALOR = :VALOR'#10' WHERE'#10' (CODIGO' + - ' = :OLD_CODIGO)'#10' AND (ID_EMPRESA = :OLD_ID_EMPRESA)' - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'Update_Referencias' - end> - RelationShips = <> - UpdateRules = <> - Left = 48 - Top = 24 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 90 - end - object bpImpresiones: TDABusinessProcessor - Schema = schImpresiones - UpdateCommandName = 'Update_Referencias' - ReferencedDataset = 'Referencias' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 248 - Top = 24 - end -end diff --git a/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.pas b/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.pas deleted file mode 100644 index d3049116..00000000 --- a/Source/Modulos/Impresion/Servidor/srvImpresiones_Impl.pas +++ /dev/null @@ -1,130 +0,0 @@ -unit srvImpresiones_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:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor; - -type - { TsrvImpresiones } - TsrvImpresiones = class(TDARemoteService, IsrvImpresiones) - Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; - bpImpresiones: TDABusinessProcessor; - schImpresiones: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); - protected - { IsrvImpresiones methods } - function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean; - function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils; - -procedure Create_srvImpresiones(out anInstance : IUnknown); -begin - anInstance := TsrvImpresiones.Create(NIL); -end; - -{ srvImpresiones } -procedure TsrvImpresiones.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); -begin - ConnectionName := dmServer.ConnectionName; -end; - -procedure TsrvImpresiones.DARemoteServiceCreate(Sender: TObject); -begin - SessionManager := dmServer.SessionManager; -end; - -function TsrvImpresiones.IncrementarMarcaImpresion( - const IdMarcaImpresion: Integer): Boolean; -begin -// -end; - -function TsrvImpresiones.InsertarMarcaImpresion(const NombreTabla: String; - const IdTabla: Integer): Boolean; -begin -var - ASchema : TDASchema; - AConn : IDAConnection; - dsData: IDADataset; - - AWhere : TDAWhereExpression; - AWhereExpr1: TDAWhereExpression; - AWhereExpr2: TDAWhereExpression; -begin - Result := ''; - - { Construir la expresión del Where a partir de los parámetros - que se reciban. - } - with TDAWhereBuilder.Create do - try - AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'), - NewConstant(NombreReferencia, datString), - dboEqual); - if (EmpresaID <> -1) then - begin - AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'), - NewConstant(EmpresaID, datInteger), - dboEqual); - - AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd); - end - else - AWhere := AWhereExpr1; - finally - Free; - end; - - ASchema := schReferencias; - AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); - - try - try - dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True); - dsData.DynamicWhere.Expression := AWhere; - except - RaiseError('No existe la tabla REFERENCIAS'); - end; - - dsData.Active := True; - - if dsData.IsEmpty then - RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.'); - - Result := dsData.FieldByName('VALOR').AsString; - finally - dsData := NIL; - end; - -end; - -initialization - TROClassFactory.Create('srvImpresiones', Create_srvImpresiones, TsrvImpresiones_Invoker); - -finalization - -end.