525 lines
12 KiB
Plaintext
525 lines
12 KiB
Plaintext
object formBaliciListy: TformBaliciListy
|
|
Left = 0
|
|
Top = 0
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = ' Balic'#237' listy'
|
|
ClientHeight = 589
|
|
ClientWidth = 589
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Position = poMainFormCenter
|
|
OnActivate = FormActivate
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
TextHeight = 13
|
|
object lblVerze: TLabel
|
|
Left = 12
|
|
Top = 572
|
|
Width = 3
|
|
Height = 11
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Visible = False
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 7
|
|
Top = 46
|
|
Width = 574
|
|
Height = 493
|
|
Caption = ' Obsah '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 12
|
|
Top = 150
|
|
Width = 205
|
|
Height = 16
|
|
Caption = 'Obsah bal'#237'c'#237'ho listu (boxu, krabice):'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 267
|
|
Top = 47
|
|
Width = 42
|
|
Height = 16
|
|
Caption = 'Datum:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 17
|
|
Top = 22
|
|
Width = 53
|
|
Height = 16
|
|
Caption = 'Na sklad:'
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 9
|
|
Top = 62
|
|
Width = 546
|
|
Height = 88
|
|
Caption = ' Polo'#382'ka '
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 10
|
|
Top = 18
|
|
Width = 61
|
|
Height = 16
|
|
Caption = 'Skup.zbo'#382#237
|
|
end
|
|
object Label3: TLabel
|
|
Left = 78
|
|
Top = 18
|
|
Width = 51
|
|
Height = 16
|
|
Caption = 'Reg.'#269#237'slo'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 220
|
|
Top = 18
|
|
Width = 49
|
|
Height = 16
|
|
Caption = 'Mno'#382'stv'#237
|
|
end
|
|
object Label9: TLabel
|
|
Left = 318
|
|
Top = 18
|
|
Width = 58
|
|
Height = 16
|
|
Caption = #268#237'slo boxu'
|
|
end
|
|
object lblKarta: TLabel
|
|
Left = 13
|
|
Top = 62
|
|
Width = 4
|
|
Height = 14
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 390
|
|
Top = 18
|
|
Width = 81
|
|
Height = 16
|
|
Caption = 'V'#253'robn'#237' p'#345#237'kaz'
|
|
end
|
|
object selSZ: TRzButtonEdit
|
|
Left = 11
|
|
Top = 36
|
|
Width = 55
|
|
Height = 24
|
|
Text = ''
|
|
Alignment = taCenter
|
|
TabOrder = 0
|
|
OnKeyUp = selSZKeyUp
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selSZButtonClick
|
|
end
|
|
object selRegCis: TRzButtonEdit
|
|
Left = 78
|
|
Top = 38
|
|
Width = 131
|
|
Height = 24
|
|
Text = ''
|
|
CharCase = ecUpperCase
|
|
TabOrder = 1
|
|
OnExit = selRegCisExit
|
|
OnKeyUp = selRegCisKeyUp
|
|
AltBtnNumGlyphs = 1
|
|
ButtonNumGlyphs = 1
|
|
OnButtonClick = selRegCisButtonClick
|
|
end
|
|
object edtKS: TRzNumericEdit
|
|
Left = 220
|
|
Top = 36
|
|
Width = 81
|
|
Height = 24
|
|
Alignment = taCenter
|
|
CharCase = ecUpperCase
|
|
TabOrder = 2
|
|
OnExit = edtKSExit
|
|
CalculatorVisible = True
|
|
DisplayFormat = '###,###0;-###,###0'
|
|
end
|
|
object edtBox: TRzNumericEdit
|
|
Left = 318
|
|
Top = 36
|
|
Width = 55
|
|
Height = 24
|
|
TabOrder = 3
|
|
DisplayFormat = ',0;(,0)'
|
|
end
|
|
object btnAddPol: TBitBtn
|
|
Left = 323
|
|
Top = 61
|
|
Width = 47
|
|
Height = 25
|
|
Caption = 'V'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
OnClick = btnAddPolClick
|
|
end
|
|
object edtPrikaz: TRzNumericEdit
|
|
Left = 392
|
|
Top = 36
|
|
Width = 74
|
|
Height = 24
|
|
MaxLength = 10
|
|
TabOrder = 5
|
|
DisplayFormat = ',0;(,0)'
|
|
end
|
|
end
|
|
object edtDat: TRzDateTimeEdit
|
|
Left = 313
|
|
Top = 44
|
|
Width = 100
|
|
Height = 24
|
|
CalendarElements = [ceYear, ceMonth, ceArrows, ceDaysOfWeek, ceFillDays, ceTodayButton]
|
|
CaptionTodayBtn = 'Dnes'
|
|
CaptionClearBtn = 'Smazat'
|
|
FirstDayOfWeek = fdowMonday
|
|
EditType = etDate
|
|
Format = 'd.m.yyyy'
|
|
Alignment = taCenter
|
|
TabOrder = 1
|
|
end
|
|
object cbOrg: TRzComboBox
|
|
Left = 91
|
|
Top = 19
|
|
Width = 159
|
|
Height = 24
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
OnChange = cbOrgChange
|
|
OnEnter = cbOrgEnter
|
|
Items.Strings = (
|
|
'LOVATO It'#225'lie'
|
|
'VD Otava Strakonice'
|
|
'Pikl Protiv'#237'n')
|
|
end
|
|
object cbVratka: TCheckBox
|
|
Left = 263
|
|
Top = 20
|
|
Width = 144
|
|
Height = 17
|
|
Caption = 'vratka od kooperanta'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnClick = cbVratkaClick
|
|
end
|
|
object cbTypDokl: TRzComboBox
|
|
Left = 91
|
|
Top = 44
|
|
Width = 139
|
|
Height = 24
|
|
Style = csDropDownList
|
|
TabOrder = 4
|
|
OnChange = cbTypDoklChange
|
|
OnEnter = cbTypDoklEnter
|
|
Items.Strings = (
|
|
'FIN'#193'LN'#205' PRODUKTY'
|
|
'NEBALEN'#201' V'#221'ROBKY'
|
|
'MATERI'#193'LY'
|
|
'REKLAMACE')
|
|
end
|
|
object cbReklamace: TCheckBox
|
|
Left = 423
|
|
Top = 21
|
|
Width = 97
|
|
Height = 17
|
|
Caption = ' REKLAMACE'
|
|
Enabled = False
|
|
TabOrder = 5
|
|
Visible = False
|
|
end
|
|
object grd: TJvDBGrid
|
|
Left = 6
|
|
Top = 169
|
|
Width = 561
|
|
Height = 302
|
|
DataSource = dsBL
|
|
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
PopupMenu = pMenu
|
|
TabOrder = 6
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'Tahoma'
|
|
TitleFont.Style = []
|
|
OnDblClick = grdDblClick
|
|
ScrollBars = ssVertical
|
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
|
SelectColumnsDialogStrings.OK = '&OK'
|
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
|
EditControls = <>
|
|
RowsHeight = 20
|
|
TitleRowHeight = 20
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idKZ'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idSS'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idPZ'
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'SkupZbo'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'SK'
|
|
Width = 38
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'RegCis'
|
|
Width = 150
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'Mnoz'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Mno'#382'stv'#237
|
|
Width = 60
|
|
Visible = True
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'Box'
|
|
Title.Alignment = taCenter
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'CelkHmot'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Hmotnost'
|
|
Width = 60
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Prikaz'
|
|
Width = 0
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'IdBLPol'
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'IDSklad'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Sklad zdroj'
|
|
Width = 70
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'idSSCil'
|
|
Visible = False
|
|
end
|
|
item
|
|
Alignment = taCenter
|
|
Expanded = False
|
|
FieldName = 'IDSkladCil'
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'Sklad c'#237'l'
|
|
Width = 70
|
|
Visible = True
|
|
end>
|
|
end
|
|
object statBar: TJvStatusBar
|
|
Left = 2
|
|
Top = 472
|
|
Width = 570
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 205
|
|
end
|
|
item
|
|
Alignment = taRightJustify
|
|
Width = 60
|
|
end
|
|
item
|
|
Width = 80
|
|
end
|
|
item
|
|
Alignment = taRightJustify
|
|
Width = 60
|
|
end
|
|
item
|
|
Width = 100
|
|
end>
|
|
end
|
|
end
|
|
object btnOK: TButton
|
|
Left = 202
|
|
Top = 556
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&OK'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ModalResult = 1
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = btnOKClick
|
|
OnMouseDown = btnOKMouseDown
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 381
|
|
Top = 556
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Zru'#353'it'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ModalResult = 2
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = btnCancelClick
|
|
end
|
|
object vTabBL: TFDMemTable
|
|
Active = True
|
|
AfterPost = vTabBLAfterPost
|
|
FetchOptions.AssignedValues = [evMode]
|
|
FetchOptions.Mode = fmAll
|
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
|
ResourceOptions.SilentMode = True
|
|
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
|
UpdateOptions.CheckRequired = False
|
|
UpdateOptions.AutoCommitUpdates = True
|
|
Left = 496
|
|
Top = 96
|
|
object vTabBLidKZ: TIntegerField
|
|
FieldName = 'idKZ'
|
|
Visible = False
|
|
end
|
|
object vTabBLidSS: TIntegerField
|
|
FieldName = 'idSS'
|
|
Visible = False
|
|
end
|
|
object vTabBLidPZ: TIntegerField
|
|
FieldName = 'idPZ'
|
|
Visible = False
|
|
end
|
|
object vTabBLSkupZbo: TStringField
|
|
FieldName = 'SkupZbo'
|
|
Size = 3
|
|
end
|
|
object vTabBLRegCis: TStringField
|
|
FieldName = 'RegCis'
|
|
Size = 30
|
|
end
|
|
object vTabBLBox: TStringField
|
|
FieldName = 'Box'
|
|
end
|
|
object vTabBLMnoz: TFloatField
|
|
FieldName = 'Mnoz'
|
|
DisplayFormat = '#,##0.###'
|
|
end
|
|
object vTabBLCelkHmot: TFloatField
|
|
FieldName = 'CelkHmot'
|
|
DisplayFormat = '#,##0.##'
|
|
end
|
|
object vTabBLPrikaz: TIntegerField
|
|
FieldName = 'Prikaz'
|
|
Visible = False
|
|
end
|
|
object vTabBLIdBLPol: TIntegerField
|
|
FieldName = 'IdBLPol'
|
|
Visible = False
|
|
end
|
|
object vTabBLIDSklad: TStringField
|
|
FieldName = 'IDSklad'
|
|
Size = 30
|
|
end
|
|
object vTabBLidSSCil: TIntegerField
|
|
FieldName = 'idSSCil'
|
|
Visible = False
|
|
end
|
|
object vTabBLIDSkladCil: TStringField
|
|
FieldName = 'IDSkladCil'
|
|
Size = 30
|
|
end
|
|
end
|
|
object dsBL: TDataSource
|
|
DataSet = vTabBL
|
|
Left = 540
|
|
Top = 98
|
|
end
|
|
object pMenu: TPopupMenu
|
|
Left = 154
|
|
Top = 304
|
|
object pmDelPol: TMenuItem
|
|
Caption = '&Smazat polo'#382'ku'
|
|
OnClick = pmDelPolClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pmObnovNeulozene: TMenuItem
|
|
Caption = '&Obnovit neulo'#382'en'#233' polo'#382'ky'
|
|
OnClick = pmObnovNeulozeneClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pmSmazNeulozene: TMenuItem
|
|
Caption = 'Sma&zat neulo'#382'en'#233' polo'#382'ky'
|
|
OnClick = pmSmazNeulozeneClick
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object pmImpReader: TMenuItem
|
|
Caption = '&Import dat ze '#269'te'#269'ky'
|
|
OnClick = pmImpReaderClick
|
|
end
|
|
end
|
|
end
|