AlonsoYSal_FactuGES2/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm

object srvContratosCliente: TsrvContratosCliente
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schContratosCliente
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  Height = 230
  Width = 346
  object schContratosCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DADataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'PRESUPUESTOS_VALORES'
            Name = 'IBX'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_PROPIEDAD'
                TableField = 'ID_PROPIEDAD'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'Valores'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            Required = True
            InPrimaryKey = True
          end
          item
            Name = 'ID_PROPIEDAD'
            DataType = datInteger
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'PRESUPUESTOS_PROPIEDADES'
            Name = 'IBX'
            SQL = 
              'select ID,'#10'       DESCRIPCION,'#10'       case WHEN ID_PADRE IS NULL' +
              ' THEN ID'#10'            ELSE ID_PADRE'#10'       end AS ID_PROPIEDAD_VA' +
              'LORES'#10#10'from presupuestos_propiedades'#10#10'WHERE {Where}'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'ID_PROPIEDAD_VALORES'
                TableField = '<unknown>'
                SQLOrigin = 'ID_PROPIEDAD_VALORES'
              end>
          end>
        Name = 'Propiedades'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            Required = True
            InPrimaryKey = True
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 50
          end
          item
            Name = 'ID_PROPIEDAD_VALORES'
            DataType = datInteger
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHA_CONTRATO, 1,4)) as' +
              ' ANO'#10'from contratos_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select ' +
              'distinct '#39'Todos'#39' as ANO'#10'from empresas'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosContratos'
        Fields = <
          item
            Name = 'ANO'
            DataType = datString
            Size = 254
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'V_CONTRATOS_BENEFICIOS'
            Name = 'IBX'
            SQL = 
              'SELECT '#10'    ID, REFERENCIA, REFERENCIA_CLIENTE, FECHA_CONTRATO, ' +
              'NOMBRE, NIF_CIF, IMPORTE_NETO,'#10'    IMPORTE_DESCUENTO, BASE_IMPON' +
              'IBLE, IMPORTE_FACTURAS_PROVEEDOR, '#10'    IMPORTE_BENEFICIO, PORCEN' +
              'TAJE_BENEFICIO, SITUACION, ID_VENDEDOR, VENDEDOR'#10'  FROM'#10'    V_CO' +
              'NTRATOS_BENEFICIOS'#10'  WHERE {Where}'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHA_CONTRATO'
                TableField = 'FECHA_CONTRATO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'IMPORTE_NETO'
                TableField = 'IMPORTE_NETO'
              end
              item
                DatasetField = 'IMPORTE_DESCUENTO'
                TableField = 'IMPORTE_DESCUENTO'
              end
              item
                DatasetField = 'BASE_IMPONIBLE'
                TableField = 'BASE_IMPONIBLE'
              end
              item
                DatasetField = 'IMPORTE_FACTURAS_PROVEEDOR'
                TableField = 'IMPORTE_FACTURAS_PROVEEDOR'
              end
              item
                DatasetField = 'IMPORTE_BENEFICIO'
                TableField = 'IMPORTE_BENEFICIO'
              end
              item
                DatasetField = 'PORCENTAJE_BENEFICIO'
                TableField = 'PORCENTAJE_BENEFICIO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'REFERENCIA_CLIENTE'
                TableField = 'REFERENCIA_CLIENTE'
              end
              item
                DatasetField = 'ID_VENDEDOR'
                TableField = 'ID_VENDEDOR'
              end
              item
                DatasetField = 'VENDEDOR'
                TableField = 'VENDEDOR'
              end>
          end>
        Name = 'ContratosClienteBeneficios'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_CONTRATO'
            DataType = datDateTime
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
          end
          item
            Name = 'IMPORTE_NETO'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_DESCUENTO'
            DataType = datCurrency
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_FACTURAS_PROVEEDOR'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_BENEFICIO'
            DataType = datCurrency
          end
          item
            Name = 'PORCENTAJE_BENEFICIO'
            DataType = datCurrency
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
          end
          item
            Name = 'ID_VENDEDOR'
            DataType = datInteger
          end
          item
            Name = 'VENDEDOR'
            DataType = datString
            Size = 255
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'V_CONTRATOS_CLIENTE'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              end
              item
                DatasetField = 'NOMBRE_CLIENTE'
                TableField = 'NOMBRE_CLIENTE'
              end
              item
                DatasetField = 'NOMBRE_COMERCIAL_CLIENTE'
                TableField = 'NOMBRE_COMERCIAL_CLIENTE'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHA_CONTRATO'
                TableField = 'FECHA_CONTRATO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FORMA_PAGO'
                TableField = 'FORMA_PAGO'
              end
              item
                DatasetField = 'PLAZO_ENTREGA'
                TableField = 'PLAZO_ENTREGA'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'INCIDENCIAS'
                TableField = 'INCIDENCIAS'
              end
              item
                DatasetField = 'INCIDENCIAS_ACTIVAS'
                TableField = 'INCIDENCIAS_ACTIVAS'
              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 = 'RECARGO_EQUIVALENCIA'
                TableField = 'RECARGO_EQUIVALENCIA'
              end
              item
                DatasetField = 'RE'
                TableField = 'RE'
              end
              item
                DatasetField = 'IMPORTE_RE'
                TableField = 'IMPORTE_RE'
              end
              item
                DatasetField = 'ID_TIPO_IVA'
                TableField = 'ID_TIPO_IVA'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTE_IVA'
                TableField = 'IMPORTE_IVA'
              end
              item
                DatasetField = 'IMPORTE_NETO'
                TableField = 'IMPORTE_NETO'
              end
              item
                DatasetField = 'IMPORTE_PORTE'
                TableField = 'IMPORTE_PORTE'
              end
              item
                DatasetField = 'ID_TIENDA'
                TableField = 'ID_TIENDA'
              end
              item
                DatasetField = 'TIENDA'
                TableField = 'TIENDA'
              end
              item
                DatasetField = 'BASE_IMPONIBLE'
                TableField = 'BASE_IMPONIBLE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTE_DESCUENTO'
                TableField = 'IMPORTE_DESCUENTO'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'ID_FORMA_PAGO'
                TableField = 'ID_FORMA_PAGO'
              end
              item
                DatasetField = 'ID_VENDEDOR'
                TableField = 'ID_VENDEDOR'
              end
              item
                DatasetField = 'VENDEDOR'
                TableField = 'VENDEDOR'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'REF_CLIENTE'
                TableField = 'REF_CLIENTE'
              end
              item
                DatasetField = 'TELEFONO'
                TableField = 'TELEFONO'
              end
              item
                DatasetField = 'MOVIL'
                TableField = 'MOVIL'
              end
              item
                DatasetField = 'ID_DIRECCION'
                TableField = 'ID_DIRECCION'
              end
              item
                DatasetField = 'TIPO_CONTRATO'
                TableField = 'TIPO_CONTRATO'
              end
              item
                DatasetField = 'CONDICIONES'
                TableField = 'CONDICIONES'
              end
              item
                DatasetField = 'CALIDADES'
                TableField = 'CALIDADES'
              end
              item
                DatasetField = 'REFERENCIA_CLIENTE'
                TableField = 'REFERENCIA_CLIENTE'
              end
              item
                DatasetField = 'LISTA_NOMBRES'
                TableField = 'LISTA_NOMBRES'
              end
              item
                DatasetField = 'FECHA_DECISION'
                TableField = 'FECHA_DECISION'
              end
              item
                DatasetField = 'FACTURA_ASOCIADA'
                TableField = 'FACTURA_ASOCIADA'
              end
              item
                DatasetField = 'FECHA_PREVISTA_MONTAJE'
                TableField = 'FECHA_PREVISTA_MONTAJE'
              end
              item
                DatasetField = 'CAMPO_LIBRE'
                TableField = 'CAMPO_LIBRE'
              end
              item
                DatasetField = 'LOPD'
                TableField = 'LOPD'
              end
              item
                DatasetField = 'PROCEDENCIA_CLIENTE'
                TableField = 'PROCEDENCIA_CLIENTE'
              end
              item
                DatasetField = 'EMAIL_1'
                TableField = 'EMAIL_1'
              end
              item
                DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE'
                TableField = 'FECHA_ULT_PRESENTACION_CLIENTE'
              end>
          end>
        Name = 'ContratosCliente'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'ContratosCliente_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_EMPRESA'
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_CLIENTE'
          end
          item
            Name = 'LOPD'
            DataType = datSmallInt
          end
          item
            Name = 'NOMBRE_CLIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_NOMBRE_CLIENTE'
          end
          item
            Name = 'REF_CLIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_REF_CLIENTE'
          end
          item
            Name = 'NOMBRE_COMERCIAL_CLIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            ServerAutoRefresh = True
            DictionaryEntry = 'ContratosCliente_NIF_CIF'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            ServerAutoRefresh = True
            DictionaryEntry = 'ContratosCliente_NOMBRE'
          end
          item
            Name = 'ID_DIRECCION'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_DIRECCION'
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_CALLE'
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_POBLACION'
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_PROVINCIA'
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            DictionaryEntry = 'ContratosCliente_CODIGO_POSTAL'
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            DictionaryEntry = 'ContratosCliente_TELEFONO'
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            DictionaryEntry = 'ContratosCliente_MOVIL'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            ServerAutoRefresh = True
            DictionaryEntry = 'ContratosCliente_REFERENCIA'
          end
          item
            Name = 'FECHA_CONTRATO'
            DataType = datDateTime
            DictionaryEntry = 'ContratosCliente_FECHA_CONTRATO'
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_SITUACION'
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_FORMA_PAGO'
          end
          item
            Name = 'PLAZO_ENTREGA'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_PLAZO_ENTREGA'
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_OBSERVACIONES'
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_INCIDENCIAS'
          end
          item
            Name = 'INCIDENCIAS_ACTIVAS'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_INCIDENCIAS_ACTIVAS'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'ContratosCliente_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'ContratosCliente_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'ContratosCliente_USUARIO'
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
            DictionaryEntry = 'ContratosCliente_RECARGO_EQUIVALENCIA'
          end
          item
            Name = 'RE'
            DataType = datFloat
            DictionaryEntry = 'ContratosCliente_RE'
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_RE'
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_TIPO_IVA'
          end
          item
            Name = 'IVA'
            DataType = datFloat
            DictionaryEntry = 'ContratosCliente_IVA'
          end
          item
            Name = 'IMPORTE_IVA'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_IVA'
          end
          item
            Name = 'IMPORTE_NETO'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_NETO'
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_PORTE'
          end
          item
            Name = 'ID_TIENDA'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_TIENDA'
          end
          item
            Name = 'TIENDA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_TIENDA'
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_BASE_IMPONIBLE'
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            DictionaryEntry = 'ContratosCliente_DESCUENTO'
          end
          item
            Name = 'IMPORTE_DESCUENTO'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_DESCUENTO'
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            DictionaryEntry = 'ContratosCliente_IMPORTE_TOTAL'
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_FORMA_PAGO'
          end
          item
            Name = 'ID_VENDEDOR'
            DataType = datInteger
            DictionaryEntry = 'ContratosCliente_ID_VENDEDOR'
          end
          item
            Name = 'VENDEDOR'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_VENDEDOR'
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_PERSONA_CONTACTO'
          end
          item
            Name = 'TIPO_CONTRATO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_TIPO_CONTRATO'
          end
          item
            Name = 'CONDICIONES'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_CONDICIONES'
          end
          item
            Name = 'CALIDADES'
            DataType = datMemo
            DictionaryEntry = 'ContratosCliente_CALIDADES'
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
          end
          item
            Name = 'LISTA_NOMBRES'
            DataType = datString
            Size = 255
            DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
          end
          item
            Name = 'FECHA_DECISION'
            DataType = datDateTime
          end
          item
            Name = 'FACTURA_ASOCIADA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_PREVISTA_MONTAJE'
            DataType = datDateTime
          end
          item
            Name = 'CAMPO_LIBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PROCEDENCIA_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
            DataType = datDateTime
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'PRESUPUESTOS_CLIENTE_CAPITULOS'
            Name = 'IBX'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO_DETALLE'
                TableField = 'TIPO_DETALLE'
              end
              item
                DatasetField = 'TIPO_ARTICULO'
                TableField = 'TIPO_ARTICULO'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'CONCEPTO'
                TableField = 'CONCEPTO'
              end>
          end>
        Name = 'TiposCapitulos'
        Description = 'No tocar es la lista de distintos capitulos existentes'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            Required = True
            InPrimaryKey = True
          end
          item
            Name = 'POSICION'
            DataType = datInteger
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
          end
          item
            Name = 'TIPO_ARTICULO'
            DataType = datString
            Size = 2
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
            SQL = 
              'SELECT'#10'    CONTRATOS_CLIENTE_DETALLES.ID, CONTRATOS_CLIENTE_DETA' +
              'LLES.ID_CONTRATO,'#10'    CONTRATOS_CLIENTE_DETALLES.POSICION, CONTR' +
              'ATOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10'    CONTRATOS_CLIENTE_DETALL' +
              'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
              'ENTE_DETALLES.CANTIDAD,'#10'    CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
              'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10'    CONTRATOS_C' +
              'LIENTE_DETALLES.VISIBLE, CONTRATOS_CLIENTE_DETALLES.VISIBLE2,'#10#10' ' +
              '   CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE_DET' +
              'ALLES.TIPO_ARTICULO,'#10'    CONTRATOS_CLIENTE_DETALLES.DESCUENTO,'#10' ' +
              '   CONTRATOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCI' +
              'A,'#10'    '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para que no fal' +
              'len los detalles porque los detalles son comunes para la rama de' +
              ' cliente y de proveedor*/'#10#10'FROM CONTRATOS_CLIENTE_DETALLES'#10'LEFT ' +
              'JOIN ARTICULOS ON CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO = ARTIC' +
              'ULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CONTRATO'
                TableField = 'ID_CONTRATO'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO_DETALLE'
                TableField = 'TIPO_DETALLE'
              end
              item
                DatasetField = 'CONCEPTO'
                TableField = 'CONCEPTO'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'IMPORTE_UNIDAD'
                TableField = 'IMPORTE_UNIDAD'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'TIPO_ARTICULO'
                TableField = 'TIPO_ARTICULO'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTE_PORTE'
                TableField = 'IMPORTE_PORTE'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = '<unknown>'
                SQLOrigin = 'REFERENCIA_PROVEEDOR'
              end
              item
                DatasetField = 'PROPIEDAD'
                TableField = 'PROPIEDAD'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = '<unknown>'
                SQLOrigin = 'REFERENCIA'
              end
              item
                DatasetField = 'VISIBLE2'
                TableField = 'VISIBLE2'
              end>
          end>
        Name = 'ContratosCliente_Detalles'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_CONTRATO'
            DataType = datInteger
          end
          item
            Name = 'POSICION'
            DataType = datInteger
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
          end
          item
            Name = 'PROPIEDAD'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
          end
          item
            Name = 'CANTIDAD'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end
          item
            Name = 'VISIBLE2'
            DataType = datSmallInt
          end
          item
            Name = 'VISIBLE'
            DataType = datSmallInt
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
          end
          item
            Name = 'TIPO_ARTICULO'
            DataType = datString
            Size = 2
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTRATOS_CLI_ID'
            Value = ''
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            Value = ''
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'ID_DIRECCION'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_CONTRATO'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'PLAZO_ENTREGA'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'INCIDENCIAS_ACTIVAS'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 30
            Value = ''
          end
          item
            Name = 'IMPORTE_NETO'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_DESCUENTO'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'IVA'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_IVA'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_TIENDA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_VENDEDOR'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'RE'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            Value = ''
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            Value = ''
          end
          item
            Name = 'TIPO_CONTRATO'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CONDICIONES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'CALIDADES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_DECISION'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'FECHA_PREVISTA_MONTAJE'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'CAMPO_LIBRE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
            DataType = datDateTime
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE'
            SQL = 
              'INSERT'#10'  INTO CONTRATOS_CLIENTE'#10'    (ID, ID_CLIENTE, NIF_CIF, NO' +
              'MBRE, ID_DIRECCION, CALLE, POBLACION, PROVINCIA,'#10'     CODIGO_POS' +
              'TAL, REFERENCIA, FECHA_CONTRATO, SITUACION, FORMA_PAGO,'#10'     PLA' +
              'ZO_ENTREGA, OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
              'HA_ALTA,'#10'     USUARIO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, I' +
              'MPORTE_DESCUENTO,'#10'     BASE_IMPONIBLE, ID_TIPO_IVA, IVA, IMPORTE' +
              '_IVA,'#10'     IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
              ' PERSONA_CONTACTO,'#10'     RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
              'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10'     CALIDADES, REFER' +
              'ENCIA_CLIENTE, FECHA_DECISION, FECHA_PREVISTA_MONTAJE, CAMPO_LIB' +
              'RE,'#10'     FECHA_ULT_PRESENTACION_CLIENTE)'#10'  VALUES'#10'    (:ID, :ID_' +
              'CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :' +
              'PROVINCIA,'#10'     :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :S' +
              'ITUACION, :FORMA_PAGO,'#10'     :PLAZO_ENTREGA, :OBSERVACIONES, :INC' +
              'IDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO' +
              ', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,' +
              #10'     :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORT' +
              'E_TOTAL, :ID_FORMA_PAGO,'#10'     :ID_TIENDA, :ID_VENDEDOR, :PERSONA' +
              '_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10'     :TELEFO' +
              'NO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCI' +
              'A_CLIENTE,'#10'     :FECHA_DECISION, :FECHA_PREVISTA_MONTAJE, :CAMPO' +
              '_LIBRE, :FECHA_ULT_PRESENTACION_CLIENTE)'#10#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ContratosCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datAutoInc
            Value = '0'
          end>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE'
            SQL = 'DELETE '#10'  FROM'#10'    CONTRATOS_CLIENTE'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ContratosCliente'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            Value = ''
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'ID_DIRECCION'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_CONTRATO'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FORMA_PAGO'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'PLAZO_ENTREGA'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'INCIDENCIAS_ACTIVAS'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 30
            Value = ''
          end
          item
            Name = 'IMPORTE_NETO'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_DESCUENTO'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'IVA'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_IVA'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_TIENDA'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'ID_VENDEDOR'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'RE'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_RE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'RECARGO_EQUIVALENCIA'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            Value = ''
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            Value = ''
          end
          item
            Name = 'TIPO_CONTRATO'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CONDICIONES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'CALIDADES'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_DECISION'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'FECHA_PREVISTA_MONTAJE'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'CAMPO_LIBRE'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_ULT_PRESENTACION_CLIENTE'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTRATOS_CLIENTE'
            SQL = 
              'UPDATE CONTRATOS_CLIENTE'#10'  SET '#10'    ID = :ID,'#10'    ID_CLIENTE = :' +
              'ID_CLIENTE,'#10'    NIF_CIF = :NIF_CIF,'#10'    NOMBRE = :NOMBRE,'#10'    ID' +
              '_DIRECCION = :ID_DIRECCION,'#10'    CALLE = :CALLE,'#10'    POBLACION = ' +
              ':POBLACION,'#10'    PROVINCIA = :PROVINCIA,'#10'    CODIGO_POSTAL = :COD' +
              'IGO_POSTAL,'#10'    REFERENCIA = :REFERENCIA,'#10'    FECHA_CONTRATO = :' +
              'FECHA_CONTRATO,'#10'    SITUACION = :SITUACION,'#10'    FORMA_PAGO = :FO' +
              'RMA_PAGO,'#10'    PLAZO_ENTREGA = :PLAZO_ENTREGA,'#10'    OBSERVACIONES ' +
              '= :OBSERVACIONES,'#10'    INCIDENCIAS = :INCIDENCIAS,'#10'    INCIDENCIA' +
              'S_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10'    FECHA_MODIFICACION = CURRE' +
              'NT_TIMESTAMP,'#10'    USUARIO = :USUARIO,'#10'    IMPORTE_NETO = :IMPORT' +
              'E_NETO,'#10'    IMPORTE_PORTE = :IMPORTE_PORTE,'#10'    DESCUENTO = :DES' +
              'CUENTO,'#10'    IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10'    BASE_IMP' +
              'ONIBLE = :BASE_IMPONIBLE,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    IV' +
              'A = :IVA,'#10'    IMPORTE_IVA = :IMPORTE_IVA,'#10'    IMPORTE_TOTAL = :I' +
              'MPORTE_TOTAL,'#10'    ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    ID_TIENDA ' +
              '= :ID_TIENDA,'#10'    ID_VENDEDOR = :ID_VENDEDOR,'#10'    PERSONA_CONTAC' +
              'TO = :PERSONA_CONTACTO,'#10'    RE = :RE,'#10'    IMPORTE_RE = :IMPORTE_' +
              'RE,'#10'    RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10'    TELEFO' +
              'NO = :TELEFONO,'#10'    MOVIL = :MOVIL,'#10'    TIPO_CONTRATO = :TIPO_CO' +
              'NTRATO,'#10'    CONDICIONES = :CONDICIONES,'#10'    CALIDADES = :CALIDAD' +
              'ES,'#10'    REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10'    FECHA_DECI' +
              'SION = :FECHA_DECISION,'#10'    FECHA_PREVISTA_MONTAJE = :FECHA_PREV' +
              'ISTA_MONTAJE,'#10'    CAMPO_LIBRE = :CAMPO_LIBRE,'#10'    FECHA_ULT_PRES' +
              'ENTACION_CLIENTE = :FECHA_ULT_PRESENTACION_CLIENTE'#10'  WHERE'#10'    (' +
              'ID = :OLD_ID)'#10#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ContratosCliente'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTRATOS_CLI_DETALLE_ID'
            Value = ''
          end
          item
            Name = 'ID_CONTRATO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
            Value = ''
          end
          item
            Name = 'PROPIEDAD'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            Value = ''
          end
          item
            Name = 'CANTIDAD'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'VISIBLE'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'VISIBLE2'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'TIPO_ARTICULO'
            DataType = datString
            Size = 2
            Value = ''
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
            SQL = 
              'INSERT'#10'  INTO CONTRATOS_CLIENTE_DETALLES'#10'    (ID, ID_CONTRATO, P' +
              'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10'     IMPOR' +
              'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VISIBLE2, ID_ARTICULO, TIPO_A' +
              'RTICULO,'#10'     DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10'  VALUES'#10'   ' +
              ' (:ID, :ID_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONC' +
              'EPTO,'#10'     :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
              ' :VISIBLE2,'#10'     :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPO' +
              'RTE_PORTE, CURRENT_TIMESTAMP)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ContratosCliente_Detalles'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datAutoInc
            Value = '0'
          end>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
            SQL = 
              'DELETE '#10'  FROM'#10'    CONTRATOS_CLIENTE_DETALLES'#10'  WHERE'#10'    (ID = ' +
              ':OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ContratosCliente_Detalles'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTRATOS_CLI_DETALLE_ID'
            Value = ''
          end
          item
            Name = 'ID_CONTRATO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
            Value = ''
          end
          item
            Name = 'PROPIEDAD'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            Value = ''
          end
          item
            Name = 'CANTIDAD'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'VISIBLE'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'VISIBLE2'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'TIPO_ARTICULO'
            DataType = datString
            Size = 2
            Value = ''
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            Value = ''
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'CONTRATOS_CLIENTE_DETALLES'
            SQL = 
              'UPDATE CONTRATOS_CLIENTE_DETALLES'#10'  SET '#10'    ID = :ID,'#10'    ID_CO' +
              'NTRATO = :ID_CONTRATO,'#10'    POSICION = :POSICION, '#10'    TIPO_DETAL' +
              'LE = :TIPO_DETALLE,'#10'    PROPIEDAD = :PROPIEDAD,'#10'    CONCEPTO = :' +
              'CONCEPTO, '#10'    CANTIDAD = :CANTIDAD, '#10'    IMPORTE_UNIDAD = :IMPO' +
              'RTE_UNIDAD,'#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :' +
              'VISIBLE, '#10'    VISIBLE2 = :VISIBLE2,'#10'    ID_ARTICULO = :ID_ARTICU' +
              'LO, '#10'    TIPO_ARTICULO = :TIPO_ARTICULO,'#10'    DESCUENTO = :DESCUE' +
              'NTO, '#10'    IMPORTE_PORTE = :IMPORTE_PORTE,'#10'    FECHA_MODIFICACION' +
              ' = CURRENT_TIMESTAMP'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ContratosCliente_Detalles'
      end>
    RelationShips = <
      item
        Name = 'FK_Propiedades_Valores'
        MasterDatasetName = 'Propiedades'
        MasterFields = 'ID_PROPIEDAD_VALORES'
        DetailDatasetName = 'Valores'
        DetailFields = 'ID_PROPIEDAD'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_ContratosCliente_Detalles'
        MasterDatasetName = 'ContratosCliente'
        MasterFields = 'ID'
        DetailDatasetName = 'ContratosCliente_Detalles'
        DetailFields = 'ID_CONTRATO'
        RelationshipType = rtForeignKey
      end>
    UpdateRules = <
      item
        Name = 'Insert ContratosCliente'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'ContratosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert ContratosCliente_Detalles'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'ContratosCliente_Detalles'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update ContratosCliente'
        DoInsert = False
        DoDelete = False
        DatasetName = 'ContratosCliente'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update ContratosCliente_Detalles'
        DoInsert = False
        DoDelete = False
        DatasetName = 'ContratosCliente_Detalles'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete ContratosCliente_Detalles'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'ContratosCliente_Detalles'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete ContratosCliente'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'ContratosCliente'
        FailureBehavior = fbRaiseException
      end>
    Version = 0
    Left = 48
    Top = 24
  end
  object DADataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'ContratosCliente_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'ContratosCliente_ID_EMPRESA'
        DataType = datInteger
        DisplayLabel = 'ID_EMPRESA'
      end
      item
        Name = 'ContratosCliente_FECHA_DECISION'
        DataType = datDateTime
        DisplayLabel = 'Fecha decisi'#243'n'
      end
      item
        Name = 'ContratosCliente_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
      end
      item
        Name = 'ContratosCliente_SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
      end
      item
        Name = 'ContratosCliente_ID_CLIENTE'
        DataType = datInteger
        DisplayLabel = 'ID_CLIENTE'
      end
      item
        Name = 'ContratosCliente_NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
      end
      item
        Name = 'ContratosCliente_OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
      end
      item
        Name = 'ContratosCliente_INCIDENCIAS'
        DataType = datMemo
        DisplayLabel = 'INCIDENCIAS'
      end
      item
        Name = 'ContratosCliente_INCIDENCIAS_ACTIVAS'
        DataType = datInteger
        DisplayLabel = 'INCIDENCIAS_ACTIVAS'
      end
      item
        Name = 'ContratosCliente_FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'FECHA_ALTA'
      end
      item
        Name = 'ContratosCliente_FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'FECHA_MODIFICACION'
      end
      item
        Name = 'ContratosCliente_USUARIO'
        DataType = datString
        Size = 20
        DisplayLabel = 'USUARIO'
      end
      item
        Name = 'ContratosCliente_IMPORTE_NETO'
        DataType = datCurrency
        DisplayLabel = 'Importe neto'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_PERSONA_CONTACTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Persona de contacto'
      end
      item
        Name = 'ContratosCliente_IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe del porte'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_IMPORTE_DESCUENTO'
        DataType = datCurrency
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_BASE_IMPONIBLE'
        DataType = datCurrency
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_IVA'
        DataType = datFloat
        DisplayLabel = 'IVA'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_IMPORTE_IVA'
        DataType = datCurrency
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_ID_FORMA_PAGO'
        DataType = datInteger
        DisplayLabel = 'ID_FORMA_PAGO'
      end
      item
        Name = 'ContratosCliente_Detalles_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'ContratosCliente_Detalles_ID_PRESUPUESTO'
        DataType = datInteger
        Required = True
      end
      item
        Name = 'ContratosCliente_Detalles_POSICION'
        DataType = datInteger
        DisplayLabel = 'POSICION'
      end
      item
        Name = 'ContratosCliente_Detalles_TIPO_DETALLE'
        DataType = datString
        Size = 25
        DisplayLabel = 'TIPO_DETALLE'
      end
      item
        Name = 'ContratosCliente_Detalles_CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'Concepto'
      end
      item
        Name = 'ContratosCliente_Detalles_CANTIDAD'
        DataType = datFloat
        DisplayLabel = 'Cantidad'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_Detalles_IMPORTE_UNIDAD'
        DataType = datCurrency
        DisplayLabel = 'Importe unidad'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_Detalles_IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_Detalles_VISIBLE'
        DataType = datInteger
        DisplayLabel = 'VISIBLE'
      end
      item
        Name = 'ContratosCliente_Detalles_ID_ARTICULO'
        DataType = datInteger
        DisplayLabel = 'ID_ARTICULO'
      end
      item
        Name = 'ContratosCliente_Detalles_DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_Detalles_IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe porte'
        Alignment = taRightJustify
      end
      item
        Name = 'ContratosCliente_Detalles_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
      end
      item
        Name = 'ContratosCliente_Detalles_REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. proveedor'
      end
      item
        Name = 'ContratosCliente_Detalles_UNIDAD_MEDIDA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Unidad de medida'
      end
      item
        Name = 'ContratosCliente_CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Calle'
      end
      item
        Name = 'ContratosCliente_POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
      end
      item
        Name = 'ContratosCliente_PROVINCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ContratosCliente_CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
      end
      item
        Name = 'ContratosCliente_TELEFONO'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono'
      end
      item
        Name = 'ContratosCliente_MOVIL'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil'
      end
      item
        Name = 'ContratosCliente_FECHA_CONTRATO'
        DataType = datDateTime
        DisplayLabel = 'Fecha contrato'
      end
      item
        Name = 'ContratosCliente_FORMA_PAGO'
        DataType = datMemo
      end
      item
        Name = 'ContratosCliente_RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
      end
      item
        Name = 'ContratosCliente_RE'
        DataType = datFloat
      end
      item
        Name = 'ContratosCliente_IMPORTE_RE'
        DataType = datCurrency
        DisplayLabel = 'Importe RE'
      end
      item
        Name = 'ContratosCliente_ID_TIPO_IVA'
        DataType = datInteger
      end
      item
        Name = 'ContratosCliente_ID_TIENDA'
        DataType = datInteger
      end
      item
        Name = 'ContratosCliente_TIENDA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ContratosCliente_ID_VENDEDOR'
        DataType = datInteger
      end
      item
        Name = 'ContratosCliente_VENDEDOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Vendedor'
      end
      item
        Name = 'ContratosCliente_REF_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. Cliente'
      end
      item
        Name = 'ContratosCliente_NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ContratosCliente_NOMBRE_COMERCIAL_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ContratosCliente_NOMBRE'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'ContratosCliente_PLAZO_ENTREGA'
        DataType = datMemo
      end
      item
        Name = 'ContratosCliente_ID_DIRECCION'
        DataType = datInteger
      end
      item
        Name = 'ContratosCliente_TIPO_CONTRATO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Tipo'
      end
      item
        Name = 'ContratosCliente_CALIDADES'
        DataType = datMemo
        DisplayLabel = 'Calidades'
      end
      item
        Name = 'ContratosCliente_CONDICIONES'
        DataType = datMemo
      end
      item
        Name = 'ContratosCliente_REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ContratosCliente_LISTA_NOMBRES'
        DataType = datString
        Size = 255
        DisplayLabel = 'Otros nombres'
      end>
    Left = 48
    Top = 152
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 88
  end
  object bpContratosCliente: TDABusinessProcessor
    Schema = schContratosCliente
    InsertCommandName = 'Insert_ContratosCliente'
    DeleteCommandName = 'Delete_ContratosCliente'
    UpdateCommandName = 'Update_ContratosCliente'
    ReferencedDataset = 'ContratosCliente'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 232
    Top = 24
  end
  object bpContratosClienteDetalles: TDABusinessProcessor
    Schema = schContratosCliente
    InsertCommandName = 'Insert_ContratosCliente_Detalles'
    DeleteCommandName = 'Delete_ContratosCliente_Detalles'
    UpdateCommandName = 'Update_ContratosCliente_Detalles'
    ReferencedDataset = 'ContratosCliente_Detalles'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 232
    Top = 96
  end
end