inherited DataModuleMedicacion: TDataModuleMedicacion
  OnCreate = DAClientDataModuleCreate
  Height = 394
  Width = 512
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvMedicacion'
    Left = 40
    Top = 16
  end
  object rda_Medicacion: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 43
    Top = 151
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 84
  end
  object tbl_Medicacion: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_MEDICACION_ID'
        Required = True
        DictionaryEntry = 'Medicacion_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_PACIENTE'
        DataType = datInteger
        DictionaryEntry = 'Medicacion_ID_PACIENTE'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'Medicacion_REFERENCIA'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre del paciente'
        DictionaryEntry = 'Medicacion_NOMBRE'
      end
      item
        Name = 'FECHA_DESDE'
        DataType = datDateTime
        DisplayLabel = 'Desde'
        DictionaryEntry = 'Medicacion_FECHA_DESDE'
      end
      item
        Name = 'FECHA_HASTA'
        DataType = datDateTime
        DisplayLabel = 'Hasta'
        DictionaryEntry = 'Medicacion_FECHA_HASTA'
      end
      item
        Name = 'TIPO'
        DataType = datString
        Size = 1
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'Medicacion_TIPO'
      end
      item
        Name = 'NUMERO_SS'
        DataType = datString
        Size = 255
        DisplayLabel = 'N'#250'mero SS'
        DictionaryEntry = 'Medicacion_NUMERO_SS'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Medicacion
    LogicalName = 'Medicacion'
    IndexDefs = <>
    Left = 232
    Top = 128
  end
  object ds_Medicacion: TDADataSource
    DataSet = tbl_Medicacion.Dataset
    DataTable = tbl_Medicacion
    Left = 232
    Top = 56
  end
  object tbl_Medicacion_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_MEDICACION_DETALLES_ID'
        Required = True
        DictionaryEntry = 'Medicacion_Detalles_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_MEDICACION'
        DataType = datInteger
        Required = True
        DisplayLabel = 'Medicacion_Detalles_ID_MEDICACION'
        DictionaryEntry = 'Medicacion_Detalles_ID_MEDICACION'
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'Medicacion_Detalles_POSICION'
        DictionaryEntry = 'Medicacion_Detalles_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 25
        DisplayLabel = 'Medicacion_Detalles_TIPO_DETALLE'
        DictionaryEntry = 'Medicacion_Detalles_TIPO_DETALLE'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DisplayLabel = 'Medicacion_Detalles_ID_ARTICULO'
        DictionaryEntry = 'Medicacion_Detalles_ID_ARTICULO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'Medicacion_Detalles_REFERENCIA'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'Medicacion_Detalles_CONCEPTO'
        DictionaryEntry = 'Medicacion_Detalles_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
        DisplayLabel = 'Medicacion_Detalles_CANTIDAD'
        DictionaryEntry = 'Medicacion_Detalles_CANTIDAD'
      end
      item
        Name = 'POSOLOGIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Posolog'#237'a'
        DictionaryEntry = 'Medicacion_Detalles_POSOLOGIA'
      end
      item
        Name = 'FORMA_COLOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Medicacion_Detalles_FORMA_COLOR'
        DictionaryEntry = 'Medicacion_Detalles_FORMA_COLOR'
      end
      item
        Name = 'LOTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Lote'
        DictionaryEntry = 'Medicacion_Detalles_LOTE'
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
        DisplayLabel = 'Medicacion_Detalles_VISIBLE'
        DictionaryEntry = 'Medicacion_Detalles_VISIBLE'
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Medicacion
    MasterSource = ds_Medicacion
    MasterFields = 'ID'
    DetailFields = 'ID_MEDICACION'
    LogicalName = 'Medicacion_Detalles'
    IndexDefs = <>
    Left = 384
    Top = 128
  end
  object ds_Medicacion_Detalles: TDADataSource
    DataSet = tbl_Medicacion_Detalles.Dataset
    DataTable = tbl_Medicacion_Detalles
    Left = 384
    Top = 56
  end
end
