object srvFacturasCliente: TsrvFacturasCliente
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schFacturasCliente
  ServiceAdapter = DABINAdapter
  Left = 1166
  Top = 311
  Height = 490
  Width = 347
  object schFacturasCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHAfactura, 1,4)) as A' +
              'NO'#10'from facturascliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dist' +
              'inct '#39'Todos'#39' as ANO'#10'from empresas'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosFacturas'
        Fields = <
          item
            Name = 'ANO'
            DataType = datString
            Size = 254
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FACTURASCLIENTE'
            SQL = 'SELECT * FROM DAR_REFERENCIA_FACTURACLIENTE'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end>
          end>
        Name = 'DarReferenciaFactura'
        Fields = <
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FACTURASCLIENTE'
            SQL = 
              'SELECT '#10'    CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, FECHAFACT' +
              'URA, REFERENCIA,'#10'    BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,' +
              ' IVA, IMPORTEIVA, '#10'    IMPORTETOTAL, OBSERVACIONES, FORMAPAGO, C' +
              'ODIGOCONTACTO, '#10'    NIFCIF, NOMBRE, CALLE, PROVINCIA, CODIGOPOST' +
              'AL, POBLACION, CODIGOALBARAN'#10'  FROM'#10'    FACTURASCLIENTE'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'FECHAFACTURA'
                TableField = 'FECHAFACTURA'
              end
              item
                DatasetField = 'BASEIMPONIBLE'
                TableField = 'BASEIMPONIBLE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTEDESCUENTO'
                TableField = 'IMPORTEDESCUENTO'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTEIVA'
                TableField = 'IMPORTEIVA'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGOPOSTAL'
                TableField = 'CODIGOPOSTAL'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CODIGOALBARAN'
                TableField = 'CODIGOALBARAN'
              end>
          end>
        Name = 'FacturasCliente'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOEMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOFACTURACLIENTE'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAFACTURA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAFACTURA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'BASEIMPONIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEDESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'IVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEIVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'OBSERVACIONES'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'FORMAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DictionaryEntry = 'NIFCIF'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            DictionaryEntry = 'CALLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'PROVINCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPOSTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DictionaryEntry = 'POBLACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOFACTURA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESFACTURASCLIENTE'
            SQL = 
              'SELECT '#10'    CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE, VALORA' +
              'DO'#10'  FROM'#10'    DETALLESFACTURASCLIENTE'#10'  WHERE CODIGOFACTURA = :C' +
              'ODIGOFACTURA'#10'  ORDER BY POSICION;'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NUMCONCEPTO'
                TableField = 'NUMCONCEPTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'IMPORTEUNIDAD'
                TableField = 'IMPORTEUNIDAD'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'CODIGOFACTURA'
                TableField = 'CODIGOFACTURA'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'VALORADO'
                TableField = 'VALORADO'
              end>
          end>
        Name = 'DetallesFacturasCliente'
        Fields = <
          item
            Name = 'CODIGOFACTURA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOFACTURACLIENTE'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUMCONCEPTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'NUMCONCEPTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            Description = 'Cap'#237'tulo, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPODETALLESFACTURACLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEUNIDAD'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEUNIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VISIBLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DictionaryEntry = 'DetallesFacturasCliente_VISIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VALORADO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FACTURASCLIENTE'
            SQL = 
              'SELECT '#10'    CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, FECHAFACT' +
              'URA, REFERENCIA,'#10'    BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,' +
              ' IVA, IMPORTEIVA, '#10'    IMPORTETOTAL, OBSERVACIONES, FORMAPAGO, C' +
              'ODIGOCONTACTO, '#10'    NIFCIF, NOMBRE, CALLE, PROVINCIA, CODIGOPOST' +
              'AL, POBLACION'#10'  FROM'#10'    FACTURASCLIENTE'#10'  WHERE CODIGO = :CODIG' +
              'O'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'BASEIMPONIBLE'
                TableField = 'BASEIMPONIBLE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTEDESCUENTO'
                TableField = 'IMPORTEDESCUENTO'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTEIVA'
                TableField = 'IMPORTEIVA'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'CODIGOPOSTAL'
                TableField = 'CODIGOPOSTAL'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'FECHAFACTURA'
                TableField = 'FECHAFACTURA'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end>
          end>
        Name = 'InformeCabeceraFacturaCliente'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOEMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOFACTURACLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAFACTURA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            DictionaryEntry = 'FECHAFACTURACLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'BASEIMPONIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEDESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'IVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEIVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'OBSERVACIONES'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'FORMAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DictionaryEntry = 'NIFCIF'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            DictionaryEntry = 'CALLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'PROVINCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPOSTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DictionaryEntry = 'POBLACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOFACTURA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESFACTURASCLIENTE'
            SQL = 
              'SELECT '#10'    CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 +
              '    IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VALORADO'#10'FROM D' +
              'ETALLESFACTURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10 +
              'VISIBLE = '#39'S'#39#10'ORDER BY POSICION'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'NUMCONCEPTO'
                TableField = 'NUMCONCEPTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'IMPORTEUNIDAD'
                TableField = 'IMPORTEUNIDAD'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'CODIGOFACTURA'
                TableField = 'CODIGOFACTURA'
              end
              item
                DatasetField = 'VALORADO'
                TableField = 'VALORADO'
              end>
          end>
        Name = 'InformeDetallesFacturaCliente'
        Fields = <
          item
            Name = 'CODIGOFACTURA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOFACTURACLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUMCONCEPTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'NUMCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEUNIDAD'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEUNIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            Description = 'Cap'#237'tulo, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPODETALLESFACTURACLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VALORADO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <>
    RelationShips = <
      item
        Name = 'FK_DetallesFacturasCliente_FacturasCliente'
        MasterDatasetName = 'FacturasCliente'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'DetallesFacturasCliente'
        DetailFields = 'CODIGOFACTURA'
      end
      item
        Name = 'FK_InformeDetallesFacturaCliente_InformeCabeceraFacturaCliente'
        MasterDatasetName = 'InformeCabeceraFacturaCliente'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'InformeDetallesFacturaCliente'
        DetailFields = 'CODIGOFACTURA'
      end>
    UpdateRules = <
      item
        Name = 'Insert FacturasCliente'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'FacturasCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update FacturasCliente'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'FacturasCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete DetallesFacturasCliente'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'DetallesFacturasCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert DetallesFacturasCliente'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'DetallesFacturasCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update DetallesFacturasCliente'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'DetallesFacturasCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete FacturasCliente'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'FacturasCliente'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object frxDBDetalles: TfrxDBDataset
    UserName = 'frxDBDetalles'
    CloseDataSource = False
    DataSource = DADataDetalles
    Left = 200
    Top = 128
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DADataCabecera
    Left = 120
    Top = 128
  end
  object DADataCabecera: TDADataSource
    DataTable = tbl_FacturaCliente
    Left = 120
    Top = 176
  end
  object DADataDetalles: TDADataSource
    DataTable = tbl_DetallesFacturaCliente
    Left = 200
    Top = 176
  end
  object frxReport1: TfrxReport
    Version = '3.23.7'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.OutlineWidth = 180
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 37871.995398692100000000
    ReportOptions.Description.Strings = (
      'Demonstrates how to create simple list report.')
    ReportOptions.LastChange = 39275.443804247680000000
    ReportOptions.VersionBuild = '1'
    ReportOptions.VersionMajor = '12'
    ReportOptions.VersionMinor = '13'
    ReportOptions.VersionRelease = '1'
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  DatosCliente.Lines.Clear;'
      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
      ''
      '  if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
      
        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
        'xDBCabecera."POBLACION">);'
      'end;'
      ''
      'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  case <frxDBDetalles."TIPO"> of'
      '  '#39'C'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto normal'#39';'
      '       MemoCampo2.Style := '#39'Concepto normal'#39';'
      '       MemoCampo3.Style := '#39'Concepto normal'#39';'
      '       MemoCampo4.Style := '#39'Concepto normal'#39';'
      '       end;'
      '  '#39'S'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo2.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo3.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo4.Style := '#39'Concepto subtotal'#39';'
      '       end;'
      '  '#39'T'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo2.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo3.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo4.Style := '#39'Concepto titulo'#39';'
      '       end;'
      '  end;'
      'end;'
      ''
      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      
        '//       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' +
        'ummary1.Height + 20;'
      'end;'
      ''
      'procedure Band3OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      ''
      '  if (<Page#> = <TotalPages#>) then'
      '  begin'
      '     shape6.Visible := True;'
      '     memo14.Visible := True;'
      '     memo35.Visible := True;'
      '     memo36.Visible := True;'
      '     memo37.Visible := True;'
      '     memo38.Visible := True;'
      '     memo39.Visible := True;'
      '     memo40.Visible := True;'
      '     memo41.Visible := True;'
      '     memo42.Visible := True;'
      '     memo43.Visible := True;'
      '     memo44.Visible := True;'
      '     memo45.Visible := True;'
      '  end'
      '  else'
      '  begin'
      '     shape6.Visible := False;'
      '     shape6.Visible := False;'
      '     memo14.Visible := False;'
      '     memo35.Visible := False;'
      '     memo36.Visible := False;'
      '     memo37.Visible := False;'
      '     memo38.Visible := False;'
      '     memo39.Visible := False;'
      '     memo40.Visible := False;'
      '     memo41.Visible := False;'
      '     memo42.Visible := False;'
      '     memo43.Visible := False;'
      '     memo44.Visible := False;'
      '     memo45.Visible := False;'
      '  end;'
      'end;'
      ''
      'begin'
      ''
      'end.')
    StoreInDFM = False
    Left = 40
    Top = 128
    Datasets = <
      item
        DataSet = frxDBCabecera
        DataSetName = 'frxDBCabecera'
      end
      item
        DataSet = frxDBDetalles
        DataSetName = 'frxDBDetalles'
      end>
    Variables = <>
    Style = <
      item
        Name = 'Concepto normal'
        Color = clNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      item
        Name = 'Concepto subtotal'
        Color = 15790320
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
      end
      item
        Name = 'Cabecera de columna'
        Color = 15790320
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
      end
      item
        Name = 'Concepto titulo'
        Color = clNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
      end>
  end
  object tbl_FacturaCliente: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = DABINAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 120
    Top = 232
  end
  object tbl_DetallesFacturaCliente: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = DABINAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 200
    Top = 232
  end
  object frxBarCodeObject1: TfrxBarCodeObject
    Left = 24
    Top = 296
  end
  object frxOLEObject1: TfrxOLEObject
    Left = 56
    Top = 296
  end
  object frxChartObject1: TfrxChartObject
    Left = 24
    Top = 328
  end
  object frxRichObject1: TfrxRichObject
    Left = 56
    Top = 328
  end
  object frxCrossObject1: TfrxCrossObject
    Left = 88
    Top = 296
  end
  object frxCheckBoxObject1: TfrxCheckBoxObject
    Left = 88
    Top = 328
  end
  object frxGradientObject1: TfrxGradientObject
    Left = 24
    Top = 360
  end
  object frxDotMatrixExport1: TfrxDotMatrixExport
    UseFileCache = True
    ShowProgress = True
    EscModel = 0
    GraphicFrames = False
    SaveToFile = False
    UseIniSettings = True
    Left = 56
    Top = 360
  end
  object frxDialogControls1: TfrxDialogControls
    Left = 88
    Top = 360
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
end