object RptPedidosProveedor: TRptPedidosProveedor
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 522
  Width = 766
  object schReport: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'V_PEDIDOS_PROVEEDOR'
            Name = 'IBX'
            SQL = 
              #10'  '#10'select ID_EMPRESA,'#10'extract (year from fecha_pedido) as ANO,'#10 +
              'extract (month from fecha_pedido) as MES,'#10'case'#10'when extract (mon' +
              'th from fecha_pedido) = 1 then '#39'ENERO - '#39' || extract (year from ' +
              'fecha_pedido)'#10'when extract (month from fecha_pedido) = 2 then '#39'F' +
              'EBRERO - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
              'th from fecha_pedido) = 3 then '#39'MARZO - '#39' || extract (year from ' +
              'fecha_pedido)'#10'when extract (month from fecha_pedido) = 4 then '#39'A' +
              'BRIL - '#39' || extract (year from fecha_pedido)'#10'when extract (month' +
              ' from fecha_pedido) = 5 then '#39'MAYO - '#39' || extract (year from fec' +
              'ha_pedido)'#10'when extract (month from fecha_pedido) = 6 then '#39'JUNI' +
              'O - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
              'om fecha_pedido) = 7 then '#39'JULIO - '#39' || extract (year from fecha' +
              '_pedido)'#10'when extract (month from fecha_pedido) = 8 then '#39'AGOSTO' +
              ' - '#39' || extract (year from fecha_pedido)'#10'when extract (month fro' +
              'm fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' || extract (year from f' +
              'echa_pedido)'#10'when extract (month from fecha_pedido) = 10 then '#39'O' +
              'CTUBRE - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
              'th from fecha_pedido) = 11 then '#39'NOVIEMBRE - '#39' || extract (year ' +
              'from fecha_pedido)'#10'when extract (month from fecha_pedido) = 12 t' +
              'hen '#39'DICIEMBRE - '#39' || extract (year from fecha_pedido)'#10'end as TI' +
              'TULO,'#10'REFERENCIA,  ID_PROVEEDOR, NOMBRE, SITUACION, fecha_pedido' +
              ', FECHA_CONFIRMACION, FECHA_ENTREGA, IMPORTE_TOTAL'#10#10'from V_PEDID' +
              'OS_PROVEEDOR'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'MES'
                TableField = '<unknown>'
                SQLOrigin = 'MES'
              end
              item
                DatasetField = 'TITULO'
                TableField = '<unknown>'
                SQLOrigin = 'TITULO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'ID_PROVEEDOR'
                TableField = 'ID_PROVEEDOR'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHA_PEDIDO'
                TableField = 'FECHA_PEDIDO'
              end
              item
                DatasetField = 'FECHA_CONFIRMACION'
                TableField = 'FECHA_CONFIRMACION'
              end
              item
                DatasetField = 'FECHA_ENTREGA'
                TableField = 'FECHA_ENTREGA'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'ANO'
                TableField = '<unknown>'
                SQLOrigin = 'ANO'
              end>
          end>
        Name = 'InformeListadoPedidos'
        Fields = <
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'ANO'
            DataType = datSmallInt
          end
          item
            Name = 'MES'
            DataType = datSmallInt
          end
          item
            Name = 'TITULO'
            DataType = datString
            Size = 19
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'ID_PROVEEDOR'
            DataType = datInteger
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 9
          end
          item
            Name = 'FECHA_PEDIDO'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_CONFIRMACION'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_ENTREGA'
            DataType = datDateTime
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end>
      end
      item
        IsPublic = False
        Params = <
          item
            Name = 'ID'
            Value = '2'
            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,'#10'  COALESCE(ALMACENE' +
              'S.POBLACION, PEDIDOS_PROVEEDOR.POBLACION) AS POBLACION,'#10'  COALES' +
              'CE(ALMACENES.PROVINCIA, PEDIDOS_PROVEEDOR.PROVINCIA) AS PROVINCI' +
              'A,'#10'  COALESCE(ALMACENES.CODIGO_POSTAL, PEDIDOS_PROVEEDOR.CODIGO_' +
              'POSTAL) AS CODIGO_POSTAL,'#10'  PEDIDOS_PROVEEDOR.PERSONA_CONTACTO A' +
              'S ENTREGAR_A,'#10'  PEDIDOS_PROVEEDOR.IMPORTE_TOTAL'#10'FROM'#10'  PEDIDOS_P' +
              'ROVEEDOR'#10'  INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVE' +
              'EDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN PROVEEDORES_DATOS ON (PROVE' +
              'EDORES_DATOS.ID_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'  LE' +
              'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' +
              ' = PEDIDOS_PROVEEDOR.ID_DIRECCION)'#10'  LEFT OUTER JOIN ALMACENES O' +
              'N (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE PEDIDOS_PR' +
              'OVEEDOR.ID = :ID'#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 = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'FECHA_ENTREGA'
                TableField = 'FECHA_ENTREGA'
              end
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'CODIGO_CLIENTE'
                TableField = 'CODIGO_CLIENTE'
              end
              item
                DatasetField = 'ENTREGAR_A'
                TableField = 'ENTREGAR_A'
              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'
            DataType = datString
            Size = 255
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
          end
          item
            Name = 'ENTREGAR_A'
            DataType = datString
            Size = 255
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end>
        ReadOnly = True
      end
      item
        IsPublic = False
        Params = <
          item
            Name = 'ID_PEDIDO'
            Value = '3'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            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.CANTIDAD,'#10'       DET.UNIDAD_MEDIDA, DET.IMPORTE_UNI' +
              'DAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) a' +
              's IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10'       ARTICULOS_PROVEEDORE' +
              'S.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10'       ARTICULOS.REFE' +
              'RENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETA' +
              'LLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICUL' +
              'OS.ID)'#10'LEFT JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = DE' +
              'T.ID_PEDIDO)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROV' +
              'EEDORES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.I' +
              'D_PROVEEDOR = PEDIDOS_PROVEEDOR.ID_PROVEEDOR))'#10#10'WHERE DET.ID_PED' +
              'IDO = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID' +
              '_PEDIDO, DET.POSICION;'#10#10#10#10#10#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 = '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'
                TableField = 'CONCEPTO'
              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 = '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
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_PEDIDOS_PROVEEDOR'
            SQL = 
              #10'  '#10'select ID_EMPRESA,'#10'extract (year from fecha_pedido) as ANO,'#10 +
              'extract (month from fecha_pedido) as MES,'#10'case'#10'when extract (mon' +
              'th from fecha_pedido) = 1 then '#39'ENERO - '#39' || extract (year from ' +
              'fecha_pedido)'#10'when extract (month from fecha_pedido) = 2 then '#39'F' +
              'EBRERO - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
              'th from fecha_pedido) = 3 then '#39'MARZO - '#39' || extract (year from ' +
              'fecha_pedido)'#10'when extract (month from fecha_pedido) = 4 then '#39'A' +
              'BRIL - '#39' || extract (year from fecha_pedido)'#10'when extract (month' +
              ' from fecha_pedido) = 5 then '#39'MAYO - '#39' || extract (year from fec' +
              'ha_pedido)'#10'when extract (month from fecha_pedido) = 6 then '#39'JUNI' +
              'O - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
              'om fecha_pedido) = 7 then '#39'JULIO - '#39' || extract (year from fecha' +
              '_pedido)'#10'when extract (month from fecha_pedido) = 8 then '#39'AGOSTO' +
              ' - '#39' || extract (year from fecha_pedido)'#10'when extract (month fro' +
              'm fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' || extract (year from f' +
              'echa_pedido)'#10'when extract (month from fecha_pedido) = 10 then '#39'O' +
              'CTUBRE - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
              'th from fecha_pedido) = 11 then '#39'NOVIEMBRE - '#39' || extract (year ' +
              'from fecha_pedido)'#10'when extract (month from fecha_pedido) = 12 t' +
              'hen '#39'DICIEMBRE - '#39' || extract (year from fecha_pedido)'#10'end as TI' +
              'TULO,'#10'sum(IMPORTE_TOTAL) as importe_total'#10#10'from V_PEDIDOS_PROVEE' +
              'DOR'#10'group by 1,2,3,4'#10'order by ANO, MES'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'ANO'
                TableField = '<unknown>'
                SQLOrigin = 'ANO'
              end
              item
                DatasetField = 'MES'
                TableField = '<unknown>'
                SQLOrigin = 'MES'
              end
              item
                DatasetField = 'TITULO'
                TableField = '<unknown>'
                SQLOrigin = 'TITULO'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end>
          end>
        Name = 'InformeListadoPedidosResumen'
        Fields = <
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'ANO'
            DataType = datSmallInt
          end
          item
            Name = 'MES'
            DataType = datSmallInt
          end
          item
            Name = 'TITULO'
            DataType = datString
            Size = 19
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 48
    Top = 16
  end
  object DataDictionary: TDADataDictionary
    Fields = <>
    Left = 46
    Top = 158
  end
  object frxReport: TfrxReport
    Version = '4.3'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    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 = 37800.807714351900000000
    ReportOptions.LastChange = 39840.822843958330000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      ' if Engine.FinalPass then'
      '  begin'
      '    if (<Page#> = <TotalPages#>) then'
      '    begin                      '
      '       mContinua.Visible := False;'
      '    end                 '
      '    else'
      '    begin                '
      '       mContinua.Visible := True;'
      '    end               '
      '  end;               '
      'end;'
      ''
      'begin'
      ''
      'end.')
    ShowProgress = False
    StoreInDFM = False
    OnGetValue = frxReportGetValue
    OnStartReport = 'frxReportOnStartReport'
    Left = 137
    Top = 16
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DADSCabecera
    Left = 360
    Top = 24
  end
  object frxDBDetalles: TfrxDBDataset
    UserName = 'frxDBDetalles'
    CloseDataSource = False
    DataSource = DADSDetalles
    Left = 440
    Top = 24
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=ISO8859_1')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    Left = 48
    Top = 296
  end
  object IBTransaction1: TIBTransaction
    Left = 48
    Top = 352
  end
  object DataSource1: TDataSource
    DataSet = cabecera
    Left = 216
    Top = 296
  end
  object DataSource2: TDataSource
    DataSet = detalles
    Left = 216
    Top = 352
  end
  object cabecera: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'SELECT'
      '  V_PEDIDOS_PROVEEDOR.ID,'
      '  V_PEDIDOS_PROVEEDOR.ID_EMPRESA,'
      '  V_PEDIDOS_PROVEEDOR.REFERENCIA,'
      '  V_PEDIDOS_PROVEEDOR.FECHA_PEDIDO,'
      '  V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'
      '  V_PROVEEDORES.NOMBRE,'
      '  V_PROVEEDORES.FAX,'
      '  V_PROVEEDORES.PERSONA_CONTACTO,'
      '  V_PROVEEDORES.CODIGO_ASIGNADO AS CODIGO_CLIENTE,'
      '  V_PEDIDOS_PROVEEDOR.CALLE,'
      '  V_PEDIDOS_PROVEEDOR.POBLACION,'
      '  V_PEDIDOS_PROVEEDOR.PROVINCIA,'
      '  V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'
      '  V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A'
      'FROM'
      '  V_PEDIDOS_PROVEEDOR'
      
        '  LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS' +
        '_PROVEEDOR.ID_PROVEEDOR)'
      'WHERE V_PEDIDOS_PROVEEDOR.ID = 2')
    Left = 136
    Top = 296
    object cabeceraID: TIntegerField
      FieldName = 'ID'
      Origin = '"V_PEDIDOS_PROVEEDOR"."ID"'
    end
    object cabeceraID_EMPRESA: TIntegerField
      FieldName = 'ID_EMPRESA'
      Origin = '"V_PEDIDOS_PROVEEDOR"."ID_EMPRESA"'
    end
    object cabeceraREFERENCIA: TIBStringField
      FieldName = 'REFERENCIA'
      Origin = '"V_PEDIDOS_PROVEEDOR"."REFERENCIA"'
      Size = 255
    end
    object cabeceraFECHA_PEDIDO: TDateField
      FieldName = 'FECHA_PEDIDO'
      Origin = '"V_PEDIDOS_PROVEEDOR"."FECHA_PEDIDO"'
    end
    object cabeceraOBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      Origin = '"V_PEDIDOS_PROVEEDOR"."OBSERVACIONES"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
    object cabeceraNOMBRE: TIBStringField
      FieldName = 'NOMBRE'
      Origin = '"V_PROVEEDORES"."NOMBRE"'
      Size = 255
    end
    object cabeceraFAX: TIBStringField
      FieldName = 'FAX'
      Origin = '"V_PROVEEDORES"."FAX"'
      Size = 25
    end
    object cabeceraPERSONA_CONTACTO: TIBStringField
      FieldName = 'PERSONA_CONTACTO'
      Origin = '"V_PROVEEDORES"."PERSONA_CONTACTO"'
      Size = 255
    end
    object cabeceraCODIGO_CLIENTE: TIBStringField
      FieldName = 'CODIGO_CLIENTE'
      Origin = '"V_PROVEEDORES"."CODIGO_ASIGNADO"'
      Size = 255
    end
    object cabeceraCALLE: TIBStringField
      FieldName = 'CALLE'
      Origin = '"V_PEDIDOS_PROVEEDOR"."CALLE"'
      Size = 255
    end
    object cabeceraPOBLACION: TIBStringField
      FieldName = 'POBLACION'
      Origin = '"V_PEDIDOS_PROVEEDOR"."POBLACION"'
      Size = 255
    end
    object cabeceraPROVINCIA: TIBStringField
      FieldName = 'PROVINCIA'
      Origin = '"V_PEDIDOS_PROVEEDOR"."PROVINCIA"'
      Size = 255
    end
    object cabeceraCODIGO_POSTAL: TIBStringField
      FieldName = 'CODIGO_POSTAL'
      Origin = '"V_PEDIDOS_PROVEEDOR"."CODIGO_POSTAL"'
      Size = 10
    end
    object cabeceraENTREGAR_A: TIBStringField
      FieldName = 'ENTREGAR_A'
      Origin = '"V_PEDIDOS_PROVEEDOR"."PERSONA_CONTACTO"'
      Size = 255
    end
  end
  object detalles: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'SELECT DET.ID, DET.ID_PEDIDO,'
      '       DET.POSICION, DET.TIPO_DETALLE,'
      '       ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'
      '       DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'
      '       ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'
      '       ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'
      'FROM PEDIDOS_PROVEEDOR_DETALLES DET'
      'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'
      'WHERE DET.ID_PEDIDO = 2 AND DET.VISIBLE = 1 '
      'ORDER BY DET.ID_PEDIDO, DET.POSICION;')
    Left = 136
    Top = 352
    object detallesID: TIntegerField
      FieldName = 'ID'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."ID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object detallesID_PEDIDO: TIntegerField
      FieldName = 'ID_PEDIDO'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."ID_PEDIDO"'
      Required = True
    end
    object detallesPOSICION: TIntegerField
      FieldName = 'POSICION'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."POSICION"'
    end
    object detallesTIPO_DETALLE: TIBStringField
      FieldName = 'TIPO_DETALLE'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."TIPO_DETALLE"'
      Size = 10
    end
    object detallesREFERENCIA: TIBStringField
      FieldName = 'REFERENCIA'
      Origin = '"ARTICULOS"."REFERENCIA"'
      Size = 255
    end
    object detallesCONCEPTO: TIBStringField
      FieldName = 'CONCEPTO'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."CONCEPTO"'
      Size = 2000
    end
    object detallesCANTIDAD: TIntegerField
      FieldName = 'CANTIDAD'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."CANTIDAD"'
    end
    object detallesUNIDAD_MEDIDA: TIBStringField
      FieldName = 'UNIDAD_MEDIDA'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."UNIDAD_MEDIDA"'
      Size = 255
    end
    object detallesIMPORTE_UNIDAD: TIBBCDField
      FieldName = 'IMPORTE_UNIDAD'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."IMPORTE_UNIDAD"'
      Precision = 18
      Size = 2
    end
    object detallesIMPORTE_TOTAL: TIBBCDField
      FieldName = 'IMPORTE_TOTAL'
      Origin = '"PEDIDOS_PROVEEDOR_DETALLES"."IMPORTE_TOTAL"'
      Precision = 18
      Size = 2
    end
    object detallesREFERENCIA_PROVEEDOR: TIBStringField
      FieldName = 'REFERENCIA_PROVEEDOR'
      Origin = '"ARTICULOS"."REFERENCIA_PROV"'
      Size = 255
    end
    object detallesREFERENCIA_FABRICANTE: TIBStringField
      FieldName = 'REFERENCIA_FABRICANTE'
      Origin = '"ARTICULOS"."REFERENCIA_FABR"'
      Size = 255
    end
  end
  object frxCheckBoxObject1: TfrxCheckBoxObject
    Left = 360
    Top = 248
  end
  object frxChartObject1: TfrxChartObject
    Left = 360
    Top = 296
  end
  object frxGradientObject1: TfrxGradientObject
    Left = 440
    Top = 248
  end
  object frxCrossObject1: TfrxCrossObject
    Left = 440
    Top = 400
  end
  object frxOLEObject1: TfrxOLEObject
    Left = 360
    Top = 400
  end
  object frxBarCodeObject1: TfrxBarCodeObject
    Left = 440
    Top = 352
  end
  object frxRichObject1: TfrxRichObject
    Left = 360
    Top = 352
  end
  object DADSCabecera: TDADataSource
    DataSet = tbl_Cabecera.Dataset
    DataTable = tbl_Cabecera
    Left = 360
    Top = 80
  end
  object DADSDetalles: TDADataSource
    DataSet = tbl_Detalles.Dataset
    DataTable = tbl_Detalles
    Left = 440
    Top = 80
  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 = 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 = '3'
        ParamType = daptInput
      end>
    MasterParamsMappings.Strings = (
      'ID_PEDIDO=ID')
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer1
    DetailFields = 'ID_PEDIDO'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Informe_Detalles'
    IndexDefs = <>
    Left = 440
    Top = 136
  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'
        DataType = datString
        Size = 255
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
      end
      item
        Name = 'ENTREGAR_A'
        DataType = datString
        Size = 255
      end>
    Params = <
      item
        Name = 'ID'
        Value = '2'
        ParamType = daptInput
      end>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer1
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Informe_Cabecera'
    IndexDefs = <>
    Left = 360
    Top = 136
  end
  object frxPDFExport1: TfrxPDFExport
    ShowDialog = False
    UseFileCache = True
    ShowProgress = False
    PrintOptimized = True
    Outline = False
    Author = 'FactuGES'
    Subject = 'FactuGES'
    Background = False
    Creator = 'FactuGES'
    HTMLTags = True
    Left = 440
    Top = 296
  end
  object frxDBInformeListadoPedidos: TfrxDBDataset
    UserName = 'frxDBInformeListadoPedidos'
    CloseDataSource = False
    DataSource = DADSInformeListadoPedidos
    Left = 600
    Top = 24
  end
  object DADSInformeListadoPedidos: TDADataSource
    DataSet = tbl_InformeListadoPedidos.Dataset
    DataTable = tbl_InformeListadoPedidos
    Left = 600
    Top = 80
  end
  object tbl_InformeListadoPedidos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'MES'
        DataType = datSmallInt
      end
      item
        Name = 'TITULO'
        DataType = datString
        Size = 19
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 9
      end
      item
        Name = 'FECHA_PEDIDO'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_CONFIRMACION'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_ENTREGA'
        DataType = datDateTime
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end>
    Params = <>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer1
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'InformeListadoPedidos'
    IndexDefs = <>
    Left = 600
    Top = 136
  end
  object frxDBInformeListadoPedidosResumen: TfrxDBDataset
    UserName = 'frxDBInformeListadoPedidosResumen'
    CloseDataSource = False
    DataSource = DADSInformeListadoPedidosResumen
    Left = 600
    Top = 208
  end
  object DADSInformeListadoPedidosResumen: TDADataSource
    DataSet = tbl_InformeListadoPedidosResumen.Dataset
    DataTable = tbl_InformeListadoPedidosResumen
    Left = 600
    Top = 264
  end
  object tbl_InformeListadoPedidosResumen: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 600
    Top = 320
  end
  object DABin2DataStreamer1: TDABin2DataStreamer
    Left = 48
    Top = 80
  end
end
