home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMSTOCKCONTROL / TFMSTOCKCONTROL.txt
Text File  |  1999-06-21  |  17KB  |  697 lines
  1. object fmStockControl: TfmStockControl
  2.   Left = 47
  3.   Top = 106
  4.   HelpContext = 7
  5.   AutoScroll = False
  6.   Caption = 'Stock Control'
  7.   ClientHeight = 432
  8.   ClientWidth = 698
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   FormStyle = fsMDIChild
  15.   Position = poDefaultPosOnly
  16.   Scaled = False
  17.   Visible = True
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   OnDeactivate = FormDeactivate
  23.   PixelsPerInch = 120
  24.   TextHeight = 16
  25.   object Panel1: TPanel
  26.     Left = 0
  27.     Top = 286
  28.     Width = 698
  29.     Height = 146
  30.     Align = alBottom
  31.     TabOrder = 0
  32.     object Bevel1: TBevel
  33.       Left = 5
  34.       Top = 3
  35.       Width = 172
  36.       Height = 135
  37.       Shape = bsFrame
  38.     end
  39.     object Label4: TLabel
  40.       Left = 11
  41.       Top = 12
  42.       Width = 43
  43.       Height = 16
  44.       Caption = 'Price A'
  45.     end
  46.     object Label5: TLabel
  47.       Left = 11
  48.       Top = 36
  49.       Width = 43
  50.       Height = 16
  51.       Caption = 'Price B'
  52.     end
  53.     object Label6: TLabel
  54.       Left = 11
  55.       Top = 61
  56.       Width = 43
  57.       Height = 16
  58.       Caption = 'Price C'
  59.     end
  60.     object Label18: TLabel
  61.       Left = 11
  62.       Top = 111
  63.       Width = 61
  64.       Height = 16
  65.       Caption = 'Cost Price'
  66.     end
  67.     object Bevel2: TBevel
  68.       Left = 180
  69.       Top = 3
  70.       Width = 321
  71.       Height = 135
  72.       Shape = bsFrame
  73.     end
  74.     object Bevel3: TBevel
  75.       Left = 505
  76.       Top = 3
  77.       Width = 188
  78.       Height = 135
  79.       Shape = bsFrame
  80.     end
  81.     object Label27: TLabel
  82.       Left = 191
  83.       Top = 12
  84.       Width = 67
  85.       Height = 16
  86.       Caption = 'Unit of Sale'
  87.     end
  88.     object Label31: TLabel
  89.       Left = 191
  90.       Top = 36
  91.       Width = 96
  92.       Height = 16
  93.       Caption = 'Unit of Purchase'
  94.     end
  95.     object Label19: TLabel
  96.       Left = 191
  97.       Top = 61
  98.       Width = 103
  99.       Height = 16
  100.       Caption = 'Preferred Supplier'
  101.     end
  102.     object Label20: TLabel
  103.       Left = 191
  104.       Top = 86
  105.       Width = 128
  106.       Height = 16
  107.       Caption = 'Supplier'#39's Stock Code'
  108.     end
  109.     object Label2: TLabel
  110.       Left = 192
  111.       Top = 111
  112.       Width = 49
  113.       Height = 16
  114.       Caption = 'Location'
  115.     end
  116.     object lblInStock: TLabel
  117.       Left = 515
  118.       Top = 12
  119.       Width = 48
  120.       Height = 16
  121.       Caption = 'In Stock'
  122.     end
  123.     object lblOnOrder: TLabel
  124.       Left = 515
  125.       Top = 36
  126.       Width = 53
  127.       Height = 16
  128.       Caption = 'On Order'
  129.     end
  130.     object lblReordLev: TLabel
  131.       Left = 515
  132.       Top = 86
  133.       Width = 78
  134.       Height = 16
  135.       Caption = 'Reorder Level'
  136.     end
  137.     object Label8: TLabel
  138.       Left = 515
  139.       Top = 111
  140.       Width = 70
  141.       Height = 16
  142.       Caption = 'Reorder Qty'
  143.     end
  144.     object wwDBEdit6: TwwDBEdit
  145.       Left = 83
  146.       Top = 57
  147.       Width = 90
  148.       Height = 24
  149.       TabStop = False
  150.       Ctl3D = True
  151.       DataField = 'SALEPRICE3'
  152.       DataSource = DM1.dsStock
  153.       ParentColor = True
  154.       ParentCtl3D = False
  155.       ReadOnly = True
  156.       TabOrder = 0
  157.       UnboundDataType = wwDefault
  158.       WantReturns = False
  159.       WordWrap = False
  160.     end
  161.     object wwDBEdit5: TwwDBEdit
  162.       Left = 83
  163.       Top = 32
  164.       Width = 90
  165.       Height = 24
  166.       TabStop = False
  167.       Ctl3D = True
  168.       DataField = 'SALEPRICE2'
  169.       DataSource = DM1.dsStock
  170.       ParentColor = True
  171.       ParentCtl3D = False
  172.       ReadOnly = True
  173.       TabOrder = 1
  174.       UnboundDataType = wwDefault
  175.       WantReturns = False
  176.       WordWrap = False
  177.     end
  178.     object wwDBEdit4: TwwDBEdit
  179.       Left = 83
  180.       Top = 7
  181.       Width = 90
  182.       Height = 24
  183.       TabStop = False
  184.       Ctl3D = True
  185.       DataField = 'SALEPRICE1'
  186.       DataSource = DM1.dsStock
  187.       ParentColor = True
  188.       ParentCtl3D = False
  189.       ReadOnly = True
  190.       TabOrder = 2
  191.       UnboundDataType = wwDefault
  192.       WantReturns = False
  193.       WordWrap = False
  194.     end
  195.     object wwDBEdit16: TwwDBEdit
  196.       Left = 83
  197.       Top = 107
  198.       Width = 90
  199.       Height = 24
  200.       TabStop = False
  201.       Ctl3D = True
  202.       DataField = 'COSTPRICE'
  203.       DataSource = DM1.dsStock
  204.       ParentColor = True
  205.       ParentCtl3D = False
  206.       ReadOnly = True
  207.       TabOrder = 3
  208.       UnboundDataType = wwDefault
  209.       WantReturns = False
  210.       WordWrap = False
  211.     end
  212.     object wwDBEdit24: TwwDBEdit
  213.       Left = 336
  214.       Top = 7
  215.       Width = 90
  216.       Height = 24
  217.       TabStop = False
  218.       Ctl3D = True
  219.       DataField = 'UNITSALE'
  220.       DataSource = DM1.dsStock
  221.       ParentColor = True
  222.       ParentCtl3D = False
  223.       ReadOnly = True
  224.       TabOrder = 4
  225.       UnboundDataType = wwDefault
  226.       WantReturns = False
  227.       WordWrap = False
  228.     end
  229.     object wwDBEdit25: TwwDBEdit
  230.       Left = 336
  231.       Top = 32
  232.       Width = 90
  233.       Height = 24
  234.       TabStop = False
  235.       Ctl3D = True
  236.       DataField = 'UNITPURC'
  237.       DataSource = DM1.dsStock
  238.       ParentColor = True
  239.       ParentCtl3D = False
  240.       ReadOnly = True
  241.       TabOrder = 5
  242.       UnboundDataType = wwDefault
  243.       WantReturns = False
  244.       WordWrap = False
  245.     end
  246.     object wwDBEdit17: TwwDBEdit
  247.       Left = 337
  248.       Top = 57
  249.       Width = 90
  250.       Height = 24
  251.       TabStop = False
  252.       Ctl3D = True
  253.       DataField = 'SUPPLIER'
  254.       DataSource = DM1.dsStock
  255.       ParentColor = True
  256.       ParentCtl3D = False
  257.       ReadOnly = True
  258.       TabOrder = 6
  259.       UnboundDataType = wwDefault
  260.       WantReturns = False
  261.       WordWrap = False
  262.     end
  263.     object wwDBEdit18: TwwDBEdit
  264.       Left = 337
  265.       Top = 82
  266.       Width = 155
  267.       Height = 24
  268.       TabStop = False
  269.       Ctl3D = True
  270.       DataField = 'PARTREF'
  271.       DataSource = DM1.dsStock
  272.       ParentColor = True
  273.       ParentCtl3D = False
  274.       ReadOnly = True
  275.       TabOrder = 7
  276.       UnboundDataType = wwDefault
  277.       WantReturns = False
  278.       WordWrap = False
  279.     end
  280.     object wwDBEdit14: TwwDBEdit
  281.       Left = 337
  282.       Top = 107
  283.       Width = 155
  284.       Height = 24
  285.       TabStop = False
  286.       Ctl3D = True
  287.       DataField = 'LOCATION'
  288.       DataSource = DM1.dsStock
  289.       ParentColor = True
  290.       ParentCtl3D = False
  291.       ReadOnly = True
  292.       TabOrder = 8
  293.       UnboundDataType = wwDefault
  294.       WantReturns = False
  295.       WordWrap = False
  296.     end
  297.     object wwDBEdit1: TwwDBEdit
  298.       Left = 603
  299.       Top = 7
  300.       Width = 85
  301.       Height = 24
  302.       TabStop = False
  303.       Ctl3D = True
  304.       DataField = 'INSTOCK'
  305.       DataSource = DM1.dsStock
  306.       ParentColor = True
  307.       ParentCtl3D = False
  308.       ReadOnly = True
  309.       TabOrder = 9
  310.       UnboundDataType = wwDefault
  311.       WantReturns = False
  312.       WordWrap = False
  313.     end
  314.     object wwDBEdit2: TwwDBEdit
  315.       Left = 603
  316.       Top = 32
  317.       Width = 85
  318.       Height = 24
  319.       TabStop = False
  320.       Ctl3D = True
  321.       DataField = 'ONORDER'
  322.       DataSource = DM1.dsStock
  323.       ParentColor = True
  324.       ParentCtl3D = False
  325.       ReadOnly = True
  326.       TabOrder = 10
  327.       UnboundDataType = wwDefault
  328.       WantReturns = False
  329.       WordWrap = False
  330.     end
  331.     object wwDBEdit3: TwwDBEdit
  332.       Left = 603
  333.       Top = 82
  334.       Width = 85
  335.       Height = 24
  336.       TabStop = False
  337.       Ctl3D = True
  338.       DataField = 'REORDLEV'
  339.       DataSource = DM1.dsStock
  340.       ParentColor = True
  341.       ParentCtl3D = False
  342.       ReadOnly = True
  343.       TabOrder = 11
  344.       UnboundDataType = wwDefault
  345.       WantReturns = False
  346.       WordWrap = False
  347.     end
  348.     object wwDBEdit7: TwwDBEdit
  349.       Left = 603
  350.       Top = 107
  351.       Width = 85
  352.       Height = 24
  353.       TabStop = False
  354.       Ctl3D = True
  355.       DataField = 'REORDQUAN'
  356.       DataSource = DM1.dsStock
  357.       ParentColor = True
  358.       ParentCtl3D = False
  359.       ReadOnly = True
  360.       TabOrder = 12
  361.       UnboundDataType = wwDefault
  362.       WantReturns = False
  363.       WordWrap = False
  364.     end
  365.   end
  366.   object Panel2: TPanel
  367.     Left = 0
  368.     Top = 49
  369.     Width = 698
  370.     Height = 237
  371.     Align = alClient
  372.     TabOrder = 1
  373.     object wwDBGrid1: TwwDBGrid
  374.       Left = 1
  375.       Top = 1
  376.       Width = 696
  377.       Height = 235
  378.       Selected.Strings = (
  379.         'STOCKCODE'#9'16'#9'Stock Code'
  380.         'DESC'#9'35'#9'Description'
  381.         'INSTOCK'#9'10'#9'In Stock'
  382.         'ONORDER'#9'10'#9'On Order'#9'F'
  383.         'REORDLEV'#9'10'#9'Reorder~Level'#9'F'
  384.         'SALEPRICE1'#9'10'#9'Price A'
  385.         'COSTPRICE'#9'10'#9'Cost Price'
  386.         'SALEPRICE2'#9'10'#9'Price B'
  387.         'SALEPRICE3'#9'10'#9'Price C'#9'No'
  388.         'DISC1'#9'10'#9'Discount 1'#9'No'
  389.         'DISC2'#9'10'#9'Discount 2'#9'No'
  390.         'DISC3'#9'10'#9'Discount 3'#9'No'
  391.         'LOCATION'#9'15'#9'Location'#9'No'
  392.         'REORDQUAN'#9'10'#9'Re Order~Qty'#9'No'
  393.         'LASTDEL'#9'10'#9'Last~Delivery'#9'No'
  394.         'LASTSALE'#9'10'#9'Last~Sale'#9'No'
  395.         'COMMODITY'#9'15'#9'Commodity'#9'No'
  396.         'FSImage'#9'10'#9'Full~Stock'#9'F'
  397.         'NOMINAL'#9'10'#9'Nominal~Ref'#9'No'
  398.         'NOTEPAD'#9'30'#9'Notepad'#9'No'
  399.         'PARTREF'#9'16'#9'Part Ref'#9'No'
  400.         'PRODGROUP'#9'10'#9'Product~Group'#9'No'
  401.         'PURCNOM'#9'10'#9'Purchase~Nom_Ref'#9'No'
  402.         'PURCVAT'#9'1'#9'Purchase~VC'#9'No'
  403.         'SALESVAT'#9'1'#9'Sales VC'#9'No'
  404.         'SELLINCVAT'#9'5'#9'Selling~VC'#9'No'
  405.         'SUPPLIER'#9'10'#9'Supplier~Ref'#9'No'
  406.         'UNITPURC'#9'10'#9'Unit~Purchase'#9'No'
  407.         'UNITSALE'#9'10'#9'Unit~Sale'#9'No')
  408.       MemoAttributes = [mSizeable, mWordWrap, mGridShow, mViewOnly]
  409.       TitleColor = clBtnFace
  410.       FixedCols = 1
  411.       ShowHorzScrollBar = True
  412.       Align = alClient
  413.       DataSource = DM1.dsStock
  414.       Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
  415.       PopupMenu = RCPopup
  416.       TabOrder = 0
  417.       TitleAlignment = taCenter
  418.       TitleFont.Charset = DEFAULT_CHARSET
  419.       TitleFont.Color = clWindowText
  420.       TitleFont.Height = -13
  421.       TitleFont.Name = 'Arial'
  422.       TitleFont.Style = []
  423.       TitleLines = 2
  424.       TitleButtons = True
  425.       UseTFields = False
  426.       OnCalcCellColors = wwDBGrid1CalcCellColors
  427.       OnTitleButtonClick = wwDBGrid1TitleButtonClick
  428.       OnDblClick = BtnEditClick
  429.       IndicatorColor = icBlack
  430.       OnTopRowChanged = wwDBGrid1TopRowChanged
  431.       OnCalcTitleImage = wwDBGrid1CalcTitleImage
  432.       ImageList = ImagesDM.GenralBM
  433.       TitleImageList = ImagesDM.GenralBM
  434.     end
  435.   end
  436.   object SpeedBar: TSpeedBar
  437.     Left = 0
  438.     Top = 0
  439.     Width = 698
  440.     Height = 49
  441.     Font.Charset = ANSI_CHARSET
  442.     Font.Color = clWindowText
  443.     Font.Height = -12
  444.     Font.Name = 'MS Sans Serif'
  445.     Font.Style = []
  446.     Position = bpCustom
  447.     Options = [sbAllowResize, sbFlatBtns, sbGrayedBtns, sbTransparentBtns]
  448.     BtnOffsetHorz = 3
  449.     BtnOffsetVert = 3
  450.     BtnWidth = 69
  451.     BtnHeight = 43
  452.     TabOrder = 2
  453.     InternalVer = 1
  454.     object SpeedbarSection1: TSpeedbarSection
  455.       Caption = 'Main'
  456.     end
  457.     object BtnNew: TSpeedItem
  458.       BtnCaption = 'New'
  459.       Caption = 'Add New Stock Item'
  460.       Hint = 'Add New Stock Item|'
  461.       Spacing = 1
  462.       Left = 3
  463.       Top = 3
  464.       Visible = True
  465.       OnClick = BtnNewClick
  466.       SectionName = 'Main'
  467.     end
  468.     object BtnEdit: TSpeedItem
  469.       BtnCaption = 'Edit'
  470.       Caption = 'Edit Stock Item'
  471.       Hint = 'Edit Stock Item|'
  472.       Spacing = 1
  473.       Left = 72
  474.       Top = 3
  475.       Visible = True
  476.       OnClick = BtnEditClick
  477.       SectionName = 'Main'
  478.     end
  479.     object BtnSearch: TSpeedItem
  480.       BtnCaption = 'Search'
  481.       Caption = 'Search for a Stock Item'
  482.       Hint = 'Search for a Stock Item|'
  483.       Spacing = 1
  484.       Left = 141
  485.       Top = 3
  486.       Visible = True
  487.       OnClick = BtnSearchClick
  488.       SectionName = 'Main'
  489.     end
  490.     object BtnAdjust: TSpeedItem
  491.       BtnCaption = 'Adjust'
  492.       Caption = 'Adjust Stock Item'
  493.       Hint = 'Adjust Stock Item|'
  494.       Spacing = 1
  495.       Left = 279
  496.       Top = 3
  497.       Visible = True
  498.       OnClick = BtnAdjustClick
  499.       SectionName = 'Main'
  500.     end
  501.     object BtnSales: TSpeedItem
  502.       BtnCaption = 'Sales'
  503.       Caption = 'Sales'
  504.       Hint = 'Sales|'
  505.       Spacing = 1
  506.       Left = 417
  507.       Top = 3
  508.       Visible = True
  509.       OnClick = BtnSalesClick
  510.       SectionName = 'Main'
  511.     end
  512.     object BtnHistory: TSpeedItem
  513.       BtnCaption = 'History'
  514.       Caption = 'History'
  515.       Hint = 'History|'
  516.       Spacing = 1
  517.       Left = 348
  518.       Top = 3
  519.       Visible = True
  520.       OnClick = BtnHistoryClick
  521.       SectionName = 'Main'
  522.     end
  523.     object BtnFilter: TSpeedItem
  524.       BtnCaption = 'Filter'
  525.       Caption = 'Filter'
  526.       Hint = 'Filter|'
  527.       Spacing = 1
  528.       Left = 555
  529.       Top = 3
  530.       Visible = True
  531.       OnClick = BtnFilterClick
  532.       SectionName = 'Main'
  533.     end
  534.     object BtnReport: TSpeedItem
  535.       BtnCaption = 'Reports'
  536.       Caption = 'Generate Stock Report'
  537.       DropDownMenu = StockReport
  538.       Hint = 'Generate Stock Report|'
  539.       Spacing = 1
  540.       Left = 486
  541.       Top = 3
  542.       Visible = True
  543.       SectionName = 'Main'
  544.     end
  545.     object BtnClose: TSpeedItem
  546.       BtnCaption = 'Close'
  547.       Caption = 'Close'
  548.       Hint = 'Close|'
  549.       Spacing = 1
  550.       Left = 624
  551.       Top = 3
  552.       Visible = True
  553.       OnClick = BtnCloseClick
  554.       SectionName = 'Main'
  555.     end
  556.     object btnProdGrp: TSpeedItem
  557.       BtnCaption = 'Groups'
  558.       Caption = 'Product Groups'
  559.       Glyph.Data = {
  560.         F6000000424DF600000000000000760000002800000010000000100000000100
  561.         0400000000008000000000000000000000001000000010000000000000000000
  562.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  563.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000888800
  564.         00000FFFF099990FFFF000000088880000008077088888807708800008888880
  565.         0008889988888888998800000088880000000FFFF088880FFFF0000000888800
  566.         0000807708888880770880000888888000088898800000088988889990FFFF09
  567.         9988888990000009988888888807708888888888880000888888}
  568.       Hint = 'Add/Edit Product Groups'
  569.       Spacing = 1
  570.       Left = 210
  571.       Top = 3
  572.       Visible = True
  573.       OnClick = btnProdGrpClick
  574.       SectionName = 'Main'
  575.     end
  576.   end
  577.   object StockReport: TRxPopupMenu
  578.     Alignment = paRight
  579.     LeftMargin = 30
  580.     Style = msOwnerDraw
  581.     OnDrawMargin = StockReportDrawMargin
  582.     Left = 628
  583.     Top = 96
  584.     object StockCheck1: TMenuItem
  585.       Caption = 'Stock Check'
  586.       OnClick = StockCheck1Click
  587.     end
  588.     object PriceList1: TMenuItem
  589.       Caption = 'Price List'
  590.       OnClick = PriceList1Click
  591.     end
  592.     object ReorderReport1: TMenuItem
  593.       Caption = 'Reorder Report'
  594.       OnClick = ReorderReport1Click
  595.     end
  596.     object StockValuation1: TMenuItem
  597.       Caption = 'Stock Valuation'
  598.       OnClick = StockValuation1Click
  599.     end
  600.     object StockSales: TMenuItem
  601.       Caption = 'Stock Sales'
  602.       OnClick = StockSalesClick
  603.     end
  604.     object SalesReport1: TMenuItem
  605.       Caption = 'Stock Profit'
  606.       object PeriodByPeriod1: TMenuItem
  607.         Caption = 'Period Analysis'
  608.         OnClick = PeriodByPeriod1Click
  609.       end
  610.       object PeriodAnalysis1: TMenuItem
  611.         Caption = 'Period By Period'
  612.         OnClick = PeriodAnalysis1Click
  613.       end
  614.     end
  615.   end
  616.   object Sizer1: TSizer
  617.     Enabled = True
  618.     ExceptionAction = eaIgnoreControl
  619.     GridColumnSizing = gcSizeAllColumns
  620.     GridRowSizing = grSizeByDefaults
  621.     MinimumSize = True
  622.     NavigateOnEnter = False
  623.     OverrideParentFont = True
  624.     PerformAssertions = True
  625.     ShowAssertionFailures = False
  626.     StretchFonts = True
  627.     StretchImages = True
  628.     StretchOnResize = True
  629.     ThreadProcessing = False
  630.     Left = 664
  631.     Top = 93
  632.     ScreenWidth = (
  633.       800)
  634.     ScreenHeight = (
  635.       600)
  636.     OriginalFormWidth = (
  637.       706)
  638.     OriginalFormHeight = (
  639.       459)
  640.     OriginalFormLeft = (
  641.       47)
  642.     OriginalFormTop = (
  643.       106)
  644.     OriginalFormPPI = (
  645.       120)
  646.     OriginalClientWidth = (
  647.       698)
  648.     OriginalClientHeight = (
  649.       432)
  650.   end
  651.   object RCPopup: TRxPopupMenu
  652.     OnPopup = RCPopupPopup
  653.     Style = msOwnerDraw
  654.     ShowCheckMarks = False
  655.     OnGetItemParams = RCPopupGetItemParams
  656.     Left = 600
  657.     Top = 97
  658.     object pmNew: TMenuItem
  659.       Caption = 'New'
  660.       OnClick = BtnNewClick
  661.     end
  662.     object pmEdit: TMenuItem
  663.       Caption = 'Edit'
  664.       OnClick = BtnEditClick
  665.     end
  666.     object N1: TMenuItem
  667.       Caption = '-'
  668.     end
  669.     object pmPicture: TMenuItem
  670.       Caption = 'Picture'
  671.       OnClick = pmPictureClick
  672.     end
  673.     object N2: TMenuItem
  674.       Caption = '-'
  675.     end
  676.     object pmAdjustment: TMenuItem
  677.       Caption = 'Stock Adjustment'
  678.       OnClick = BtnAdjustClick
  679.     end
  680.     object pmSales: TMenuItem
  681.       Caption = 'Sales'
  682.       OnClick = BtnSalesClick
  683.     end
  684.     object pmHistory: TMenuItem
  685.       Caption = 'History'
  686.       OnClick = BtnHistoryClick
  687.     end
  688.     object N3: TMenuItem
  689.       Caption = '-'
  690.     end
  691.     object pmChangeGridColour: TMenuItem
  692.       Caption = 'Change Grid Colour'
  693.       OnClick = pmChangeGridColourClick
  694.     end
  695.   end
  696. end
  697.