object srvRemesasCliente: TsrvRemesasCliente OldCreateOrder = True OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schRemesasCliente ServiceAdapter = DABINAdapter OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData Height = 249 Width = 343 object Diagrams: TDADiagrams Left = 150 Top = 74 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < item Name = 'RemesasCliente_ID' DataType = datAutoInc BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'RemesasCliente_FECHA_REMESA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'RemesasCliente_DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify ServerAutoRefresh = True end item Name = 'RemesasCliente_USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'RemesasCliente_ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'RemesasCliente_ID_DATOS_BANCO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_DATOS_BANCO' Alignment = taLeftJustify end item Name = 'RemesasCliente_FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' Alignment = taLeftJustify end item Name = 'RemesasCliente_FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' Alignment = taLeftJustify end item Name = 'RemesasCliente_NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Banco' Alignment = taLeftJustify end item Name = 'RemesasCliente_ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cod. entidad' Alignment = taLeftJustify end item Name = 'RemesasCliente_SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cod. sucursal' Alignment = taLeftJustify end item Name = 'RemesasCliente_DC' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'DC' Alignment = taLeftJustify end item Name = 'RemesasCliente_CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cuenta' Alignment = taLeftJustify end item Name = 'RemesasCliente_SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Sufijo N19' Alignment = taLeftJustify end item Name = 'RemesasCliente_SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Sufijo N58' Alignment = taLeftJustify end item Name = 'RemesasCliente_Refresh_REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'REFERENCIA' Alignment = taLeftJustify ServerAutoRefresh = True end> Left = 150 Top = 22 end object schRemesasCliente: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = < item Name = 'CODIGO' DataType = datString Size = 50 BlobType = dabtUnknown Value = 'REF_REMESAS_CLIENTE' ParamType = daptInput end item Name = 'EMPRESA' BlobType = dabtUnknown Value = '1' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REFERENCIAS' SQL = 'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' + 'ESA = :EMPRESA' StatementType = stSQL ColumnMappings = < item DatasetField = 'VALOR' TableField = 'VALOR' end> end> Name = 'darReferencia' Fields = < item Name = 'VALOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' SQL = 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'ENTIDAD' TableField = 'ENTIDAD' end item DatasetField = 'SUCURSAL' TableField = 'SUCURSAL' end item DatasetField = 'DC' TableField = 'DC' end item DatasetField = 'CUENTA' TableField = 'CUENTA' end item DatasetField = 'SUFIJO_N19' TableField = 'SUFIJO_N19' end item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' end> end> Name = 'RemesasCliente' Fields = < item Name = 'ID' DataType = datAutoInc BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify ServerAutoRefresh = True InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_REMESA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_REMESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_DESCRIPCION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_DATOS_BANCO' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ENTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUCURSAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_DC' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_CUENTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUFIJO_N19' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUFIJO_N58' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '22' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' SQL = 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE'#10'W' + 'HERE ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FECHA_REMESA' TableField = 'FECHA_REMESA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' SQLOrigin = 'REMESAS_CLIENTE.ID_EMPRESA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ID_DATOS_BANCO' TableField = 'ID_DATOS_BANCO' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'ENTIDAD' TableField = 'ENTIDAD' end item DatasetField = 'SUCURSAL' TableField = 'SUCURSAL' end item DatasetField = 'DC' TableField = 'DC' end item DatasetField = 'CUENTA' TableField = 'CUENTA' end item DatasetField = 'SUFIJO_N19' TableField = 'SUFIJO_N19' end item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' end> end> Name = 'RemesasCliente_Refresh' Fields = < item Name = 'ID' DataType = datAutoInc BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify ServerAutoRefresh = True InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_REMESA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_REMESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_DESCRIPCION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_DATOS_BANCO' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify ServerAutoRefresh = True InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_ENTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUCURSAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_DC' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_CUENTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUFIJO_N19' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'RemesasCliente_SUFIJO_N58' 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 = 'CODIGO' DataType = datString Size = 50 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REFERENCIAS' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' StatementType = stSQL ColumnMappings = <> end> Name = 'ModificarReferencia' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_REMESA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_DATOS_BANCO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = 'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, FECHA_REMESA,' + ' DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_AL' + 'TA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA_R' + 'EMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BANCO' + ', :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_RemesasCliente' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = 'DELETE '#10' FROM'#10' REMESAS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_RemesasCliente' end item Params = < item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_REMESA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_DATOS_BANCO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = 'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + ' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION, ' + #10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ID_' + 'DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10' ' + ' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OL' + 'D_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_RemesasCliente' end> RelationShips = <> UpdateRules = <> Left = 48 Top = 24 end object DABINAdapter: TDABINAdapter Left = 48 Top = 72 end object bpRemesasCliente: TDABusinessProcessor Schema = schRemesasCliente InsertCommandName = 'Insert_RemesasCliente' DeleteCommandName = 'Delete_RemesasCliente' UpdateCommandName = 'Update_RemesasCliente' RefreshDatasetName = 'RemesasCliente_Refresh' ReferencedDataset = 'RemesasCliente' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 24 end end