D10szGerun/T02贸易汇总仓库/U_mlkc.dfm
2026-10-13 17:29:49 +08:00

937 lines
25 KiB
Plaintext

inherited frmmlkc: Tfrmmlkc
Left = 165
Top = 111
Caption = #24453#26816#24067#20837#24211#21015#34920
ClientHeight = 581
ClientWidth = 1477
ExplicitWidth = 1493
ExplicitHeight = 620
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1477
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeTotalClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20837#24211
ImageIndex = 9
Visible = False
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Visible = False
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
Visible = False
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 592
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1477
Height = 58
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label1: TLabel
Left = 561
Top = 12
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
Visible = False
end
object Label2: TLabel
Left = 597
Top = 37
Width = 12
Height = 12
Caption = #33267
Visible = False
end
object Label3: TLabel
Left = 867
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
Visible = False
end
object Label4: TLabel
Left = 1000
Top = 11
Width = 48
Height = 12
Caption = #26469#33258#21333#20301
Visible = False
end
object Label5: TLabel
Left = 702
Top = 15
Width = 48
Height = 12
Caption = #20837#24211#21333#21495
Visible = False
end
object Label8: TLabel
Left = 867
Top = 37
Width = 24
Height = 12
Caption = #35268#26684
Visible = False
end
object Label12: TLabel
Left = 703
Top = 40
Width = 48
Height = 12
Caption = #20837#24211#31867#22411
Visible = False
end
object Label10: TLabel
Left = 1000
Top = 36
Width = 48
Height = 12
Caption = #25209' '#21495
Visible = False
end
object Label6: TLabel
Left = 1152
Top = 14
Width = 60
Height = 12
Caption = #26126#32454#21512#21516#21495
Visible = False
end
object Label7: TLabel
Left = 1320
Top = 37
Width = 48
Height = 12
Caption = #21512#21516#32534#21495
Visible = False
end
object Label9: TLabel
Left = 1320
Top = 14
Width = 48
Height = 12
Caption = #20316#19994#21333#21495
Visible = False
end
object Label11: TLabel
Left = 1152
Top = 38
Width = 60
Height = 12
Caption = #24635#23458#25143#21333#21495
Visible = False
end
object Label13: TLabel
Left = 12
Top = 25
Width = 48
Height = 12
Caption = #23454#38469#38754#26009
end
object Label14: TLabel
Left = 302
Top = 25
Width = 24
Height = 12
Caption = #39068#33394
end
object BegDate: TDateTimePicker
Left = 610
Top = 8
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 0
Visible = False
end
object EndDate: TDateTimePicker
Left = 610
Top = 33
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 1
Visible = False
end
object C_name: TEdit
Tag = 2
Left = 894
Top = 8
Width = 100
Height = 20
TabOrder = 2
Visible = False
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 1050
Top = 7
Width = 100
Height = 20
TabOrder = 3
Visible = False
OnChange = FromCoNameChange
end
object BCIOID: TEdit
Tag = 2
Left = 752
Top = 11
Width = 109
Height = 20
TabOrder = 4
Visible = False
OnChange = BCIOIDChange
end
object C_spec: TEdit
Tag = 2
Left = 894
Top = 32
Width = 100
Height = 20
TabOrder = 5
Visible = False
OnChange = C_specChange
end
object IOType: TComboBox
Tag = 2
Left = 752
Top = 36
Width = 109
Height = 20
Style = csDropDownList
DropDownCount = 20
TabOrder = 6
Visible = False
OnChange = TBFindClick
Items.Strings = (
''
#37319#36141#20837#24211
#21152#24037#20837#24211
#29983#20135#36864#22238
#30424#30408#20837#24211
#38144#21806#36864#22238)
end
object BatchNo: TEdit
Tag = 2
Left = 1050
Top = 32
Width = 100
Height = 20
TabOrder = 7
Visible = False
OnChange = FromCoNameChange
end
object FromC_ConNo: TEdit
Tag = 2
Left = 1218
Top = 8
Width = 100
Height = 20
TabOrder = 8
Visible = False
OnChange = FromCoNameChange
end
object FromcontractNO: TEdit
Tag = 2
Left = 1370
Top = 32
Width = 100
Height = 20
TabOrder = 9
Visible = False
OnChange = FromCoNameChange
end
object FromoperationNO: TEdit
Tag = 2
Left = 1370
Top = 9
Width = 100
Height = 20
TabOrder = 10
Visible = False
OnChange = FromCoNameChange
end
object Edit1: TEdit
Tag = 2
Left = 1218
Top = 32
Width = 100
Height = 20
TabOrder = 11
Visible = False
OnChange = FromCoNameChange
end
object C_goods: TEdit
Tag = 2
Left = 66
Top = 20
Width = 230
Height = 20
TabOrder = 12
OnChange = FromCoNameChange
end
object C_Color: TEdit
Tag = 2
Left = 332
Top = 20
Width = 225
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
OnChange = FromCoNameChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 345
Width = 1477
Height = 236
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
Styles.Header = DataLink_TradeTotalClothStk.Default
Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
object Tv1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 53
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 93
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 116
end
object Tv1Column11: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #21512#21516#32534#21495
DataBinding.FieldName = 'FromcontractNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column16: TcxGridDBColumn
Caption = #26126#32454#21512#21516#21495
DataBinding.FieldName = 'FromC_ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column17: TcxGridDBColumn
Caption = #20316#19994#21333#21495
DataBinding.FieldName = 'FromoperationNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 99
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 79
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 89
end
object Tv1Column4: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v1Column11: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object Tv1Column6: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1Column15: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column19: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column20: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #30721#23610
DataBinding.FieldName = 'Yardstick'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column2: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column10: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column9: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column12: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'KCROLL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column13: TcxGridDBColumn
Caption = #24211#23384#31859#25968
DataBinding.FieldName = 'KCMS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column14: TcxGridDBColumn
Caption = #24211#23384#37325#37327
DataBinding.FieldName = 'KCMZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column18: TcxGridDBColumn
Caption = #24635#23458#25143#21333#21495
DataBinding.FieldName = 'FromBuyConNoHZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #23454#38469#38754#26009
DataBinding.FieldName = 'C_goods'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#38754#26009
DataBinding.FieldName = 'C_Fabric'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column21: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'CHIOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column22: TcxGridDBColumn
Caption = #20986#24211#21305#25968
DataBinding.FieldName = 'CKROLL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column23: TcxGridDBColumn
Caption = #20986#24211#31859#25968
DataBinding.FieldName = 'CKMS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column24: TcxGridDBColumn
Caption = #20986#21040#23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column25: TcxGridDBColumn
Caption = #20986#21040#31867#22411
DataBinding.FieldName = 'IoType1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column26: TcxGridDBColumn
Caption = #27425#21697#25968#37327
DataBinding.FieldName = 'defectiveQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column27: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'CKTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid [3]
Left = 0
Top = 96
Width = 1477
Height = 249
Align = alTop
TabOrder = 3
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = TV2FocusedRecordChanged
DataController.DataSource = DataSource2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #38754#26009#21517#31216
DataBinding.FieldName = 'C_goods'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Footer = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
Width = 116
end
object TV2Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Footer = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
Width = 126
end
object TV2Column3: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'ZPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Footer = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
Width = 128
end
object TV2Column4: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'ZMS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeTotalClothStk.Default
Styles.Footer = DataLink_TradeTotalClothStk.Default
Styles.Header = DataLink_TradeTotalClothStk.Default
Width = 134
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 121
Top = 336
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 257
Top = 337
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 936
Top = 384
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 856
Top = 392
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1016
Top = 416
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 760
Top = 384
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1080
Top = 376
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 864
Top = 456
end
object PopupMenu1: TPopupMenu
Left = 344
Top = 408
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object DataSource2: TDataSource
DataSet = CDS_sub
Left = 736
Top = 152
end
object CDS_sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 848
Top = 168
end
object ADOQuerysub: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 768
Top = 232
end
end