object RptWordPedidoProveedor: TRptWordPedidoProveedor
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 223
  Width = 337
  object schReport: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        IsPublic = False
        Params = <
          item
            Name = 'ID'
            Value = '3'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT'#10'  PEDIDOS_PROVEEDOR.ID,'#10'  PEDIDOS_PROVEEDOR.ID_EMPRESA,'#10' ' +
              ' PEDIDOS_PROVEEDOR.REFERENCIA,'#10'  PEDIDOS_PROVEEDOR.FECHA_PEDIDO,' +
              #10'  PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10'  PEDIDOS_PROVEEDOR.OBSERVAC' +
              'IONES,'#10'  CONTACTOS.NOMBRE,'#10'  COALESCE(CONTACTOS_DIRECCIONES.FAX,' +
              ' CONTACTOS.FAX) AS FAX,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO_PRO' +
              'V AS PERSONA_CONTACTO,'#10'  PROVEEDORES_DATOS.CODIGO_ASIGNADO AS CO' +
              'DIGO_CLIENTE,'#10'  PEDIDOS_PROVEEDOR.ID_ALMACEN,'#10'  COALESCE(ALMACEN' +
              'ES.CALLE, PEDIDOS_PROVEEDOR.CALLE) AS CALLE_ALMACEN,'#10'  COALESCE(' +
              'ALMACENES.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION_A' +
              'LMACEN,'#10'  COALESCE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVIN' +
              'CIA) AS PROVINCIA_ALMACEN,'#10'  COALESCE(ALMACENES.CODIGO_POSTAL, P' +
              'EDIDOS_PROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL_ALMACEN,'#10'  PEDI' +
              'DOS_PROVEEDOR.PERSONA_CONTACTO AS PERSONA_CONTACTO_ALMACEN,'#10'  PE' +
              'DIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10'  PEDIDOS_PROVEEDOR'#10'  INNER J' +
              'OIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)' +
              #10'  LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PR' +
              'OVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN ALMA' +
              'CENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'  LEFT OU' +
              'TER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = PE' +
              'DIDOS_PROVEEDOR.ID_DIRECCION)'#10'WHERE PEDIDOS_PROVEEDOR.ID = :ID'#10#10 +
              #10#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHA_PEDIDO'
                TableField = 'FECHA_PEDIDO'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'CALLE_ALMACEN'
                TableField = 'CALLE_ALMACEN'
              end
              item
                DatasetField = 'POBLACION_ALMACEN'
                TableField = 'POBLACION_ALMACEN'
              end
              item
                DatasetField = 'PROVINCIA_ALMACEN'
                TableField = 'PROVINCIA_ALMACEN'
              end
              item
                DatasetField = 'CODIGO_POSTAL_ALMACEN'
                TableField = 'CODIGO_POSTAL_ALMACEN'
              end
              item
                DatasetField = 'PERSONA_CONTACTO_ALMACEN'
                TableField = 'PERSONA_CONTACTO_ALMACEN'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'FECHA_ENTREGA'
                TableField = 'FECHA_ENTREGA'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end
              item
                DatasetField = 'CODIGO_CLIENTE'
                TableField = 'CODIGO_CLIENTE'
              end>
          end>
        Name = 'Informe_Cabecera'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FECHA_PEDIDO'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_ENTREGA'
            DataType = datDateTime
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
          end
          item
            Name = 'CALLE_ALMACEN'
            DataType = datString
            Size = 255
          end
          item
            Name = 'POBLACION_ALMACEN'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PROVINCIA_ALMACEN'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL_ALMACEN'
            DataType = datString
            Size = 10
          end
          item
            Name = 'PERSONA_CONTACTO_ALMACEN'
            DataType = datString
            Size = 255
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end>
        ReadOnly = True
      end
      item
        IsPublic = False
        Params = <
          item
            Name = 'ID_PEDIDO'
            Value = '2'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            SQL = 
              'SELECT DET.ID, DET.ID_PEDIDO,'#10'       DET.POSICION, DET.TIPO_DETA' +
              'LLE,'#10'       ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
              'ONCEPTO, DET.CONCEPTO as CONCEPTO_RTF,'#10'       DET.CANTIDAD,'#10'    ' +
              '   DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD *' +
              ' (DET.DESCUENTO / 100)) as IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10'  ' +
              '     ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERENCIA_PROVEED' +
              'OR,'#10'       ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10'FR' +
              'OM PEDIDOS_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (' +
              'DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (' +
              'PEDIDOS_PROVEEDOR.ID = DET.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEE' +
              'DORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICULO = ARTICULOS.ID) AND' +
              ' (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROV' +
              'EEDOR))'#10#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VISIBLE = 1 AN' +
              'D {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_PEDIDO'
                TableField = 'ID_PEDIDO'
              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 = 'UNIDAD_MEDIDA'
                TableField = 'UNIDAD_MEDIDA'
              end
              item
                DatasetField = 'IMPORTE_UNIDAD'
                TableField = 'IMPORTE_UNIDAD'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              end
              item
                DatasetField = 'REFERENCIA_FABRICANTE'
                TableField = 'REFERENCIA_FABRICANTE'
              end
              item
                DatasetField = 'CONCEPTO_RTF'
                TableField = 'CONCEPTO_RTF'
              end>
          end>
        Name = 'Informe_Detalles'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          end
          item
            Name = 'ID_PEDIDO'
            DataType = datInteger
          end
          item
            Name = 'POSICION'
            DataType = datInteger
          end
          item
            Name = 'TIPO_DETALLE'
            DataType = datString
            Size = 25
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CONCEPTO'
            DataType = datString
            Size = 32765
          end
          item
            Name = 'CONCEPTO_RTF'
            DataType = datString
            Size = 2000
          end
          item
            Name = 'CANTIDAD'
            DataType = datFloat
          end
          item
            Name = 'UNIDAD_MEDIDA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA_FABRICANTE'
            DataType = datString
            Size = 255
          end>
        ReadOnly = True
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 48
    Top = 16
  end
  object DataDictionary: TDADataDictionary
    Fields = <>
    Left = 46
    Top = 142
  end
  object DABin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 80
  end
  object tbl_Cabecera: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_PEDIDO'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_ENTREGA'
        DataType = datDateTime
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FAX'
        DataType = datString
        Size = 25
      end
      item
        Name = 'PERSONA_CONTACTO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CODIGO_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CALLE_ALMACEN'
        DataType = datString
        Size = 255
      end
      item
        Name = 'POBLACION_ALMACEN'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PROVINCIA_ALMACEN'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CODIGO_POSTAL_ALMACEN'
        DataType = datString
        Size = 10
      end
      item
        Name = 'PERSONA_CONTACTO_ALMACEN'
        DataType = datString
        Size = 255
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end>
    Params = <
      item
        Name = 'ID'
        Value = '3'
        ParamType = daptInput
      end>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer
    LogicalName = 'Informe_Cabecera'
    IndexDefs = <>
    Left = 168
    Top = 16
  end
  object tbl_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
      end
      item
        Name = 'ID_PEDIDO'
        DataType = datInteger
      end
      item
        Name = 'POSICION'
        DataType = datInteger
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 25
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 32765
      end
      item
        Name = 'CONCEPTO_RTF'
        DataType = datString
        Size = 2000
      end
      item
        Name = 'CANTIDAD'
        DataType = datFloat
      end
      item
        Name = 'UNIDAD_MEDIDA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_FABRICANTE'
        DataType = datString
        Size = 255
      end>
    Params = <
      item
        Name = 'ID_PEDIDO'
        Value = '2'
        ParamType = daptInput
      end>
    MasterParamsMappings.Strings = (
      'ID_PRESUPUESTO=ID_PRESUPUESTO')
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer
    LogicalName = 'Informe_Detalles'
    IndexDefs = <>
    Left = 264
    Top = 16
  end
  object tbl_Empresa: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <
      item
        Name = 'ID'
        Value = '31'
        ParamType = daptInput
      end>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LogicalName = 'Empresa'
    IndexDefs = <>
    Left = 168
    Top = 80
  end
end
