-
Notifications
You must be signed in to change notification settings - Fork 1
/
DemoPlugNotasMain.dfm
262 lines (260 loc) · 6.58 KB
/
DemoPlugNotasMain.dfm
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
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
object Form1: TForm1
Left = 0
Top = 0
ActiveControl = mmoResposta
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Demonstra'#231#227'o Plug Notas NFe'
ClientHeight = 594
ClientWidth = 746
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object lblResposta: TLabel
Left = 8
Top = 414
Width = 125
Height = 13
Caption = 'Resposta das requisi'#231#245'es:'
end
object lblRespostaFormatada: TLabel
Left = 432
Top = 414
Width = 102
Height = 13
Caption = 'Resposta formatada:'
end
object lblStatusCode: TLabel
Left = 8
Top = 573
Width = 3
Height = 13
end
object mmoResposta: TMemo
Left = 8
Top = 433
Width = 272
Height = 133
Lines.Strings = (
'As respostas das requisi'#231#245'es ficar'#227'o aqui.')
TabOrder = 0
end
object pnlConfiguracoes: TPanel
Left = 8
Top = 8
Width = 731
Height = 89
TabOrder = 3
object lblAmbiente: TLabel
Left = 16
Top = 16
Width = 49
Height = 13
Caption = 'Ambiente:'
end
object lblApiKey: TLabel
Left = 184
Top = 16
Width = 207
Height = 13
Caption = 'x-api-key (Chave de Autentica'#231#227'o da API):'
end
object cbbAmbiente: TComboBox
Left = 16
Top = 35
Width = 97
Height = 21
ItemIndex = 0
TabOrder = 0
Text = 'Sandbox'
Items.Strings = (
'Sandbox'
'Produ'#231#227'o')
end
object edtApiKey: TEdit
Left = 184
Top = 35
Width = 241
Height = 21
TabOrder = 1
Text = '2da392a6-79d2-4304-a8b7-959572c7e44d'
end
end
object pnlEnvioNota: TPanel
Left = 8
Top = 103
Width = 731
Height = 98
TabOrder = 4
object lblNota: TLabel
Left = 16
Top = 8
Width = 71
Height = 13
Caption = 'JSON da Nota:'
end
object mmoJsonNota: TMemo
Left = 16
Top = 27
Width = 545
Height = 62
Lines.Strings = (
'[{"presencial":false,"consumidorFinal":true,"natureza":"OPERA'#199#195'O' +
' INTERNA","emitente":{"cpfCnpj":"08187168000160"},"destinatario"' +
':{"cpfCnpj":"08114280956","razaoSocial":"THIAGO RIBEIRO","email"' +
':"contato@tecnospeed.com.br","endereco":{"logradouro":"AVENIDA D' +
'UQUE DE CAXIAS","numero":"882","bairro":"CENTRO","codigoCidade":' +
'"4115200","descricaoCidade":"MARINGA","estado":"PR","cep":"87020' +
'025"}},"itens":[{"codigo":"1","descricao":"Descri'#231#227'o do ITEM.","' +
'ncm":"06029090","cest":"0123456","cfop":"5101","unidade":{"comer' +
'cial":"M","tributavel":"M"},"quantidade":{"comercial":50,"tribut' +
'avel":50},"valorUnitario":{"comercial":4.6,"tributavel":4.6},"va' +
'lor":230,"valorDesconto":0,"valorFrete":0,"compoeTotal":true,"tr' +
'ibutos":{"icms":{"origem":"0","cst":"40","baseCalculo":{"modalid' +
'adeDeterminacao":"3","valor":0},"aliquota":0,"valor":0},"pis":{"' +
'cst":"99","baseCalculo":{"valor":0,"quantidade":0},"aliquota":0,' +
'"valor":0},"cofins":{"cst":"07","baseCalculo":{"valor":0},"aliqu' +
'ota":0,"valor":0}}}],"pagamentos":[{"a'
'Vista":true,"meio":"01","valor":230}],"responsavelTecnico":{"cpf' +
'Cnpj":"08187168000160","nome":"Tecnospeed","email":"contato@tecn' +
'ospeed.com.br","telefone":{"ddd":"44","numero":"30379500"}}}]')
TabOrder = 0
WordWrap = False
end
object btnEnviarNota: TButton
Left = 592
Top = 40
Width = 105
Height = 25
Caption = 'Enviar Nota'
TabOrder = 1
OnClick = btnEnviarNotaClick
end
end
object pnlConsultarNota: TPanel
Left = 8
Top = 207
Width = 731
Height = 82
TabOrder = 5
object lblIdNota: TLabel
Left = 16
Top = 8
Width = 55
Height = 13
Caption = 'ID da nota:'
end
object btnConsultarNota: TButton
Left = 592
Top = 11
Width = 105
Height = 25
Caption = 'Consultar Nota'
TabOrder = 1
OnClick = btnConsultarNotaClick
end
object edtIdNota: TEdit
Left = 16
Top = 27
Width = 545
Height = 21
TabOrder = 0
end
object btnImprimirNota: TButton
Left = 592
Top = 42
Width = 105
Height = 25
Caption = 'Imprimir Nota'
TabOrder = 2
OnClick = btnImprimirNotaClick
end
end
object mmoJsonParseado: TMemo
Left = 432
Top = 433
Width = 306
Height = 133
TabOrder = 2
end
object btnParsearJson: TButton
Left = 294
Top = 469
Width = 121
Height = 25
Caption = '-- Parsear JSON ->'
TabOrder = 1
OnClick = btnParsearJsonClick
end
object pnlUploadCertificado: TPanel
Left = 8
Top = 295
Width = 730
Height = 113
TabOrder = 6
object lblCaminhoCertificado: TLabel
Left = 16
Top = 10
Width = 144
Height = 13
Caption = 'Caminho do certificado digital:'
end
object lblSenhaCertificado: TLabel
Left = 16
Top = 58
Width = 133
Height = 13
Caption = 'Senha do certificado digital:'
end
object btnSubirCertificado: TButton
Left = 592
Top = 41
Width = 105
Height = 25
Caption = 'Upload Certificado'
TabOrder = 0
OnClick = btnSubirCertificadoClick
end
object edtCaminhoCertificado: TEdit
Left = 16
Top = 29
Width = 489
Height = 21
TabOrder = 1
end
object edtSenhaCertificado: TEdit
Left = 16
Top = 77
Width = 545
Height = 21
PasswordChar = '*'
TabOrder = 2
end
object btnSelecionarCertificado: TButton
Left = 511
Top = 32
Width = 50
Height = 17
Caption = '...'
TabOrder = 3
OnClick = btnSelecionarCertificadoClick
end
end
object dlgSavePDF: TSaveDialog
DefaultExt = 'pdf'
Left = 696
Top = 16
end
object dlgOpenSelecionarCertificado: TOpenDialog
Filter = 'Certificado Digital|*.pfx|Certificado Digital|*.p12'
Left = 696
Top = 296
end
end