object frDocumentos: TfrDocumentos Left = 409 Top = 246 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Documentos' ClientHeight = 565 ClientWidth = 634 Color = 16383743 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object BarraSuperior: TRdxBarraSuperior Left = 0 Top = 0 Width = 634 Height = 25 Caption = 'Documentos' BorderWidth = 1 Font.Charset = DEFAULT_CHARSET Font.Color = 14470061 Font.Height = -19 Font.Name = 'Tahoma' Font.Style = [fsBold] Color = 11983347 ColorHighLight = 8623776 ColorShadow = 8623776 Align = alTop Alignment = taRightJustify TabOrder = 0 UseDockManager = True Margen = 5 object imgSombra: TImage Left = 1 Top = 1 Width = 632 Height = 8 Align = alTop end end object pnlCuerpo: TPanel Left = 0 Top = 60 Width = 634 Height = 472 Align = alClient BevelOuter = bvNone BorderWidth = 10 ParentColor = True TabOrder = 1 object Paginas: TRdxPagesControl Left = 10 Top = 10 Width = 614 Height = 452 ActivePage = pagPropiedades Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TabWidth = 122 Color = 15726583 ColorTab = 11590911 FontTab.Charset = DEFAULT_CHARSET FontTab.Color = 18299 FontTab.Height = -11 FontTab.Name = 'Tahoma' FontTab.Style = [fsBold] object pagValores: TTabSheet Caption = 'Valores' object Label2: TLabel Left = 17 Top = 32 Width = 81 Height = 13 Alignment = taRightJustify Caption = 'Familia asociada:' end object Label3: TLabel Left = 22 Top = 64 Width = 76 Height = 13 Alignment = taRightJustify Caption = 'Forma de pago:' end object Label4: TLabel Left = 8 Top = 165 Width = 90 Height = 13 Alignment = taRightJustify Caption = 'Plazos de entrega:' end object Label5: TLabel Left = 66 Top = 266 Width = 32 Height = 13 Alignment = taRightJustify Caption = 'Notas:' end object cbFamilias: TcxDBLookupComboBox Left = 104 Top = 28 DataBinding.DataField = 'FAMILIA' DataBinding.DataSource = dsDocumentos ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.KeyFieldNames = 'CODIGO' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.AnsiSort = True Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = dsFamilias Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 0 Width = 266 end object FormaPago: TcxDBMemo Left = 104 Top = 64 DataBinding.DataField = 'FORMAPAGO' DataBinding.DataSource = dsDocumentos ParentFont = False Properties.ReadOnly = False Properties.ScrollBars = ssVertical Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 1 Height = 85 Width = 479 end object PlazosEntrega: TcxDBMemo Left = 104 Top = 165 DataBinding.DataField = 'PLAZOENTREGA' DataBinding.DataSource = dsDocumentos ParentFont = False Properties.ReadOnly = False Properties.ScrollBars = ssVertical Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 2 Height = 85 Width = 479 end object Notas: TcxDBMemo Left = 104 Top = 266 DataBinding.DataField = 'NOTAS' DataBinding.DataSource = dsDocumentos ParentFont = False Properties.ReadOnly = False Properties.ScrollBars = ssVertical Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 3 Height = 85 Width = 479 end end object pagPropiedades: TTabSheet Caption = 'Propiedades' ImageIndex = 1 object eSeccion: TLabel Left = 208 Top = 19 Width = 40 Height = 13 Caption = 'Secci'#243'n:' FocusControl = Seccion Visible = False end object bAnadirValor: TRdxBoton Left = 11 Top = 15 Width = 75 Height = 19 Action = actAnadirProp Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object gridPropiedades: TcxGrid Left = 11 Top = 48 Width = 502 Height = 361 BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object VistaPropiedades: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsPropiedadesDocumentos DataController.KeyFieldNames = 'CODIGODOCUMENTO;NUMPROPIEDAD' DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusFirstCellOnNewRecord = True OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.InvertSelect = False OptionsSelection.UnselectFocusedRecordOnExit = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 Styles.StyleSheet = dmConfiguracion.StyleSheetGrid object VistaPropiedadesDBColumn4: TcxGridDBColumn DataBinding.FieldName = 'NUMPROPIEDAD' Visible = False SortIndex = 0 SortOrder = soAscending end object VistaPropiedadesDBColumn1: TcxGridDBColumn Caption = 'Propiedad' DataBinding.FieldName = 'CODIGOPROPIEDAD' PropertiesClassName = 'TcxLookupComboBoxProperties' Properties.ImmediatePost = True Properties.KeyFieldNames = 'CODIGO' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = dsPropiedades MinWidth = 0 Width = 198 end object VistaPropiedadesDBColumn2: TcxGridDBColumn Caption = 'Valor por defecto' DataBinding.FieldName = 'VALOR' PropertiesClassName = 'TcxTextEditProperties' MinWidth = 0 Width = 177 end object VistaPropiedadesDBColumn3: TcxGridDBColumn DataBinding.FieldName = 'SECCION' Visible = False end end object VistaPropiedadesCard: TcxGridDBCardView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsPropiedadesDocumentos DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> LayoutDirection = ldVertical OptionsView.ScrollBars = ssVertical Styles.StyleSheet = dmConfiguracion.StyleSheetCard object VistaPropiedadesCardRow4: TcxGridDBCardViewRow DataBinding.FieldName = 'NUMPROPIEDAD' Visible = False SortIndex = 0 SortOrder = soAscending end object VistaPropiedadesCardRow1: TcxGridDBCardViewRow Caption = 'Propiedad' DataBinding.FieldName = 'CODIGOPROPIEDAD' PropertiesClassName = 'TcxLookupComboBoxProperties' Properties.ImmediatePost = True Properties.KeyFieldNames = 'CODIGO' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.ShowHeader = False Properties.ListSource = dsPropiedades Options.Filtering = False Options.FilteringMRUItemsList = False end object VistaPropiedadesCardRow2: TcxGridDBCardViewRow DataBinding.FieldName = 'VALOR' PropertiesClassName = 'TcxTextEditProperties' Options.Filtering = False Options.FilteringMRUItemsList = False end object VistaPropiedadesCardRow3: TcxGridDBCardViewRow DataBinding.FieldName = 'SECCION' Visible = False end end object gridPropiedadesLevel1: TcxGridLevel GridView = VistaPropiedadesCard end end object bEliminarValor: TRdxBoton Left = 95 Top = 15 Width = 75 Height = 19 Action = actEliminarProp Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 2 Spacing = 0 end object bSubir: TRdxBoton Left = 530 Top = 152 Width = 60 Height = 27 Action = actSubir Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC000000230B0000230B0000100000001000000039424A00FF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111100000001111111111111111100000001111110000011111100000001111 1100000111111000000011111100000111111000000011111100000111111000 0000111111000001111110000000111111000001111110000000110000000000 0001100000001110000000000011100000001111000000000111100000001111 1000000011111000000011111100000111111000000011111110001111111000 0000111111110111111110000000111111111111111110000000111111111111 111110000000} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 3 Spacing = 5 end object bBajar: TRdxBoton Left = 530 Top = 192 Width = 60 Height = 30 Action = actBajar Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC000000230B0000230B0000100000001000000039424A00FF00 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 1111100000001111111111111111100000001111111101111111100000001111 1110001111111000000011111100000111111000000011111000000011111000 0000111100000000011110000000111000000000001110000000110000000000 0001100000001111110000011111100000001111110000011111100000001111 1100000111111000000011111100000111111000000011111100000111111000 0000111111000001111110000000111111111111111110000000111111111111 111110000000} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 4 Spacing = 5 end object Seccion: TcxComboBox Left = 256 Top = 15 ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 4 Properties.ImmediatePost = True Properties.ImmediateUpdateText = True Properties.Items.Strings = ( 'FRENTE' 'INTERIOR') Properties.ReadOnly = False Properties.OnChange = SeccionPropertiesChange Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 5 Visible = False Width = 97 end end object pagPrecios: TTabSheet Caption = 'Precios' ImageIndex = 2 object RdxBoton1: TRdxBoton Left = 11 Top = 15 Width = 75 Height = 19 Action = actAnadirPre Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 0 end object RdxBoton2: TRdxBoton Left = 95 Top = 15 Width = 75 Height = 19 Action = actEliminarPre Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Margin = 10 ParentFont = False ParentColor = False TabStop = True TabOrder = 1 Spacing = 0 end object gridPrecios: TcxGrid Left = 11 Top = 48 Width = 574 Height = 361 BevelInner = bvNone BevelKind = bkFlat BorderStyle = cxcbsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 LookAndFeel.Kind = lfFlat LookAndFeel.NativeStyle = True object VistaPrecios: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = dsPreciosDocumentos DataController.KeyFieldNames = 'CODIGODOCUMENTO;NUMPRECIO' DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusFirstCellOnNewRecord = True OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnMoving = False OptionsCustomize.ColumnSorting = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsSelection.HideFocusRectOnExit = False OptionsSelection.InvertSelect = False OptionsSelection.UnselectFocusedRecordOnExit = False OptionsView.CellEndEllipsis = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.GridLineColor = 14280169 OptionsView.GroupByBox = False OptionsView.HeaderEndEllipsis = True OptionsView.NewItemRowInfoText = 'Click here to add a new row' OptionsView.RowSeparatorColor = 14280169 object cxGridDBColumn1: TcxGridDBColumn DataBinding.FieldName = 'NUMPRECIO' Visible = False SortIndex = 0 SortOrder = soAscending end object cxGridDBColumn3: TcxGridDBColumn Caption = 'Descripci'#243'n de precio' DataBinding.FieldName = 'DESCRIPCION' PropertiesClassName = 'TcxTextEditProperties' MinWidth = 0 Width = 198 end end object cxGridLevel2: TcxGridLevel GridView = VistaPrecios end end end object pagContrato: TTabSheet Caption = 'Contrato de venta' ImageIndex = 3 object Label6: TLabel Left = 11 Top = 16 Width = 367 Height = 13 Caption = 'El contrato de venta s'#243'lo se imprimir'#225' en los contratos de cocin' + 'a.' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object ContratoVenta: TcxDBRichEdit Left = 10 Top = 40 DataBinding.DataField = 'CONTRATOVENTA' DataBinding.DataSource = dsDocumentos ParentFont = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 0 Height = 370 Width = 585 end end object pagRecomendaciones: TTabSheet Caption = 'Recom. conservacion' ImageIndex = 4 object Label7: TLabel Left = 12 Top = 16 Width = 477 Height = 13 Caption = 'Las recomendaciones de conservaci'#243'n s'#243'lo se imprimir'#225'n en los co' + 'ntratos de cocina.' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Conservacion: TcxDBRichEdit Left = 10 Top = 40 DataBinding.DataField = 'RECOMENDACIONES' DataBinding.DataSource = dsDocumentos ParentFont = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 0 Height = 370 Width = 585 end end end end object pnlInferior: TPanel Left = 0 Top = 532 Width = 634 Height = 33 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 2 object bAceptar: TRdxBoton Left = 551 Top = 0 Width = 75 Height = 25 Cancel = True Alignment = taLeftJustify Color = 14280169 ColorFocused = 12775679 ColorDown = 14280169 ColorBorder = 8623776 ColorHighLight = 8623776 ColorShadow = 8623776 Caption = '&Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FontDown.Charset = DEFAULT_CHARSET FontDown.Color = clWindowText FontDown.Height = -11 FontDown.Name = 'Tahoma' FontDown.Style = [] FontDisabled.Charset = DEFAULT_CHARSET FontDisabled.Color = clWindowText FontDisabled.Height = -11 FontDisabled.Name = 'MS Sans Serif' FontDisabled.Style = [] Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFAFAFAEBEBEBE6E6E6EBEBEBFAFAFAFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDCA8A8A898 9898A8A8A8DCDCDCFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFAFAFADCDCDC7DB90C75AC0E75AC0E848484A8A8A8EBEBEBFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFADCDCDC7AB40D7DB90C84C50B7D B90C75AC0E949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFAFA DCDCDC7AB40D71A61084C50B84C50B87C90A89CD09848484A8A8A8EBEBEBFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFEBEBEB7AB40D71A61084C50B8CD2077AB40D7D B90C80BF0B89CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFFFFFFFF7AB40D 71A61092DB058CD20775AC0EDCDCDC80BF0B84C50B89CD09848484A8A8A8EBEB EBFFFFFFFFFFFFFFFFFFFFFFFF6EA11198E60375AC0E6EA111DCDCDCFAFAFAFF FFFF84C50B89CD0989CD09949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF618D13 75AC0E659212EBEBEBFAFAFAFFFFFFFFFFFF87C90A8CD20784C50B848484A8A8 A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF8CD20792DB0587C90A949494D7D7D7FAFAFAFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF90D70692DB0584C50B8484 84A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFF96E30498E60387C90A949494D7D7D7FAFAFAFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF96E3049AEA0284C5 0B848484A8A8A8EBEBEBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF9AEA0292DB0584C50BADADADEBEBEBFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF92DB057AB4 0D92DB05EBEBEBFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} Margin = 5 ParentFont = False ParentColor = False TabStop = True TabOrder = 0 Spacing = 6 OnClick = bAceptarClick end end object pnlSuperior: TPanel Left = 0 Top = 25 Width = 634 Height = 35 Align = alTop BevelOuter = bvNone ParentColor = True TabOrder = 3 object Label1: TLabel Left = 10 Top = 14 Width = 78 Height = 16 Alignment = taRightJustify Caption = 'Documento:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object cbDocumentos: TcxLookupComboBox Left = 93 Top = 12 ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.KeyFieldNames = 'CODIGO' Properties.ListColumns = < item FieldName = 'DESCRIPCION' end> Properties.ListOptions.AnsiSort = True Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = dsDocumentos Properties.ReadOnly = False Properties.OnChange = cbDocumentosPropertiesChange Style.HotTrack = False Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 0 Width = 335 end end object TablaDocumentos: TIBDataSet BufferChunks = 1000 CachedUpdates = False RefreshSQL.Strings = ( '') Left = 472 Top = 104 end object dsDocumentos: TDataSource DataSet = TablaDocumentos Left = 440 Top = 104 end object TablaPropiedadesDocumentos: TIBDataSet BufferChunks = 1000 CachedUpdates = False DeleteSQL.Strings = ( 'delete from PROPIEDADESDOCUMENTOS' 'where' ' CODIGODOCUMENTO = :OLD_CODIGODOCUMENTO and' ' NUMPROPIEDAD = :OLD_NUMPROPIEDAD') InsertSQL.Strings = ( 'insert into PROPIEDADESDOCUMENTOS' ' (CODIGODOCUMENTO, NUMPROPIEDAD, SECCION, CODIGOPROPIEDAD, ' 'VALOR)' 'values' ' (:CODIGODOCUMENTO, :NUMPROPIEDAD, :SECCION, :CODIGOPROPIEDAD, ' ':VALOR)') RefreshSQL.Strings = ( 'Select ' ' CODIGODOCUMENTO,' ' NUMPROPIEDAD,' ' SECCION,' ' CODIGOPROPIEDAD,' ' VALOR' 'from PROPIEDADESDOCUMENTOS ' 'where' ' CODIGODOCUMENTO = :CODIGODOCUMENTO and' ' NUMPROPIEDAD = :NUMPROPIEDAD') SelectSQL.Strings = ( 'select * from PROPIEDADESDOCUMENTOS' 'order by CODIGODOCUMENTO, NUMPROPIEDAD' '') ModifySQL.Strings = ( 'update PROPIEDADESDOCUMENTOS' 'set' ' CODIGODOCUMENTO = :CODIGODOCUMENTO,' ' NUMPROPIEDAD = :NUMPROPIEDAD,' ' SECCION = :SECCION,' ' CODIGOPROPIEDAD = :CODIGOPROPIEDAD,' ' VALOR = :VALOR' 'where' ' CODIGODOCUMENTO = :OLD_CODIGODOCUMENTO and' ' NUMPROPIEDAD = :OLD_NUMPROPIEDAD') DataSource = dsDocumentos Left = 472 Top = 136 end object dsPropiedadesDocumentos: TDataSource DataSet = TablaPropiedadesDocumentosMem Left = 512 Top = 104 end object dsFamilias: TDataSource DataSet = TablaFamilias Left = 512 Top = 136 end object TablaFamilias: TIBQuery BufferChunks = 1000 CachedUpdates = False SQL.Strings = ( 'select * from FAMILIAS' '') Left = 544 Top = 200 end object Acciones: TActionList Left = 56 Top = 187 object actAnadirProp: TAction Caption = 'A'#241'a&dir' OnExecute = actAnadirPropExecute end object actEliminarProp: TAction Caption = 'E&liminar' OnExecute = actEliminarPropExecute end object actAnadirPre: TAction Caption = 'A'#241'a&dir' OnExecute = actAnadirPreExecute end object actEliminarPre: TAction Caption = 'E&liminar' OnExecute = actEliminarPreExecute end object actSubir: TAction Caption = 'Subir' ImageIndex = 0 OnExecute = actSubirExecute OnUpdate = actSubirUpdate end object actBajar: TAction Caption = 'Bajar' ImageIndex = 1 OnExecute = actBajarExecute OnUpdate = actBajarUpdate end end object TablaPropiedades: TIBQuery BufferChunks = 1000 CachedUpdates = False SQL.Strings = ( 'select * from PROPIEDADES' 'order by DESCRIPCION' '') Left = 544 Top = 168 end object dsPropiedades: TDataSource DataSet = TablaPropiedades Left = 512 Top = 168 end object TablaPreciosDocumentos: TIBDataSet BufferChunks = 1000 CachedUpdates = False DeleteSQL.Strings = ( 'delete from PRECIOSDOCUMENTOS' 'where' ' CODIGODOCUMENTO = :OLD_CODIGODOCUMENTO and' ' NUMPRECIO = :OLD_NUMPRECIO') InsertSQL.Strings = ( 'insert into PRECIOSDOCUMENTOS' ' (CODIGODOCUMENTO, NUMPRECIO, DESCRIPCION)' 'values' ' (:CODIGODOCUMENTO, :NUMPRECIO, :DESCRIPCION)') RefreshSQL.Strings = ( 'Select ' ' CODIGODOCUMENTO,' ' NUMPRECIO,' ' DESCRIPCION' 'from PRECIOSDOCUMENTOS ' 'where' ' CODIGODOCUMENTO = :CODIGODOCUMENTO and' ' NUMPRECIO = :NUMPRECIO') SelectSQL.Strings = ( 'select * from PRECIOSDOCUMENTOS' 'order by CODIGODOCUMENTO, NUMPRECIO' '') ModifySQL.Strings = ( 'update PRECIOSDOCUMENTOS' 'set' ' CODIGODOCUMENTO = :CODIGODOCUMENTO,' ' NUMPRECIO = :NUMPRECIO,' ' DESCRIPCION = :DESCRIPCION' 'where' ' CODIGODOCUMENTO = :OLD_CODIGODOCUMENTO and' ' NUMPRECIO = :OLD_NUMPRECIO') DataSource = dsDocumentos Left = 472 Top = 200 end object dsPreciosDocumentos: TDataSource DataSet = TablaPreciosDocumentosMem Left = 512 Top = 200 end object TablaPropiedadesDocumentosMem: TRxMemoryData FieldDefs = <> AfterInsert = TablaPropiedadesDocumentosAfterInsert AfterDelete = TablaPropiedadesDocumentosAfterDelete OnFilterRecord = TablaPropiedadesDocumentosMemFilterRecord OnNewRecord = TablaPropiedadesDocumentosNewRecord Left = 438 Top = 134 end object TablaPreciosDocumentosMem: TRxMemoryData FieldDefs = <> OnFilterRecord = TablaPreciosDocumentosMemFilterRecord OnNewRecord = TablaPreciosDocumentosNewRecord Left = 438 Top = 198 end end