ConstruccionesCNJ_FactuGES/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm

object srvMontajes: TsrvMontajes
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schMontajes
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData
  Height = 249
  Width = 343
  object Diagrams: TDADiagrams
    Left = 150
    Top = 74
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'Montajes_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        Required = True
        DisplayWidth = 0
        DisplayLabel = 'ID'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_ID_EMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_EMPRESA'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_ID_CLIENTE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_CLIENTE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_REFERENCIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Referencia'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_FECHA_INICIO'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_FECHA_FIN'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_FECHA_ALTA'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FECHA_ALTA'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_FECHA_MODIFICACION'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FECHA_MODIFICACION'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_USUARIO'
        DataType = datString
        Size = 20
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'USUARIO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_NOMBRE'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Nombre'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_ID_MONTAJE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_MONTAJE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_POSICION'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'POSICION'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_TIPO_DETALLE'
        DataType = datString
        Size = 10
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'TIPO_DETALLE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_CONCEPTO'
        DataType = datString
        Size = 2000
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'CONCEPTO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_CANTIDAD'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'CANTIDAD'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_PUNTOS'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'PUNTOS'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_IMPORTE_PUNTOS'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'IMPORTE_PUNTOS'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_IMPORTE_UNIDAD'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'IMPORTE_UNIDAD'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_DESCUENTO'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'DESCUENTO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Detalles_IMPORTE_TOTAL'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'IMPORTE_TOTAL'
        Alignment = taRightJustify
      end
      item
        Name = 'Montajes_Detalles_VISIBLE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'VISIBLE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Gastos_ID_MONTAJE'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_MONTAJE'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Gastos_FECHA_GASTO'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FECHA_GASTO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Gastos_DESCRIPCION'
        DataType = datString
        Size = 2000
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'DESCRIPCION'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_Gastos_IMPORTE'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'IMPORTE'
        Alignment = taRightJustify
      end
      item
        Name = 'Montajes_ID_PRESUPUESTO'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_PRESUPUESTO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_SITUACION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'SITUACION'
        Alignment = taLeftJustify
      end
      item
        Name = 'Montajes_IMPORTE_TOTAL'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'IMPORTE_TOTAL'
        Alignment = taRightJustify
      end>
    Left = 150
    Top = 22
  end
  object schMontajes: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES'
            SQL = 
              'SELECT MONTAJES.ID, MONTAJES.ID_EMPRESA, MONTAJES.ID_CLIENTE, MO' +
              'NTAJES.ID_PRESUPUESTO,'#10'       MONTAJES.REFERENCIA, MONTAJES.SITU' +
              'ACION, MONTAJES.FECHA_INICIO,'#10'       MONTAJES.FECHA_FIN, MONTAJE' +
              'S.FECHA_ALTA, MONTAJES.FECHA_MODIFICACION,'#10'       MONTAJES.USUAR' +
              'IO, MONTAJES.IMPORTE_TOTAL, CONTACTOS.NOMBRE'#10#10'FROM MONTAJES'#10'LEFT' +
              ' JOIN CONTACTOS ON MONTAJES.ID_CLIENTE = CONTACTOS.ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
                SQLOrigin = 'CONTACTOS.NOMBRE'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
                SQLOrigin = 'MONTAJES.ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
                SQLOrigin = 'MONTAJES.ID_EMPRESA'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
                SQLOrigin = 'MONTAJES.ID_CLIENTE'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
                SQLOrigin = 'MONTAJES.FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
                SQLOrigin = 'MONTAJES.FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
                SQLOrigin = 'MONTAJES.USUARIO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
                SQLOrigin = 'MONTAJES.REFERENCIA'
              end
              item
                DatasetField = 'FECHA_INICIO'
                TableField = 'FECHA_INICIO'
              end
              item
                DatasetField = 'FECHA_FIN'
                TableField = 'FECHA_FIN'
              end
              item
                DatasetField = 'ID_PRESUPUESTO'
                TableField = 'ID_PRESUPUESTO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'Montajes'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID_EMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID_CLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID_PRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_SITUACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_INICIO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_FECHA_INICIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_FIN'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_FECHA_FIN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_FECHA_ALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_FECHA_MODIFICACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_IMPORTE_TOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES'
            SQL = 
              'SELECT MONTAJES.ID, MONTAJES.ID_EMPRESA, MONTAJES.ID_CLIENTE, MO' +
              'NTAJES.ID_PRESUPUESTO,'#10'       MONTAJES.REFERENCIA, MONTAJES.SITU' +
              'ACION, MONTAJES.FECHA_INICIO,'#10'       MONTAJES.FECHA_FIN, MONTAJE' +
              'S.FECHA_ALTA, MONTAJES.FECHA_MODIFICACION,'#10'       MONTAJES.USUAR' +
              'IO, MONTAJES.IMPORTE_TOTAL, CONTACTOS.NOMBRE'#10#10'FROM MONTAJES'#10'LEFT' +
              ' JOIN CONTACTOS ON MONTAJES.ID_CLIENTE = CONTACTOS.ID'#10'WHERE MONT' +
              'AJES.ID = :ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              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 = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHA_INICIO'
                TableField = 'FECHA_INICIO'
              end
              item
                DatasetField = 'FECHA_FIN'
                TableField = 'FECHA_FIN'
              end
              item
                DatasetField = 'ID_PRESUPUESTO'
                TableField = 'ID_PRESUPUESTO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'Montajes_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_INICIO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_FIN'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_DETALLES'
            SQL = 
              'SELECT'#10'    ID, ID_MONTAJE, POSICION, TIPO_DETALLE, CONCEPTO, CAN' +
              'TIDAD, PUNTOS,'#10'    IMPORTE_PUNTOS, IMPORTE_UNIDAD, DESCUENTO, IM' +
              'PORTE_TOTAL, VISIBLE'#10'FROM'#10'    MONTAJES_DETALLES'#10'WHERE'#10'     ID_MO' +
              'NTAJE = :ID_MONTAJE'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_MONTAJE'
                TableField = 'ID_MONTAJE'
              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 = 'PUNTOS'
                TableField = 'PUNTOS'
              end
              item
                DatasetField = 'IMPORTE_PUNTOS'
                TableField = 'IMPORTE_PUNTOS'
              end
              item
                DatasetField = 'IMPORTE_UNIDAD'
                TableField = 'IMPORTE_UNIDAD'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end>
          end>
        Name = 'Montajes_Detalles'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_ID_MONTAJE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_POSICION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_TIPO_DETALLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_CONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PUNTOS'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_PUNTOS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE_PUNTOS'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_IMPORTE_PUNTOS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_IMPORTE_UNIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_DESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_IMPORTE_TOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VISIBLE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Detalles_VISIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_GASTOS'
            SQL = 
              'SELECT'#10'    ID, ID_MONTAJE, FECHA_GASTO, DESCRIPCION, IMPORTE'#10'FRO' +
              'M'#10'    MONTAJES_GASTOS'#10'WHERE'#10'     ID_MONTAJE = :ID_MONTAJE'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_MONTAJE'
                TableField = 'ID_MONTAJE'
              end
              item
                DatasetField = 'FECHA_GASTO'
                TableField = 'FECHA_GASTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
              end>
          end>
        Name = 'Montajes_Gastos'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Gastos_ID_MONTAJE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_GASTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Gastos_FECHA_GASTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Gastos_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'Montajes_Gastos_IMPORTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_PRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_INICIO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_FIN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES'
            SQL = 
              'INSERT'#10'  INTO MONTAJES'#10'    (ID, ID_EMPRESA, ID_CLIENTE, ID_PRESU' +
              'PUESTO, REFERENCIA, SITUACION,'#10'     FECHA_INICIO, FECHA_FIN, FEC' +
              'HA_ALTA, FECHA_MODIFICACION, USUARIO, IMPORTE_TOTAL)'#10'  VALUES'#10'  ' +
              '  (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_PRESUPUESTO, :REFERENCIA, ' +
              ':SITUACION,'#10'     :FECHA_INICIO, :FECHA_FIN, :FECHA_ALTA, :FECHA_' +
              'MODIFICACION, :USUARIO, :IMPORTE_TOTAL)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Montajes'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES'
            SQL = 'DELETE '#10'  FROM'#10'    MONTAJES'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Montajes'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_PRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_INICIO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_FIN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES'
            SQL = 
              'UPDATE MONTAJES'#10'  SET '#10'    ID = :ID,'#10'    ID_EMPRESA = :ID_EMPRES' +
              'A, '#10'    ID_CLIENTE = :ID_CLIENTE,'#10'    ID_PRESUPUESTO = :ID_PRESU' +
              'PUESTO,'#10'    REFERENCIA = :REFERENCIA,'#10'    SITUACION = :SITUACION' +
              ','#10'    FECHA_INICIO = :FECHA_INICIO,'#10'    FECHA_FIN = :FECHA_FIN,'#10 +
              '    FECHA_ALTA = :FECHA_ALTA,'#10'    FECHA_MODIFICACION = :FECHA_MO' +
              'DIFICACION,'#10'    USUARIO = :USUARIO,'#10'    IMPORTE_TOTAL = :IMPORTE' +
              '_TOTAL'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Montajes'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PUNTOS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_PUNTOS'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VISIBLE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_DETALLES'
            SQL = 
              'INSERT'#10'  INTO MONTAJES_DETALLES'#10'    (ID, ID_MONTAJE, POSICION, T' +
              'IPO_DETALLE, CONCEPTO, CANTIDAD, '#10'     PUNTOS, IMPORTE_PUNTOS, I' +
              'MPORTE_UNIDAD, DESCUENTO, '#10'     IMPORTE_TOTAL, VISIBLE)'#10'  VALUES' +
              #10'    (:ID, :ID_MONTAJE, :POSICION, :TIPO_DETALLE, :CONCEPTO, '#10'  ' +
              '   :CANTIDAD, :PUNTOS, :IMPORTE_PUNTOS, :IMPORTE_UNIDAD, '#10'     :' +
              'DESCUENTO, :IMPORTE_TOTAL, :VISIBLE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Montajes_Detalles'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_DETALLES'
            SQL = 'DELETE '#10'  FROM'#10'    MONTAJES_DETALLES'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Montajes_Detalles'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PUNTOS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_PUNTOS'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VISIBLE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_DETALLES'
            SQL = 
              'UPDATE MONTAJES_DETALLES'#10'  SET '#10'    ID = :ID, '#10'    ID_MONTAJE = ' +
              ':ID_MONTAJE, '#10'    POSICION = :POSICION, '#10'    TIPO_DETALLE = :TIP' +
              'O_DETALLE, '#10'    CONCEPTO = :CONCEPTO, '#10'    CANTIDAD = :CANTIDAD,' +
              ' '#10'    PUNTOS = :PUNTOS, '#10'    IMPORTE_PUNTOS = :IMPORTE_PUNTOS, '#10 +
              '    IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10'    DESCUENTO = :DESCUENT' +
              'O, '#10'    IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10'    VISIBLE = :VISIBLE'#10 +
              '  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Montajes_Detalles'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_GASTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_GASTOS'
            SQL = 
              'INSERT'#10'  INTO MONTAJES_GASTOS'#10'    (ID, ID_MONTAJE, FECHA_GASTO, ' +
              'DESCRIPCION, IMPORTE)'#10'  VALUES'#10'    (:ID, :ID_MONTAJE, :FECHA_GAS' +
              'TO, :DESCRIPCION, :IMPORTE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Montajes_Gastos'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_GASTOS'
            SQL = 'DELETE '#10'  FROM'#10'    MONTAJES_GASTOS'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Montajes_Gastos'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_MONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_GASTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MONTAJES_GASTOS'
            SQL = 
              'UPDATE MONTAJES_GASTOS'#10'  SET '#10'    ID = :ID, '#10'    ID_MONTAJE = :I' +
              'D_MONTAJE, '#10'    FECHA_GASTO = :FECHA_GASTO, '#10'    DESCRIPCION = :' +
              'DESCRIPCION, '#10'    IMPORTE = :IMPORTE'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Montajes_Gastos'
      end>
    RelationShips = <>
    UpdateRules = <
      item
        Name = 'Insert Montajes'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'Montajes'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert Montajes_Detalles'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'Montajes_Detalles'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert Montajes_Gastos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'Montajes_Gastos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Montajes_Detalles'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Montajes_Detalles'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Montajes_Gastos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Montajes_Gastos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Montajes'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Montajes'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Montajes_Detalles'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'Montajes_Detalles'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Montajes_Gastos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'Montajes_Gastos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Montajes'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'Montajes'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
  object bpMontajes: TDABusinessProcessor
    Schema = schMontajes
    InsertCommandName = 'Insert_Montajes'
    DeleteCommandName = 'Delete_Montajes'
    UpdateCommandName = 'Update_Montajes'
    RefreshDatasetName = 'Montajes_Refresh'
    ReferencedDataset = 'Montajes'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 240
    Top = 23
  end
  object bpDetallesMontajes: TDABusinessProcessor
    Schema = schMontajes
    InsertCommandName = 'Insert_Montajes_Detalles'
    DeleteCommandName = 'Delete_Montajes_Detalles'
    UpdateCommandName = 'Update_Montajes_Detalles'
    ReferencedDataset = 'Montajes_Detalles'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 240
    Top = 75
  end
  object bpGastosMontajes: TDABusinessProcessor
    Schema = schMontajes
    InsertCommandName = 'Insert_Montajes_Gastos'
    DeleteCommandName = 'Delete_Montajes_Gastos'
    UpdateCommandName = 'Update_Montajes_Gastos'
    ReferencedDataset = 'Montajes_Gastos'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 240
    Top = 131
  end
end