object srvRecibosCliente: TsrvRecibosCliente
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schRecibosCliente
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Height = 247
  Width = 347
  object schRecibosCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DADataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHA_EMISION, 1,4)) as ' +
              'ANO'#10'from recibos_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dis' +
              'tinct '#39'Todos'#39' as ANO'#10'from empresas'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosRecibos'
        Fields = <
          item
            Name = 'ANO'
            DataType = datString
            Size = 254
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_RECIBOS_CLIENTE'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_RECIBO_COMPENSADO'
                TableField = 'ID_RECIBO_COMPENSADO'
              end
              item
                DatasetField = 'REFERENCIA_REC_COMPENSADO'
                TableField = 'REFERENCIA_REC_COMPENSADO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'ID_FACTURA'
                TableField = 'ID_FACTURA'
              end
              item
                DatasetField = 'ID_REMESA'
                TableField = 'ID_REMESA'
              end
              item
                DatasetField = 'REFERENCIA_REMESA'
                TableField = 'REFERENCIA_REMESA'
              end
              item
                DatasetField = 'FECHA_EMISION'
                TableField = 'FECHA_EMISION'
              end
              item
                DatasetField = 'FECHA_VENCIMIENTO'
                TableField = 'FECHA_VENCIMIENTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
              end
              item
                DatasetField = 'OTROS_GASTOS'
                TableField = 'OTROS_GASTOS'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'FECHA_FACTURA'
                TableField = 'FECHA_FACTURA'
              end
              item
                DatasetField = 'FORMA_PAGO_FACTURA'
                TableField = 'FORMA_PAGO_FACTURA'
              end
              item
                DatasetField = 'IMPORTE_FACTURA'
                TableField = 'IMPORTE_FACTURA'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'DATOS_BANCARIOS'
                TableField = 'DATOS_BANCARIOS'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              end
              item
                DatasetField = 'NOMBRE_CLIENTE'
                TableField = 'NOMBRE_CLIENTE'
              end
              item
                DatasetField = 'NIF_CIF_CLIENTE'
                TableField = 'NIF_CIF_CLIENTE'
              end
              item
                DatasetField = 'CALLE_CLIENTE'
                TableField = 'CALLE_CLIENTE'
              end
              item
                DatasetField = 'POBLACION_CLIENTE'
                TableField = 'POBLACION_CLIENTE'
              end
              item
                DatasetField = 'CODIGO_POSTAL_CLIENTE'
                TableField = 'CODIGO_POSTAL_CLIENTE'
              end
              item
                DatasetField = 'PROVINCIA_CLIENTE'
                TableField = 'PROVINCIA_CLIENTE'
              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 = 'RecibosCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'RecibosCliente_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_RECIBO_COMPENSADO'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA_REC_COMPENSADO'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_REFERENCIA'
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 9
            DictionaryEntry = 'RecibosCliente_SITUACION'
          end
          item
            Name = 'ID_FACTURA'
            DataType = datInteger
            DictionaryEntry = 'RecibosCliente_ID_FACTURA'
          end
          item
            Name = 'ID_REMESA'
            DataType = datInteger
            DictionaryEntry = 'RecibosCliente_ID_REMESA'
          end
          item
            Name = 'REFERENCIA_REMESA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
          end
          item
            Name = 'FECHA_EMISION'
            DataType = datDateTime
            DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
          end
          item
            Name = 'FECHA_VENCIMIENTO'
            DataType = datDateTime
            DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_DESCRIPCION'
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
          end
          item
            Name = 'IMPORTE'
            DataType = datCurrency
            DictionaryEntry = 'RecibosCliente_IMPORTE'
          end
          item
            Name = 'OTROS_GASTOS'
            DataType = datCurrency
            DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
          end
          item
            Name = 'FECHA_FACTURA'
            DataType = datDateTime
            DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
          end
          item
            Name = 'FORMA_PAGO_FACTURA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
          end
          item
            Name = 'IMPORTE_FACTURA'
            DataType = datCurrency
            DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
          end
          item
            Name = 'DATOS_BANCARIOS'
            DataType = datString
            Size = 255
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
          end
          item
            Name = 'NOMBRE_CLIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
          end
          item
            Name = 'NIF_CIF_CLIENTE'
            DataType = datString
            Size = 15
            DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
          end
          item
            Name = 'CALLE_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'POBLACION_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL_CLIENTE'
            DataType = datString
            Size = 10
          end
          item
            Name = 'PROVINCIA_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'RecibosCliente_USUARIO'
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'PAGOS_CLIENTE'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_RECIBO'
                TableField = 'ID_RECIBO'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'FECHA_PAGO'
                TableField = 'FECHA_PAGO'
              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 = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end>
          end>
        Name = 'PagosCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'PagosCliente_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_RECIBO'
            DataType = datInteger
            DictionaryEntry = 'PagosCliente_ID_RECIBO'
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'PagosCliente_TIPO'
          end
          item
            Name = 'FECHA_PAGO'
            DataType = datDateTime
            DictionaryEntry = 'PagosCliente_FECHA_PAGO'
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            DictionaryEntry = 'PagosCliente_TITULAR'
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            DictionaryEntry = 'PagosCliente_ENTIDAD'
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            DictionaryEntry = 'PagosCliente_SUCURSAL'
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            DictionaryEntry = 'PagosCliente_DC'
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            DictionaryEntry = 'PagosCliente_CUENTA'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'PagosCliente_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'PagosCliente_USUARIO'
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_RECIBOS_CLIENTE'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_RECIBO_COMPENSADO'
                TableField = 'ID_RECIBO_COMPENSADO'
              end
              item
                DatasetField = 'REFERENCIA_REC_COMPENSADO'
                TableField = 'REFERENCIA_REC_COMPENSADO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'ID_FACTURA'
                TableField = 'ID_FACTURA'
              end
              item
                DatasetField = 'ID_REMESA'
                TableField = 'ID_REMESA'
              end
              item
                DatasetField = 'REFERENCIA_REMESA'
                TableField = 'REFERENCIA_REMESA'
              end
              item
                DatasetField = 'FECHA_EMISION'
                TableField = 'FECHA_EMISION'
              end
              item
                DatasetField = 'FECHA_VENCIMIENTO'
                TableField = 'FECHA_VENCIMIENTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
              end
              item
                DatasetField = 'OTROS_GASTOS'
                TableField = 'OTROS_GASTOS'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'FECHA_FACTURA'
                TableField = 'FECHA_FACTURA'
              end
              item
                DatasetField = 'FORMA_PAGO_FACTURA'
                TableField = 'FORMA_PAGO_FACTURA'
              end
              item
                DatasetField = 'IMPORTE_FACTURA'
                TableField = 'IMPORTE_FACTURA'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'DATOS_BANCARIOS'
                TableField = 'DATOS_BANCARIOS'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              end
              item
                DatasetField = 'NOMBRE_CLIENTE'
                TableField = 'NOMBRE_CLIENTE'
              end
              item
                DatasetField = 'NIF_CIF_CLIENTE'
                TableField = 'NIF_CIF_CLIENTE'
              end
              item
                DatasetField = 'CALLE_CLIENTE'
                TableField = 'CALLE_CLIENTE'
              end
              item
                DatasetField = 'POBLACION_CLIENTE'
                TableField = 'POBLACION_CLIENTE'
              end
              item
                DatasetField = 'CODIGO_POSTAL_CLIENTE'
                TableField = 'CODIGO_POSTAL_CLIENTE'
              end
              item
                DatasetField = 'PROVINCIA_CLIENTE'
                TableField = 'PROVINCIA_CLIENTE'
              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 = 'RecibosCompensadosCli'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            InPrimaryKey = True
          end
          item
            Name = 'ID_RECIBO_COMPENSADO'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA_REC_COMPENSADO'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 9
          end
          item
            Name = 'ID_FACTURA'
            DataType = datInteger
          end
          item
            Name = 'ID_REMESA'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA_REMESA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_EMISION'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_VENCIMIENTO'
            DataType = datDateTime
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datString
            Size = 255
          end
          item
            Name = 'IMPORTE'
            DataType = datCurrency
          end
          item
            Name = 'OTROS_GASTOS'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end
          item
            Name = 'FECHA_FACTURA'
            DataType = datDateTime
          end
          item
            Name = 'FORMA_PAGO_FACTURA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'IMPORTE_FACTURA'
            DataType = datCurrency
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'DATOS_BANCARIOS'
            DataType = datString
            Size = 255
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
          end
          item
            Name = 'NOMBRE_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'NIF_CIF_CLIENTE'
            DataType = datString
            Size = 15
          end
          item
            Name = 'CALLE_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'POBLACION_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL_CLIENTE'
            DataType = datString
            Size = 10
          end
          item
            Name = 'PROVINCIA_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 30
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_FACTURA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_EMISION'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_VENCIMIENTO'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OTROS_GASTOS'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 
              'INSERT'#10'  INTO RECIBOS_CLIENTE'#10'    (ID, ID_FACTURA, REFERENCIA, F' +
              'ECHA_EMISION, FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10'   ' +
              ' IMPORTE, OTROS_GASTOS, USUARIO)'#10'  VALUES'#10'    (:ID, :ID_FACTURA,' +
              ' :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
              ':OBSERVACIONES,'#10'    :IMPORTE, :OTROS_GASTOS, :USUARIO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_RecibosCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 'DELETE '#10'  FROM'#10'    RECIBOS_CLIENTE'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_RecibosCliente'
      end
      item
        Params = <
          item
            Name = 'ID_REMESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_EMISION'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_VENCIMIENTO'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OTROS_GASTOS'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 
              'UPDATE Recibos_CLIENTE'#10'  SET '#10'    ID_REMESA = :ID_REMESA,'#10'    FE' +
              'CHA_EMISION = :FECHA_EMISION,'#10'    FECHA_VENCIMIENTO = :FECHA_VEN' +
              'CIMIENTO,'#10'    DESCRIPCION = :DESCRIPCION,'#10'    OBSERVACIONES = :O' +
              'BSERVACIONES,'#10'    IMPORTE = :IMPORTE,'#10'    OTROS_GASTOS = :OTROS_' +
              'GASTOS,'#10'    USUARIO = :USUARIO'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_RecibosCliente'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_RECIBO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_PAGO'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PAGOS_CLIENTE'
            SQL = 
              'INSERT'#10'  INTO PAGOS_CLIENTE'#10'    (ID, ID_RECIBO, TIPO, FECHA_PAGO' +
              ', TITULAR, ENTIDAD, '#10'     SUCURSAL, DC, CUENTA, USUARIO)'#10'  VALUE' +
              'S'#10'    (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD, ' +
              #10'     :SUCURSAL, :DC, :CUENTA, :USUARIO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_PagosCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PAGOS_CLIENTE'
            SQL = 'DELETE '#10'  FROM'#10'    PAGOS_CLIENTE'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_PagosCliente'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_RECIBO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_PAGO'
            DataType = datDateTime
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PAGOS_CLIENTE'
            SQL = 
              'UPDATE PAGOS_CLIENTE'#10'  SET '#10'    ID = :ID, '#10'    ID_RECIBO = :ID_R' +
              'ECIBO, '#10'    TIPO = :TIPO, '#10'    FECHA_PAGO = :FECHA_PAGO, '#10'    TI' +
              'TULAR = :TITULAR, '#10'    ENTIDAD = :ENTIDAD, '#10'    SUCURSAL = :SUCU' +
              'RSAL, '#10'    DC = :DC, '#10'    CUENTA = :CUENTA'#10'  WHERE'#10'    (ID = :OL' +
              'D_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_PagosCliente'
      end
      item
        Params = <
          item
            Name = 'ID_RECIBO_COMPENSADO'
            Value = ''
          end
          item
            Name = 'ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 
              'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
              'PENSADO'#10'WHERE (ID = :ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_RecibosCompensadosCli'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 
              'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = Null'#10'WHERE (ID' +
              ' = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_RecibosCompensadosCli'
      end
      item
        Params = <
          item
            Name = 'ID_RECIBO_COMPENSADO'
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'RECIBOS_CLIENTE'
            SQL = 
              'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
              'PENSADO'#10'WHERE (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_RecibosCompensadosCli'
      end>
    RelationShips = <
      item
        Name = 'FK_RecibosCompensados'
        MasterDatasetName = 'RecibosCliente'
        MasterFields = 'ID'
        DetailDatasetName = 'RecibosCompensadosCli'
        DetailFields = 'ID_RECIBO_COMPENSADO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_PagosCliente'
        MasterDatasetName = 'RecibosCliente'
        MasterFields = 'ID'
        DetailDatasetName = 'PagosCliente'
        DetailFields = 'ID_RECIBO'
        RelationshipType = rtForeignKey
      end>
    UpdateRules = <
      item
        Name = 'Insert RecibosCliente'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'RecibosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert PagosCliente'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'PagosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update RecibosCliente'
        DoInsert = False
        DoDelete = False
        DatasetName = 'RecibosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update PagosCliente'
        DoInsert = False
        DoDelete = False
        DatasetName = 'PagosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete PagosCliente'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'PagosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete RecibosCliente'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'RecibosCliente'
        FailureBehavior = fbRaiseException
      end>
    Version = 0
    Left = 48
    Top = 24
  end
  object bpRecibosCliente: TDABusinessProcessor
    Schema = schRecibosCliente
    InsertCommandName = 'Insert_RecibosCliente'
    DeleteCommandName = 'Delete_RecibosCliente'
    UpdateCommandName = 'Update_RecibosCliente'
    ReferencedDataset = 'RecibosCliente'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 192
    Top = 24
  end
  object DADataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'RecibosCliente_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'RecibosCliente_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'REFERENCIA'
      end
      item
        Name = 'RecibosCliente_SITUACION'
        DataType = datString
        Size = 9
        DisplayLabel = 'SITUACION'
      end
      item
        Name = 'RecibosCliente_ID_FACTURA'
        DataType = datInteger
        DisplayLabel = 'ID_FACTURA'
      end
      item
        Name = 'RecibosCliente_FECHA_VENCIMIENTO'
        DataType = datDateTime
        DisplayLabel = 'FECHA_VENCIMIENTO'
      end
      item
        Name = 'RecibosCliente_DESCRIPCION'
        DataType = datString
        Size = 255
        DisplayLabel = 'DESCRIPCION'
      end
      item
        Name = 'RecibosCliente_OBSERVACIONES'
        DataType = datString
        Size = 255
        DisplayLabel = 'OBSERVACIONES'
      end
      item
        Name = 'RecibosCliente_IMPORTE'
        DataType = datCurrency
        DisplayLabel = 'IMPORTE'
        Alignment = taRightJustify
      end
      item
        Name = 'RecibosCliente_FECHA_FACTURA'
        DataType = datDateTime
        DisplayLabel = 'FECHA_FACTURA'
      end
      item
        Name = 'RecibosCliente_FORMA_PAGO_FACTURA'
        DataType = datString
        Size = 255
        DisplayLabel = 'FORMA_PAGO_FACTURA'
      end
      item
        Name = 'RecibosCliente_IMPORTE_FACTURA'
        DataType = datCurrency
        DisplayLabel = 'IMPORTE_FACTURA'
        Alignment = taRightJustify
      end
      item
        Name = 'RecibosCliente_NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'NOMBRE_CLIENTE'
      end
      item
        Name = 'RecibosCliente_NIF_CIF_CLIENTE'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF_CIF_CLIENTE'
      end
      item
        Name = 'RecibosCliente_ENTIDAD_CLIENTE'
        DataType = datString
        Size = 15
        DisplayLabel = 'ENTIDAD_CLIENTE'
      end
      item
        Name = 'RecibosCliente_SUCURSAL_CLIENTE'
        DataType = datString
        Size = 15
        DisplayLabel = 'SUCURSAL_CLIENTE'
      end
      item
        Name = 'RecibosCliente_DC_CLIENTE'
        DataType = datString
        Size = 15
        DisplayLabel = 'DC_CLIENTE'
      end
      item
        Name = 'RecibosCliente_CUENTA_CLIENTE'
        DataType = datString
        Size = 15
        DisplayLabel = 'CUENTA_CLIENTE'
      end
      item
        Name = 'RecibosCliente_ID_EMPRESA'
        DataType = datInteger
        DisplayLabel = 'ID_EMPRESA'
      end
      item
        Name = 'RecibosCliente_FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'FECHA_ALTA'
      end
      item
        Name = 'RecibosCliente_FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'FECHA_MODIFICACION'
      end
      item
        Name = 'RecibosCliente_USUARIO'
        DataType = datString
        Size = 20
        DisplayLabel = 'USUARIO'
      end
      item
        Name = 'PagosCliente_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'PagosCliente_ID_RECIBO'
        DataType = datInteger
      end
      item
        Name = 'PagosCliente_TIPO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PagosCliente_FECHA_PAGO'
        DataType = datDateTime
      end
      item
        Name = 'PagosCliente_TITULAR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PagosCliente_ENTIDAD'
        DataType = datString
        Size = 15
      end
      item
        Name = 'PagosCliente_SUCURSAL'
        DataType = datString
        Size = 15
      end
      item
        Name = 'PagosCliente_DC'
        DataType = datString
        Size = 15
      end
      item
        Name = 'PagosCliente_CUENTA'
        DataType = datString
        Size = 15
      end
      item
        Name = 'PagosCliente_FECHA_ALTA'
        DataType = datDateTime
      end
      item
        Name = 'PagosCliente_FECHA_MODIFICACION'
        DataType = datDateTime
      end
      item
        Name = 'PagosCliente_USUARIO'
        DataType = datString
        Size = 20
      end
      item
        Name = 'RecibosCliente_ID_REMESA'
        DataType = datInteger
      end
      item
        Name = 'RecibosCliente_REFERENCIA_REMESA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'RecibosCliente_OTROS_GASTOS'
        DataType = datCurrency
        Alignment = taRightJustify
      end
      item
        Name = 'RecibosCliente_IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'IMPORTE_TOTAL'
        Alignment = taRightJustify
      end
      item
        Name = 'RecibosCliente_ID_CLIENTE'
        DataType = datInteger
        DisplayLabel = 'ID_CLIENTE'
      end
      item
        Name = 'RecibosCliente_FECHA_EMISION'
        DataType = datDateTime
      end>
    Left = 48
    Top = 152
  end
  object bpPagosCliente: TDABusinessProcessor
    Schema = schRecibosCliente
    InsertCommandName = 'Insert_PagosCliente'
    DeleteCommandName = 'Delete_PagosCliente'
    UpdateCommandName = 'Update_PagosCliente'
    ReferencedDataset = 'PagosCliente'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 192
    Top = 88
  end
  object bpRecibosCompensados: TDABusinessProcessor
    Schema = schRecibosCliente
    InsertCommandName = 'Insert_RecibosCompensadosCli'
    DeleteCommandName = 'Delete_RecibosCompensadosCli'
    UpdateCommandName = 'Update_RecibosCompensadosCli'
    ReferencedDataset = 'RecibosCompensadosCli'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 192
    Top = 152
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 88
  end
end