458 lines
12 KiB
Plaintext
458 lines
12 KiB
Plaintext
object formVydejka: TformVydejka
|
|
Left = 0
|
|
Top = 0
|
|
Caption = ' V'#253'dejka'
|
|
ClientHeight = 467
|
|
ClientWidth = 944
|
|
Color = clBtnFace
|
|
Constraints.MaxHeight = 505
|
|
Constraints.MaxWidth = 960
|
|
Constraints.MinHeight = 505
|
|
Constraints.MinWidth = 960
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poOwnerFormCenter
|
|
OnActivate = FormActivate
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pgControl: TPageControl
|
|
Left = 4
|
|
Top = 40
|
|
Width = 940
|
|
Height = 390
|
|
ActivePage = pgHlavicka
|
|
TabOrder = 0
|
|
OnChange = pgControlChange
|
|
object pgHlavicka: TTabSheet
|
|
Caption = '1 - Hlavi'#269'ka'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object GroupBox1: TGroupBox
|
|
Left = 6
|
|
Top = 6
|
|
Width = 409
|
|
Height = 139
|
|
Caption = ' [1] Organizace '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 10
|
|
Top = 24
|
|
Width = 52
|
|
Height = 13
|
|
Caption = '&Odb'#283'ratel:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 10
|
|
Top = 74
|
|
Width = 61
|
|
Height = 13
|
|
Caption = '&M'#237'sto ur'#269'en'#237':'
|
|
end
|
|
object selCisOrg: TRzButtonEdit
|
|
Left = 10
|
|
Top = 45
|
|
Width = 81
|
|
Height = 21
|
|
Alignment = taRightJustify
|
|
MaxLength = 8
|
|
TabOrder = 0
|
|
OnExit = selCisOrgExit
|
|
AltBtnWidth = 15
|
|
ButtonWidth = 15
|
|
OnButtonClick = selCisOrgButtonClick
|
|
end
|
|
object selOdber: TRzButtonEdit
|
|
Left = 106
|
|
Top = 45
|
|
Width = 289
|
|
Height = 21
|
|
TabOrder = 1
|
|
AltBtnWidth = 15
|
|
ButtonWidth = 15
|
|
OnButtonClick = selOdberButtonClick
|
|
end
|
|
object selCisOrgMisto: TRzButtonEdit
|
|
Left = 10
|
|
Top = 92
|
|
Width = 81
|
|
Height = 21
|
|
Alignment = taRightJustify
|
|
TabOrder = 2
|
|
OnExit = selCisOrgMistoExit
|
|
AltBtnWidth = 15
|
|
ButtonWidth = 15
|
|
OnButtonClick = selCisOrgMistoButtonClick
|
|
end
|
|
object selOdberMisto: TRzButtonEdit
|
|
Left = 106
|
|
Top = 92
|
|
Width = 289
|
|
Height = 21
|
|
TabOrder = 3
|
|
AltBtnWidth = 15
|
|
ButtonWidth = 15
|
|
OnButtonClick = selOdberMistoButtonClick
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 427
|
|
Top = 6
|
|
Width = 278
|
|
Height = 139
|
|
Caption = ' [2] Datum, dopl'#328'uj'#237'c'#237' informace '
|
|
TabOrder = 1
|
|
object Label3: TLabel
|
|
Left = 11
|
|
Top = 24
|
|
Width = 74
|
|
Height = 13
|
|
Caption = 'Datum p'#345#237'padu:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 55
|
|
Top = 52
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'M'#283'na:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 60
|
|
Top = 85
|
|
Width = 25
|
|
Height = 13
|
|
Caption = 'Kurz:'
|
|
end
|
|
object edtDatPrip: TRzDateTimeEdit
|
|
Left = 109
|
|
Top = 21
|
|
Width = 102
|
|
Height = 21
|
|
CaptionTodayBtn = 'Dnes'
|
|
CaptionClearBtn = 'Smazat'
|
|
CaptionSet = 'Vybrat'
|
|
EditType = etDate
|
|
Alignment = taCenter
|
|
TabOrder = 0
|
|
end
|
|
object cbMena: TComboBox
|
|
Left = 110
|
|
Top = 49
|
|
Width = 101
|
|
Height = 21
|
|
Style = csDropDownList
|
|
CharCase = ecUpperCase
|
|
TabOrder = 1
|
|
end
|
|
object selKurz: TRzButtonEdit
|
|
Left = 109
|
|
Top = 82
|
|
Width = 102
|
|
Height = 21
|
|
Alignment = taRightJustify
|
|
MaxLength = 6
|
|
TabOrder = 2
|
|
AltBtnWidth = 15
|
|
ButtonWidth = 15
|
|
OnButtonClick = selKurzButtonClick
|
|
end
|
|
end
|
|
end
|
|
object pgPolozky: TTabSheet
|
|
Caption = '2 - Polo'#382'ky'
|
|
ImageIndex = 1
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object GroupBox3: TGroupBox
|
|
Left = 0
|
|
Top = 3
|
|
Width = 931
|
|
Height = 359
|
|
TabOrder = 0
|
|
object GroupBox4: TGroupBox
|
|
Left = 3
|
|
Top = 1
|
|
Width = 925
|
|
Height = 55
|
|
TabOrder = 0
|
|
object btnPolAdd: TSpeedButton
|
|
Left = 6
|
|
Top = 1
|
|
Width = 49
|
|
Height = 52
|
|
Caption = 'Nov'#253'...'
|
|
Layout = blGlyphTop
|
|
OnClick = btnPolAddClick
|
|
end
|
|
object btnPolEdit: TSpeedButton
|
|
Left = 59
|
|
Top = 1
|
|
Width = 56
|
|
Height = 52
|
|
Caption = 'Oprava...'
|
|
Layout = blGlyphTop
|
|
OnClick = btnPolEditClick
|
|
end
|
|
object btnPolDel: TSpeedButton
|
|
Left = 119
|
|
Top = 1
|
|
Width = 51
|
|
Height = 52
|
|
Caption = 'Zru'#353'it'
|
|
Layout = blGlyphTop
|
|
OnClick = btnPolDelClick
|
|
end
|
|
end
|
|
object gridPol: TcxGrid
|
|
Left = 7
|
|
Top = 58
|
|
Width = 924
|
|
Height = 301
|
|
TabOrder = 1
|
|
object viewPol: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
OnCellDblClick = viewPolCellDblClick
|
|
DataController.DataSource = dsPol
|
|
DataController.Summary.DefaultGroupSummaryItems = <
|
|
item
|
|
Format = '### ### ##0.0##'
|
|
Position = spFooter
|
|
Column = colCCbezDPH
|
|
end
|
|
item
|
|
Format = '###,###,##0.0##'
|
|
Position = spFooter
|
|
Column = colMnoz
|
|
end>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = colMnoz
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = colCCbezDPH
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
Images = imgList
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsData.CancelOnExit = False
|
|
OptionsData.Deleting = False
|
|
OptionsData.DeletingConfirmation = False
|
|
OptionsData.Editing = False
|
|
OptionsData.Inserting = False
|
|
OptionsSelection.CellSelect = False
|
|
OptionsView.Footer = True
|
|
OptionsView.FooterAutoHeight = True
|
|
OptionsView.GroupByBox = False
|
|
OnColumnHeaderClick = viewPolColumnHeaderClick
|
|
object colIdSS: TcxGridDBColumn
|
|
Visible = False
|
|
end
|
|
object colIdKZ: TcxGridDBColumn
|
|
Visible = False
|
|
end
|
|
object colSZ: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxLabelProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
end
|
|
object colRegCis: TcxGridDBColumn
|
|
end
|
|
object colNazev1: TcxGridDBColumn
|
|
end
|
|
object colNazev2: TcxGridDBColumn
|
|
end
|
|
object colMJ: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxLabelProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
end
|
|
object colMnoz: TcxGridDBColumn
|
|
end
|
|
object colJCbezDaniKc: TcxGridDBColumn
|
|
end
|
|
object colCCbezDPH: TcxGridDBColumn
|
|
end
|
|
object colIdPZ: TcxGridDBColumn
|
|
end
|
|
end
|
|
object lvPol: TcxGridLevel
|
|
GridView = viewPol
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pgSklad: TTabSheet
|
|
Caption = '3 - Sklady kooperant'#367
|
|
ImageIndex = 2
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object gridSklad: TcxGrid
|
|
Left = 0
|
|
Top = 0
|
|
Width = 929
|
|
Height = 359
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
PopupMenu = pmSklad
|
|
TabOrder = 0
|
|
object viewSklad: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
FilterBox.CustomizeDialog = False
|
|
FilterBox.Position = fpTop
|
|
FilterBox.Visible = fvNever
|
|
OnCellDblClick = viewSkladCellDblClick
|
|
DataController.DataSource = dsSklad
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
Filtering.ColumnMRUItemsList = False
|
|
FilterRow.InfoText = 'Sem klikn'#283'te pro definici filtru'
|
|
FilterRow.ApplyChanges = fracImmediately
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsData.CancelOnExit = False
|
|
OptionsData.Deleting = False
|
|
OptionsData.DeletingConfirmation = False
|
|
OptionsData.Editing = False
|
|
OptionsData.Inserting = False
|
|
OptionsSelection.CellSelect = False
|
|
OptionsView.GroupByBox = False
|
|
object colIdSS2: TcxGridDBColumn
|
|
end
|
|
object colIdKZ2: TcxGridDBColumn
|
|
end
|
|
object colSZ2: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxLabelProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
end
|
|
object colRegCis2: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxLabelProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
end
|
|
object colNazev12: TcxGridDBColumn
|
|
end
|
|
object colNazev22: TcxGridDBColumn
|
|
end
|
|
object colMJ2: TcxGridDBColumn
|
|
PropertiesClassName = 'TcxLabelProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
end
|
|
object colMnoz2: TcxGridDBColumn
|
|
end
|
|
object colJCbezDaniKc2: TcxGridDBColumn
|
|
end
|
|
object colCCbezDPH2: TcxGridDBColumn
|
|
end
|
|
end
|
|
object lvSklad: TcxGridLevel
|
|
GridView = viewSklad
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object tBar: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 944
|
|
Height = 36
|
|
ButtonHeight = 38
|
|
ButtonWidth = 39
|
|
Caption = 'tBar'
|
|
Images = imgList
|
|
TabOrder = 1
|
|
object tBtn1: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Margins.Left = 1
|
|
Margins.Top = 1
|
|
Margins.Right = 1
|
|
Margins.Bottom = 1
|
|
Caption = 'tBtn1'
|
|
ImageIndex = 1
|
|
end
|
|
object tBtn2: TToolButton
|
|
Left = 39
|
|
Top = 0
|
|
Caption = 'tBtn2'
|
|
ImageIndex = 2
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
Left = 762
|
|
Top = 439
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&OK'
|
|
ModalResult = 1
|
|
TabOrder = 2
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnCanel: TButton
|
|
Left = 857
|
|
Top = 439
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Storno'
|
|
ModalResult = 2
|
|
TabOrder = 3
|
|
OnClick = btnCanelClick
|
|
end
|
|
object vTabPol: TVirtualTable
|
|
OnCalcFields = vTabPolCalcFields
|
|
Left = 90
|
|
Top = 404
|
|
Data = {03000000000000000000}
|
|
end
|
|
object dsPol: TDataSource
|
|
DataSet = vTabPol
|
|
Left = 142
|
|
Top = 404
|
|
end
|
|
object imgList: TImageList
|
|
ColorDepth = cd8Bit
|
|
Height = 32
|
|
ShareImages = True
|
|
Width = 32
|
|
Left = 30
|
|
Top = 402
|
|
end
|
|
object dsSklad: TDataSource
|
|
DataSet = vTabSklad
|
|
Left = 274
|
|
Top = 404
|
|
end
|
|
object vTabSklad: TVirtualTable
|
|
Left = 214
|
|
Top = 404
|
|
Data = {03000000000000000000}
|
|
end
|
|
object pmSklad: TPopupMenu
|
|
Left = 440
|
|
Top = 404
|
|
object pmSklad1: TMenuItem
|
|
Caption = '&Na'#269'ti obsah skladu'
|
|
OnClick = pmSklad1Click
|
|
end
|
|
end
|
|
end
|