Files
Kdynium-plgKdynium/frmOdvLisX.dfm
2025-05-21 21:19:51 +02:00

767 lines
20 KiB
Plaintext

object formOdvLisX: TformOdvLisX
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = ' Odv'#225'd'#283'ni vst'#345'ik'#367' na lisu'
ClientHeight = 613
ClientWidth = 1487
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 25
object lblZapisDat: TLabel
Left = 539
Top = 570
Width = 354
Height = 25
Alignment = taCenter
AutoSize = False
Caption = 'Prob'#237'h'#225' z'#225'pis dat...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 596
Top = 123
Width = 126
Height = 25
Caption = 'Po'#269'et vst'#345'ik'#367':'
end
object lblPrijmeni: TLabel
Left = 781
Top = 79
Width = 5
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblPlan: TLabel
Left = 510
Top = 79
Width = 5
Height = 19
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 1182
Top = 156
Width = 267
Height = 23
Caption = '. . . . pro evidenci Zmetk'#367' . . . .'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = [fsItalic]
ParentFont = False
Visible = False
end
object btnOK: TButton
Left = 523
Top = 520
Width = 116
Height = 39
Caption = 'OK'
TabOrder = 6
OnClick = btnOKClick
end
object btnStorno: TButton
Left = 792
Top = 520
Width = 113
Height = 39
Caption = 'Storno'
TabOrder = 7
OnClick = btnStornoClick
end
object edtBarcode: TLabeledEdit
Left = 510
Top = 40
Width = 143
Height = 33
Alignment = taCenter
EditLabel.Width = 125
EditLabel.Height = 25
EditLabel.Caption = #268'. k'#243'd pl'#225'nu:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnExit = edtBarcodeExit
end
object selBarcode: TButtonedEdit
Left = 652
Top = 41
Width = 31
Height = 31
Caption = '...'
TabOrder = 1
OnClick = selBarcodeClick
end
object edtCisZam: TLabeledEdit
Left = 780
Top = 40
Width = 94
Height = 33
Alignment = taCenter
EditLabel.Width = 131
EditLabel.Height = 25
EditLabel.Caption = 'Os.'#269'. zam'#283'st.:'
NumbersOnly = True
TabOrder = 2
OnExit = edtCisZamExit
end
object selCisZam: TButtonedEdit
Left = 873
Top = 42
Width = 31
Height = 31
Caption = '...'
TabOrder = 3
OnClick = selCisZamClick
OnExit = selCisZamExit
end
object edtVstriku: TRzNumericEdit
Left = 728
Top = 120
Width = 65
Height = 33
Alignment = taCenter
TabOrder = 4
OnExit = edtVstrikuExit
DisplayFormat = ',0;(,0)'
end
object grd: TNextDBGrid6
Left = 3
Top = 179
Width = 1476
Height = 316
ParentColor = False
TabOrder = 5
StyleOptions = [soNativeStyles, soVCLStyles]
ActiveView = view
ActiveViewIndex = 0
Options = [goAutoHideScrollBars, goExitEndEditing, goResponsiveViews, goTabLeaveControl]
RowHeight = 30
ScrollBars = [sbVertical]
SelectFullRow = True
Style = stModern
OnCellClick = grdCellClick
DataSource = ds
object view: TNxReportGridView6
ColumnMoving = False
GridLines = True
HeaderHeight = 33
OnGetCellColor = viewGetCellColor
end
object colRegCis: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Reg.'#269'.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 0
Inserting = False
PlaceholderText = 'Text Text'
Position = 0
Resizeable = False
Width = 140
DataBinding.FieldName = 'RegCis'
end
object colZakazka: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Zak'#225'zka'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 1
PlaceholderText = 'Text Text'
Position = 1
Resizeable = False
Width = 140
DataBinding.FieldName = 'Zakazka'
end
object colNazev: TNxDBTextColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Popis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 2
Inserting = False
PlaceholderText = 'Text Text'
Position = 2
Selectable = False
Width = 220
DataBinding.FieldName = 'Nazev'
end
object colForma: TNxDBComboBoxColumn6
Alignment = taCenter
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Forma'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 3
PlaceholderText = 'Text Text'
Position = 3
Resizeable = False
Width = 230
AutoDropDown = True
ItemHeight = 25
ItemsAlignment = taCenter
end
object colFormaSN: TNxDBTextColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'V'#253'r.'#269#237'slo'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 4
PlaceholderText = 'Text Text'
Position = 4
Width = 230
DataBinding.FieldName = 'FormaSN'
end
object colKsVeForme: TNxDBNumberColumn6
Alignment = taCenter
DrawingOptions = [doBackground, doContent, doCustom]
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Ks/forma'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 5
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 5
Resizeable = False
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsVeForme'
InsertString = '0'
end
object colKsDobre: TNxDBNumberColumn6
Alignment = taCenter
Color = 9894289
Editing = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '0'
Header.Alignment = taCenter
Header.Caption = 'Dobr'#233' ks'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -21
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Header.Clickable = False
Index = 6
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 6
Resizeable = False
Width = 100
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsDobre'
InsertString = '0'
end
object colZmetky1: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 7
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 7
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky1'
InsertString = '0'
end
object colZmetky2: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 8
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 8
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky2'
InsertString = '0'
end
object colZmetky3: TNxDBNumberColumn6
Alignment = taCenter
Editing = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Z'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -19
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 9
Inserting = False
ParentColor = False
PlaceholderText = '1742'
Position = 9
Resizeable = False
Width = 110
FormatMask = '#,##0'
NumericEditOptions = []
Precision = 0
Increment = 1.000000000000000000
SpinButtons = False
DataBinding.FieldName = 'KsZmetky3'
InsertString = '0'
end
end
object grdX: TXDBGrid
Left = 3
Top = 439
Width = 1476
Height = 120
DataSource = ds
Enabled = False
GridStyle.VisualStyle = vsStandard
HeaderColor = clTeal
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgExtendedSelect, dgInternalSelect, dgRowScroll, dgHotButtons, dgTitleButtons, dgTitleHeaders, dgTitleWidthOff, dgMarkerAutoAlign, dgMarkerAutoToggle]
TabOrder = 8
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg.'#269'.'
TotalFields.Visible = False
Visible = True
Width = 166
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Zakazka'
Title.Alignment = taCenter
Title.Caption = 'Zak'#225'zka'
TotalFields.Visible = False
Visible = True
Width = 123
end
item
Expanded = False
FieldName = 'Nazev'
Title.Alignment = taCenter
Title.Caption = 'Popis'
TotalFields.Visible = False
Visible = True
Width = 227
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Forma'
LookupDataSet = tblFormaX
LookupKeyField = 'RegCis'
LookupListFields = 'Forma'
TotalFields.Visible = False
Visible = True
Width = 155
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FormaSN'
Title.Caption = 'V'#253'r.'#269#237'slo'
TotalFields.Visible = False
Visible = True
Width = 158
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KsVeForme'
Title.Caption = 'Ks/forma'
TotalFields.Visible = False
Visible = True
Width = 89
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KsDobre'
Title.Caption = 'Dobr'#233' ks'
Visible = True
Width = 100
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KsZmetky1'
Title.Caption = 'Z'
Visible = True
Width = 115
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KsZmetky2'
Title.Caption = 'Z'
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'KsZmetky3'
Title.Caption = 'Z'
Visible = True
Width = 103
end>
end
object tbl: TVirtualTable
FieldDefs = <
item
Name = 'IDPostup'
DataType = ftInteger
end
item
Name = 'RegCis'
DataType = ftString
Size = 20
end
item
Name = 'Nazev'
DataType = ftString
Size = 100
end
item
Name = 'KsDobre'
DataType = ftSmallint
end
item
Name = 'IDVyrCS'
DataType = ftInteger
end
item
Name = 'FormaSN'
DataType = ftString
Size = 30
end
item
Name = 'IDradek'
DataType = ftInteger
end
item
Name = 'IDnaradi'
DataType = ftInteger
end
item
Name = 'KsZmetky1'
DataType = ftInteger
end
item
Name = 'KsZmetky2'
DataType = ftInteger
end
item
Name = 'KsZmetky3'
DataType = ftInteger
end
item
Name = 'KsVeForme'
DataType = ftInteger
end
item
Name = 'Forma'
DataType = ftString
Size = 30
end>
Left = 124
Top = 107
Data = {
04000D0008004944506F73747570030000000000000006005265674369730100
14000000000005004E617A6576010064000000000007004B73446F6272650200
00000000000007004944567972435303000000000000000700466F726D61534E
01001E000000000007004944726164656B0300000000000000080049446E6172
616469030000000000000009004B735A6D65746B793103000000000000000900
4B735A6D65746B7932030000000000000009004B735A6D65746B793303000000
0000000009004B735665466F726D6503000000000000000500466F726D610100
1E0000000000000000000000}
object tblIDPrPostup: TIntegerField
FieldName = 'IDPostup'
Visible = False
end
object tblRegCis: TStringField
FieldName = 'RegCis'
end
object tblNazev: TStringField
FieldName = 'Nazev'
Size = 100
end
object tblKsDobre: TSmallintField
FieldName = 'KsDobre'
end
object tblIDVyrCS: TIntegerField
FieldName = 'IDVyrCS'
Visible = False
end
object tblFormaSN: TStringField
FieldName = 'FormaSN'
Size = 30
end
object tblIDradek: TIntegerField
FieldName = 'IDradek'
Visible = False
end
object tblIDnaradi: TIntegerField
FieldName = 'IDnaradi'
Visible = False
end
object tblKsZmetky1: TIntegerField
FieldName = 'KsZmetky1'
end
object tblKsZmetky2: TIntegerField
FieldName = 'KsZmetky2'
end
object tblKsZmetky3: TIntegerField
FieldName = 'KsZmetky3'
end
object tblKsNaPlate: TIntegerField
FieldName = 'KsVeForme'
end
object tblForma: TStringField
FieldName = 'Forma'
LookupKeyFields = 'RegCis'
LookupResultField = 'Forma'
Size = 30
end
object tblcolZakazka: TStringField
FieldName = 'Zakazka'
Size = 15
end
end
object ds: TDataSource
DataSet = tbl
Left = 73
Top = 107
end
object dsForma: TDataSource
DataSet = tblFormaX
Left = 196
Top = 110
end
object tblFormaX: TVirtualTable
Left = 252
Top = 111
Data = {04000000000000000000}
object tblFormaXRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object tblFormaXForma: TStringField
FieldName = 'Forma'
Size = 30
end
end
end