object RptEtiquetasContacto: TRptEtiquetasContacto
  OldCreateOrder = True
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 405
  Width = 447
  object DADataCabecera: TDADataSource
    DataSet = tbl_Contactos.Dataset
    DataTable = tbl_Contactos
    Left = 264
    Top = 72
  end
  object tbl_Contactos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    LogChanges = False
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    IndexDefs = <>
    Left = 264
    Top = 128
  end
  object frxRichObject1: TfrxRichObject
    Left = 48
    Top = 296
  end
  object frxBarCodeObject1: TfrxBarCodeObject
    Left = 144
    Top = 296
  end
  object frxOLEObject1: TfrxOLEObject
    Left = 48
    Top = 344
  end
  object frxCrossObject1: TfrxCrossObject
    Left = 144
    Top = 344
  end
  object frxCheckBoxObject1: TfrxCheckBoxObject
    Left = 256
    Top = 296
  end
  object frxGradientObject1: TfrxGradientObject
    Left = 360
    Top = 296
  end
  object frxChartObject1: TfrxChartObject
    Left = 256
    Top = 344
  end
  object schReport: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_CONTACTOS'
            SQL = 
              'select'#10'    ID,'#10'    NIF_CIF,'#10'    NOMBRE,'#10'    PERSONA_CONTACTO,'#10'  ' +
              '  CALLE,'#10'    POBLACION,'#10'    PROVINCIA,'#10'    CODIGO_POSTAL,'#10'    PA' +
              'IS'#10'from CONTACTOS'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              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 = 'PAIS'
                TableField = 'PAIS'
              end>
          end>
        Name = 'InformeEtiquetasContacto'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PERSONA_CONTACTO'
            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 = 'PAIS'
            DataType = datString
            Size = 255
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 48
    Top = 16
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'FacturasCliente_ID'
        DataType = datAutoInc
        Required = True
        DisplayLabel = 'ID'
      end
      item
        Name = 'FacturasCliente_ID_EMPRESA'
        DataType = datInteger
        DisplayLabel = 'ID_EMPRESA'
      end
      item
        Name = 'FacturasCliente_ID_CONTRATO'
        DataType = datInteger
        DisplayLabel = 'ID_CONTRATO'
      end
      item
        Name = 'FacturasCliente_FECHA_FACTURA'
        DataType = datDateTime
        DisplayLabel = 'Fecha de las factura'
      end
      item
        Name = 'FacturasCliente_VENCIMIENTO'
        DataType = datInteger
        DisplayLabel = 'Vencimiento'
      end
      item
        Name = 'FacturasCliente_SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
      end
      item
        Name = 'FacturasCliente_BASE_IMPONIBLE'
        DataType = datFloat
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_IMPORTE_DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_IMPORTE_IVA'
        DataType = datFloat
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_IMPORTE_TOTAL'
        DataType = datFloat
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_FORMA_PAGO'
        DataType = datMemo
        DisplayLabel = 'Forma de pago'
      end
      item
        Name = 'FacturasCliente_ID_CLIENTE'
        DataType = datInteger
        DisplayLabel = 'ID_CLIENTE'
      end
      item
        Name = 'FacturasCliente_NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
      end
      item
        Name = 'FacturasCliente_CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
      end
      item
        Name = 'FacturasCliente_FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'FECHA_ALTA'
      end
      item
        Name = 'FacturasCliente_FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'FECHA_MODIFICACION'
      end
      item
        Name = 'FacturasCliente_OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
      end
      item
        Name = 'FacturasCliente_NOMBRE'
        DataType = datString
        Size = 100
        DisplayLabel = 'Cliente'
      end
      item
        Name = 'FacturasCliente_CALLE'
        DataType = datString
        Size = 150
        DisplayLabel = 'Direcci'#243'n'
      end
      item
        Name = 'FacturasCliente_PROVINCIA'
        DataType = datString
        Size = 30
        DisplayLabel = 'Provincia'
      end
      item
        Name = 'FacturasCliente_POBLACION'
        DataType = datString
        Size = 150
        DisplayLabel = 'Poblaci'#243'n'
      end
      item
        Name = 'FacturasCliente_IVA'
        DataType = datFloat
        DisplayLabel = 'IVA'
      end
      item
        Name = 'FacturasCliente_USUARIO'
        DataType = datString
        Size = 100
        DisplayLabel = 'USUARIO'
      end
      item
        Name = 'FacturasCliente_REFERENCIA'
        DataType = datString
        Size = 20
        DisplayLabel = 'Referencia'
      end
      item
        Name = 'FacturasCliente_DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Dto.'
      end
      item
        Name = 'FacturasCliente_Detalles_ID'
        DataType = datAutoInc
        Required = True
        DisplayLabel = 'ID'
      end
      item
        Name = 'FacturasCliente_Detalles_ID_FACTURA'
        DataType = datInteger
        DisplayLabel = 'ID_FACTURA'
      end
      item
        Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
        DataType = datString
        Size = 10
        DisplayLabel = 'Tipo detalle'
      end
      item
        Name = 'FacturasCliente_Detalles_CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'Concepto'
      end
      item
        Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
        DataType = datFloat
        DisplayLabel = 'Importe unidad'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
        DataType = datFloat
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
      end
      item
        Name = 'FacturasCliente_Detalles_VISIBLE'
        DataType = datInteger
        DisplayLabel = #191'Visible?'
      end
      item
        Name = 'FacturasCliente_Detalles_POSICION'
        DataType = datInteger
        DisplayLabel = 'Posici'#243'n'
      end
      item
        Name = 'FacturasCliente_Detalles_CANTIDAD'
        DataType = datInteger
        DisplayLabel = 'Cantidad'
      end>
    Left = 46
    Top = 158
  end
  object frxReport: TfrxReport
    Version = '4.7.71'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Por defecto'
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 38330.712904247710000000
    ReportOptions.LastChange = 39328.775946539350000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
      'var'
      '  Cadena: String;'
      'begin'
      '  Cadena := '#39#39';'
      ''
      '  if (<frxDBCabecera."NOMBRE"> <> '#39#39') then'
      '     Cadena := UPPERCASE(<frxDBCabecera."NOMBRE">);'
      ''
      '  Memo2.Lines.Clear;'
      '  Memo2.Lines.Add(Cadena);'
      ''
      '  if (<frxDBCabecera."CALLE"> <> '#39#39') then'
      '     Cadena := UPPERCASE(<frxDBCabecera."CALLE">);'
      '  Memo2.Lines.Add(Cadena);'
      ''
      '  Cadena := '#39#39';'
      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
      '     Cadena := UPPERCASE(<frxDBCabecera."CODIGO_POSTAL">);'
      ''
      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
      '     if (Cadena <> '#39#39') then'
      
        '        Cadena := Cadena + '#39'  '#39' + UPPERCASE(<frxDBCabecera."POBL' +
        'ACION">);'
      ''
      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39')'
      
        '  and (<frxDBCabecera."POBLACION"> <> <frxDBCabecera."PROVINCIA"' +
        '>) then'
      '  begin'
      '     if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
      
        '        Cadena := Cadena + '#39'  ('#39' + UPPERCASE(<frxDBCabecera."PRO' +
        'VINCIA">) + '#39')'#39
      '     else'
      
        '        Cadena := Cadena + '#39'  '#39' + UPPERCASE(<frxDBCabecera."PROV' +
        'INCIA">);'
      '  end;'
      '  Memo2.Lines.Add(Cadena);'
      ''
      '  Cadena := '#39#39';'
      '  Memo2.Lines.Add(Cadena);'
      '  if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
      
        '     Cadena := '#39'ATT. '#39' + UPPERCASE(<frxDBCabecera."PERSONA_CONTA' +
        'CTO">);'
      '  Memo2.Lines.Add(Cadena);'
      'end;'
      ''
      'begin'
      ''
      'end.')
    ShowProgress = False
    StoreInDFM = False
    Left = 169
    Top = 16
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DADataCabecera
    BCDToCurrency = False
    Left = 264
    Top = 16
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 88
  end
end
