object srvRemesasCliente: TsrvRemesasCliente
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schRemesasCliente
  ServiceAdapter = DABINAdapter
  OnAfterProcessTransactionAction = pptaNone
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData
  ExportedDataTables = <>
  CacheElements = <>
  Options = [rsoProcessDeltasWithoutUpdateRules]
  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 = datAutoInc
        DisplayLabel = 'ID'
      end
      item
        Name = 'RemesasCliente_FECHA_REMESA'
        DataType = datDateTime
      end
      item
        Name = 'RemesasCliente_DESCRIPCION'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'RemesasCliente_USUARIO'
        DataType = datString
        Size = 20
      end
      item
        Name = 'RemesasCliente_ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'RemesasCliente_ID_DATOS_BANCO'
        DataType = datInteger
        DisplayLabel = 'ID_DATOS_BANCO'
      end
      item
        Name = 'RemesasCliente_FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'FECHA_ALTA'
      end
      item
        Name = 'RemesasCliente_FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'FECHA_MODIFICACION'
      end
      item
        Name = 'RemesasCliente_NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Banco'
      end
      item
        Name = 'RemesasCliente_ENTIDAD'
        DataType = datString
        Size = 15
        DisplayLabel = 'Cod. entidad'
      end
      item
        Name = 'RemesasCliente_SUCURSAL'
        DataType = datString
        Size = 15
        DisplayLabel = 'Cod. sucursal'
      end
      item
        Name = 'RemesasCliente_DC'
        DataType = datString
        Size = 15
        DisplayLabel = 'DC'
      end
      item
        Name = 'RemesasCliente_CUENTA'
        DataType = datString
        Size = 15
        DisplayLabel = 'Cuenta'
      end
      item
        Name = 'RemesasCliente_SUFIJO_N19'
        DataType = datString
        Size = 3
        DisplayLabel = 'Sufijo N19'
      end
      item
        Name = 'RemesasCliente_SUFIJO_N58'
        DataType = datString
        Size = 3
        DisplayLabel = 'Sufijo N58'
      end
      item
        Name = 'RemesasCliente_Refresh_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'REFERENCIA'
        ServerAutoRefresh = True
      end
      item
        Name = 'RemesasCliente_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'REFERENCIA'
        ServerAutoRefresh = True
      end
      item
        Name = 'RemesasCliente_TIPO'
        DataType = datString
        Size = 40
        DisplayLabel = 'Forma de cobro'
      end
      item
        Name = 'RemesasCliente_IMPORTE_TOTAL'
        DataType = datFloat
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        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
            Value = 'REF_REMESAS_CLIENTE'
            ParamType = daptInput
          end
          item
            Name = 'EMPRESA'
            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
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_REMESAS_CLIENTE'
            SQL = 
              'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
              #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
              'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_C' +
              'LIENTE'
            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
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end>
          end>
        Name = 'RemesasCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            DictionaryEntry = 'RemesasCliente_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'RemesasCliente_ID_EMPRESA'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RemesasCliente_REFERENCIA'
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 40
            DictionaryEntry = 'RemesasCliente_TIPO'
          end
          item
            Name = 'FECHA_REMESA'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_REMESA'
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RemesasCliente_DESCRIPCION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'RemesasCliente_USUARIO'
          end
          item
            Name = 'ID_DATOS_BANCO'
            DataType = datInteger
            DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION'
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RemesasCliente_NOMBRE'
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_ENTIDAD'
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_SUCURSAL'
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_DC'
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_CUENTA'
          end
          item
            Name = 'SUFIJO_N19'
            DataType = datString
            Size = 3
            DictionaryEntry = 'RemesasCliente_SUFIJO_N19'
          end
          item
            Name = 'SUFIJO_N58'
            DataType = datString
            Size = 3
            DictionaryEntry = 'RemesasCliente_SUFIJO_N58'
          end>
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            Value = '22'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_REMESAS_CLIENTE'
            SQL = 
              'SELECT'#10'  ID,'#10'  ID_EMPRESA,'#10'  REFERENCIA,'#10'  TIPO,'#10'  FECHA_REMESA,' +
              #10'  DESCRIPCION,'#10'  ID_DATOS_BANCO,'#10'  FECHA_ALTA,'#10'  FECHA_MODIFICA' +
              'CION,'#10'  USUARIO,'#10'  NOMBRE,'#10'  ENTIDAD,'#10'  SUCURSAL,'#10'  DC,'#10'  CUENTA' +
              ','#10'  SUFIJO_N19,'#10'  SUFIJO_N58,'#10'  IMPORTE_TOTAL'#10'FROM'#10'  V_REMESAS_C' +
              'LIENTE'#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 = '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
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end>
          end>
        Name = 'RemesasCliente_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            DictionaryEntry = 'RemesasCliente_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'RemesasCliente_ID_EMPRESA'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            ServerAutoRefresh = True
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 40
            DictionaryEntry = 'RemesasCliente_TIPO'
          end
          item
            Name = 'FECHA_REMESA'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_REMESA'
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RemesasCliente_DESCRIPCION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'RemesasCliente_USUARIO'
          end
          item
            Name = 'ID_DATOS_BANCO'
            DataType = datInteger
            DictionaryEntry = 'RemesasCliente_ID_DATOS_BANCO'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'RemesasCliente_FECHA_MODIFICACION'
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            DisplayLabel = 'Importe total'
            Alignment = taRightJustify
            ServerAutoRefresh = True
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RemesasCliente_NOMBRE'
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_ENTIDAD'
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_SUCURSAL'
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_DC'
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RemesasCliente_CUENTA'
          end
          item
            Name = 'SUFIJO_N19'
            DataType = datString
            Size = 3
            DictionaryEntry = 'RemesasCliente_SUFIJO_N19'
          end
          item
            Name = 'SUFIJO_N58'
            DataType = datString
            Size = 3
            DictionaryEntry = 'RemesasCliente_SUFIJO_N58'
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'VALOR'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            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
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 40
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_REMESA'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_DATOS_BANCO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_CLIENTE'
            SQL = 
              'INSERT'#10'  INTO REMESAS_CLIENTE'#10'    (ID, REFERENCIA, TIPO, FECHA_R' +
              'EMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10'     ID_DATOS_BANCO, FE' +
              'CHA_ALTA, FECHA_MODIFICACION)'#10'  VALUES'#10'    (:ID, :REFERENCIA, :T' +
              'IPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10'     :ID_EMPRESA, :I' +
              'D_DATOS_BANCO, :FECHA_ALTA,'#10'     :FECHA_MODIFICACION)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_RemesasCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            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
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 40
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_REMESA'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_DATOS_BANCO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_CLIENTE'
            SQL = 
              'UPDATE REMESAS_CLIENTE'#10'  SET '#10'    REFERENCIA = :REFERENCIA, '#10'   ' +
              ' TIPO = :TIPO,'#10'    FECHA_REMESA = :FECHA_REMESA, '#10'    DESCRIPCIO' +
              'N = :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'  W' +
              'HERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_RemesasCliente'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    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