DistDFE/principal.dfm at master · marcuspaulodev/DistDFE · 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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
object frPrincipal: TfrPrincipal
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Monitor DFe'
  ClientHeight = 339
  ClientWidth = 909
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 908
    Height = 288
    Align = alCustom
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgTitleClick, dgTitleHotTrack]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'nr_doc'
        Title.Caption = 'Num. NF'
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'dt_emis'
        Title.Alignment = taCenter
        Title.Caption = 'Emiss'#227'o'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nm_forn'
        Title.Caption = 'Fornecedor'
        Width = 220
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'vl_nf'
        Title.Caption = 'Total NF'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nr_chave'
        Title.Caption = 'Chave'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nr_protocolo'
        Title.Caption = 'Protocolo'
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nr_nsu'
        Title.Caption = 'NSU'
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 8
    Top = 300
    Width = 113
    Height = 25
    Caption = 'Confirmar Opera'#231#227'o'
    TabOrder = 1
    OnClick = Button1Click
  end
  object TrayIcon1: TTrayIcon
    AnimateInterval = 5000
    Hint = 'Monitor DFe'
    BalloonTimeout = 5000
    PopupMenu = PopupMenu1
    Visible = True
    OnClick = TrayIcon1Click
    Left = 616
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Left = 616
    Top = 8
    object Abrir1: TMenuItem
      Caption = 'Abrir'
      OnClick = Abrir1Click
    end
    object Configuraes1: TMenuItem
      Caption = 'Configura'#231#245'es'
      OnClick = Configuraes1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Sair1: TMenuItem
      Caption = 'Sair'
      OnClick = Sair1Click
    end
  end
  object db0: TZConnection
    ControlsCodePage = cCP_UTF16
    Port = 3306
    Protocol = 'mysql'
    Left = 624
    Top = 120
  end
  object qr1: TZReadOnlyQuery
    Connection = db0
    Params = <>
    Left = 616
    Top = 176
  end
  object z1: TZSQLProcessor
    Params = <>
    Connection = db0
    Delimiter = ';'
    Left = 616
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = qrnf
    OnDataChange = DataSource1DataChange
    Left = 552
    Top = 16
  end
  object ACBrNFe1: TACBrNFe
    Configuracoes.Geral.SSLLib = libCapicom
    Configuracoes.Geral.SSLCryptLib = cryCapicom
    Configuracoes.Geral.SSLHttpLib = httpWinINet
    Configuracoes.Geral.SSLXmlSignLib = xsMsXmlCapicom
    Configuracoes.Geral.FormatoAlerta = 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'
    Configuracoes.Geral.VersaoQRCode = veqr000
    Configuracoes.Arquivos.OrdenacaoPath = <>
    Configuracoes.WebServices.UF = 'SP'
    Configuracoes.WebServices.AguardarConsultaRet = 0
    Configuracoes.WebServices.QuebradeLinha = '|'
    Configuracoes.Certificados.VerificarValidade = False
    Configuracoes.RespTec.IdCSRT = 0
    Left = 544
    Top = 72
  end
  object qruf: TZReadOnlyQuery
    Connection = db0
    Params = <>
    Left = 552
    Top = 128
  end
  object qrnf: TZReadOnlyQuery
    Connection = db0
    Params = <>
    Left = 552
    Top = 184
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 688
    Top = 24
  end
end