object RptPedidosCliente: TRptPedidosCliente
  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'  V_PEDIDOS_CLIENTE.ID,'#10'  V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' +
              ' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10'  V_PEDIDOS_CLIENTE.NOMBRE,'#10'  V_C' +
              'LIENTES.NOMBRE_COMERCIAL,'#10'  V_PEDIDOS_CLIENTE.REFERENCIA,'#10'  V_PE' +
              'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10'  V_PEDIDOS_CLIENTE.SITUACION,' +
              #10'  V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10'  V_PEDIDOS_CLIENTE.CALLE,'#10'  ' +
              'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10'  V_PEDIDOS_CLIENTE.POBLACION,'#10 +
              '  V_PEDIDOS_CLIENTE.PROVINCIA,'#10'  V_PEDIDOS_CLIENTE.PERSONA_CONTA' +
              'CTO,'#10'  V_PEDIDOS_CLIENTE.TELEFONO,'#10'  V_PEDIDOS_CLIENTE.OBSERVACI' +
              'ONES,'#10'  V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10'  V_PEDIDOS_CLIENTE.INCID' +
              'ENCIAS_ACTIVAS,'#10'  V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10'  V_PEDIDOS_CLIE' +
              'NTE.FECHA_MODIFICACION,'#10'  V_PEDIDOS_CLIENTE.USUARIO,'#10'  V_PEDIDOS' +
              '_CLIENTE.IMPORTE_NETO,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10'  V_PE' +
              'DIDOS_CLIENTE.DESCUENTO,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 +
              '  V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10'  V_PEDIDOS_CLIENTE.IVA,'#10'  V' +
              '_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
              #10'  V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10'  EMPRESAS.NOMBRE AS NOMBRE_' +
              'EMPRESA,'#10'  EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10'  EMPRESAS' +
              '.FAX as FAX_EMPRESA,'#10'  V_CLIENTES.IDIOMA_ISO,'#10'  V_PEDIDOS_CLIENT' +
              'E.PAIS'#10'FROM'#10'  V_PEDIDOS_CLIENTE'#10'  LEFT OUTER JOIN EMPRESAS ON (V' +
              '_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10'  LEFT OUTER JOIN V_C' +
              'LIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE'#10 +
              '  V_PEDIDOS_CLIENTE.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 = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              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 = 'ID_CLIENTE'
                TableField = 'ID_CLIENTE'
              end
              item
                DatasetField = 'NOMBRE_COMERCIAL'
                TableField = 'NOMBRE_COMERCIAL'
              end
              item
                DatasetField = 'REFERENCIA_CLIENTE'
                TableField = 'REFERENCIA_CLIENTE'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'TELEFONO'
                TableField = 'TELEFONO'
              end
              item
                DatasetField = 'INCIDENCIAS'
                TableField = 'INCIDENCIAS'
              end
              item
                DatasetField = 'INCIDENCIAS_ACTIVAS'
                TableField = 'INCIDENCIAS_ACTIVAS'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'IMPORTE_NETO'
                TableField = 'IMPORTE_NETO'
              end
              item
                DatasetField = 'IMPORTE_PORTE'
                TableField = 'IMPORTE_PORTE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTE_DESCUENTO'
                TableField = 'IMPORTE_DESCUENTO'
              end
              item
                DatasetField = 'BASE_IMPONIBLE'
                TableField = 'BASE_IMPONIBLE'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTE_IVA'
                TableField = 'IMPORTE_IVA'
              end
              item
                DatasetField = 'ID_FORMA_PAGO'
                TableField = 'ID_FORMA_PAGO'
              end
              item
                DatasetField = 'NOMBRE_EMPRESA'
                TableField = 'NOMBRE_EMPRESA'
              end
              item
                DatasetField = 'TELEFONO_1_EMPRESA'
                TableField = 'TELEFONO_1_EMPRESA'
              end
              item
                DatasetField = 'FAX_EMPRESA'
                TableField = 'FAX_EMPRESA'
              end
              item
                DatasetField = 'IDIOMA_ISO'
                TableField = 'IDIOMA_ISO'
              end
              item
                DatasetField = 'PAIS'
                TableField = 'PAIS'
              end>
          end>
        Name = 'Informe_Cabecera'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'ID_CLIENTE'
            DataType = datInteger
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'NOMBRE_COMERCIAL'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 10
          end
          item
            Name = 'FECHA_PEDIDO'
            DataType = datDateTime
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
          end
          item
            Name = 'INCIDENCIAS_ACTIVAS'
            DataType = datSmallInt
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 30
          end
          item
            Name = 'IMPORTE_NETO'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_PORTE'
            DataType = datCurrency
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_DESCUENTO'
            DataType = datCurrency
          end
          item
            Name = 'BASE_IMPONIBLE'
            DataType = datCurrency
          end
          item
            Name = 'IVA'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_IVA'
            DataType = datCurrency
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
          end
          item
            Name = 'NOMBRE_EMPRESA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'TELEFONO_1_EMPRESA'
            DataType = datString
            Size = 25
          end
          item
            Name = 'FAX_EMPRESA'
            DataType = datString
            Size = 25
          end
          item
            Name = 'IDIOMA_ISO'
            DataType = datString
            Size = 2
          end
          item
            Name = 'PAIS'
            DataType = datString
            Size = 255
          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.IMPORTE_UNIDAD - (DET.IMPORTE_' +
              'UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, D' +
              'ET.IMPORTE_TOTAL,'#10'       ARTICULOS.REFERENCIA_PROV as REFERENCIA' +
              '_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ART' +
              'ICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLI' +
              'ENTE ON (PEDIDOS_CLIENTE.ID = DET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDID' +
              'O = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_P' +
              'EDIDO, DET.POSICION;'#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 = 'IMPORTE_UNIDAD'
                TableField = 'IMPORTE_UNIDAD'
              end
              item
                DatasetField = 'IMPORTE_TOTAL'
                TableField = 'IMPORTE_TOTAL'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              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 = datCurrency
          end
          item
            Name = 'IMPORTE_UNIDAD'
            DataType = datFloat
          end
          item
            Name = 'IMPORTE_TOTAL'
            DataType = datCurrency
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            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.7.71'
    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 = 39065.872423495400000000
    ReportOptions.LastChange = 41807.715566319440000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
      'var'
      '  ACadena : String;'
      'begin'
      '  ACadena := '#39#39';'
      '  DireccionEnvio.Lines.Clear;'
      '  if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
      '     ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
      ''
      '  if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
      
        '     ACadena := ACadena + '#39'  '#39' + <frxDBCabecera."PERSONA_CONTACT' +
        'O">;'
      ''
      '  DireccionEnvio.Lines.Add(ACadena);'
      '  ACadena := '#39#39';'
      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
      '     ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
      ''
      '  if (ACadena <> '#39#39') then'
      '       DireccionEnvio.Lines.Add(ACadena);'
      ''
      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
      ''
      '  if (<frxDBCabecera."PAIS"> <> '#39#39') then'
      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PAIS">);'
      '    '
      '  if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
      '       DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
      'end;'
      ''
      'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if not Engine.FinalPass then'
      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
      ''
      '  if Engine.FinalPass then'
      '     Set('#39'Pagina'#39', (<Pagina> + 1));'
      'end;'
      ''
      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
      'begin'
      '  Set('#39'Pagina'#39', 0);'
      '  Set('#39'TotalPaginas'#39', 0);'
      'end;'
      ''
      'procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if <ImprimirPrecio> then'
      '  begin              '
      '     eImporteUnidad.Visible := True;  '
      '     lImporteUnidad.Visible := True;  '
      '     eImporteTotal.Visible := True;  '
      '     lImporteTotal.Visible := True;  '
      '     ImporteUnidad.Visible := True;  '
      '     ImporteTotal.Visible := True;           '
      '  end'
      '  else'
      '  begin              '
      '     eImporteUnidad.Visible := False;  '
      '     lImporteUnidad.Visible := False;  '
      '     eImporteTotal.Visible := False;  '
      '     lImporteTotal.Visible := False;  '
      '     ImporteUnidad.Visible := False;  '
      '     ImporteTotal.Visible := False;'
      
        '     eConcepto.Width := eConcepto.Width + ImporteTotal.Width + I' +
        'mporteUnidad.Width;'
      '     Concepto.Width :=eConcepto.Width - 10;         '
      '  end'
      'end;'
      ''
      'procedure Overlay1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  if <ShowLogotipo> then'
      '  begin'
      
        '     Overlay1.Visible := True;                                  ' +
        '     '
      '  end'
      '  else'
      '  begin              '
      '     Overlay1.Visible := False;   '
      '  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
    BCDToCurrency = False
    Left = 360
    Top = 24
  end
  object frxDBDetalles: TfrxDBDataset
    UserName = 'frxDBDetalles'
    CloseDataSource = False
    DataSource = DADSDetalles
    BCDToCurrency = False
    Left = 440
    Top = 24
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Codigo\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 = 32765
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        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'
    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 = 'ID_CLIENTE'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'NOMBRE_COMERCIAL'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 10
      end
      item
        Name = 'FECHA_PEDIDO'
        DataType = datDateTime
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PERSONA_CONTACTO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'TELEFONO'
        DataType = datString
        Size = 25
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
      end
      item
        Name = 'INCIDENCIAS'
        DataType = datMemo
      end
      item
        Name = 'INCIDENCIAS_ACTIVAS'
        DataType = datSmallInt
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 30
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
      end
      item
        Name = 'IVA'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE_EMPRESA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'TELEFONO_1_EMPRESA'
        DataType = datString
        Size = 25
      end
      item
        Name = 'FAX_EMPRESA'
        DataType = datString
        Size = 25
      end
      item
        Name = 'IDIOMA_ISO'
        DataType = datString
        Size = 2
      end
      item
        Name = 'PAIS'
        DataType = datString
        Size = 255
      end>
    Params = <
      item
        Name = 'ID'
        Value = '2'
        ParamType = daptInput
      end>
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    LocalSchema = schReport
    LocalDataStreamer = DABin2DataStreamer1
    LogicalName = 'Informe_Cabecera'
    IndexDefs = <>
    Left = 360
    Top = 136
  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 = 440
    Top = 296
  end
  object frxDBInformeListadoPedidos: TfrxDBDataset
    UserName = 'frxDBInformeListadoPedidos'
    CloseDataSource = False
    DataSource = DADSInformeListadoPedidos
    BCDToCurrency = False
    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
    LogicalName = 'InformeListadoPedidos'
    IndexDefs = <>
    Left = 600
    Top = 136
  end
  object frxDBInformeListadoPedidosResumen: TfrxDBDataset
    UserName = 'frxDBInformeListadoPedidosResumen'
    CloseDataSource = False
    DataSource = DADSInformeListadoPedidosResumen
    BCDToCurrency = False
    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
    IndexDefs = <>
    Left = 600
    Top = 320
  end
  object DABin2DataStreamer1: TDABin2DataStreamer
    Left = 48
    Top = 80
  end
end