Pridana funkcnost zmeny planovaneho ukonceni prikazu podle tabulky (comObject akce 36) + prvni verze generovani KoopObj dle stare HDC funkcnosti ctecky
This commit is contained in:
@@ -0,0 +1,547 @@
|
||||
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
|
||||
Reference in New Issue
Block a user