object srvRemesasCliente: TsrvRemesasCliente
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schRemesasCliente
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData
  Height = 249
  Width = 343
  object Diagrams: TDADiagrams
    Left = 150
    Top = 74
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'RemesasCliente_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID'
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_REFERENCIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'REFERENCIA'
        Alignment = taLeftJustify
        ServerAutoRefresh = True
      end
      item
        Name = 'RemesasCliente_FECHA_REMESA'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_TITULAR'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_ENTIDAD'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_SUCURSAL'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_DC'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_CUENTA'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'RemesasCliente_DESCRIPCION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      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_IMPORTE_TOTAL'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taRightJustify
      end
      item
        Name = 'RemesasCliente_Refresh_IMPORTE_TOTAL'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end>
    Left = 150
    Top = 22
  end
  object schRemesasCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'CODIGO'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMPRESA'
            BlobType = dabtUnknown
            Value = ''
            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 = 'REMESAS_CLIENTE'
            SQL = 
              'SELECT '#10'    ID, ID_EMPRESA, REFERENCIA, FECHA_REMESA, TITULAR, E' +
              'NTIDAD, SUCURSAL,'#10'    DC, CUENTA, DESCRIPCION, USUARIO, IMPORTE_' +
              'TOTAL'#10'  FROM'#10'    REMESAS_CLIENTE'
            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 = 'TITULAR'
                TableField = 'TITULAR'
              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 = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'RemesasCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            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
            DictionaryEntry = 'RemesasCliente_REFERENCIA'
            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 = 'TITULAR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'RemesasCliente_TITULAR'
            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 = '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 = 'IMPORTE_TOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
            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 = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_CLIENTE'
            SQL = 
              'SELECT '#10'    ID, ID_EMPRESA, REFERENCIA, FECHA_REMESA, TITULAR, E' +
              'NTIDAD, SUCURSAL,'#10'    DC, CUENTA, DESCRIPCION, USUARIO, IMPORTE_' +
              'TOTAL'#10'FROM REMESAS_CLIENTE'#10'WHERE 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 = 'TITULAR'
                TableField = 'TITULAR'
              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 = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'RemesasCliente_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            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
            DictionaryEntry = 'RemesasCliente_REFERENCIA'
            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 = 'TITULAR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'RemesasCliente_TITULAR'
            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 = '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 = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'RemesasCliente_Refresh_IMPORTE_TOTAL'
            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>
    RelationShips = <>
    UpdateRules = <>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
  object bpRemesasCliente: TDABusinessProcessor
    Schema = schRemesasCliente
    RefreshDatasetName = 'RemesasCliente_Refresh'
    ReferencedDataset = 'RemesasCliente'
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 24
  end
end