959 lines
32 KiB
Plaintext
959 lines
32 KiB
Plaintext
|
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 = pagRecomendaciones
|
||
|
|
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.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 gridPropiedadesLevel1: TcxGridLevel
|
||
|
|
GridView = VistaPropiedades
|
||
|
|
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.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
|
||
|
|
Properties.ScrollBars = ssVertical
|
||
|
|
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
|
||
|
|
Properties.ScrollBars = ssVertical
|
||
|
|
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
|