SSWTracking/Controller.dfm at v1.0 · nickolasdeluca/SSWTracking · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
object FController: TFController
  Left = 0
  Top = 0
  Caption = 'Rastreador - SSW'
  ClientHeight = 386
  ClientWidth = 973
  Color = clBtnFace
  DoubleBuffered = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    973
    386)
  PixelsPerInch = 96
  TextHeight = 13
  object btRequest: TButton
    Left = 479
    Top = 353
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Request'
    TabOrder = 0
    OnClick = btRequestClick
  end
  object XDBGrid: TXDBGrid
    Left = 8
    Top = 35
    Width = 957
    Height = 312
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = dsData
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellDblClick = XDBGridCellDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'DATAHORA'
        Title.Caption = 'Data/Hora'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UNIDADE'
        Title.Caption = 'Unidade'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SITUACAO'
        Title.Caption = 'Situa'#231#227'o'
        Width = 673
        Visible = True
      end>
  end
  object edChave: TEdit
    Left = 8
    Top = 8
    Width = 957
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    PopupMenu = pmEdChave
    TabOrder = 2
    TextHint = 'Chave da NFE'
    OnChange = edChaveChange
  end
  object pnLightBase: TPanel
    Left = 8
    Top = 355
    Width = 20
    Height = 20
    Caption = 'pnLightBase'
    ShowCaption = False
    TabOrder = 3
    object pnLightBulb: TPanel
      AlignWithMargins = True
      Left = 2
      Top = 2
      Width = 16
      Height = 16
      Margins.Left = 1
      Margins.Top = 1
      Margins.Right = 1
      Margins.Bottom = 1
      Align = alClient
      Caption = 'pnLightBulb'
      Color = clGreen
      ParentBackground = False
      ShowCaption = False
      TabOrder = 0
    end
  end
  object mtData: TFDMemTable
    FieldDefs = <>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    StoreDefs = True
    Left = 168
    Top = 120
    object mtDataDATAHORA: TDateTimeField
      FieldName = 'DATAHORA'
    end
    object mtDataUNIDADE: TStringField
      FieldName = 'UNIDADE'
    end
    object mtDataSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 1000
    end
    object mtDataDETAIL: TStringField
      FieldName = 'DETAIL'
      Size = 1000
    end
    object mtDataHEADER: TStringField
      FieldName = 'HEADER'
      Size = 1000
    end
  end
  object dsData: TDataSource
    DataSet = mtData
    Left = 168
    Top = 168
  end
  object tiRefresh: TTimer
    Interval = 3600000
    OnTimer = tiRefreshTimer
    Left = 480
    Top = 200
  end
  object pmEdChave: TPopupMenu
    Left = 352
    Top = 144
    object miSaveChave: TMenuItem
      Caption = 'Salvar'
      OnClick = miSaveChaveClick
    end
  end
end