object srvRemesasProveedor: TsrvRemesasProveedor
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schRemesasProveedor
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  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
        GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID'
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      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 = 'RemesasProveedor_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'REFERENCIA'
        ServerAutoRefresh = True
      end
      item
        Name = 'RemesasProveedor_TIPO'
        DataType = datString
        Size = 40
        DisplayLabel = 'Forma de pago'
      end
      item
        Name = 'RemesasProveedor_IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        ServerAutoRefresh = True
      end>
    Left = 150
    Top = 22
  end
  object schRemesasProveedor: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHA_REMESA, 1,4)) as A' +
              'NO'#10'from remesas_proveedor'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select di' +
              'stinct '#39'Todos'#39' as ANO'#10'from empresas'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosRemesas'
        Fields = <
          item
            Name = 'ANO'
            DataType = datString
            Size = 254
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_REMESAS_PROVEEDOR'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'FECHA_REMESA'
                TableField = 'FECHA_REMESA'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              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 = 'USUARIO'
                TableField = 'USUARIO'
              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 = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'RemesasProveedor'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID'
            ServerAutoRefresh = True
            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 = 'RemesasProveedor_REFERENCIA'
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 40
            DictionaryEntry = 'RemesasProveedor_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 = '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 = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'RemesasCliente_USUARIO'
          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
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_REMESAS_PROVEEDOR_ID'
            Value = ''
          end
          item
            Name = 'REFERENCIA'
            Value = ''
          end
          item
            Name = 'TIPO'
            Value = ''
          end
          item
            Name = 'FECHA_REMESA'
            Value = ''
          end
          item
            Name = 'DESCRIPCION'
            Value = ''
          end
          item
            Name = 'USUARIO'
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            Value = ''
          end
          item
            Name = 'ID_DATOS_BANCO'
            Value = ''
          end
          item
            Name = 'FECHA_ALTA'
            Value = ''
          end
          item
            Name = 'FECHA_MODIFICACION'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_PROVEEDOR'
            SQL = 
              'INSERT'#10'  INTO REMESAS_PROVEEDOR'#10'    (ID, REFERENCIA, TIPO, FECHA' +
              '_REMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10'     ID_DATOS_BANCO, ' +
              'FECHA_ALTA, FECHA_MODIFICACION)'#10'  VALUES'#10'    (:ID, :REFERENCIA, ' +
              ':TIPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10'     :ID_EMPRESA, ' +
              ':ID_DATOS_BANCO, :FECHA_ALTA,'#10'     :FECHA_MODIFICACION)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_RemesasProveedor'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_PROVEEDOR'
            SQL = 'DELETE '#10'  FROM'#10'    REMESAS_PROVEEDOR'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_RemesasProveedor'
      end
      item
        Params = <
          item
            Name = 'ID'
            Value = ''
          end
          item
            Name = 'REFERENCIA'
            Value = ''
          end
          item
            Name = 'TIPO'
            Value = ''
          end
          item
            Name = 'FECHA_REMESA'
            Value = ''
          end
          item
            Name = 'DESCRIPCION'
            Value = ''
          end
          item
            Name = 'USUARIO'
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            Value = ''
          end
          item
            Name = 'ID_DATOS_BANCO'
            Value = ''
          end
          item
            Name = 'FECHA_ALTA'
            Value = ''
          end
          item
            Name = 'FECHA_MODIFICACION'
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REMESAS_PROVEEDOR'
            SQL = 
              'UPDATE REMESAS_PROVEEDOR'#10'  SET '#10'    ID = :ID,'#10'    REFERENCIA = :' +
              'REFERENCIA, '#10'    TIPO = :TIPO,'#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 = :OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_RemesasProveedor'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 48
    Top = 24
  end
  object bpRemesasProveedor: TDABusinessProcessor
    Schema = schRemesasProveedor
    InsertCommandName = 'Insert_RemesasProveedor'
    DeleteCommandName = 'Delete_RemesasProveedor'
    UpdateCommandName = 'Update_RemesasProveedor'
    ReferencedDataset = 'RemesasProveedor'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 88
  end
end
