Tecsitel_FactuGES2/Source/Modulos/Obras/Data/uDataModuleObras.dfm

inherited DataModuleObras: TDataModuleObras
  OnCreate = DAClientDataModuleCreate
  Height = 330
  Width = 640
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvObras'
    Left = 48
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 84
  end
  object rda_Obras: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = Bin2DataStreamer
    Left = 51
    Top = 143
  end
  object tbl_Obras: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_ALMACENES_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'Obras_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'Obras_ID_EMPRESA'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre'
        DictionaryEntry = 'Obras_NOMBRE'
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Calle'
        DictionaryEntry = 'Obras_CALLE'
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Provincia'
        DictionaryEntry = 'Obras_PROVINCIA'
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
        DictionaryEntry = 'Obras_POBLACION'
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'digo postal'
        DictionaryEntry = 'Obras_CODIGO_POSTAL'
      end
      item
        Name = 'TELEFONO'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono'
        DictionaryEntry = 'Obras_TELEFONO'
      end
      item
        Name = 'MOVIL'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil'
        DictionaryEntry = 'Obras_MOVIL'
      end
      item
        Name = 'FAX'
        DataType = datString
        Size = 25
        DisplayLabel = 'Fax'
        DictionaryEntry = 'Obras_FAX'
      end
      item
        Name = 'PERSONA_CONTACTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Persona de contacto'
        DictionaryEntry = 'Obras_PERSONA_CONTACTO'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'Obras_OBSERVACIONES'
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
        DisplayLabel = 'Obras_ID_CLIENTE'
        DictionaryEntry = 'Obras_ID_CLIENTE'
      end
      item
        Name = 'NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Cliente'
        ServerAutoRefresh = True
        DictionaryEntry = 'Obras_NOMBRE_CLIENTE'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'Obras_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'Obras_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'Obras_USUARIO'
      end
      item
        Name = 'ID_EJECUCION'
        DataType = datInteger
        ServerAutoRefresh = True
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Obras
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Obras'
    IndexDefs = <>
    Left = 192
    Top = 104
  end
  object ds_Obras: TDADataSource
    DataSet = tbl_Obras.Dataset
    DataTable = tbl_Obras
    Left = 192
    Top = 32
  end
  object tbl_ObrasEjecucionesPedidosProveedor: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_OBRAS_EJEC_PEDIDOS_PROV_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EJECUCION'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_EJECUCION'
      end
      item
        Name = 'ID_PEDIDO'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_PEDIDO'
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_PRESUPUESTO'
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 9
        LogChanges = False
        DisplayLabel = 'Situaci'#243'n'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_SITUACION'
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
        LogChanges = False
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_PROVEEDOR'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Proveedor'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_NOMBRE'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Referencia'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_REFERENCIA'
      end
      item
        Name = 'FECHA_PEDIDO'
        DataType = datDateTime
        LogChanges = False
        DisplayLabel = 'Fecha pedido'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_FECHA_PEDIDO'
      end
      item
        Name = 'FECHA_ENTREGA'
        DataType = datDateTime
        LogChanges = False
        DisplayLabel = 'Fecha de entrega'
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_FECHA_ENTREGA'
      end
      item
        Name = 'ID_ALMACEN'
        DataType = datInteger
        LogChanges = False
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_ALMACEN'
      end
      item
        Name = 'NOMBRE_ALMACEN'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Almac'#233'n'
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_NOMBRE_ALMACEN'
      end
      item
        Name = 'ID_OBRA'
        DataType = datInteger
        LogChanges = False
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_ID_OBRA'
      end
      item
        Name = 'NOMBRE_OBRA'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Obra para reserva'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_NOMBRE_OBRA'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        LogChanges = False
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPedidosProveedor_BASE_IMPONIBLE'
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Obras
    MasterSource = ds_ObrasEjecuciones
    MasterFields = 'ID'
    DetailFields = 'ID_EJECUCION'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'ObrasEjecucionesPedidosProveedor'
    IndexDefs = <>
    Left = 456
    Top = 256
  end
  object ds_ObrasEjecucionesPedidosProveedor: TDADataSource
    DataSet = tbl_ObrasEjecucionesPedidosProveedor.Dataset
    DataTable = tbl_ObrasEjecucionesPedidosProveedor
    Left = 456
    Top = 192
  end
  object tbl_ObrasEjecucionesPresupuestos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_OBRAS_EJEC_PRESUPUESTOS_ID'
        Required = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EJECUCION'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_ID_EJECUCION'
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_ID_PRESUPUESTO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Referencia'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_REFERENCIA'
      end
      item
        Name = 'FECHA_PRESUPUESTO'
        DataType = datDateTime
        LogChanges = False
        DisplayLabel = 'Fecha presupuesto'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_FECHA_PRESUPUESTO'
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Situaci'#243'n'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_SITUACION'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        LogChanges = False
        DisplayLabel = 'Base imponible'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_BASE_IMPONIBLE'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        LogChanges = False
        DisplayLabel = 'Nombre'
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecucionesPresupuestos_NOMBRE'
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Obras
    MasterSource = ds_ObrasEjecuciones
    MasterFields = 'ID'
    DetailFields = 'ID_EJECUCION'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'ObrasEjecucionesPresupuestos'
    IndexDefs = <>
    Left = 192
    Top = 256
  end
  object ds_ObrasEjecucionesPresupuestos: TDADataSource
    DataSet = tbl_ObrasEjecucionesPresupuestos.Dataset
    DataTable = tbl_ObrasEjecucionesPresupuestos
    Left = 192
    Top = 192
  end
  object tbl_ObrasEjecuciones: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_OBRAS_EJECUCIONES_ID'
        Required = True
        DisplayLabel = 'ObrasEjecuciones_ID'
        DictionaryEntry = 'ObrasEjecuciones_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_OBRA'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecuciones_ID_OBRA'
      end
      item
        Name = 'FECHA_INICIO'
        DataType = datDateTime
        DisplayLabel = 'Inicio'
        DictionaryEntry = 'ObrasEjecuciones_FECHA_INICIO'
      end
      item
        Name = 'FECHA_FIN'
        DataType = datDateTime
        DisplayLabel = 'Finalizaci'#243'n'
        DictionaryEntry = 'ObrasEjecuciones_FECHA_FIN'
      end
      item
        Name = 'ID_SUBCONTRATA'
        DataType = datInteger
        DictionaryEntry = 'ObrasEjecuciones_ID_SUBCONTRATA'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Subcontrata'
        DictionaryEntry = 'ObrasEjecuciones_NOMBRE'
      end
      item
        Name = 'IMPORTE_GASTOS'
        DataType = datCurrency
        LogChanges = False
        DisplayLabel = 'Gastos'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecuciones_IMPORTE_GASTOS'
      end
      item
        Name = 'IMPORTE_INGRESOS'
        DataType = datCurrency
        LogChanges = False
        DisplayLabel = 'Ingresos'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecuciones_IMPORTE_INGRESOS'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        LogChanges = False
        DisplayLabel = 'Total'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'ObrasEjecuciones_IMPORTE_TOTAL'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'ObrasEjecuciones_OBSERVACIONES'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'ObrasEjecuciones_FECHA_ALTA'
        DictionaryEntry = 'ObrasEjecuciones_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'ObrasEjecuciones_FECHA_MODIFICACION'
        DictionaryEntry = 'ObrasEjecuciones_FECHA_MODIFICACION'
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Obras
    MasterSource = ds_Obras
    MasterFields = 'ID'
    DetailFields = 'ID_OBRA'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'ObrasEjecuciones'
    IndexDefs = <>
    Left = 320
    Top = 104
  end
  object ds_ObrasEjecuciones: TDADataSource
    DataSet = tbl_ObrasEjecuciones.Dataset
    DataTable = tbl_ObrasEjecuciones
    Left = 320
    Top = 32
  end
end