object RptMedicaciones: TRptMedicaciones
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 494
  Width = 573
  object schReport: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            Value = '2'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT '#10'    V_MEDICACION.ID, V_MEDICACION.ID_PACIENTE, V_MEDICAC' +
              'ION.REFERENCIA,'#10'    V_MEDICACION.NOMBRE AS PACIENTE, V_MEDICACIO' +
              'N.NUMERO_SS,'#10'    V_MEDICACION.FECHA_DESDE, V_MEDICACION.FECHA_HA' +
              'STA,'#10'    EMPRESAS.NOMBRE AS FARMACEUTICO, EMPRESAS.TELEFONO_1 AS' +
              ' TELEFONO_FARM,'#10'    EMPRESAS.MOVIL_1 AS MOVIL_FARM'#10'  FROM'#10'    V_' +
              'MEDICACION, EMPRESAS'#10'  WHERE V_MEDICACION.ID = :ID'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'ID_PACIENTE'
                TableField = 'ID_PACIENTE'
              end
              item
                DatasetField = 'PACIENTE'
                TableField = 'PACIENTE'
              end
              item
                DatasetField = 'NUMERO_SS'
                TableField = 'NUMERO_SS'
              end
              item
                DatasetField = 'FECHA_DESDE'
                TableField = 'FECHA_DESDE'
              end
              item
                DatasetField = 'FECHA_HASTA'
                TableField = 'FECHA_HASTA'
              end
              item
                DatasetField = 'FARMACEUTICO'
                TableField = 'FARMACEUTICO'
              end
              item
                DatasetField = 'TELEFONO_FARM'
                TableField = 'TELEFONO_FARM'
              end
              item
                DatasetField = 'MOVIL_FARM'
                TableField = 'MOVIL_FARM'
              end>
          end>
        Name = 'InformeMedicaciones'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_PACIENTE'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_ID_PACIENTE'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_REFERENCIA'
          end
          item
            Name = 'PACIENTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_PACIENTE'
          end
          item
            Name = 'NUMERO_SS'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_NUMERO_SS'
          end
          item
            Name = 'FECHA_DESDE'
            DataType = datDateTime
            DictionaryEntry = 'InformeMedicaciones_FECHA_DESDE'
          end
          item
            Name = 'FECHA_HASTA'
            DataType = datDateTime
            DictionaryEntry = 'InformeMedicaciones_FECHA_HASTA'
          end
          item
            Name = 'FARMACEUTICO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_FARMACEUTICO'
          end
          item
            Name = 'TELEFONO_FARM'
            DataType = datString
            Size = 25
            DictionaryEntry = 'InformeMedicaciones_TELEFONO_FARM'
          end
          item
            Name = 'MOVIL_FARM'
            DataType = datString
            Size = 25
            DictionaryEntry = 'InformeMedicaciones_MOVIL_FARM'
          end>
        ReadOnly = True
      end
      item
        Params = <
          item
            Name = 'ID_MEDICACION'
            Value = '2'
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT '#10'    ID, ID_MEDICACION, POSICION, TIPO_DETALLE, ID_ARTICU' +
              'LO, '#10'    REFERENCIA, CONCEPTO, CANTIDAD, POSOLOGIA, FORMA_COLOR,' +
              ' '#10'    LOTE, VISIBLE'#10'  FROM'#10'    MEDICACION_DETALLES'#10'  WHERE (ID_M' +
              'EDICACION = :ID_MEDICACION) AND'#10'        (TIPO_DETALLE = '#39'En blis' +
              'ter'#39')'#10'  ORDER BY POSICION'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO_DETALLE'
                TableField = 'TIPO_DETALLE'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CONCEPTO'
                TableField = 'CONCEPTO'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'ID_MEDICACION'
                TableField = 'ID_MEDICACION'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'POSOLOGIA'
                TableField = 'POSOLOGIA'
              end
              item
                DatasetField = 'FORMA_COLOR'
                TableField = 'FORMA_COLOR'
              end
              item
                DatasetField = 'LOTE'
                TableField = 'LOTE'
              end>
          end>
        Name = 'InformeMedicaciones_DetallesEnBlister'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_MEDICACION'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSICION'
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 25
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
          end
          item
            Name = 'CANTIDAD'
            DataType = datCurrency
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
          end
          item
            Name = 'POSOLOGIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
          end
          item
            Name = 'FORMA_COLOR'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
          end
          item
            Name = 'LOTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_LOTE'
          end
          item
            Name = 'VISIBLE'
            DataType = datSmallInt
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
          end>
        ReadOnly = True
      end
      item
        Params = <
          item
            Name = 'ID_MEDICACION'
            Value = '2'
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT '#10'    ID, ID_MEDICACION, POSICION, TIPO_DETALLE, ID_ARTICU' +
              'LO, '#10'    REFERENCIA, CONCEPTO, CANTIDAD, POSOLOGIA, FORMA_COLOR,' +
              ' '#10'    LOTE, VISIBLE'#10'  FROM'#10'    MEDICACION_DETALLES'#10'  WHERE (ID_M' +
              'EDICACION = :ID_MEDICACION) AND'#10'        (TIPO_DETALLE = '#39'Fuera d' +
              'el blister'#39')'#10'  ORDER BY POSICION'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO_DETALLE'
                TableField = 'TIPO_DETALLE'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CONCEPTO'
                TableField = 'CONCEPTO'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'ID_MEDICACION'
                TableField = 'ID_MEDICACION'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'POSOLOGIA'
                TableField = 'POSOLOGIA'
              end
              item
                DatasetField = 'FORMA_COLOR'
                TableField = 'FORMA_COLOR'
              end
              item
                DatasetField = 'LOTE'
                TableField = 'LOTE'
              end>
          end>
        Name = 'InformeMedicaciones_DetallesFueraDeBlister'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_MEDICACION'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSICION'
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 25
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 2000
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
          end
          item
            Name = 'CANTIDAD'
            DataType = datCurrency
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
          end
          item
            Name = 'POSOLOGIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
          end
          item
            Name = 'FORMA_COLOR'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
          end
          item
            Name = 'LOTE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_LOTE'
          end
          item
            Name = 'VISIBLE'
            DataType = datSmallInt
            DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
          end>
        ReadOnly = True
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 40
    Top = 16
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'InformeMedicaciones_ID'
        DataType = datInteger
        DisplayLabel = 'ID'
      end
      item
        Name = 'InformeMedicaciones_ID_PACIENTE'
        DataType = datInteger
        DisplayLabel = 'ID_PACIENTE'
      end
      item
        Name = 'InformeMedicaciones_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
      end
      item
        Name = 'InformeMedicaciones_PACIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Paciente'
      end
      item
        Name = 'InformeMedicaciones_NUMERO_SS'
        DataType = datString
        Size = 255
        DisplayLabel = 'NASS'
      end
      item
        Name = 'InformeMedicaciones_FECHA_DESDE'
        DataType = datDateTime
        DisplayLabel = 'Desde'
      end
      item
        Name = 'InformeMedicaciones_FECHA_HASTA'
        DataType = datDateTime
        DisplayLabel = 'Hasta'
      end
      item
        Name = 'InformeMedicaciones_FARMACEUTICO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Farmac'#233'utico'
      end
      item
        Name = 'InformeMedicaciones_TELEFONO_FARM'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono farmac'#233'utico'
      end
      item
        Name = 'InformeMedicaciones_MOVIL_FARM'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil farmac'#233'utico'
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_ID'
        DataType = datInteger
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
        DataType = datInteger
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_POSICION'
        DataType = datInteger
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
        DataType = datString
        Size = 25
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
        DataType = datInteger
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
        DataType = datString
        Size = 2000
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
        DataType = datCurrency
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_LOTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
        DataType = datSmallInt
      end>
    Left = 38
    Top = 158
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DataSource1
    BCDToCurrency = False
    Left = 264
    Top = 16
  end
  object frxDBDetallesEnBlister: TfrxDBDataset
    UserName = 'frxDBDetallesEnBlister'
    CloseDataSource = False
    DataSource = DataSource2
    BCDToCurrency = False
    Left = 360
    Top = 16
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'C:\Codigo farmacia\Output\Debug\Database\FACTUGES.FDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=ISO8859_1')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    Left = 32
    Top = 256
  end
  object IBTransaction1: TIBTransaction
    Active = True
    Left = 32
    Top = 312
  end
  object DataSource1: TDataSource
    DataSet = cabecera
    Left = 200
    Top = 256
  end
  object DataSource2: TDataSource
    DataSet = detallesenblister
    Left = 200
    Top = 312
  end
  object cabecera: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    SQL.Strings = (
      'SELECT '
      
        '    V_MEDICACION.ID, V_MEDICACION.ID_PACIENTE, V_MEDICACION.REFE' +
        'RENCIA,'
      '    V_MEDICACION.NOMBRE AS PACIENTE, V_MEDICACION.NUMERO_SS,'
      '    V_MEDICACION.FECHA_DESDE, V_MEDICACION.FECHA_HASTA,'
      
        '    EMPRESAS.NOMBRE AS FARMACEUTICO, EMPRESAS.TELEFONO_1 AS TELE' +
        'FONO_FARM,'
      '    EMPRESAS.MOVIL_1 AS MOVIL_FARM'
      '  FROM'
      '    V_MEDICACION, EMPRESAS'
      '  WHERE V_MEDICACION.ID = 2')
    Left = 120
    Top = 256
    object cabeceraID: TIntegerField
      FieldName = 'ID'
      Origin = '"V_MEDICACION"."ID"'
    end
    object cabeceraID_PACIENTE: TIntegerField
      FieldName = 'ID_PACIENTE'
      Origin = '"V_MEDICACION"."ID_PACIENTE"'
    end
    object cabeceraREFERENCIA: TIBStringField
      FieldName = 'REFERENCIA'
      Origin = '"V_MEDICACION"."REFERENCIA"'
      Size = 255
    end
    object cabeceraPACIENTE: TIBStringField
      FieldName = 'PACIENTE'
      Origin = '"V_MEDICACION"."NOMBRE"'
      Size = 255
    end
    object cabeceraNUMERO_SS: TIBStringField
      FieldName = 'NUMERO_SS'
      Origin = '"V_MEDICACION"."NUMERO_SS"'
      Size = 255
    end
    object cabeceraFECHA_DESDE: TDateField
      FieldName = 'FECHA_DESDE'
      Origin = '"V_MEDICACION"."FECHA_DESDE"'
    end
    object cabeceraFECHA_HASTA: TDateField
      FieldName = 'FECHA_HASTA'
      Origin = '"V_MEDICACION"."FECHA_HASTA"'
    end
    object cabeceraFARMACEUTICO: TIBStringField
      FieldName = 'FARMACEUTICO'
      Origin = '"EMPRESAS"."NOMBRE"'
      Size = 255
    end
    object cabeceraTELEFONO_FARM: TIBStringField
      FieldName = 'TELEFONO_FARM'
      Origin = '"EMPRESAS"."TELEFONO_1"'
      Size = 25
    end
    object cabeceraMOVIL_FARM: TIBStringField
      FieldName = 'MOVIL_FARM'
      Origin = '"EMPRESAS"."MOVIL_1"'
      Size = 25
    end
  end
  object detallesenblister: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'SELECT '
      '    ID, ID_MEDICACION, POSICION, TIPO_DETALLE, ID_ARTICULO, '
      '    REFERENCIA, CONCEPTO, CANTIDAD, POSOLOGIA, FORMA_COLOR, '
      '    LOTE, VISIBLE'
      '  FROM'
      '    MEDICACION_DETALLES'
      '  WHERE (ID_MEDICACION = 2) AND'
      '        (TIPO_DETALLE = '#39'En blister'#39')'
      '  ORDER BY POSICION')
    Left = 120
    Top = 312
    object detallesenblisterID: TIntegerField
      FieldName = 'ID'
      Origin = '"MEDICACION_DETALLES"."ID"'
      Required = True
    end
    object detallesenblisterID_MEDICACION: TIntegerField
      FieldName = 'ID_MEDICACION'
      Origin = '"MEDICACION_DETALLES"."ID_MEDICACION"'
      Required = True
    end
    object detallesenblisterPOSICION: TIntegerField
      FieldName = 'POSICION'
      Origin = '"MEDICACION_DETALLES"."POSICION"'
    end
    object detallesenblisterTIPO_DETALLE: TIBStringField
      FieldName = 'TIPO_DETALLE'
      Origin = '"MEDICACION_DETALLES"."TIPO_DETALLE"'
      Size = 25
    end
    object detallesenblisterID_ARTICULO: TIntegerField
      FieldName = 'ID_ARTICULO'
      Origin = '"MEDICACION_DETALLES"."ID_ARTICULO"'
    end
    object detallesenblisterREFERENCIA: TIBStringField
      FieldName = 'REFERENCIA'
      Origin = '"MEDICACION_DETALLES"."REFERENCIA"'
      Size = 255
    end
    object detallesenblisterCONCEPTO: TIBStringField
      FieldName = 'CONCEPTO'
      Origin = '"MEDICACION_DETALLES"."CONCEPTO"'
      Size = 2000
    end
    object detallesenblisterCANTIDAD: TIBBCDField
      FieldName = 'CANTIDAD'
      Origin = '"MEDICACION_DETALLES"."CANTIDAD"'
      Precision = 18
      Size = 2
    end
    object detallesenblisterPOSOLOGIA: TIBStringField
      FieldName = 'POSOLOGIA'
      Origin = '"MEDICACION_DETALLES"."POSOLOGIA"'
      Size = 255
    end
    object detallesenblisterFORMA_COLOR: TIBStringField
      FieldName = 'FORMA_COLOR'
      Origin = '"MEDICACION_DETALLES"."FORMA_COLOR"'
      Size = 255
    end
    object detallesenblisterLOTE: TIBStringField
      FieldName = 'LOTE'
      Origin = '"MEDICACION_DETALLES"."LOTE"'
      Size = 255
    end
    object detallesenblisterVISIBLE: TSmallintField
      FieldName = 'VISIBLE'
      Origin = '"MEDICACION_DETALLES"."VISIBLE"'
    end
  end
  object DADSCabecera: TDADataSource
    DataSet = tbl_Cabecera.Dataset
    DataTable = tbl_Cabecera
    Left = 264
    Top = 72
  end
  object DADSDetallesEnBlister: TDADataSource
    DataSet = tbl_DetallesFueraBlister.Dataset
    DataTable = tbl_DetallesFueraBlister
    Left = 360
    Top = 72
  end
  object tbl_DetallesEnBlister: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_MEDICACION'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_POSICION'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 25
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
      end
      item
        Name = 'POSOLOGIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
      end
      item
        Name = 'FORMA_COLOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
      end
      item
        Name = 'LOTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_LOTE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_LOTE'
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
      end>
    Params = <
      item
        Name = 'ID_MEDICACION'
        Value = '2'
      end>
    MasterParamsMappings.Strings = (
      'ID_FACTURA=ID')
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = Bin2DataStreamer
    LogicalName = 'InformeMedicaciones_DetallesEnBlister'
    IndexDefs = <>
    Left = 360
    Top = 128
  end
  object tbl_Cabecera: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        DictionaryEntry = 'InformeMedicaciones_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_PACIENTE'
        DataType = datInteger
        DictionaryEntry = 'InformeMedicaciones_ID_PACIENTE'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'InformeMedicaciones_REFERENCIA'
      end
      item
        Name = 'PACIENTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Paciente'
        DictionaryEntry = 'InformeMedicaciones_PACIENTE'
      end
      item
        Name = 'NUMERO_SS'
        DataType = datString
        Size = 255
        DisplayLabel = 'NASS'
        DictionaryEntry = 'InformeMedicaciones_NUMERO_SS'
      end
      item
        Name = 'FECHA_DESDE'
        DataType = datDateTime
        DisplayLabel = 'Desde'
        DictionaryEntry = 'InformeMedicaciones_FECHA_DESDE'
      end
      item
        Name = 'FECHA_HASTA'
        DataType = datDateTime
        DisplayLabel = 'Hasta'
        DictionaryEntry = 'InformeMedicaciones_FECHA_HASTA'
      end
      item
        Name = 'FARMACEUTICO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Farmac'#233'utico'
        DictionaryEntry = 'InformeMedicaciones_FARMACEUTICO'
      end
      item
        Name = 'TELEFONO_FARM'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono farmac'#233'utico'
        DictionaryEntry = 'InformeMedicaciones_TELEFONO_FARM'
      end
      item
        Name = 'MOVIL_FARM'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil farmac'#233'utico'
        DictionaryEntry = 'InformeMedicaciones_MOVIL_FARM'
      end>
    Params = <
      item
        Name = 'ID'
        DataType = datInteger
        Value = '2'
        ParamType = daptInput
      end>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = Bin2DataStreamer
    LogicalName = 'InformeMedicaciones'
    IndexDefs = <>
    Left = 264
    Top = 128
  end
  object frxCheckBoxObject1: TfrxCheckBoxObject
    Left = 288
    Top = 256
  end
  object frxChartObject1: TfrxChartObject
    Left = 288
    Top = 304
  end
  object frxGradientObject1: TfrxGradientObject
    Left = 352
    Top = 256
  end
  object frxCrossObject1: TfrxCrossObject
    Left = 352
    Top = 408
  end
  object frxOLEObject1: TfrxOLEObject
    Left = 288
    Top = 408
  end
  object frxBarCodeObject1: TfrxBarCodeObject
    Left = 352
    Top = 360
  end
  object frxRichObject1: TfrxRichObject
    Left = 288
    Top = 360
  end
  object frxReport: TfrxReport
    Version = '4.7.71'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Por defecto'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 40861.487419398100000000
    ReportOptions.LastChange = 40878.727654502300000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      'begin'
      ''
      'end.')
    ShowProgress = False
    StoreInDFM = False
    Left = 121
    Top = 16
  end
  object frxDBDetallesFueraBlister: TfrxDBDataset
    UserName = 'frxDBDetallesFueraBlister'
    CloseDataSource = False
    DataSource = DataSource3
    BCDToCurrency = False
    Left = 480
    Top = 16
  end
  object DADSDetallesFueraBlister: TDADataSource
    DataSet = tbl_DetallesFueraBlister.Dataset
    DataTable = tbl_DetallesFueraBlister
    Left = 480
    Top = 72
  end
  object tbl_DetallesFueraBlister: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_MEDICACION'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_MEDICACION'
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_POSICION'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 25
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_TIPO_DETALLE'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_ID_ARTICULO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_REFERENCIA'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_CANTIDAD'
      end
      item
        Name = 'POSOLOGIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_POSOLOGIA'
      end
      item
        Name = 'FORMA_COLOR'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_FORMA_COLOR'
      end
      item
        Name = 'LOTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_LOTE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_LOTE'
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
        DisplayLabel = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
        DictionaryEntry = 'InformeMedicaciones_DetallesEnBlister_VISIBLE'
      end>
    Params = <
      item
        Name = 'ID_MEDICACION'
        Value = '2'
      end>
    MasterParamsMappings.Strings = (
      'ID_FACTURA=ID')
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = Bin2DataStreamer
    LogicalName = 'InformeMedicaciones_DetallesFueraDeBlister'
    IndexDefs = <>
    Left = 480
    Top = 128
  end
  object detallesfuerablister: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    SQL.Strings = (
      'SELECT '
      '    ID, ID_MEDICACION, POSICION, TIPO_DETALLE, ID_ARTICULO, '
      '    REFERENCIA, CONCEPTO, CANTIDAD, POSOLOGIA, FORMA_COLOR, '
      '    LOTE, VISIBLE'
      '  FROM'
      '    MEDICACION_DETALLES'
      '  WHERE (ID_MEDICACION = 2) AND'
      '        (TIPO_DETALLE = '#39'Fuera del blister'#39')'
      '  ORDER BY POSICION    ')
    Left = 120
    Top = 368
    object detallesfuerablisterID: TIntegerField
      FieldName = 'ID'
      Origin = '"MEDICACION_DETALLES"."ID"'
      Required = True
    end
    object detallesfuerablisterID_MEDICACION: TIntegerField
      FieldName = 'ID_MEDICACION'
      Origin = '"MEDICACION_DETALLES"."ID_MEDICACION"'
      Required = True
    end
    object detallesfuerablisterPOSICION: TIntegerField
      FieldName = 'POSICION'
      Origin = '"MEDICACION_DETALLES"."POSICION"'
    end
    object detallesfuerablisterTIPO_DETALLE: TIBStringField
      FieldName = 'TIPO_DETALLE'
      Origin = '"MEDICACION_DETALLES"."TIPO_DETALLE"'
      Size = 25
    end
    object detallesfuerablisterID_ARTICULO: TIntegerField
      FieldName = 'ID_ARTICULO'
      Origin = '"MEDICACION_DETALLES"."ID_ARTICULO"'
    end
    object detallesfuerablisterREFERENCIA: TIBStringField
      FieldName = 'REFERENCIA'
      Origin = '"MEDICACION_DETALLES"."REFERENCIA"'
      Size = 255
    end
    object detallesfuerablisterCONCEPTO: TIBStringField
      FieldName = 'CONCEPTO'
      Origin = '"MEDICACION_DETALLES"."CONCEPTO"'
      Size = 2000
    end
    object detallesfuerablisterCANTIDAD: TIBBCDField
      FieldName = 'CANTIDAD'
      Origin = '"MEDICACION_DETALLES"."CANTIDAD"'
      Precision = 18
      Size = 2
    end
    object detallesfuerablisterPOSOLOGIA: TIBStringField
      FieldName = 'POSOLOGIA'
      Origin = '"MEDICACION_DETALLES"."POSOLOGIA"'
      Size = 255
    end
    object detallesfuerablisterFORMA_COLOR: TIBStringField
      FieldName = 'FORMA_COLOR'
      Origin = '"MEDICACION_DETALLES"."FORMA_COLOR"'
      Size = 255
    end
    object detallesfuerablisterLOTE: TIBStringField
      FieldName = 'LOTE'
      Origin = '"MEDICACION_DETALLES"."LOTE"'
      Size = 255
    end
    object detallesfuerablisterVISIBLE: TSmallintField
      FieldName = 'VISIBLE'
      Origin = '"MEDICACION_DETALLES"."VISIBLE"'
    end
  end
  object DataSource3: TDataSource
    DataSet = detallesfuerablister
    Left = 200
    Top = 368
  end
  object frxPDFExport1: TfrxPDFExport
    ShowDialog = False
    UseFileCache = True
    ShowProgress = False
    OverwritePrompt = False
    PrintOptimized = True
    Outline = False
    Background = False
    HTMLTags = True
    Author = 'FactuGES'
    Subject = 'FactuGES'
    Creator = 'FactuGES'
    ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
    HideToolbar = False
    HideMenubar = False
    HideWindowUI = False
    FitWindow = False
    CenterWindow = False
    PrintScaling = False
    Left = 416
    Top = 256
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 88
  end
end
