You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
818 lines
18 KiB
818 lines
18 KiB
inherited frmMandaMensagem: TfrmMandaMensagem
|
|
Caption = 'Central de Envio de Mensagens'
|
|
ClientHeight = 670
|
|
ClientWidth = 1014
|
|
ExplicitWidth = 1020
|
|
ExplicitHeight = 698
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel [0]
|
|
Left = 432
|
|
Top = 386
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'Assunto:'
|
|
end
|
|
object lbl_prov: TLabel [1]
|
|
Left = 432
|
|
Top = 330
|
|
Width = 59
|
|
Height = 13
|
|
Caption = 'Provid'#234'ncia:'
|
|
end
|
|
object Label2: TLabel [2]
|
|
Left = 861
|
|
Top = 8
|
|
Width = 21
|
|
Height = 13
|
|
Caption = 'Log:'
|
|
end
|
|
object lbl_resultado: TLabel [3]
|
|
Left = 263
|
|
Top = 386
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Resultado:'
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 651
|
|
Width = 1014
|
|
ExplicitTop = 651
|
|
ExplicitWidth = 1014
|
|
end
|
|
object dbg_textoemail: TDBGrid
|
|
Left = 432
|
|
Top = 8
|
|
Width = 423
|
|
Height = 120
|
|
DataSource = dtsTextoEmail
|
|
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 = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_DESCRICAO'
|
|
Title.Caption = 'Descri'#231#227'o'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object btn_pesquisa: TButton
|
|
Left = 8
|
|
Top = 381
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Pesquisar'
|
|
TabOrder = 2
|
|
OnClick = btn_pesquisaClick
|
|
end
|
|
object pb_pesquisa: TProgressBar
|
|
Left = 8
|
|
Top = 412
|
|
Width = 845
|
|
Height = 17
|
|
Step = 1
|
|
TabOrder = 3
|
|
end
|
|
object dbre_textomensagem: TDBRichEdit
|
|
Left = 432
|
|
Top = 134
|
|
Width = 423
|
|
Height = 190
|
|
DataField = 'TL_TEXTO'
|
|
DataSource = dtsTextoEmail
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ReadOnly = True
|
|
TabOrder = 4
|
|
Zoom = 100
|
|
end
|
|
object dbg_pesquisa: TDBGrid
|
|
Left = 8
|
|
Top = 432
|
|
Width = 845
|
|
Height = 215
|
|
DataSource = dtsQPesquisa
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
TabOrder = 5
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_NOME'
|
|
Title.Caption = 'Nome'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_DOCUMENTO'
|
|
Title.Caption = 'Documento'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_EMAIL'
|
|
Title.Caption = 'Email'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object rg_email: TRadioGroup
|
|
Left = 94
|
|
Top = 374
|
|
Width = 163
|
|
Height = 33
|
|
Caption = 'Email'
|
|
Columns = 2
|
|
Items.Strings = (
|
|
'Empresa'
|
|
'Usu'#225'rio')
|
|
TabOrder = 6
|
|
end
|
|
object btn_mandaemail: TButton
|
|
Left = 778
|
|
Top = 381
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Enviar Email'
|
|
TabOrder = 7
|
|
WordWrap = True
|
|
OnClick = btn_mandaemailClick
|
|
end
|
|
object edt_assunto: TEdit
|
|
Left = 479
|
|
Top = 383
|
|
Width = 293
|
|
Height = 21
|
|
TabOrder = 8
|
|
end
|
|
object sbx_filtro: TScrollBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 418
|
|
Height = 362
|
|
HorzScrollBar.Range = 326
|
|
VertScrollBar.Range = 1345
|
|
AutoScroll = False
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
ParentBackground = True
|
|
TabOrder = 9
|
|
object pnl_providências: TPanel
|
|
Left = 0
|
|
Top = 324
|
|
Width = 394
|
|
Height = 499
|
|
TabOrder = 0
|
|
object Label5: TLabel
|
|
Left = 9
|
|
Top = 277
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 121
|
|
Top = 277
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_providencias: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Provid'#234'ncia:'
|
|
TabOrder = 0
|
|
OnClick = cb_providenciasClick
|
|
end
|
|
object clb_providencias: TCheckListBox
|
|
Left = 8
|
|
Top = 27
|
|
Width = 377
|
|
Height = 142
|
|
OnClickCheck = clb_providenciasClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
end
|
|
object pnl_filtroprov: TPanel
|
|
Left = 8
|
|
Top = 175
|
|
Width = 378
|
|
Height = 68
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 2
|
|
object rg_filtroprov: TRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 407
|
|
Height = 82
|
|
Color = clWhite
|
|
Columns = 2
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'Contenha'
|
|
'N'#227'o contenha'
|
|
'Seja a '#218'ltima'
|
|
'Positivas'
|
|
'Negativas')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object dtp_provin: TDateTimePicker
|
|
Left = 32
|
|
Top = 273
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 3
|
|
end
|
|
object dtp_provfim: TDateTimePicker
|
|
Left = 144
|
|
Top = 273
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 4
|
|
end
|
|
object cb_periodoprov: TCheckBox
|
|
Left = 7
|
|
Top = 250
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Per'#237'odo'
|
|
Enabled = False
|
|
TabOrder = 5
|
|
OnClick = cb_periodoprovClick
|
|
end
|
|
object cb_bacalhau: TCheckBox
|
|
Left = 215
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Bacalhau'
|
|
Enabled = False
|
|
TabOrder = 6
|
|
Visible = False
|
|
end
|
|
object edt_pprov: TEdit
|
|
Left = 111
|
|
Top = 2
|
|
Width = 274
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 7
|
|
OnChange = edt_pprovChange
|
|
end
|
|
object cb_cobradoresprov: TCheckBox
|
|
Left = 7
|
|
Top = 308
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Feito por:'
|
|
Enabled = False
|
|
TabOrder = 8
|
|
OnClick = cb_cobradoresprovClick
|
|
end
|
|
object edt_puserprov: TEdit
|
|
Left = 111
|
|
Top = 306
|
|
Width = 274
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 9
|
|
OnClick = edt_puserprovClick
|
|
end
|
|
object clb_usuariosprov: TCheckListBox
|
|
Left = 8
|
|
Top = 331
|
|
Width = 377
|
|
Height = 160
|
|
OnClickCheck = clb_usuariosprovClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 10
|
|
end
|
|
end
|
|
object pnl_beneficiarios: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 394
|
|
Height = 318
|
|
TabOrder = 1
|
|
object Label11: TLabel
|
|
Left = 8
|
|
Top = 198
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 8
|
|
Top = 226
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object Label13: TLabel
|
|
Left = 135
|
|
Top = 198
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 135
|
|
Top = 226
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_beneficiarios: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Credor:'
|
|
TabOrder = 0
|
|
OnClick = cb_beneficiariosClick
|
|
end
|
|
object clb_beneficiarios: TCheckListBox
|
|
Left = 8
|
|
Top = 27
|
|
Width = 377
|
|
Height = 142
|
|
OnClickCheck = clb_beneficiariosClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
end
|
|
object edt_pcredor: TEdit
|
|
Left = 111
|
|
Top = 2
|
|
Width = 274
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnChange = edt_pcredorChange
|
|
end
|
|
object cb_credorentrada: TCheckBox
|
|
Left = 9
|
|
Top = 175
|
|
Width = 118
|
|
Height = 17
|
|
Caption = 'Entrada do Credor:'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnClick = cb_credorentradaClick
|
|
end
|
|
object dtp_credorentrada1: TDateTimePicker
|
|
Left = 31
|
|
Top = 194
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 4
|
|
end
|
|
object dtp_credorentrada2: TDateTimePicker
|
|
Left = 31
|
|
Top = 222
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 5
|
|
end
|
|
object cb_credorvencimento: TCheckBox
|
|
Left = 136
|
|
Top = 175
|
|
Width = 131
|
|
Height = 17
|
|
Caption = 'Vencimento do Credor:'
|
|
Enabled = False
|
|
TabOrder = 6
|
|
OnClick = cb_credorvencimentoClick
|
|
end
|
|
object dtp_credorvenc1: TDateTimePicker
|
|
Left = 158
|
|
Top = 194
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 7
|
|
end
|
|
object dtp_credorvenc2: TDateTimePicker
|
|
Left = 158
|
|
Top = 222
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 8
|
|
end
|
|
object cb_credortptitulo: TCheckBox
|
|
Left = 7
|
|
Top = 255
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Tipo de t'#237'tulo:'
|
|
Enabled = False
|
|
TabOrder = 9
|
|
OnClick = cb_credortptituloClick
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 8
|
|
Top = 276
|
|
Width = 377
|
|
Height = 28
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 10
|
|
object rg_credortptitulo: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 391
|
|
Height = 43
|
|
Color = clWhite
|
|
Columns = 3
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'Todos'
|
|
'Abertos'
|
|
'Baixados')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object pnl_agendamento: TPanel
|
|
Left = -1
|
|
Top = 829
|
|
Width = 395
|
|
Height = 330
|
|
TabOrder = 2
|
|
object lbl_agendcomeco: TLabel
|
|
Left = 8
|
|
Top = 107
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object lbl_agendfim: TLabel
|
|
Left = 134
|
|
Top = 106
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_agendamento: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Agendamento:'
|
|
TabOrder = 0
|
|
OnClick = cb_agendamentoClick
|
|
end
|
|
object dtp_agendcomeco: TDateTimePicker
|
|
Left = 31
|
|
Top = 103
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 1
|
|
end
|
|
object dtp_agendfim: TDateTimePicker
|
|
Left = 159
|
|
Top = 102
|
|
Width = 81
|
|
Height = 21
|
|
Date = 43042.451453472230000000
|
|
Time = 43042.451453472230000000
|
|
Enabled = False
|
|
TabOrder = 2
|
|
end
|
|
object clb_usuariosagenda: TCheckListBox
|
|
Left = 9
|
|
Top = 161
|
|
Width = 377
|
|
Height = 160
|
|
OnClickCheck = clb_usuariosagendaClickCheck
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
TabOrder = 3
|
|
end
|
|
object cb_cobradoresagenda: TCheckBox
|
|
Left = 8
|
|
Top = 136
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Feito por:'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = cb_cobradoresagendaClick
|
|
end
|
|
object edt_puseragenda: TEdit
|
|
Left = 112
|
|
Top = 134
|
|
Width = 274
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 5
|
|
OnChange = edt_puseragendaChange
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 8
|
|
Top = 27
|
|
Width = 378
|
|
Height = 68
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 6
|
|
object rg_agendamento: TRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 407
|
|
Height = 82
|
|
Color = clWhite
|
|
Columns = 2
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'Todos'
|
|
'Somente Agendados'
|
|
'Agendados no Per'#237'odo'
|
|
'Agendamento Vencido'
|
|
'N'#227'o incluir Agendados')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
OnClick = rg_agendamentoClick
|
|
end
|
|
end
|
|
end
|
|
object pnl_alfabeto: TPanel
|
|
Left = 0
|
|
Top = 1165
|
|
Width = 394
|
|
Height = 55
|
|
TabOrder = 3
|
|
object Label7: TLabel
|
|
Left = 7
|
|
Top = 29
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 156
|
|
Top = 28
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_faixanome: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Faixa de nomes:'
|
|
TabOrder = 0
|
|
OnClick = cb_faixanomeClick
|
|
end
|
|
object edt_nomein: TEdit
|
|
Left = 28
|
|
Top = 27
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
Enabled = False
|
|
MaxLength = 1
|
|
TabOrder = 1
|
|
Text = 'A'
|
|
end
|
|
object edt_nomefim: TEdit
|
|
Left = 181
|
|
Top = 26
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
Enabled = False
|
|
MaxLength = 1
|
|
TabOrder = 2
|
|
Text = 'Z'
|
|
end
|
|
end
|
|
object pnl_atraso: TPanel
|
|
Left = -2
|
|
Top = 1226
|
|
Width = 396
|
|
Height = 55
|
|
TabOrder = 4
|
|
object Label9: TLabel
|
|
Left = 7
|
|
Top = 29
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'De:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 158
|
|
Top = 28
|
|
Width = 19
|
|
Height = 13
|
|
Caption = 'At'#233':'
|
|
end
|
|
object cb_atraso: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Faixa de atraso:'
|
|
TabOrder = 0
|
|
OnClick = cb_atrasoClick
|
|
end
|
|
object edt_atrasoin: TEdit
|
|
Left = 30
|
|
Top = 27
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
Enabled = False
|
|
MaxLength = 1
|
|
NumbersOnly = True
|
|
TabOrder = 1
|
|
Text = '0'
|
|
end
|
|
object edt_atrasofim: TEdit
|
|
Left = 183
|
|
Top = 26
|
|
Width = 66
|
|
Height = 21
|
|
CharCase = ecUpperCase
|
|
Enabled = False
|
|
MaxLength = 1
|
|
NumbersOnly = True
|
|
TabOrder = 2
|
|
Text = '999999'
|
|
end
|
|
end
|
|
object pnl_tipopessoa: TPanel
|
|
Left = -2
|
|
Top = 1287
|
|
Width = 396
|
|
Height = 61
|
|
TabOrder = 5
|
|
object cb_tipopessoa: TCheckBox
|
|
Left = 8
|
|
Top = 4
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Tipo de pessoa:'
|
|
TabOrder = 0
|
|
OnClick = cb_tipopessoaClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 8
|
|
Top = 25
|
|
Width = 380
|
|
Height = 28
|
|
BevelKind = bkTile
|
|
BevelOuter = bvNone
|
|
Color = clWhite
|
|
ParentBackground = False
|
|
TabOrder = 1
|
|
object rg_tipopessoa: TRadioGroup
|
|
Left = -3
|
|
Top = -15
|
|
Width = 396
|
|
Height = 43
|
|
Color = clWhite
|
|
Columns = 2
|
|
Enabled = False
|
|
Items.Strings = (
|
|
'F'#237'sica'
|
|
'Jur'#237'dica')
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object dblulb_provs: TDBLookupComboBox
|
|
Left = 432
|
|
Top = 349
|
|
Width = 257
|
|
Height = 21
|
|
KeyField = 'ID_PROVIDENCIA'
|
|
ListField = 'TX_NOME'
|
|
ListSource = dtmSystem.dtsProvidencias
|
|
TabOrder = 10
|
|
end
|
|
object cb_retornaprov: TCheckBox
|
|
Left = 695
|
|
Top = 351
|
|
Width = 158
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Retornar provid'#234'ncia anterior'
|
|
TabOrder = 11
|
|
end
|
|
object mb_log: TMemo
|
|
Left = 861
|
|
Top = 27
|
|
Width = 145
|
|
Height = 618
|
|
ReadOnly = True
|
|
ScrollBars = ssVertical
|
|
TabOrder = 12
|
|
end
|
|
object dtsTextoEmail: TDataSource
|
|
DataSet = dtmSystem.tblTextoEmail
|
|
Left = 720
|
|
Top = 40
|
|
end
|
|
object dtsQPesquisa: TDataSource
|
|
DataSet = QPesquisa
|
|
Left = 312
|
|
Top = 481
|
|
end
|
|
object QPesquisa: TZQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0'
|
|
'd.tx_nome, d.id_devedor,'
|
|
'case when d.tp_cliente = '#39'F'#39' then d.cd_cpf'
|
|
'when d.tp_cliente = '#39'J'#39' then d.cd_cnpj'
|
|
'end as tx_documento'
|
|
',e.tx_email'
|
|
'from chg_titulos t'
|
|
'left join chg_devedores d on d.id_devedor = t.id_devedor'
|
|
'left join chg_emails e on t.id_devedor = e.id_devedor')
|
|
Params = <>
|
|
Left = 408
|
|
Top = 481
|
|
object QPesquisaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object QPesquisaTX_DOCUMENTO: TWideStringField
|
|
FieldName = 'TX_DOCUMENTO'
|
|
ReadOnly = True
|
|
Size = 18
|
|
end
|
|
object QPesquisaTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 40
|
|
end
|
|
object QPesquisaID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
end
|
|
object ACBrMail: TACBrMail
|
|
Host = '127.0.0.1'
|
|
Port = '25'
|
|
SetSSL = False
|
|
SetTLS = False
|
|
Attempts = 3
|
|
DefaultCharset = UTF_8
|
|
IDECharset = CP1252
|
|
Left = 568
|
|
Top = 232
|
|
end
|
|
end
|