1 reply to this topic

[Marc]

Hola amigos,

 

He recuperado un antiguo proyecto en el que debo hacer unas modificaciones, y para ello he vuelto a instalar Delphi 2010.

 

Cuando intento compilar me sale este error :

 

[DCC Error] E2161 Error: RLINK32: Unsupported 16bit resource in file "C:\Varis\Gestions\Comuns\Source\Base_Pr_Out_Factura.dfm"

 

¿ Se os ocurre cual puede ser el problema ?. En ese formulario no hay recursos, solo el típico:

 

implementation
{$R *.dfm}

 

Y en el DFM no veo nada extraño.

 

php

inherited frmBase_Pr_Producto_ListaValorada: TfrmBase_Pr_Producto_ListaValorada
  Caption = 'Lista de Productos'
  ClientHeight = 474
  ClientWidth = 772
  OnCreate = FormCreate
  ExplicitLeft = -315
  ExplicitTop = -68
  ExplicitWidth = 788
  ExplicitHeight = 513
  DesignSize = (
    772
    474)
  PixelsPerInch = 96
  TextHeight = 13
  inherited barraBotons: TToolBar
    Width = 772
    ExplicitWidth = 772
    object ToolButton2: TToolButton
      Left = 285
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object btnDuplicar: TToolButton
      Left = 293
      Top = 0
      Hint = 'Duplicar'
      Caption = 'Duplicar'
      ImageIndex = 25
      ParentShowHint = False
      ShowHint = True
      OnClick = btnDuplicarClick
    end
  end
  inherited lblNombreEmpresa: TcxLabel
    Top = 3
    ExplicitTop = 3
    ExplicitWidth = 348
    Width = 348
    AnchorX = 566
    AnchorY = 12
  end
  object panelInferior: TPanel [2]
    Left = 0
    Top = 325
    Width = 772
    Height = 149
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      772
      149)
    object btnBuscar: TSpeedButton
      Left = 637
      Top = 0
      Width = 26
      Height = 25
      Hint = 'Buscar Productos'
      Anchors = [akTop, akRight]
      OnClick = btnBuscarClick
    end
    object frameTotales: TcxGroupBox
      Left = 572
      Top = 19
      Anchors = [akTop, akRight]
      Caption = 'Totales'
      TabOrder = 1
      DesignSize = (
        197
        127)
      Height = 127
      Width = 197
      object lblDto_Percentatge: TcxLabel
        Left = 11
        Top = 36
        Caption = 'Descuento'
        Transparent = True
      end
      object lblDto_Import: TcxLabel
        Left = 11
        Top = 58
        Caption = 'Importe'
        Transparent = True
      end
      object txtDto_Percentatge: TcxDBCurrencyEdit
        Left = 93
        Top = 35
        DataBinding.DataField = 'ALB_DTO'
        DataBinding.DataSource = dsDatos
        Properties.DisplayFormat = ',0.00 %;-,0.00 %'
        TabOrder = 0
        Width = 45
      end
      object txtDto_Importe: TcxDBTextEdit
        Left = 93
        Top = 57
        DataBinding.DataField = 'ALB_IMPORTE_DTO'
        DataBinding.DataSource = dsDatos
        Properties.ReadOnly = True
        Style.Color = clInfoBk
        TabOrder = 3
        Width = 67
      end
      object lblTotal: TcxLabel
        Left = 11
        Top = 103
        Caption = 'TOTAL'
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -11
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = [fsBold]
        Style.IsFontAssigned = True
        Transparent = True
      end
      object txtTotal: TcxDBTextEdit
        Left = 93
        Top = 102
        DataBinding.DataField = 'ALB_IMPORTE_TOTAL'
        DataBinding.DataSource = dsDatos
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clYellow
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -11
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = [fsBold]
        Style.IsFontAssigned = True
        TabOrder = 5
        Width = 84
      end
      object lblBase: TcxLabel
        Left = 11
        Top = 80
        Caption = 'Base Imponible'
        Transparent = True
      end
      object txtBase: TcxDBTextEdit
        Left = 93
        Top = 79
        DataBinding.DataField = 'ALB_IMPORTE_BASE'
        DataBinding.DataSource = dsDatos
        Properties.ReadOnly = True
        Style.Color = clInfoBk
        TabOrder = 7
        Width = 67
      end
      object txtRetencion: TcxDBCurrencyEdit
        Left = 93
        Top = 13
        Anchors = [akTop, akRight]
        DataBinding.DataField = 'FAC_RETENCION'
        DataBinding.DataSource = dsDatos
        Properties.DisplayFormat = ',0.00 %;-,0.00 %'
        TabOrder = 8
        Visible = False
        Width = 45
      end
      object lblRetencion: TcxLabel
        Left = 11
        Top = 14
        Anchors = [akTop, akRight]
        Caption = 'Retenci'#243'n'
        Transparent = True
        Visible = False
      end
    end
    object pagPrincipal: TcxPageControl
      Left = 4
      Top = 1
      Width = 562
      Height = 144
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 2
      Properties.ActivePage = tabEnvios
      Properties.CustomButtons.Buttons = <>
      ClientRectBottom = 140
      ClientRectLeft = 4
      ClientRectRight = 558
      ClientRectTop = 24
      object tabDesgloseIVA: TcxTabSheet
        Caption = 'Desglose IVA'
        ImageIndex = 0
        DesignSize = (
          554
          116)
        object gridDesgloseIVA: TcxGrid
          Left = 4
          Top = 8
          Width = 377
          Height = 107
          Anchors = [akLeft, akTop, akRight, akBottom]
          TabOrder = 0
          object vistaDesgloseIVA: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsDesglose
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Format = '0 L'#237'neas'
                Kind = skCount
              end
              item
                Format = ',0'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.00'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
                Column = gridDesgloseIVA_ImporteRecEq
              end
              item
                Format = ',0.0000'
                Kind = skSum
                Column = gridDesgloseIVA_ImporteIVA
              end
              item
                Format = ',0.0000'
                Kind = skSum
                Column = gridDesgloseIVA_Base
              end>
            DataController.Summary.SummaryGroups = <>
            OptionsView.ColumnAutoWidth = True
            OptionsView.Footer = True
            OptionsView.GroupByBox = False
            object gridDesgloseIVA_Base: TcxGridDBColumn
              Caption = 'Base'
              DataBinding.FieldName = 'DES_IMPORTE_BASE'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 79
            end
            object gridDesgloseIVA_IVA: TcxGridDBColumn
              Caption = 'IVA'
              DataBinding.FieldName = 'DES_IVA'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 42
            end
            object gridDesgloseIVA_ImporteIVA: TcxGridDBColumn
              Caption = 'Importe'
              DataBinding.FieldName = 'DES_IMPORTE_IVA'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 84
            end
            object gridDesgloseIVA_RecEq: TcxGridDBColumn
              Caption = 'Rec.Eq.'
              DataBinding.FieldName = 'DES_REC_EQ'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 64
            end
            object gridDesgloseIVA_ImporteRecEq: TcxGridDBColumn
              Caption = 'Importe'
              DataBinding.FieldName = 'DES_IMPORTE_REC_EQ'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 90
            end
          end
          object levelDesgloseIVA: TcxGridLevel
            GridView = vistaDesgloseIVA
          end
        end
        object chkExentoIVA: TcxDBCheckBox
          Left = 391
          Top = 8
          Anchors = [akTop, akRight]
          Caption = 'Exento IVA'
          DataBinding.DataField = 'EXENTO_IVA'
          DataBinding.DataSource = dsDatos
          Properties.Alignment = taLeftJustify
          Properties.ImmediatePost = True
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 1
          Transparent = True
          Width = 102
        end
        object chkAplicarRecEq: TcxDBCheckBox
          Left = 391
          Top = 35
          Anchors = [akTop, akRight]
          Caption = 'Aplicar Recargo de Equivalencia'
          DataBinding.DataField = 'APLICAR_REC_EQ'
          DataBinding.DataSource = dsDatos
          Properties.Alignment = taLeftJustify
          Properties.ImmediatePost = True
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 2
          Transparent = True
          Width = 169
        end
      end
      object tabEnvios: TcxTabSheet
        Caption = 'Env'#237'os'
        ImageIndex = 2
        DesignSize = (
          554
          116)
        object btnEMail_Consulta: TSpeedButton
          Left = 387
          Top = 3
          Width = 26
          Height = 25
          Hint = 'Enviar por e-Mail'
          Anchors = [akTop, akRight]
          ExplicitLeft = 395
        end
        object gridEnvios: TcxGrid
          Left = 4
          Top = 8
          Width = 377
          Height = 107
          Anchors = [akLeft, akTop, akRight, akBottom]
          TabOrder = 0
          object vistaEnvios: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            DataController.DataSource = dsEMails
            DataController.KeyFieldNames = 'EMA_ID'
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <
              item
                Format = '0 L'#237'neas'
                Kind = skCount
              end
              item
                Format = ',0'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.00'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end
              item
                Format = ',0.0000'
                Kind = skSum
              end>
            DataController.Summary.SummaryGroups = <>
            OptionsData.CancelOnExit = False
            OptionsData.Deleting = False
            OptionsData.DeletingConfirmation = False
            OptionsData.Editing = False
            OptionsData.Inserting = False
            OptionsView.ColumnAutoWidth = True
            OptionsView.GroupByBox = False
            object colEnvios_Fecha: TcxGridDBColumn
              Caption = 'Fecha'
              DataBinding.FieldName = 'EMA_FECHA'
              Width = 111
            end
            object colEnvios_Concepto: TcxGridDBColumn
              Caption = 'Asunto'
              DataBinding.FieldName = 'EMA_ASUNTO'
              PropertiesClassName = 'TcxTextEditProperties'
              Properties.ReadOnly = True
              Styles.Content = dmAx_Data.cxStyleDeshabilitat
              Width = 272
            end
          end
          object levelEnvios: TcxGridLevel
            GridView = vistaEnvios
          end
        end
      end
      object tabObservaciones: TcxTabSheet
        Caption = 'Observaciones'
        ImageIndex = 1
        DesignSize = (
          554
          116)
        object txtObservaciones: TcxDBMemo
          Left = 3
          Top = 6
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataBinding.DataField = 'ALB_OBSERVACIONES'
          DataBinding.DataSource = dsDatos
          TabOrder = 0
          Height = 111
          Width = 548
        end
      end
    end
    object navLineas: TcxDBNavigator
      Left = 663
      Top = 0
      Width = 104
      Height = 25
      BorderStyle = nbsNone
      Buttons.CustomButtons = <>
      Buttons.First.Hint = 'Primero'
      Buttons.First.ImageIndex = 4
      Buttons.First.Visible = False
      Buttons.PriorPage.Hint = 'P'#225'gina anterior'
      Buttons.PriorPage.ImageIndex = 4
      Buttons.PriorPage.Visible = False
      Buttons.Prior.Hint = 'Anterior'
      Buttons.Prior.ImageIndex = 5
      Buttons.Prior.Visible = False
      Buttons.Next.Hint = 'Siguiente'
      Buttons.Next.Visible = False
      Buttons.NextPage.Hint = 'P'#225'gina siguiente'
      Buttons.NextPage.ImageIndex = 7
      Buttons.NextPage.Visible = False
      Buttons.Last.Hint = #218'ltimo'
      Buttons.Last.ImageIndex = 7
      Buttons.Last.Visible = False
      Buttons.Insert.Hint = 'A'#241'adir'
      Buttons.Insert.ImageIndex = 1
      Buttons.Insert.Visible = True
      Buttons.Delete.Hint = 'Eliminar'
      Buttons.Delete.ImageIndex = 3
      Buttons.Edit.Hint = 'Editar'
      Buttons.Edit.ImageIndex = 10
      Buttons.Edit.Visible = False
      Buttons.Post.Hint = 'Confirmar'
      Buttons.Post.ImageIndex = 17
      Buttons.Post.Visible = True
      Buttons.Cancel.Hint = 'Cancelar'
      Buttons.Cancel.ImageIndex = 18
      Buttons.Cancel.Visible = True
      Buttons.Refresh.Hint = 'Actualizar'
      Buttons.Refresh.ImageIndex = 9
      Buttons.Refresh.Visible = False
      Buttons.SaveBookmark.Hint = 'Guardar posici'#243'n'
      Buttons.SaveBookmark.Visible = False
      Buttons.GotoBookmark.Hint = 'Ir a la posici'#243'n guardada'
      Buttons.GotoBookmark.ImageIndex = 16
      Buttons.GotoBookmark.Visible = False
      Buttons.Filter.Hint = 'Filtrar'
      Buttons.Filter.ImageIndex = 15
      Buttons.Filter.Visible = False
      DataSource = dsLineas
      InfoPanel.Font.Charset = DEFAULT_CHARSET
      InfoPanel.Font.Color = clDefault
      InfoPanel.Font.Height = -13
      InfoPanel.Font.Name = 'Tahoma'
      InfoPanel.Font.Style = []
      InfoPanel.ParentFont = False
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = True
      Anchors = [akTop, akRight]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object panelSuperior: TPanel [3]
    Left = 0
    Top = 26
    Width = 772
    Height = 296
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    DesignSize = (
      772
      296)
    object gridLineas: TcxGrid
      Left = 1
      Top = 5
      Width = 771
      Height = 289
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      object vistaLineas: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = dsLineas
        DataController.KeyFieldNames = 'ID'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '0'
            Kind = skSum
            Column = gridLineas_UNIDADES
          end
          item
            Format = '0 L'#237'neas'
            Kind = skCount
            Column = gridLineas_CONCEPTO
          end
          item
            Format = ',0.00'
            Kind = skSum
            FieldName = 'PVP_x_UNIDADES'
            Column = gridLineas_PVP
          end
          item
            Format = ',0.00'
            Kind = skSum
            FieldName = 'COSTE_x_UNIDADES'
            Column = gridLineas_COSTE
          end
          item
            Format = ',0.00'
            Kind = skSum
            Column = gridLineas_IMPORTE_TOTAL
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        object gridLineas_PRD_ID: TcxGridDBColumn
          Caption = 'Codigo'
          DataBinding.FieldName = 'ALI_PRD_ID'
          PropertiesClassName = 'TcxButtonEditProperties'
          Properties.Buttons = <
            item
              Default = True
              Kind = bkEllipsis
            end>
          Properties.OnButtonClick = gridLineasALI_PRD_IDPropertiesButtonClick
          Width = 44
        end
        object gridLineas_UNIDADES: TcxGridDBColumn
          Caption = 'Unidades'
          DataBinding.FieldName = 'ALI_UNIDADES'
          PropertiesClassName = 'TcxSpinEditProperties'
          Width = 55
        end
        object gridLineas_STOCK_POR_UNIDAD: TcxGridDBColumn
          Caption = 'Stock x Uds.'
          DataBinding.FieldName = 'STOCK_POR_UNIDAD'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 6
          Properties.DisplayFormat = ',0.00####'
          Visible = False
          Width = 66
        end
        object gridLineas_CONCEPTO: TcxGridDBColumn
          Caption = 'Concepto'
          DataBinding.FieldName = 'CONCEPTO'
          Width = 282
        end
        object gridLineas_COSTE: TcxGridDBColumn
          Caption = 'Coste'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 12
          Properties.DisplayFormat = ',0.00##########'
          Width = 59
        end
        object gridLineas_PVP: TcxGridDBColumn
          Caption = 'PVP'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 12
          Properties.DisplayFormat = ',0.00##########'
          Width = 54
        end
        object gridLineas_IVA: TcxGridDBColumn
          Caption = 'Iva'
          DataBinding.FieldName = 'ALI_IVA'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0'
          Width = 28
        end
        object gridLineas_REC_EQ: TcxGridDBColumn
          Caption = 'Rec.Eq.'
          DataBinding.FieldName = 'ALI_REC_EQ'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0'
          Width = 65
        end
        object gridLineas_DTO: TcxGridDBColumn
          Caption = 'Dto.'
          DataBinding.FieldName = 'ALI_DTO'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0'
          Width = 42
        end
        object gridLineas_IMPORTE_TOTAL: TcxGridDBColumn
          Caption = 'Total'
          DataBinding.FieldName = 'ALI_IMPORTE_TOTAL'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DecimalPlaces = 4
          Properties.DisplayFormat = ',0.00##;-,0.00##'
          Styles.Content = dmAx_Data.cxStyleDeshabilitat
          Width = 74
        end
      end
      object levelLineas: TcxGridLevel
        GridView = vistaLineas
      end
    end
  end
  object spltInferior: TcxSplitter [4]
    Left = 0
    Top = 322
    Width = 772
    Height = 3
    AlignSplitter = salBottom
    NativeBackground = False
    Control = panelInferior
    Color = clBackground
    ParentColor = False
  end
  inherited cdsDatos: TClientDataSet
    Params = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInputOutput
      end>
    object cdsDatos_ID: TIntegerField
      FieldName = 'ID'
      OnGetText = cdsDatos_IDGetText
    end
    object cdsDatos_EMP_ID: TIntegerField
      FieldName = 'EMP_ID'
    end
    object cdsDatos_FECHA: TDateTimeField
      FieldName = 'FECHA'
    end
    object cdsDatos_DTO: TBCDField
      FieldName = 'DTO'
      OnChange = iCalculaTotals
      Precision = 32
    end
    object cdsDatos_IMPORTE_DTO: TBCDField
      FieldName = 'IMPORTE_DTO'
      DisplayFormat = ',0.0000'
      Precision = 32
    end
    object cdsDatos_IMPORTE_BASE: TBCDField
      FieldName = 'IMPORTE_BASE'
      DisplayFormat = ',0.0000'
      Precision = 32
    end
    object cdsDatos_IMPORTE_TOTAL: TBCDField
      FieldName = 'IMPORTE_TOTAL'
      DisplayFormat = ',0.00'
      Precision = 32
    end
    object cdsDatos_EXENTO_IVA: TSmallintField
      FieldName = 'EXENTO_IVA'
      OnChange = cdsDatos_EXENTO_IVAChange
    end
    object cdsDatos_APLICAR_REC_EQ: TSmallintField
      FieldName = 'APLICAR_REC_EQ'
    end
    object cdsDatos_OBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      BlobType = ftMemo
    end
  end
  object dspLineas: TpFIBDataSetProvider [10]
    DataSet = qryLineas
    UpdateMode = upWhereKeyOnly
    Left = 70
    Top = 193
  end
  object dsLineas: TDataSource [11]
    DataSet = cdsLineas
    Left = 70
    Top = 193
  end
  object cdsLineas: TClientDataSet [12]
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInputOutput
      end>
    ProviderName = 'dspLineas'
    AfterInsert = cdsLineasAfterInsert
    AfterEdit = cdsLineasAfterEdit
    AfterPost = iiCalculaTotals
    AfterDelete = iiCalculaTotals
    Left = 98
    Top = 193
    object cdsLineas_ID: TIntegerField
      FieldName = 'ID'
    end
    object cdsLineas_Maestro: TIntegerField
      FieldName = 'Maestro_ID'
    end
    object cdsLineas_PRD_ID: TIntegerField
      FieldName = 'PRD_ID'
      OnChange = cdsLineas_PRD_IDChange
    end
    object cdsLineas_PRD_COL_ID: TIntegerField
      FieldName = 'PRD_COL_ID'
    end
    object cdsLineas_PRD_TAL_ID: TIntegerField
      FieldName = 'PRD_TAL_ID'
    end
    object cdsLineas_Concepto: TStringField
      FieldName = 'CONCEPTO'
      Size = 100
    end
    object cdsLineas_UNIDADES: TBCDField
      FieldName = 'UNIDADES'
      OnChange = iCalculaTotalsLinea
      Precision = 32
    end
    object cdsLineas_PVP: TFloatField
      FieldName = 'PVP'
      OnChange = iCalculaTotalsLinea
    end
    object cdsLineas_COSTE: TFloatField
      FieldName = 'COSTE'
      OnChange = iCalculaTotalsLinea
    end
    object cdsLineas_DTO: TBCDField
      FieldName = 'DTO'
      OnChange = iCalculaTotalsLinea
      Precision = 32
    end
    object cdsLineas_IVA: TBCDField
      FieldName = 'IVA'
      OnChange = iCalculaTotalsLinea
      Precision = 32
    end
    object cdsLineas_REC_EQ: TBCDField
      FieldName = 'REC_EQ'
      OnChange = iCalculaTotalsLinea
      Precision = 32
    end
    object cdsLineas_IMPORTE_DTO: TBCDField
      FieldName = 'IMPORTE_DTO'
      DisplayFormat = ',0.00'
      Precision = 32
    end
    object cdsLineas_IMPORTE_BASE: TBCDField
      FieldName = 'IMPORTE_BASE'
      DisplayFormat = ',0.00'
      Precision = 32
    end
    object cdsLineas_IMPORTE_IVA: TBCDField
      FieldName = 'IMPORTE_IVA'
      DisplayFormat = ',0.00'
      Precision = 32
    end
    object cdsLineas_IMPORTE_REC_EQ: TBCDField
      FieldName = 'IMPORTE_REC_EQ'
      DisplayFormat = ',0.00'
      Precision = 32
    end
    object cdsLineas_IMPORTE_TOTAL: TBCDField
      FieldName = 'IMPORTE_TOTAL'
      OnChange = CalculPreuUnitari
      DisplayFormat = ',0.00'
      Precision = 32
    end
  end
  object qryLineas: TpFIBDataSet [13]
    UniDirectional = True
    Transaction = Trans
    Database = dmAx_Data.Cn
    Left = 70
    Top = 193
    object qryLineas_ID: TFIBIntegerField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qryLineas_Maestro: TFIBIntegerField
      FieldName = 'Maestro_ID'
    end
    object qryLineas_PRD_ID: TFIBIntegerField
      FieldName = 'PRD_ID'
    end
    object qryLineas_PRD_COL_ID: TFIBIntegerField
      FieldName = 'PRD_COL_ID'
    end
    object qryLineas_PRD_TAL_ID: TFIBIntegerField
      FieldName = 'PRD_TAL_ID'
    end
    object qryLineas_Concepto: TFIBStringField
      FieldName = 'CONCEPTO'
      Size = 100
      EmptyStrToNull = True
    end
    object qryLineas_UNIDADES: TFIBBCDField
      FieldName = 'UNIDADES'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_PVP: TFIBFloatField
      FieldName = 'PVP'
    end
    object qryLineas_COSTE: TFIBFloatField
      FieldName = 'COSTE'
    end
    object qryLineas_DTO: TFIBBCDField
      FieldName = 'DTO'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IVA: TFIBBCDField
      FieldName = 'IVA'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_REC_EQ: TFIBBCDField
      FieldName = 'REC_EQ'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IMPORTE_DTO: TFIBBCDField
      FieldName = 'IMPORTE_DTO'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IMPORTE_BASE: TFIBBCDField
      FieldName = 'IMPORTE_BASE'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IMPORTE_IVA: TFIBBCDField
      FieldName = 'IMPORTE_IVA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IMPORTE_REC_EQ: TFIBBCDField
      FieldName = 'IMPORTE_REC_EQ'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryLineas_IMPORTE_TOTAL: TFIBBCDField
      FieldName = 'IMPORTE_TOTAL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
  end
  inherited qryDatos: TpFIBDataSet
    object qryDatos_ID: TFIBIntegerField
      FieldName = 'ID'
    end
    object qryDatos_EMP_ID: TIntegerField
      FieldName = 'EMP_ID'
    end
    object qryDatos_FECHA: TDateTimeField
      FieldName = 'FECHA'
    end
    object qryDatos_DTO: TFIBBCDField
      FieldName = 'DTO'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryDatos_IMPORTE_DTO: TFIBBCDField
      FieldName = 'IMPORTE_DTO'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryDatos_IMPORTE_BASE: TFIBBCDField
      FieldName = 'IMPORTE_BASE'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryDatos_IMPORTE_TOTAL: TFIBBCDField
      FieldName = 'IMPORTE_TOTAL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 4
      RoundByScale = True
    end
    object qryDatos_EXENTO_IVA: TSmallintField
      FieldName = 'EXENTO_IVA'
    end
    object qryDatosAPLICAR_REC_EQ: TSmallintField
      FieldName = 'APLICAR_REC_EQ'
    end
    object qryDatos_OBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      BlobType = ftMemo
    end
  end
  object qryProducto: TpFIBDataSet
    UniDirectional = True
    SelectSQL.Strings = (
      'select PRD_PRODUCTO,'
      
        '       coalesce(PVP_IMPORTE, PRD_PVP_BASE) as PRD_PVP_BASE, PRD_' +
        'PVP_IVA_PORCENTAJE, PRD_PVP_REC_EQ_PORCENTAJE,'
      
        '       PRD_COSTE_BASE, PRD_COSTE_IVA_PORCENTAJE, PRD_COSTE_REC_E' +
        'Q_PORCENTAJE, PRD_STOCK_POR_UNIDAD'
      'from PR_PRODUCTO'
      
        '     left outer join PR_PRD_PVP on PVP_PRD_ID = PRD_ID and PVP_T' +
        'AR_ID = :TAR_ID'
      'where PRD_ID = :PRD_ID')
    Transaction = Trans
    Database = dmAx_Data.Cn
    Left = 141
    Top = 194
    poSQLINT64ToBCD = True
    object qryProducto_PRD_PRODUCTO: TFIBStringField
      FieldName = 'PRD_PRODUCTO'
      Size = 100
      EmptyStrToNull = True
    end
    object qryProducto_PRD_PVP_BASE: TFIBBCDField
      FieldName = 'PRD_PVP_BASE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_PVP_IVA_PORCENTAJE: TFIBBCDField
      FieldName = 'PRD_PVP_IVA_PORCENTAJE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_PVP_REC_EQ_PORCENTAJE: TFIBBCDField
      FieldName = 'PRD_PVP_REC_EQ_PORCENTAJE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_COSTE_BASE: TFIBBCDField
      FieldName = 'PRD_COSTE_BASE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_COSTE_IVA_PORCENTAJE: TFIBBCDField
      FieldName = 'PRD_COSTE_IVA_PORCENTAJE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_COSTE_REC_EQ_PORCENTAJE: TFIBBCDField
      FieldName = 'PRD_COSTE_REC_EQ_PORCENTAJE'
      Size = 4
      RoundByScale = True
    end
    object qryProducto_PRD_STOCK_POR_UNIDAD: TFIBBCDField
      FieldName = 'PRD_STOCK_POR_UNIDAD'
      Size = 4
      RoundByScale = True
    end
  end
  object dspDesglose: TpFIBDataSetProvider
    DataSet = qryDesglose
    UpdateMode = upWhereKeyOnly
    Left = 70
    Top = 225
  end
  object dsDesglose: TDataSource
    DataSet = cdsDesglose
    Left = 70
    Top = 225
  end
  object cdsDesglose: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInputOutput
      end>
    ProviderName = 'dspDesglose'
    Left = 98
    Top = 225
    object cdsDesglose_DES_ID: TIntegerField
      FieldName = 'DES_ID'
    end
    object cdsDesglose_Maestro: TIntegerField
      FieldName = 'DES_ALB_ID'
    end
    object cdsDesglose_DES_IVA: TBCDField
      FieldName = 'DES_IVA'
      Precision = 32
    end
    object cdsDesglose_DES_REC_EQ: TBCDField
      FieldName = 'DES_REC_EQ'
      Precision = 32
    end
    object cdsDesglose_DES_IMPORTE_BASE: TBCDField
      FieldName = 'DES_IMPORTE_BASE'
      Precision = 32
    end
    object cdsDesglose_DES_IMPORTE_IVA: TBCDField
      FieldName = 'DES_IMPORTE_IVA'
      Precision = 32
    end
    object cdsDesglose_DES_IMPORTE_REC_EQ: TBCDField
      FieldName = 'DES_IMPORTE_REC_EQ'
      Precision = 32
    end
  end
  object qryDesglose: TpFIBDataSet
    UniDirectional = True
    Transaction = Trans
    Database = dmAx_Data.Cn
    Left = 70
    Top = 225
    object qryDesglose_DES_ID: TFIBIntegerField
      FieldName = 'DES_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qryDesglose_Maestro: TFIBIntegerField
      FieldName = 'DES_ALB_ID'
    end
    object qryDesglose_DES_IVA: TFIBBCDField
      FieldName = 'DES_IVA'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryDesglose_DES_REC_EQ: TFIBBCDField
      FieldName = 'DES_REC_EQ'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryDesglose_DES_IMPORTE_BASE: TFIBBCDField
      FieldName = 'DES_IMPORTE_BASE'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryDesglose_DES_IMPORTE_IVA: TFIBBCDField
      FieldName = 'DES_IMPORTE_IVA'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
    object qryDesglose_DES_IMPORTE_REC_EQ: TFIBBCDField
      FieldName = 'DES_IMPORTE_REC_EQ'
      DisplayFormat = '#,##0.0000'
      EditFormat = '0.0000'
      Size = 4
      RoundByScale = True
    end
  end
  object dsEMails: TDataSource
    DataSet = cdsEMails
    Left = 70
    Top = 257
  end
  object dspEMails: TpFIBDataSetProvider
    DataSet = qryEMails
    UpdateMode = upWhereKeyOnly
    Left = 70
    Top = 257
  end
  object qryEMails: TpFIBDataSet
    UniDirectional = True
    SelectSQL.Strings = (
      'select EMA_ID, EMA_FECHA, EMA_ASUNTO'
      'from TR_TER_EMAIL'
      '     inner join TR_TER_EMAIL_ADJUNTO on ADJ_EMA_ID = EMA_ID'
      'where ADJ_TAB_ID = :TAB_ID and ADJ_REGISTRO = :REGISTRO'
      'group by EMA_ID, EMA_FECHA, EMA_ASUNTO')
    Transaction = Trans
    Database = dmAx_Data.Cn
    Left = 70
    Top = 257
    object qryEMailsEMA_ID: TFIBIntegerField
      FieldName = 'EMA_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object qryEMailsEMA_FECHA: TFIBDateTimeField
      FieldName = 'EMA_FECHA'
      DisplayFormat = 'dd.mm.yyyy hh:mm AMPM'
    end
    object qryEMailsEMA_ASUNTO: TFIBStringField
      FieldName = 'EMA_ASUNTO'
      Size = 100
      EmptyStrToNull = True
    end
  end
  object cdsEMails: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'TAB_ID'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'REGISTRO'
        ParamType = ptInput
      end>
    ProviderName = 'dspEMails'
    Left = 98
    Top = 257
    object cdsEMailsEMA_ID: TIntegerField
      FieldName = 'EMA_ID'
    end
    object cdsEMailsEMA_FECHA: TDateTimeField
      FieldName = 'EMA_FECHA'
    end
    object cdsEMailsEMA_ASUNTO: TStringField
      FieldName = 'EMA_ASUNTO'
      Size = 100
    end
  end
end
 

 

Este proyecto lo programé en Delphi 2010 bajo Windows 7 y ahora estoy intentando recompilar mis modificaciones (que no tienen nada que ver con este formulario) bajo Delphi 2010 y Windows 10.

 

¿ Se os ocurre que puedo mirar para seguir este error ?.

 

Gracias.

[Marc]

Ya lo he encontrado.

 

En el DFM la propiedad BorderStyle del TcxDBNavigator tenía un montón de carácteres extraños en lugar del valor nbsNone. Lo había arreglado a mano en el bloc de notas, y al seguir encontrándome con el error pensaba que sería otro el problema. Pero es que no me había fijado que ahora el mismo error lo daba en otro formulario, un heredado de ese primer formulario que mantenía todos esos carácteres extraños. Lo he corregido también en el heredado y ya funciona correctamente.

 

Gracias.