548 lines
14 KiB
ObjectPascal
548 lines
14 KiB
ObjectPascal
object formGenKoopObj: TformGenKoopObj
|
|
Left = 0
|
|
Top = 0
|
|
Caption = ' Generov'#225'n'#237' Koopera'#269'n'#237' objedn'#225'vky'
|
|
ClientHeight = 678
|
|
ClientWidth = 952
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'Segoe UI'
|
|
Font.Style = []
|
|
Position = poOwnerFormCenter
|
|
OnShow = FormShow
|
|
TextHeight = 21
|
|
object pgCtrl: TRzPageControl
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 946
|
|
Height = 672
|
|
Hint = ''
|
|
ActivePage = shNovaObj
|
|
Align = alClient
|
|
SoftCorners = True
|
|
TabIndex = 1
|
|
TabOrder = 0
|
|
FixedDimension = 27
|
|
object shHlavicky: TRzTabSheet
|
|
Caption = 'Hlavi'#269'ky'
|
|
object pnl1: TGridPanel
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 936
|
|
Height = 635
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333310000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = btnNovaObj
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = btnPrijem
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 2
|
|
Control = btnReload
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 0
|
|
ColumnSpan = 3
|
|
Control = grdHlavicky
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 85.000000000000000000
|
|
end
|
|
item
|
|
Value = 15.000000000000000000
|
|
end>
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
936
|
|
635)
|
|
object btnNovaObj: TButton
|
|
Left = 61
|
|
Top = 556
|
|
Width = 190
|
|
Height = 60
|
|
Anchors = []
|
|
Caption = 'Nov'#225' kooperace'
|
|
TabOrder = 0
|
|
OnClick = btnNovaObjClick
|
|
end
|
|
object btnPrijem: TButton
|
|
Left = 373
|
|
Top = 556
|
|
Width = 190
|
|
Height = 60
|
|
Anchors = []
|
|
Caption = 'P'#345#237'jem kooperace'
|
|
TabOrder = 1
|
|
end
|
|
object btnReload: TButton
|
|
Left = 684
|
|
Top = 556
|
|
Width = 190
|
|
Height = 60
|
|
Anchors = []
|
|
Caption = 'Obnovit seznam'
|
|
TabOrder = 2
|
|
end
|
|
object grdHlavicky: TJvDBGrid
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 4
|
|
Width = 928
|
|
Height = 532
|
|
Align = alClient
|
|
Anchors = []
|
|
DataSource = dm.dsKoopObjH
|
|
DrawingStyle = gdsGradient
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Segoe UI'
|
|
TitleFont.Style = []
|
|
ScrollBars = ssVertical
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
RowsHeight = 25
|
|
TitleRowHeight = 25
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ID'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IDKoopObjH'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Oznaceni'
|
|
Title.Caption = 'Ozna'#269'en'#237
|
|
Width = 529
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'PozadDodani'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Po'#382'adovan'#233' dod'#225'n'#237
|
|
Width = 148
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'DatVytvoreni'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Datum vytvo'#345'en'#237
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'JePrijem'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'P'#345#237'jem'
|
|
Width = 55
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
end
|
|
object shNovaObj: TRzTabSheet
|
|
OnShow = shNovaObjShow
|
|
Caption = 'Nov'#225' objedn'#225'vka'
|
|
object pnl2: TGridPanel
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 936
|
|
Height = 635
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = pnl3
|
|
Row = 2
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = GridPanel1
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = grdNovePolozky
|
|
Row = 1
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 20.153297645299770000
|
|
end
|
|
item
|
|
Value = 69.770053532050350000
|
|
end
|
|
item
|
|
Value = 10.076648822649870000
|
|
end>
|
|
TabOrder = 0
|
|
object pnl3: TGridPanel
|
|
Left = 1
|
|
Top = 570
|
|
Width = 934
|
|
Height = 64
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 50.000000000000000000
|
|
end
|
|
item
|
|
Value = 50.000000000000000000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = btnPolUloz
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = btnPolSmaz
|
|
Row = 0
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 100.000000000000000000
|
|
end>
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
934
|
|
64)
|
|
object btnPolUloz: TButton
|
|
Left = 164
|
|
Top = 7
|
|
Width = 140
|
|
Height = 50
|
|
Anchors = []
|
|
Caption = 'Ulo'#382'it objedn'#225'vku'
|
|
TabOrder = 0
|
|
OnClick = btnPolUlozClick
|
|
end
|
|
object btnPolSmaz: TButton
|
|
Left = 630
|
|
Top = 7
|
|
Width = 140
|
|
Height = 50
|
|
Anchors = []
|
|
Caption = 'Smazat'
|
|
TabOrder = 1
|
|
OnClick = btnPolSmazClick
|
|
end
|
|
end
|
|
object GridPanel1: TGridPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 934
|
|
Height = 128
|
|
Align = alClient
|
|
ColumnCollection = <
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333310000
|
|
end>
|
|
ControlCollection = <
|
|
item
|
|
Column = 0
|
|
Control = Label1
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 1
|
|
ColumnSpan = 2
|
|
Control = cbKooperanti
|
|
Row = 0
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = Label2
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = dtPozadDodani
|
|
Row = 1
|
|
end
|
|
item
|
|
Column = 0
|
|
Control = btnNovaPol
|
|
Row = 2
|
|
end
|
|
item
|
|
Column = 2
|
|
Control = edtBarcode
|
|
Row = 2
|
|
end
|
|
item
|
|
Column = 1
|
|
Control = lblTypKodu
|
|
Row = 2
|
|
end>
|
|
RowCollection = <
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333340000
|
|
end
|
|
item
|
|
Value = 33.333333333333310000
|
|
end>
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
934
|
|
128)
|
|
object Label1: TLabel
|
|
Left = 119
|
|
Top = 11
|
|
Width = 75
|
|
Height = 21
|
|
Anchors = []
|
|
Caption = 'Kooperant:'
|
|
ExplicitLeft = 120
|
|
end
|
|
object cbKooperanti: TRzComboBox
|
|
AlignWithMargins = True
|
|
Left = 315
|
|
Top = 7
|
|
Width = 536
|
|
Height = 29
|
|
Anchors = [akLeft]
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
OnChange = cbKooperantiChange
|
|
end
|
|
object Label2: TLabel
|
|
Left = 63
|
|
Top = 53
|
|
Width = 187
|
|
Height = 21
|
|
Anchors = []
|
|
Caption = 'Po'#382'adovan'#233' datum dod'#225'n'#237':'
|
|
ExplicitLeft = 64
|
|
end
|
|
object dtPozadDodani: TDateTimePicker
|
|
Left = 312
|
|
Top = 49
|
|
Width = 125
|
|
Height = 29
|
|
Anchors = [akLeft]
|
|
Date = 46155.000000000000000000
|
|
Time = 0.371777592590660800
|
|
TabOrder = 1
|
|
end
|
|
object btnNovaPol: TButton
|
|
Left = 54
|
|
Top = 87
|
|
Width = 204
|
|
Height = 38
|
|
Anchors = []
|
|
Caption = 'Nov'#225' polo'#382'ka'
|
|
TabOrder = 2
|
|
OnClick = btnNovaPolClick
|
|
end
|
|
object edtBarcode: TEdit
|
|
Left = 622
|
|
Top = 91
|
|
Width = 445
|
|
Height = 29
|
|
Anchors = []
|
|
MaxLength = 50
|
|
TabOrder = 3
|
|
OnExit = edtBarcodeExit
|
|
end
|
|
object lblTypKodu: TLabel
|
|
Left = 465
|
|
Top = 95
|
|
Width = 4
|
|
Height = 21
|
|
Anchors = []
|
|
ExplicitLeft = 428
|
|
end
|
|
end
|
|
object grdNovePolozky: TJvDBGrid
|
|
AlignWithMargins = True
|
|
Left = 4
|
|
Top = 132
|
|
Width = 928
|
|
Height = 435
|
|
Align = alClient
|
|
DataSource = dm.dsInsOperace
|
|
DrawingStyle = gdsGradient
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
PopupMenu = pMenu
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -16
|
|
TitleFont.Name = 'Segoe UI'
|
|
TitleFont.Style = []
|
|
ScrollBars = ssVertical
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
RowsHeight = 25
|
|
TitleRowHeight = 25
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ID'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IdPrPostup'
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'RegCis'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Reg. '#269#237'slo'
|
|
Width = 150
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'RadaPrikaz'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = #344'ada / p'#345#237'kaz'
|
|
Width = 161
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IDVPr'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IdVPrVyssi'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IDDavkaRodic'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Doklad'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Alt'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Kusy'
|
|
Title.Alignment = taCenter
|
|
Width = 78
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Koef'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Operace'
|
|
Width = 409
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IDKooperace'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'KsNaStr'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IDRadkuHDCPol'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'KodKoop'
|
|
Title.Caption = 'Kooperace'
|
|
Width = 100
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object pMenu: TPopupMenu
|
|
Left = 109
|
|
Top = 428
|
|
object pM1ZmenaMnoz: TMenuItem
|
|
Caption = 'Zm'#283'na mno'#382'stv'#237
|
|
OnClick = pM1ZmenaMnozClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pM1Smazat: TMenuItem
|
|
Caption = 'Smazat'
|
|
OnClick = pM1SmazatClick
|
|
end
|
|
end
|
|
end
|