object srvCobrosCliente: TsrvCobrosCliente
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schCobrosCliente
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData
  Height = 300
  Width = 300
  object Diagrams: TDADiagrams
    Left = 150
    Top = 74
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'CobrosCliente_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        Required = True
        DisplayWidth = 0
        DisplayLabel = 'ID'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_ID_EMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_EMPRESA'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_ID_CLIENTE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_CLIENTE'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_ID_MONTAJE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_MONTAJE'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_FECHA_PAGO'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Fecha de pago'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_DESCRIPCION'
        DataType = datString
        Size = 2000
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Descripci'#243'n'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_IMPORTE'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Importe'
        Alignment = taRightJustify
      end
      item
        Name = 'CobrosCliente_FORMA_PAGO'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Forma de pago'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_NOMBRE'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Nombre'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_FECHA_COBRO'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Fecha de cobro'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_FECHA_ALTA'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FECHA_ALTA'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_FECHA_MODIFICACION'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FECHA_MODIFICACION'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_USUARIO'
        DataType = datString
        Size = 20
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'USUARIO'
        Alignment = taLeftJustify
      end
      item
        Name = 'CobrosCliente_REFERENCIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Referencia'
        Alignment = taLeftJustify
        ServerAutoRefresh = True
      end>
    Left = 150
    Top = 22
  end
  object schCobrosCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            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 = 'COBROS'
            SQL = 
              'SELECT COBROS.ID, COBROS.ID_EMPRESA, COBROS.ID_CLIENTE, COBROS.I' +
              'D_MONTAJE,'#10'       COBROS.REFERENCIA, COBROS.FECHA_COBRO, COBROS.' +
              'DESCRIPCION, COBROS.IMPORTE,'#10'       COBROS.FORMA_PAGO, COBROS.FE' +
              'CHA_ALTA, COBROS.FECHA_MODIFICACION,'#10'       COBROS.USUARIO, CONT' +
              'ACTOS.NOMBRE'#10#10'FROM COBROS'#10'LEFT JOIN CONTACTOS ON COBROS.ID_CLIEN' +
              'TE = CONTACTOS.ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
                SQLOrigin = 'CONTACTOS.NOMBRE'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
                SQLOrigin = 'COBROS.ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
                SQLOrigin = 'COBROS.ID_EMPRESA'
              end
              item
                DatasetField = 'FORMA_PAGO'
                TableField = 'FORMA_PAGO'
                SQLOrigin = 'COBROS.FORMA_PAGO'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
                SQLOrigin = 'COBROS.ID_CLIENTE'
              end
              item
                DatasetField = 'ID_MONTAJE'
                TableField = 'ID_MONTAJE'
                SQLOrigin = 'COBROS.ID_MONTAJE'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
                SQLOrigin = 'COBROS.DESCRIPCION'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
                SQLOrigin = 'COBROS.IMPORTE'
              end
              item
                DatasetField = 'FECHA_COBRO'
                TableField = 'FECHA_COBRO'
                SQLOrigin = 'COBROS.FECHA_COBRO'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
                SQLOrigin = 'COBROS.FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
                SQLOrigin = 'COBROS.FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
                SQLOrigin = 'COBROS.USUARIO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
                SQLOrigin = 'COBROS.REFERENCIA'
              end>
          end>
        Name = 'CobrosCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_ID_EMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_ID_CLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_ID_MONTAJE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_COBRO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_FECHA_COBRO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_IMPORTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_FORMA_PAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_FECHA_ALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_FECHA_MODIFICACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'CobrosCliente_NOMBRE'
            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 = 'COBROS'
            SQL = 
              'SELECT COBROS.ID, COBROS.ID_EMPRESA, COBROS.ID_CLIENTE, COBROS.I' +
              'D_MONTAJE,'#10'       COBROS.REFERENCIA, COBROS.FECHA_COBRO, COBROS.' +
              'DESCRIPCION, COBROS.IMPORTE,'#10'       COBROS.FORMA_PAGO, COBROS.FE' +
              'CHA_ALTA, COBROS.FECHA_MODIFICACION,'#10'       COBROS.USUARIO, CONT' +
              'ACTOS.NOMBRE'#10#10'FROM COBROS'#10'LEFT JOIN CONTACTOS ON COBROS.ID_CLIEN' +
              'TE = CONTACTOS.ID'#10'WHERE COBROS.ID = :ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'FORMA_PAGO'
                TableField = 'FORMA_PAGO'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              end
              item
                DatasetField = 'ID_MONTAJE'
                TableField = 'ID_MONTAJE'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
              end
              item
                DatasetField = 'FECHA_COBRO'
                TableField = 'FECHA_COBRO'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end>
          end>
        Name = 'CobrosCliente_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_COBRO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            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>
    Commands = <
      item
        Params = <
          item
            Name = 'VALOR'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end
          item
            Name = 'CODIGO'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end
          item
            Name = 'EMPRESA'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'UPDATE REFERENCIAS'#10'SET VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO'#10'AND' +
              ' ID_EMPRESA = :EMPRESA'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'ModificarReferencia'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_COBRO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            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 = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COBROS'
            SQL = 
              'INSERT'#10'  INTO COBROS'#10'    (ID, ID_EMPRESA, FORMA_PAGO, ID_CLIENTE' +
              ', ID_MONTAJE, REFERENCIA, FECHA_COBRO,'#10'     DESCRIPCION, IMPORTE' +
              ', FECHA_ALTA, FECHA_MODIFICACION, USUARIO)'#10'  VALUES'#10'    (:ID, :I' +
              'D_EMPRESA, :FORMA_PAGO, :ID_CLIENTE, :ID_MONTAJE, :REFERENCIA,'#10' ' +
              '    :FECHA_COBRO, :DESCRIPCION, :IMPORTE, :FECHA_ALTA, :FECHA_MO' +
              'DIFICACION, :USUARIO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_CobrosCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COBROS'
            SQL = 'DELETE '#10'  FROM'#10'    COBROS'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_CobrosCliente'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_COBRO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            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 = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COBROS'
            SQL = 
              'UPDATE COBROS'#10'  SET '#10'    ID = :ID,'#10'    ID_EMPRESA = :ID_EMPRESA,' +
              ' '#10'    FORMA_PAGO = :FORMA_PAGO, '#10'    ID_CLIENTE = :ID_CLIENTE, '#10 +
              '    ID_MONTAJE = :ID_MONTAJE, '#10'    REFERENCIA = :REFERENCIA,'#10'   ' +
              ' FECHA_COBRO = :FECHA_COBRO,'#10'    DESCRIPCION = :DESCRIPCION, '#10'  ' +
              '  IMPORTE = :IMPORTE,'#10'    FECHA_ALTA = :FECHA_ALTA,'#10'    FECHA_MO' +
              'DIFICACION = :FECHA_MODIFICACION,'#10'    USUARIO = :USUARIO'#10'  WHERE' +
              #10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_CobrosCliente'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
  object bpCobros: TDABusinessProcessor
    Schema = schCobrosCliente
    InsertCommandName = 'Insert_CobrosCliente'
    DeleteCommandName = 'Delete_CobrosCliente'
    UpdateCommandName = 'Update_CobrosCliente'
    RefreshDatasetName = 'CobrosCliente_Refresh'
    ReferencedDataset = 'CobrosCliente'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 240
    Top = 23
  end
end