marcus_nexverse
/
programa_cobranca
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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.
3 Commits
1 Branch
0 Tags
346 MiB
 
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
programa_cobranca/ucadDevedores.dfm

5269 lines
170 KiB
Raw Permalink Blame History

inherited cadDevedores: TcadDevedores
BorderStyle = bsSingle
Caption = 'Cadastro de Devedores'
ClientHeight = 687
ClientWidth = 1115
Menu = MainMenu1
PopupMenu = PopupMenu1
Scaled = False
ExplicitTop = -198
ExplicitWidth = 1121
ExplicitHeight = 736
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox [0]
Left = 6
Top = 58
Width = 202
Height = 604
TabOrder = 4
Visible = False
object dbgrd_devedoreslist: TDBGrid
Left = 5
Top = 7
Width = 192
Height = 594
TabStop = False
DataSource = dtsDB
Options = [dgColLines, dgTabs, dgConfirmDelete]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'TX_NOME'
Visible = True
end>
end
end
inherited GroupBox2: TGroupBox
Left = 8
Width = 1099
Height = 541
ExplicitLeft = 8
ExplicitWidth = 1099
ExplicitHeight = 541
inherited pcClientes: TPageControl
Top = 13
Width = 1084
Height = 525
ActivePage = tabBoletos
Font.Name = 'MS Sans Serif'
TabStop = False
TabWidth = 120
OnChange = pcClientesChange
OnChanging = pcClientesChanging
ExplicitTop = 13
ExplicitWidth = 1084
ExplicitHeight = 525
inherited tabCadastro: TTabSheet
Enabled = True
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 1076
ExplicitHeight = 497
object pnl_email: TPanel
Left = 741
Top = 49
Width = 332
Height = 448
BevelOuter = bvNone
TabOrder = 2
object lbl_email: TLabel
Left = 5
Top = 2
Width = 28
Height = 13
Caption = 'Email:'
end
object dbedt_email: TDBEdit
Left = 3
Top = 21
Width = 318
Height = 21
TabStop = False
DataField = 'TX_EMAIL'
DataSource = dtsEmail
TabOrder = 0
end
object dbgrd_email: TDBGrid
Left = 3
Top = 66
Width = 318
Height = 382
TabStop = False
DataSource = dtsEmail
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_EMAIL'
Title.Caption = 'Email'
Visible = True
end
item
Expanded = False
FieldName = 'TX_ULTIMO_USUARIO'
Title.Caption = #218'ltimo Usu'#225'rio'
Visible = True
end
item
Expanded = False
FieldName = 'DT_HORA_ULTIMA_ATT'
Title.Caption = #218'ltima Atualiza'#231#227'o'
Visible = True
end>
end
end
object pnl_devedores: TPanel
Left = -1
Top = -1
Width = 739
Height = 499
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 395
Top = 146
Width = 39
Height = 13
Caption = 'Usu'#225'rio:'
end
object Label2: TLabel
Left = 592
Top = 146
Width = 90
Height = 13
Caption = #218'ltima Atualiza'#231#227'o:'
end
object lbl_coddev: TLabel
Left = 395
Top = 4
Width = 95
Height = 13
Caption = 'C'#243'digo do Devedor:'
end
object lbl_cpfcnpj: TLabel
Left = 209
Top = 52
Width = 55
Height = 13
Caption = 'CPF/CNPJ:'
end
object lbl_datacad: TLabel
Left = 592
Top = 4
Width = 114
Height = 13
Caption = 'Data de cadastramento:'
end
object lbl_dtnasc: TLabel
Left = 592
Top = 52
Width = 98
Height = 13
Caption = 'Data de nascimento:'
end
object lbl_idade: TLabel
Left = 592
Top = 100
Width = 30
Height = 13
Caption = 'Idade:'
end
object lbl_nome: TLabel
Left = 3
Top = 4
Width = 99
Height = 13
Caption = 'Nome/Raz'#227'o Social:'
end
object lbl_nomemae: TLabel
Left = 3
Top = 146
Width = 70
Height = 13
Caption = 'Nome da M'#227'e:'
end
object lbl_nomepai: TLabel
Left = 3
Top = 100
Width = 64
Height = 13
Caption = 'Nome do Pai:'
end
object lbl_obs: TLabel
Left = 3
Top = 192
Width = 66
Height = 13
Caption = 'Observa'#231#245'es:'
end
object lbl_rg: TLabel
Left = 395
Top = 52
Width = 19
Height = 13
Caption = 'RG:'
end
object lbl_tppessoa: TLabel
Left = 3
Top = 52
Width = 77
Height = 13
Caption = 'Tipo de Pessoa:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit2: TDBEdit
Left = 395
Top = 165
Width = 136
Height = 21
TabStop = False
DataField = 'TX_ULTIMO_USUARIO'
DataSource = dtsDB
ReadOnly = True
TabOrder = 10
end
object DBEdit3: TDBEdit
Left = 592
Top = 165
Width = 121
Height = 21
TabStop = False
DataField = 'DT_HORA_ULTIMA_ATT'
DataSource = dtsDB
ReadOnly = True
TabOrder = 11
end
object DBEdit4: TDBEdit
Left = 395
Top = 119
Width = 137
Height = 21
DataField = 'TX_EMAIL'
DataSource = dtsDB
TabOrder = 12
Visible = False
end
object dbedt_coddev: TDBEdit
Left = 395
Top = 23
Width = 136
Height = 21
DataField = 'CD_DEVEDOR'
DataSource = dtsDB
TabOrder = 1
end
object dbedt_cpfcnpj: TDBEdit
Left = 209
Top = 71
Width = 150
Height = 21
DataSource = dtsDB
TabOrder = 4
OnKeyPress = dbedt_cpfcnpjKeyPress
end
object dbedt_nome: TDBEdit
Left = 3
Top = 23
Width = 356
Height = 21
DataField = 'TX_NOME'
DataSource = dtsDB
TabOrder = 0
end
object dbedt_nomemae: TDBEdit
Left = 3
Top = 165
Width = 356
Height = 21
DataField = 'TX_MAE'
DataSource = dtsDB
TabOrder = 8
end
object dbedt_nomepai: TDBEdit
Left = 3
Top = 119
Width = 356
Height = 21
DataField = 'TX_PAI'
DataSource = dtsDB
TabOrder = 7
end
object dbedt_rg: TDBEdit
Left = 395
Top = 71
Width = 137
Height = 21
DataField = 'CD_RG'
DataSource = dtsDB
TabOrder = 5
end
object dbmem_obs: TDBMemo
Left = 3
Top = 211
Width = 710
Height = 283
DataField = 'TL_MEMO'
DataSource = dtsDB
TabOrder = 9
end
object Panel1: TPanel
Left = 2
Top = 64
Width = 196
Height = 25
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 3
OnEnter = Panel1Enter
object dbrgrp_tpdevedor: TDBRadioGroup
Left = -5
Top = -51
Width = 207
Height = 127
Columns = 2
DataField = 'TP_CLIENTE'
DataSource = dtsDB
Items.Strings = (
'Pessoa F'#237'sica'
'Pessoa Jur'#237'dica')
TabOrder = 0
TabStop = True
Values.Strings = (
'F'
'J')
end
end
object dbdtp_dtcad: TDBDateTimePicker
Left = 592
Top = 25
Width = 121
Height = 21
Date = 43445.000000000000000000
Time = 43445.000000000000000000
TabOrder = 2
Caption = ''
DataField = 'DT_CADASTRO'
DataSource = dtsDB
end
object dbdtp_dtnasc: TDBDateTimePicker
Left = 592
Top = 71
Width = 121
Height = 21
Date = 43445.000000000000000000
Time = 43445.000000000000000000
TabOrder = 6
Caption = ''
DataField = 'DT_NASC'
DataSource = dtsDB
end
end
object navEmail: TDBNavigator
Left = 744
Top = 3
Width = 318
Height = 42
DataSource = dtsEmail
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 0
end
end
object tabEndereco: TTabSheet
Caption = '&Endere'#231'os'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 1
ParentFont = False
object Panel8: TPanel
Left = 0
Top = 0
Width = 713
Height = 145
BevelOuter = bvNone
TabOrder = 1
object lbl_ref: TLabel
Left = 579
Top = 100
Width = 55
Height = 13
Caption = 'Refer'#234'ncia:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_num: TLabel
Left = 469
Top = 4
Width = 40
Height = 13
Caption = 'N'#250'mero:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_comp: TLabel
Left = 579
Top = 4
Width = 67
Height = 13
Caption = 'Complemento:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_logradouro: TLabel
Left = 3
Top = 4
Width = 49
Height = 13
Caption = 'Endere'#231'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_tpend: TLabel
Left = 3
Top = 52
Width = 87
Height = 13
Caption = 'Tipo de endere'#231'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_situacao: TLabel
Left = 3
Top = 100
Width = 45
Height = 13
Caption = 'Situa'#231#227'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_cep: TLabel
Left = 176
Top = 52
Width = 24
Height = 13
Caption = 'CEP:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_bairro: TLabel
Left = 272
Top = 52
Width = 30
Height = 13
Caption = 'Bairro:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_cidade: TLabel
Left = 579
Top = 52
Width = 36
Height = 13
Caption = 'Cidade:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_uf: TLabel
Left = 469
Top = 52
Width = 17
Height = 13
Caption = 'UF:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_confirmado: TLabel
Left = 176
Top = 100
Width = 62
Height = 13
Caption = 'Confirma'#231#227'o:'
end
object Panel6: TPanel
Left = 579
Top = 119
Width = 112
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 9
object dbrg_ref: TDBRadioGroup
Left = -6
Top = -10
Width = 121
Height = 31
Columns = 2
DataField = 'TP_REFERENCIA'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Pr'#243'prio'
'Avalista')
ParentFont = False
TabOrder = 0
Values.Strings = (
'P'
'A')
end
end
object dbedt_logradouro: TDBEdit
Left = 3
Top = 23
Width = 430
Height = 21
DataField = 'TX_LOGRADOURO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object dblucmbox_uf: TDBLookupComboBox
Left = 469
Top = 71
Width = 92
Height = 21
DataField = 'ID_ESTADO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'ID_ESTADO'
ListField = 'TX_NOME'
ListSource = dtsUF
ParentFont = False
TabOrder = 5
end
object Panel2: TPanel
Left = 3
Top = 119
Width = 108
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 8
object dbrg_situacao: TDBRadioGroup
Left = -6
Top = -10
Width = 121
Height = 31
Columns = 2
DataField = 'TP_ATIVO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Ativo'
'Inativo')
ParentFont = False
TabOrder = 0
Values.Strings = (
'S'
'N')
end
end
object Panel7: TPanel
Left = 3
Top = 71
Width = 141
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 7
object dbrg_tpend: TDBRadioGroup
Left = -6
Top = -10
Width = 164
Height = 31
Columns = 2
DataField = 'TP_ENDERECO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Resid'#234'ncia'
'Trabalho')
ParentFont = False
TabOrder = 0
Values.Strings = (
'R'
'T')
end
end
object dbedt_num: TDBEdit
Left = 469
Top = 23
Width = 63
Height = 21
DataField = 'NR_NUMERO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object dbedt_cep: TDBEdit
Left = 176
Top = 71
Width = 65
Height = 21
DataField = 'TX_CEP'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnKeyPress = dbedt_cepKeyPress
end
object dbedt_comp: TDBEdit
Left = 579
Top = 23
Width = 81
Height = 21
DataField = 'TX_COMPLEMENTO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object dbedt_bairro: TDBEdit
Left = 272
Top = 71
Width = 161
Height = 21
DataField = 'TX_BAIRRO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnKeyPress = dbedt_cepKeyPress
end
object dblucmbox_cidade: TDBLookupComboBox
Left = 579
Top = 71
Width = 134
Height = 21
DataField = 'ID_CIDADE'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'ID_CIDADE'
ListField = 'TX_NOME'
ListSource = dtsCidades
ParentFont = False
TabOrder = 6
end
object Panel11: TPanel
Left = 172
Top = 119
Width = 189
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 10
object dbrg_confirmado: TDBRadioGroup
Left = -6
Top = -10
Width = 197
Height = 31
Columns = 2
DataField = 'TP_CONFIRMADO'
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Confirmado'
'N'#227'o Confirmado')
ParentFont = False
TabOrder = 0
Values.Strings = (
'S'
'N')
end
end
end
object dbgrd_enderecos: TDBGrid
Left = 3
Top = 215
Width = 864
Height = 279
TabStop = False
DataSource = dtsEnderecos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = dbgrd_enderecosDrawColumnCell
OnTitleClick = dbgrd_enderecosTitleClick
Columns = <
item
Expanded = False
FieldName = 'TX_LOGRADOURO'
Title.Caption = 'Endere'#231'o'
Width = 185
Visible = True
end
item
Expanded = False
FieldName = 'NR_NUMERO'
Title.Caption = 'N'#250'mero'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'TX_COMPLEMENTO'
Title.Caption = 'Complemento'
Width = 125
Visible = True
end
item
Expanded = False
FieldName = 'TP_ATIVO'
Title.Caption = 'Ativo'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'TX_BAIRRO'
Title.Caption = 'Bairro'
Width = 93
Visible = True
end
item
Expanded = False
FieldName = 'TX_ESTADO'
Title.Caption = 'Estado'
Width = 101
Visible = True
end
item
Expanded = False
FieldName = 'TX_CIDADE'
Title.Caption = 'Cidade'
Visible = True
end
item
Expanded = False
FieldName = 'TX_CEP'
Title.Caption = 'CEP'
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'TP_REFERENCIA'
Title.Caption = 'Refer'#234'ncia'
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'TP_ENDERECO'
Title.Caption = 'Tipo de Endere'#231'o'
Width = 104
Visible = True
end
item
Expanded = False
FieldName = 'ID_HIGIENIZADORA'
Title.Caption = 'Higienizadora'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'TX_ULTIMO_USUARIO'
Title.Caption = 'Usu'#225'rio'
Visible = True
end
item
Expanded = False
FieldName = 'DT_HORA_ULTIMA_ATT'
Title.Caption = #218'ltima Atualiza'#231#227'o'
Visible = True
end>
end
object navenderecos: TDBNavigator
Left = 3
Top = 167
Width = 305
Height = 41
DataSource = dtsEnderecos
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Hints.Strings = (
'Primeiro Registro'
'Registro Anterior'
'Pr'#243'ximo Registro'
#218'ltimo Registro'
'Criar Registro'
'Apagar Registro'
'Editar Registro'
'Salvar Registro'
'Cancelar'
'Atualizar'
'Apply updates'
'Cancel updates')
ParentShowHint = False
ShowHint = True
TabOrder = 2
BeforeAction = navenderecosBeforeAction
end
end
object tabTel: TTabSheet
Caption = '&Telefones'
ImageIndex = 2
object Panel9: TPanel
Left = 3
Top = 3
Width = 864
Height = 145
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object lbl_obstel: TLabel
Left = 518
Top = 4
Width = 66
Height = 13
Caption = 'Observa'#231#245'es:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_tel: TLabel
Left = 92
Top = 4
Width = 40
Height = 13
Caption = 'N'#250'mero:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_desctel: TLabel
Left = 262
Top = 4
Width = 51
Height = 13
Caption = 'Descri'#231#227'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_sittel: TLabel
Left = 3
Top = 52
Width = 45
Height = 13
Caption = 'Situa'#231#227'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_tipo: TLabel
Left = 131
Top = 52
Width = 24
Height = 13
Caption = 'Tipo:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_ddd: TLabel
Left = 3
Top = 4
Width = 27
Height = 13
Caption = 'DDD:'
end
object Label10: TLabel
Left = 262
Top = 52
Width = 67
Height = 13
Caption = 'Recado SMS:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Panel3: TPanel
Left = 3
Top = 71
Width = 108
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 5
object dbrg_sittel: TDBRadioGroup
Left = -6
Top = -10
Width = 121
Height = 31
Columns = 2
DataField = 'TP_ATIVO'
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Ativo'
'Inativo')
ParentFont = False
TabOrder = 0
Values.Strings = (
'S'
'N')
end
end
object dbedt_tel: TDBEdit
Left = 92
Top = 23
Width = 94
Height = 21
DataField = 'NR_NUMERO'
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object dbmem_tel: TDBMemo
Left = 518
Top = 23
Width = 339
Height = 115
DataField = 'TX_OBS'
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Panel4: TPanel
Left = 131
Top = 71
Width = 108
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 4
object dbrg_tipotel: TDBRadioGroup
Left = -6
Top = -10
Width = 121
Height = 31
Columns = 2
DataField = 'TP_TIPOTEL'
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Fixo'
'M'#243'vel')
ParentFont = False
TabOrder = 0
Values.Strings = (
'F'
'M')
OnClick = dbrg_tipotelClick
end
end
object dbedt_desctel: TDBEdit
Left = 262
Top = 23
Width = 115
Height = 21
DataField = 'TX_DESC'
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object btn_clearmemo: TButton
Left = 782
Top = -1
Width = 75
Height = 18
Caption = 'Limpar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
TabStop = False
OnClick = btn_clearmemoClick
end
object dbedt_ddd: TDBEdit
Left = 0
Top = 23
Width = 57
Height = 21
DataField = 'NR_DDD'
DataSource = dtsTelefones
TabOrder = 0
end
object Panel12: TPanel
Left = 262
Top = 71
Width = 108
Height = 19
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 7
object DBRadioGroup1: TDBRadioGroup
Left = -6
Top = -10
Width = 121
Height = 31
Columns = 2
DataField = 'TP_SMS'
DataSource = dtsTelefones
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Sim'
'N'#227'o')
ParentFont = False
TabOrder = 0
Values.Strings = (
'S'
'N')
end
end
end
object dbgrd_tel: TDBGrid
Left = 3
Top = 215
Width = 864
Height = 279
TabStop = False
DataSource = dtsTelefones
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawColumnCell = dbgrd_telDrawColumnCell
OnTitleClick = dbgrd_telTitleClick
Columns = <
item
Expanded = False
FieldName = 'TP_ATIVO'
Title.Caption = 'Ativo'
Width = 39
Visible = True
end
item
Expanded = False
FieldName = 'NR_DDD'
Title.Caption = 'DDD'
Visible = True
end
item
Expanded = False
FieldName = 'NR_NUMERO'
Title.Caption = 'N'#250'mero'
Visible = True
end
item
Expanded = False
FieldName = 'TP_TIPOTEL'
Title.Caption = 'Tipo'
Width = 67
Visible = True
end
item
Expanded = False
FieldName = 'TX_DESC'
Title.Caption = 'Descri'#231#227'o'
Width = 460
Visible = True
end
item
Expanded = False
FieldName = 'TX_ULTIMO_USUARIO'
Title.Caption = 'Usu'#225'rio'
Visible = True
end
item
Expanded = False
FieldName = 'DT_HORA_ULTIMA_ATT'
Title.Caption = #218'ltima Atualiza'#231#227'o'
Visible = True
end>
end
object navtelefones: TDBNavigator
Left = 3
Top = 167
Width = 305
Height = 41
DataSource = dtsTelefones
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
ParentShowHint = False
ShowHint = True
TabOrder = 2
BeforeAction = navtelefonesBeforeAction
end
end
object tabTitulos: TTabSheet
Caption = '&T'#237'tulos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 3
ParentFont = False
object Panel10: TPanel
Left = 0
Top = 0
Width = 1065
Height = 494
BevelOuter = bvNone
TabOrder = 0
object lbl_dataent: TLabel
Left = 268
Top = 142
Width = 80
Height = 13
Caption = 'Data de entrada:'
end
object lbl_datavenc: TLabel
Left = 437
Top = 142
Width = 99
Height = 13
Caption = 'Data de vencimento:'
end
object lbl_sittit: TLabel
Left = 272
Top = 4
Width = 45
Height = 13
Caption = 'Situa'#231#227'o:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_tit: TLabel
Left = 3
Top = 4
Width = 40
Height = 13
Caption = 'Produto:'
end
object lbl_vltit: TLabel
Left = 3
Top = 50
Width = 69
Height = 13
Caption = 'Valor do t'#237'tulo:'
end
object lbl_cddevedor: TLabel
Left = 139
Top = 50
Width = 95
Height = 13
Caption = 'C'#243'digo do Devedor:'
end
object lbl_tpdespesa: TLabel
Left = 631
Top = 146
Width = 24
Height = 13
Caption = 'Tipo:'
Visible = False
end
object Label9: TLabel
Left = 600
Top = 6
Width = 22
Height = 13
Caption = 'Obs:'
end
object lbl_dtpag: TLabel
Left = 863
Top = 31
Width = 98
Height = 13
Caption = 'Data de Pagamento:'
end
object Label16: TLabel
Left = 799
Top = 249
Width = 100
Height = 13
Caption = 'Rela'#231#227'o de Acordos:'
end
object lbl_dtrecibo: TLabel
Left = 863
Top = 79
Width = 135
Height = 13
Caption = 'Data de Emiss'#227'o do Recibo:'
end
object Label12: TLabel
Left = 437
Top = 190
Width = 34
Height = 13
Caption = 'Credor:'
end
object pnl_cheque: TPanel
Left = 0
Top = 94
Width = 262
Height = 93
BevelOuter = bvNone
TabOrder = 8
object lbl_banco: TLabel
Left = 139
Top = 2
Width = 34
Height = 13
Caption = 'Banco:'
end
object lbl_nrcheque: TLabel
Left = 3
Top = 48
Width = 55
Height = 13
Caption = 'N'#186' Cheque:'
end
object lbl_motivo: TLabel
Left = 139
Top = 48
Width = 35
Height = 13
Caption = 'Motivo:'
end
object dbedt_banco: TDBEdit
Left = 139
Top = 21
Width = 118
Height = 21
DataField = 'ID_BANCO'
DataSource = dtsTitulos
TabOrder = 0
end
object dbedt_nrcheque: TDBEdit
Left = 3
Top = 67
Width = 121
Height = 21
DataField = 'TX_NRCHEQUE'
DataSource = dtsTitulos
TabOrder = 1
end
object dbedt_motivo: TDBEdit
Left = 139
Top = 67
Width = 118
Height = 21
DataField = 'TP_MOTIVO'
DataSource = dtsTitulos
TabOrder = 2
end
end
object dbedit_produto: TDBEdit
Left = 3
Top = 23
Width = 254
Height = 21
DataField = 'TX_PRODUTO'
DataSource = dtmSystem.dtsTitulos
TabOrder = 0
end
object dbedt_vltit: TDBEdit
Left = 3
Top = 69
Width = 121
Height = 21
DataField = 'VL_TITULO'
DataSource = dtmSystem.dtsTitulos
TabOrder = 1
end
object Panel5: TPanel
Left = 268
Top = 19
Width = 318
Height = 79
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
TabOrder = 9
object dbrg_tit: TDBRadioGroup
Left = -6
Top = -12
Width = 332
Height = 99
Columns = 2
DataField = 'TP_SITUACAO'
DataSource = dtmSystem.dtsTitulos
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Items.Strings = (
'Aberto'
'Acordo na Cobradora'
'Acordo no Credor'
'Devolvido ao Lojista'
'Baixa manual'
'Quitado na Cobradora'
'Quitado no Credor')
ParentFont = False
TabOrder = 0
Values.Strings = (
'A'
'AC'
'AB'
'AJ'
'B'
'QC'
'QB')
end
object pnl_cor1: TPanel
Left = 133
Top = 4
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = clWhite
ParentBackground = False
TabOrder = 1
end
object pnl_color2: TPanel
Left = 133
Top = 23
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = 55295
ParentBackground = False
TabOrder = 2
end
object pnl_color3: TPanel
Left = 133
Top = 42
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = 3145645
ParentBackground = False
TabOrder = 3
end
object pnl_color4: TPanel
Left = 133
Top = 62
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = clMoneyGreen
ParentBackground = False
TabOrder = 4
end
object pnl_color5: TPanel
Left = 296
Top = 4
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = clRed
ParentBackground = False
TabOrder = 5
end
object pnl_color6: TPanel
Left = 296
Top = 23
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = 15453831
ParentBackground = False
TabOrder = 6
end
object pnl_color7: TPanel
Left = 296
Top = 42
Width = 17
Height = 17
BevelKind = bkSoft
BevelOuter = bvNone
Color = 14772545
ParentBackground = False
TabOrder = 7
end
end
object rdbdt_entrada: TrDBDateTimePicker
Left = 268
Top = 161
Width = 157
Height = 23
Date = 43017.406126562500000000
Time = 43017.406126562500000000
Checked = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
DataField = 'DT_ENTRADA'
DataSource = dtsTitulos
DBEditLabel.OwnCaption = 'Data de cadastramento:'
DBEditLabel.Visible = False
FormatEmpty = '__.__.__'
end
object rDBDateTimePicker1: TrDBDateTimePicker
Left = 437
Top = 161
Width = 150
Height = 23
Date = 43017.406126562500000000
Time = 43017.406126562500000000
Checked = False
TabOrder = 6
DataField = 'DT_VENCIMENTO'
DataSource = dtsTitulos
DBEditLabel.OwnCaption = 'Data de cadastramento:'
DBEditLabel.Visible = False
FormatEmpty = '__.__.__'
end
object dbedt_codemp: TDBEdit
Left = 139
Top = 69
Width = 118
Height = 21
DataField = 'CD_DEVEDOR'
DataSource = dtmSystem.dtsTitulos
TabOrder = 2
end
object dbcbx_tpcheque: TDBCheckBox
Left = 32
Top = 108
Width = 63
Height = 17
Caption = 'Cheque'
DataField = 'TP_CHEQUE'
DataSource = dtsTitulos
TabOrder = 7
ValueChecked = 'S'
ValueUnchecked = 'N;null;nill;;'
OnClick = dbcbx_tpchequeClick
end
object rdbdt_pag: TrDBDateTimePicker
Left = 863
Top = 50
Width = 169
Height = 23
Date = 43017.406126562500000000
Time = 43017.406126562500000000
Checked = False
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 11
DataField = 'DT_PAGAMENTO'
DataSource = dtsTitulos
DBEditLabel.OwnCaption = 'Data de cadastramento:'
DBEditLabel.Visible = False
FormatEmpty = '__.__.__'
end
object DBGrid1: TDBGrid
Left = 799
Top = 268
Width = 254
Height = 226
DataSource = dtmSystem.dtsQAcordos
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
PopupMenu = ppmnuQuebraAcordo
TabOrder = 12
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'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'VL_TITULO'
Title.Caption = 'Valor'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'DT_VENCIMENTO'
Title.Caption = 'Vencimento'
Visible = True
end>
end
object rdbdt_recibo: TrDBDateTimePicker
Left = 863
Top = 98
Width = 169
Height = 23
Date = 43017.406126562500000000
Time = 43017.406126562500000000
Checked = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
DataField = 'DT_EMISSAO_RECIBO'
DataSource = dtsTitulos
DBEditLabel.OwnCaption = 'Data de cadastramento:'
DBEditLabel.Visible = False
FormatEmpty = '__.__.__'
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 437
Top = 209
Width = 371
Height = 21
DataField = 'ID_EMPRESA'
DataSource = dtsTitulos
KeyField = 'ID_EMPRESA'
ListField = 'TX_FANTASIA'
ListSource = dtmSystem.dtsCHGEmpresa
TabOrder = 15
end
end
object dbmem_titobs: TDBMemo
Left = 600
Top = 25
Width = 257
Height = 162
DataField = 'TX_OBS'
DataSource = dtsTitulos
TabOrder = 1
end
object dbgrd_tit: TDBGrid
Left = 3
Top = 268
Width = 790
Height = 226
TabStop = False
DataSource = dtmSystem.dtsTitulos
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = dbgrd_titCellClick
OnDrawColumnCell = dbgrd_titDrawColumnCell
OnMouseMove = dbgrd_titMouseMove
OnTitleClick = dbgrd_titTitleClick
Columns = <
item
Expanded = False
FieldName = 'ID_TITULO'
Title.Caption = 'ID'
Width = 37
Visible = True
end
item
Expanded = False
FieldName = 'TX_PRODUTO'
Title.Caption = 'Produto'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'DT_VENCIMENTO'
Title.Caption = 'Data de Vencimento'
Width = 102
Visible = True
end
item
Expanded = False
FieldName = 'DT_ENTRADA'
Title.Caption = 'Data de Entrada'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'VL_TITULO'
Title.Caption = 'Valor'
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'TP_SITUACAO'
Title.Caption = 'Situa'#231#227'o'
Width = 63
Visible = True
end
item
Expanded = False
FieldName = 'TX_ULTIMO_USUARIO'
Title.Caption = 'Usu'#225'rio'
Visible = True
end
item
Expanded = False
FieldName = 'DT_HORA_ULTIMA_ATT'
Title.Caption = #218'ltima Atualiza'#231#227'o'
Visible = True
end
item
Expanded = False
FieldName = 'TX_IMPLANTADO'
Title.Caption = 'Implanta'#231#227'o'
Visible = True
end
item
Expanded = False
FieldName = 'DT_IMPLANTACAO'
Title.Caption = 'Data de Implanta'#231#227'o'
Visible = True
end>
end
object navtitulos: TDBNavigator
Left = 3
Top = 211
Width = 365
Height = 51
DataSource = dtsTitulos
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
ParentShowHint = False
ShowHint = True
TabOrder = 3
BeforeAction = navtitulosBeforeAction
end
end
object tabHist: TTabSheet
Caption = '&Hist'#243'rico'
ImageIndex = 4
object Label3: TLabel
Left = 526
Top = 59
Width = 59
Height = 13
Caption = 'Provid'#234'ncia:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 93
Top = 59
Width = 109
Height = 13
Caption = 'Data do agendamento:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 237
Top = 59
Width = 109
Height = 13
Caption = 'Hora do agendamento:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 389
Top = 59
Width = 113
Height = 13
Caption = 'Agendar para Cobrador:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 760
Top = 59
Width = 131
Height = 13
Caption = 'Protocolo do hist'#243'rico atual:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object navHistorico: TDBNavigator
Left = 0
Top = 3
Width = 408
Height = 55
DataSource = dtsHistorico
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
ParentShowHint = False
ShowHint = True
TabOrder = 5
BeforeAction = navHistoricoBeforeAction
end
object dbgrd_historico: TDBGrid
Left = 0
Top = 105
Width = 520
Height = 389
DataSource = dtsHistorico
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
ParentFont = False
ReadOnly = True
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
OnDblClick = dbgrd_historicoDblClick
OnTitleClick = dbgrd_historicoTitleClick
Columns = <
item
Expanded = False
FieldName = 'DT_CONTATO'
Title.Caption = 'Data de Contato'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'TX_PROVIDENCIA'
Title.Caption = 'Provid'#234'ncia'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 300
Visible = True
end
item
Expanded = False
FieldName = 'TX_ULTIMO_USUARIO'
Title.Caption = 'Usu'#225'rio'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'DT_HORA_ULTIMA_ATT'
Title.Caption = #218'ltima Atualiza'#231#227'o'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'Protocolo'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'TX_MEMO'
Title.Caption = 'Observa'#231#245'es'
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = False
end>
end
object dblucb_providencia: TDBLookupComboBox
Left = 526
Top = 78
Width = 228
Height = 21
DataField = 'ID_PROVIDENCIA'
DataSource = dtsHistorico
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'ID_PROVIDENCIA'
ListField = 'TX_NOME'
ListSource = dtmSystem.dtsProvidencias
ParentFont = False
TabOrder = 0
end
object dtp_agendadatahist: TDateTimePicker
Left = 93
Top = 78
Width = 115
Height = 21
Date = 43082.430191782410000000
Time = 43082.430191782410000000
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object dtp_agendahorahist: TDateTimePicker
Left = 237
Top = 78
Width = 115
Height = 21
Date = 43082.430419745370000000
Time = 43082.430419745370000000
DateMode = dmUpDown
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Kind = dtkTime
ParentFont = False
TabOrder = 3
OnChange = dtp_horaagendamentoChange
end
object dblucb_agendacobhist: TDBLookupComboBox
Left = 389
Top = 78
Width = 115
Height = 21
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyField = 'ID_USUARIO'
ListField = 'TX_NOME'
ListSource = dtsCobrador
ParentFont = False
TabOrder = 4
end
object cb_agendahist: TCheckBox
Left = 9
Top = 68
Width = 78
Height = 21
Caption = 'Agendar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = cb_agendahistClick
end
object dbmemo_box: TDBMemo
Left = 526
Top = 105
Width = 507
Height = 389
DataField = 'TL_MEMO'
DataSource = dtsHistorico
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 7
end
object btntelefones: TButton
Left = 923
Top = 74
Width = 111
Height = 25
Hint = 'Inserir todos os telefones do devedor no hist'#243'rico'
Caption = 'Inserir Telefones'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = btntelefonesClick
end
object dbedt_protocolo: TDBEdit
Left = 760
Top = 78
Width = 157
Height = 21
Hint = 'Abra um novo hist'#243'rico para gerar um protocolo.'
DataField = 'CD_PROTOCOLO'
DataSource = dtsHistorico
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = True
TabOrder = 9
end
end
object tabCalculos: TTabSheet
Caption = '&C'#225'lculos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 5
ParentFont = False
object lbl_beneficiarioscalculo: TLabel
Left = 3
Top = 3
Width = 34
Height = 13
Caption = 'Credor:'
end
object lbl_datapgmnto: TLabel
Left = 968
Top = 164
Width = 106
Height = 13
Caption = 'Data para pagamento:'
end
object lbl_somatitulos: TLabel
Left = 122
Top = 164
Width = 48
Height = 13
Caption = 'Principais:'
end
object lbl_vlaquitar: TLabel
Left = 3
Top = 164
Width = 71
Height = 13
Caption = 'Total Corrigido:'
end
object lbl_somajuros: TLabel
Left = 420
Top = 164
Width = 28
Height = 13
Caption = 'Juros:'
end
object lbl_somaentrada: TLabel
Left = 551
Top = 212
Width = 40
Height = 13
Caption = 'Entrada:'
end
object lbl_somamulta: TLabel
Left = 244
Top = 164
Width = 29
Height = 13
Caption = 'Multa:'
end
object lbl_parcelamento: TLabel
Left = 645
Top = 212
Width = 68
Height = 13
Caption = 'Parcelamento:'
end
object lbl_somaindicador: TLabel
Left = 542
Top = 165
Width = 48
Height = 13
Caption = 'Encargos:'
end
object lbl_extras: TLabel
Left = 644
Top = 164
Width = 70
Height = 13
Caption = 'Valores Extras:'
end
object lbl_protocolo1: TLabel
Left = 689
Top = 270
Width = 48
Height = 13
Caption = 'Protocolo:'
end
object Label4: TLabel
Left = 851
Top = 164
Width = 103
Height = 13
Caption = 'Forma de pagamento:'
end
object lbl_maxpar: TLabel
Left = 714
Top = 212
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 434
Top = 213
Width = 66
Height = 13
Caption = '% da Entrada:'
end
object lbl_minentrada: TLabel
Left = 502
Top = 215
Width = 20
Height = 13
Caption = 'Min:'
end
object lbl_maxentrada: TLabel
Left = 502
Top = 234
Width = 23
Height = 13
Caption = 'M'#225'x:'
end
object lbl_desctot: TLabel
Left = 902
Top = 76
Width = 104
Height = 26
Caption = 'Desconto em rela'#231#227'o ao valor corrigido (%):'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Visible = False
WordWrap = True
end
object clb_beneficiarioscalculo: TCheckListBox
Left = 3
Top = 22
Width = 193
Height = 133
OnClickCheck = clb_beneficiarioscalculoClickCheck
ItemHeight = 13
TabOrder = 0
end
object lv_titulos: TListView
Left = 202
Top = 3
Width = 871
Height = 152
Checkboxes = True
Columns = <
item
Caption = 'Incluir'
MaxWidth = 40
MinWidth = 40
Width = 40
end
item
Caption = 'Empresa'
MaxWidth = 100
MinWidth = 100
Width = 100
end
item
Caption = 'Produto'
MaxWidth = 150
MinWidth = 150
Width = 150
end
item
Caption = 'Vencimento'
MaxWidth = 80
MinWidth = 80
Width = 80
end
item
Caption = 'Valor'
MaxWidth = 100
MinWidth = 100
Width = 100
end
item
Caption = 'C'#243'digo do Devedor'
MaxWidth = 150
MinWidth = 150
Width = 150
end
item
Caption = 'Parcelamento'
MaxWidth = 77
MinWidth = 77
Width = 77
end
item
Caption = 'Entrada'
MaxWidth = 80
MinWidth = 80
Width = 80
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
RowSelect = True
ParentFont = False
PopupMenu = popmnu_incluir
TabOrder = 1
ViewStyle = vsReport
OnChange = lv_titulosChange
OnColumnClick = lv_titulosColumnClick
OnCompare = lv_titulosCompare
OnItemChecked = lv_titulosItemChecked
end
object dtp_atrasorecalc: TDateTimePicker
Left = 967
Top = 183
Width = 106
Height = 21
Date = 43081.425353148150000000
Time = 43081.425353148150000000
TabOrder = 2
OnChange = dtp_atrasorecalcChange
end
object dbgrd_listtitulos: TDBGrid
Left = 0
Top = 314
Width = 1073
Height = 180
DataSource = dtsListaTitulos
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = dbgrd_listtitulosTitleClick
Columns = <
item
Expanded = False
FieldName = 'NOME_EMPRESA'
Title.Caption = 'Empresa'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'TX_PRODUTO'
Title.Caption = 'Produto'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'DT_ENTRADA'
Title.Caption = 'Entrada'
Width = 85
Visible = True
end
item
Expanded = False
FieldName = 'DT_VENCIMENTO'
Title.Caption = 'Vencimento'
Visible = True
end
item
Expanded = False
FieldName = 'VL_TITULO'
Title.Caption = 'Principal'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_ENTRADA'
Title.Caption = 'Entrada'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_JUROS'
Title.Caption = 'Juros'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_MULTA'
Title.Caption = 'Multa'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_INDICADOR'
Title.Caption = 'Encargo'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_DESPESA'
Title.Caption = 'Despesa'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'VL_CORRIGIDO'
Title.Caption = 'Corrigido'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'DT_ATRASO'
Title.Caption = 'Atraso'
Width = 36
Visible = True
end
item
Expanded = False
FieldName = 'PR_ENTRADA'
Title.Caption = 'Entrada (%)'
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'PR_JUROS'
Title.Caption = 'Juros (%)'
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'PR_MULTA'
Title.Caption = 'Multa (%)'
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'PR_INDICADOR'
Title.Caption = 'Encargos (%)'
Visible = True
end>
end
object edt_somatitulos: TEdit
Left = 122
Top = 183
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 4
Text = 'R$ 0.00'
end
object edt_vlaquitar: TEdit
Left = 3
Top = 183
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 5
Text = 'R$ 0.00'
end
object edt_somajuros: TEdit
Left = 420
Top = 183
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 6
Text = 'R$ 0.00'
end
object edt_somaentrada: TEdit
Left = 551
Top = 231
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 7
Text = 'R$ 0.00'
end
object edt_somamulta: TEdit
Left = 244
Top = 183
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 8
Text = 'R$ 0.00'
end
object edt_nrparcelas: TEdit
Left = 644
Top = 231
Width = 69
Height = 21
Alignment = taRightJustify
TabOrder = 9
Text = '0'
OnChange = edt_nrparcelasChange
OnExit = edt_nrparcelasExit
end
object up_nrparcelas: TUpDown
Left = 713
Top = 231
Width = 16
Height = 21
Associate = edt_nrparcelas
TabOrder = 10
Thousands = False
end
object edt_somaindicador: TEdit
Left = 537
Top = 183
Width = 84
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 11
Text = 'R$ 0.00'
end
object edt_extras: TEdit
Left = 644
Top = 183
Width = 86
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 12
Text = 'R$ 0.00'
end
object cb_nmulta: TCheckBox
Left = 291
Top = 163
Width = 104
Height = 17
Caption = 'N'#227'o cobrar Multa'
TabOrder = 13
OnClick = cb_nmultaClick
end
object edt_protocolo1: TEdit
Left = 644
Top = 290
Width = 115
Height = 21
ReadOnly = True
TabOrder = 15
end
object lv_parcelas: TListView
Left = 765
Top = 221
Width = 196
Height = 87
Columns = <
item
Caption = 'Parcela'
MaxWidth = 75
MinWidth = 75
Width = 75
end
item
Alignment = taRightJustify
Caption = 'Valor'
MaxWidth = 100
MinWidth = 100
Width = 100
end>
FlatScrollBars = True
Items.ItemData = {
055600000002000000FFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFF000000
000745006E0074007200610064006100FFFFFFFFFFFFFFFFFFFFFFFF00000000
FFFFFFFF000000000A500061007200630065006C00610020006E00BA00}
ReadOnly = True
TabOrder = 16
ViewStyle = vsReport
end
object pcDescontos: TPageControl
Left = 3
Top = 210
Width = 430
Height = 102
ActivePage = tabQuitar
TabOrder = 17
object tabQuitar: TTabSheet
Caption = 'Descontos aos Quitar'
object gb_descontosquit: TGroupBox
Left = -7
Top = -9
Width = 434
Height = 87
Enabled = False
TabOrder = 0
object lbl_indquitar: TLabel
Left = 10
Top = 26
Width = 73
Height = 13
Caption = 'Ind. Financeiro:'
end
object lbl_principalquitar: TLabel
Left = 92
Top = 26
Width = 43
Height = 13
Caption = 'Principal:'
end
object lbl_multasquitar: TLabel
Left = 174
Top = 26
Width = 34
Height = 13
Caption = 'Multas:'
end
object lbl_jurosquitar: TLabel
Left = 256
Top = 26
Width = 28
Height = 13
Caption = 'Juros:'
end
object lbl_maxindquit: TLabel
Left = 10
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxprinquit: TLabel
Left = 92
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxmultaquit: TLabel
Left = 174
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxjurosquit: TLabel
Left = 256
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxquitcor: TLabel
Left = 338
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edt_indquitar: TEdit
Left = 10
Top = 44
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 0
Text = '0'
OnChange = edt_indquitarChange
OnKeyPress = edt_indquitarKeyPress
end
object edt_principalquitar: TEdit
Left = 92
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 1
Text = '0'
OnChange = edt_principalquitarChange
OnKeyPress = edt_principalquitarKeyPress
end
object edt_multasquitar: TEdit
Left = 174
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 2
Text = '0'
OnChange = edt_multasquitarChange
OnKeyPress = edt_multasquitarKeyPress
end
object up_encquitar: TUpDown
Left = 68
Top = 44
Width = 16
Height = 21
Associate = edt_indquitar
TabOrder = 3
end
object up_principalquitar: TUpDown
Left = 150
Top = 45
Width = 16
Height = 21
Associate = edt_principalquitar
TabOrder = 4
end
object up_multasquitar: TUpDown
Left = 232
Top = 45
Width = 16
Height = 21
Associate = edt_multasquitar
TabOrder = 5
end
object edt_jurosquitar: TEdit
Left = 256
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 6
Text = '0'
OnChange = edt_jurosquitarChange
OnKeyPress = edt_jurosquitarKeyPress
end
object up_jurosquitar: TUpDown
Left = 314
Top = 45
Width = 16
Height = 21
Associate = edt_jurosquitar
TabOrder = 7
end
object cb_desc_quit_cor: TCheckBox
Left = 338
Top = 25
Width = 64
Height = 17
Caption = 'Corrigido:'
TabOrder = 8
OnClick = cb_desc_quit_corClick
end
object edt_corquitar: TEdit
Left = 338
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 9
Text = '0'
OnChange = edt_corquitarChange
OnKeyPress = edt_corquitarKeyPress
end
object ud_corquitar: TUpDown
Left = 396
Top = 45
Width = 16
Height = 21
Associate = edt_corquitar
TabOrder = 10
end
end
object cb_descquit: TCheckBox
Left = 3
Top = -2
Width = 135
Height = 17
Caption = 'Descontos ao Quitar (%):'
TabOrder = 1
OnClick = cb_descquitClick
end
end
object tabParcelar: TTabSheet
Caption = 'Descontos ao Parcelar'
ImageIndex = 1
object gb_descontospar: TGroupBox
Left = -4
Top = -9
Width = 431
Height = 87
Enabled = False
TabOrder = 0
object lbl_indparcelas: TLabel
Left = 7
Top = 26
Width = 73
Height = 13
Caption = 'Ind. Financeiro:'
end
object lbl_jurosparcelas: TLabel
Left = 253
Top = 26
Width = 28
Height = 13
Caption = 'Juros:'
end
object lbl_multasparcelas: TLabel
Left = 171
Top = 26
Width = 34
Height = 13
Caption = 'Multas:'
end
object lbl_principalparcelas: TLabel
Left = 89
Top = 26
Width = 43
Height = 13
Caption = 'Principal:'
end
object lbl_maxindpar: TLabel
Left = 7
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxprinpar: TLabel
Left = 89
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxmultapar: TLabel
Left = 171
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxjurospar: TLabel
Left = 253
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lbl_maxparcor: TLabel
Left = 335
Top = 71
Width = 23
Height = 13
Caption = 'M'#225'x:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object edt_indparcelas: TEdit
Left = 7
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 0
Text = '0'
OnChange = edt_indparcelasChange
OnKeyPress = edt_indparcelasKeyPress
end
object edt_jurosparcelas: TEdit
Left = 253
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 1
Text = '0'
OnChange = edt_jurosparcelasChange
OnKeyPress = edt_jurosparcelasKeyPress
end
object edt_multasparcelas: TEdit
Left = 171
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 2
Text = '0'
OnChange = edt_multasparcelasChange
OnKeyPress = edt_multasparcelasKeyPress
end
object edt_principalparcelas: TEdit
Left = 89
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 3
Text = '0'
OnChange = edt_principalparcelasChange
OnKeyPress = edt_principalparcelasKeyPress
end
object up_encparcelas: TUpDown
Left = 65
Top = 45
Width = 16
Height = 21
Associate = edt_indparcelas
TabOrder = 4
end
object up_jurosparcelas: TUpDown
Left = 311
Top = 45
Width = 16
Height = 21
Associate = edt_jurosparcelas
TabOrder = 5
end
object up_multasparcelas: TUpDown
Left = 229
Top = 45
Width = 16
Height = 21
Associate = edt_multasparcelas
TabOrder = 6
end
object up_principalparcelas: TUpDown
Left = 147
Top = 45
Width = 16
Height = 21
Associate = edt_principalparcelas
TabOrder = 7
end
object cb_desc_par_cor: TCheckBox
Left = 335
Top = 25
Width = 63
Height = 17
Caption = 'Corrigido:'
TabOrder = 8
OnClick = cb_desc_par_corClick
end
object edt_corpar: TEdit
Left = 335
Top = 45
Width = 58
Height = 21
Alignment = taRightJustify
TabOrder = 9
Text = '0'
OnChange = edt_corparChange
OnKeyPress = edt_corparKeyPress
end
object ud_corpar: TUpDown
Left = 393
Top = 45
Width = 16
Height = 21
Associate = edt_corpar
TabOrder = 10
end
end
object cb_descpar: TCheckBox
Left = 3
Top = -2
Width = 146
Height = 17
Caption = 'Descontos ao Parcelar (%):'
TabOrder = 1
OnClick = cb_descparClick
end
end
end
object cb_formapag: TComboBox
Left = 852
Top = 183
Width = 86
Height = 21
AutoComplete = False
Style = csDropDownList
ItemIndex = 0
TabOrder = 18
Text = 'Dinheiro'
OnChange = cb_formapagChange
Items.Strings = (
'Dinheiro'
'D'#233'bito'
'Cr'#233'dito'
'Cheque')
end
object btn_protocolo: TButton
Left = 967
Top = 255
Width = 106
Height = 25
Caption = 'Gerar Protocolo'
TabOrder = 19
OnClick = btn_protocoloClick
end
object btn_fechamento: TButton
Left = 967
Top = 226
Width = 106
Height = 25
Caption = 'Fechamento'
TabOrder = 20
OnClick = btn_fechamentoClick
end
object edt_excentrada: TEdit
Left = 434
Top = 290
Width = 87
Height = 21
Alignment = taRightJustify
Enabled = False
TabOrder = 21
Text = '0,00'
OnChange = edt_excentradaChange
OnKeyPress = edt_excentradaKeyPress
end
object cbx_excentrada: TCheckBox
Left = 434
Top = 263
Width = 105
Height = 17
Caption = 'Exce'#231#227'o Entrada:'
TabOrder = 22
OnClick = cbx_excentradaClick
end
object edt_prentrada: TEdit
Left = 433
Top = 231
Width = 53
Height = 21
Alignment = taRightJustify
NumbersOnly = True
TabOrder = 23
Text = '0'
OnChange = edt_prentradaChange
end
object ud_entrada: TUpDown
Left = 486
Top = 231
Width = 16
Height = 21
Associate = edt_prentrada
TabOrder = 24
end
object btn_relacaodivida: TButton
Left = 967
Top = 283
Width = 106
Height = 25
Caption = 'Rela'#231#227'o de D'#237'vida'
TabOrder = 25
OnClick = btn_relacaodividaClick
end
object edt_desctot: TEdit
Left = 902
Top = 103
Width = 103
Height = 21
Alignment = taRightJustify
ReadOnly = True
TabOrder = 14
Text = '0'
Visible = False
end
object cbx_txextra: TCheckBox
Left = 766
Top = 158
Width = 75
Height = 17
Caption = 'Taxa Extra:'
TabOrder = 26
OnClick = cbx_txextraClick
end
object edt_txextra: TEdit
Left = 765
Top = 183
Width = 70
Height = 21
Alignment = taRightJustify
Enabled = False
TabOrder = 27
Text = '0,00'
OnChange = edt_txextraChange
OnKeyPress = edt_txextraKeyPress
end
object cbx_exjurosparcelar: TCheckBox
Left = 542
Top = 259
Width = 101
Height = 26
Caption = 'Exce'#231#227'o de Juros ao parcelar: (%)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 28
WordWrap = True
OnClick = cbx_exjurosparcelarClick
end
object edt_excjurosparcela: TEdit
Left = 544
Top = 290
Width = 87
Height = 21
Alignment = taRightJustify
Enabled = False
TabOrder = 29
Text = '0,00'
OnChange = edt_excjurosparcelaChange
OnKeyPress = edt_excjurosparcelaKeyPress
end
end
object tabFechamento: TTabSheet
Caption = '&Fechamento'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 6
ParentFont = False
object lbl_dtcobranca: TLabel
Left = 3
Top = 22
Width = 109
Height = 13
Caption = 'Data do agendamento:'
end
object lbl_horacobranca: TLabel
Left = 3
Top = 68
Width = 109
Height = 13
Caption = 'Hora do agendamento:'
end
object lbl_protocolo: TLabel
Left = 3
Top = 114
Width = 48
Height = 13
Caption = 'Protocolo:'
end
object lbl_cobradoragendado: TLabel
Left = 3
Top = 160
Width = 113
Height = 13
Caption = 'Agendar para Cobrador:'
end
object lbl_tfonte: TLabel
Left = 201
Top = 3
Width = 90
Height = 13
Caption = 'Tamanho da fonte:'
end
object lbl_providencias: TLabel
Left = 668
Top = 3
Width = 64
Height = 13
Caption = 'Provid'#234'ncias:'
end
object lbl_prov: TLabel
Left = 668
Top = 175
Width = 97
Height = 13
Caption = 'Provid'#234'ncia tomada:'
end
object dtp_diaagendamento: TDateTimePicker
Left = 3
Top = 41
Width = 159
Height = 21
Date = 43082.430191782410000000
Time = 43082.430191782410000000
Enabled = False
TabOrder = 0
OnChange = dtp_diaagendamentoChange
end
object dtp_horaagendamento: TDateTimePicker
Left = 3
Top = 87
Width = 159
Height = 21
Date = 43082.430419745370000000
Time = 43082.430419745370000000
DateMode = dmUpDown
Enabled = False
Kind = dtkTime
TabOrder = 1
OnChange = dtp_horaagendamentoChange
end
object edt_protocolo: TEdit
Left = 3
Top = 133
Width = 159
Height = 21
ReadOnly = True
TabOrder = 2
end
object dblucb_cobradoragendar: TDBLookupComboBox
Left = 3
Top = 179
Width = 159
Height = 21
Enabled = False
KeyField = 'ID_USUARIO'
ListField = 'TX_NOME'
ListSource = dtsCobrador
TabOrder = 3
end
object btn_recalc: TButton
Left = 668
Top = 237
Width = 75
Height = 25
Caption = 'Rec'#225'lculo'
TabOrder = 4
OnClick = btn_recalcClick
end
object edt_fontememo: TEdit
Left = 297
Top = 0
Width = 37
Height = 21
Alignment = taRightJustify
TabOrder = 5
Text = '8'
OnExit = edt_fontememoExit
OnKeyDown = edt_fontememoKeyDown
end
object up_fontememo: TUpDown
Left = 334
Top = 0
Width = 16
Height = 21
Associate = edt_fontememo
Min = 8
Max = 72
Position = 8
TabOrder = 6
OnClick = up_fontememoClick
end
object cb_negritomemo: TCheckBox
Left = 356
Top = 2
Width = 55
Height = 17
Caption = 'Negrito'
TabOrder = 7
OnClick = cb_negritomemoClick
end
object mb_fechamento: TMemo
Left = 201
Top = 22
Width = 428
Height = 260
Lines.Strings = (
'mb_fechamento')
ScrollBars = ssVertical
TabOrder = 8
end
object dbgrd_providencias: TDBGrid
Left = 668
Top = 22
Width = 397
Height = 147
DataSource = dtsProvidencias
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
TabOrder = 9
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = dbgrd_providenciasDblClick
Columns = <
item
Expanded = False
FieldName = 'TX_NOME'
Title.Caption = 'Nome'
Width = 300
Visible = True
end>
end
object edt_prov: TEdit
Left = 668
Top = 194
Width = 397
Height = 21
ReadOnly = True
TabOrder = 10
end
object btn_concluir: TButton
Left = 932
Top = 237
Width = 133
Height = 25
Caption = 'Concluir'
TabOrder = 11
OnClick = btn_concluirClick
end
object dbgrd_resumohist: TDBGrid
Left = 0
Top = 288
Width = 1065
Height = 206
DataSource = dtsHistorico
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
ReadOnly = True
TabOrder = 12
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = dbgrd_resumohistTitleClick
Columns = <
item
Expanded = False
FieldName = 'ID_HISTORICO'
Title.Caption = 'ID'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'TX_COBRADOR'
Title.Caption = 'Usu'#225'rio'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'TX_PROVIDENCIA'
Title.Caption = 'Provid'#234'ncia'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'DT_CONTATO'
Title.Caption = 'Data do contato'
Width = 85
Visible = True
end
item
Expanded = False
FieldName = 'DT_AGENDAMENTO'
Title.Caption = 'Data agendada'
Width = 85
Visible = True
end
item
Expanded = False
FieldName = 'TP_VAIPAGAR'
Title.Caption = 'Vai pagar?'
Visible = True
end
item
Expanded = False
FieldName = 'CD_PROTOCOLO'
Title.Caption = 'Protocolo'
Visible = True
end
item
Expanded = False
FieldName = 'TL_MEMO'
Title.Caption = 'Observa'#231#227'o'
Width = 106
Visible = True
end>
end
object cb_agendar: TCheckBox
Left = 3
Top = 3
Width = 97
Height = 17
Caption = 'Agendar'
TabOrder = 13
OnClick = cb_agendarClick
end
object btn_cancelar: TButton
Left = 25
Top = 257
Width = 75
Height = 25
Caption = 'Cancelar'
TabOrder = 14
OnClick = btn_cancelarClick
end
end
object tabBoletos: TTabSheet
Caption = 'Boletos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 7
ParentFont = False
object Label13: TLabel
Left = 16
Top = 16
Width = 49
Height = 13
Caption = 'Endere'#231'o:'
end
object Label14: TLabel
Left = 428
Top = 16
Width = 45
Height = 13
Caption = 'Telefone:'
end
object Label17: TLabel
Left = 588
Top = 16
Width = 28
Height = 13
Caption = 'Email:'
end
object Label25: TLabel
Left = 16
Top = 368
Width = 157
Height = 13
Caption = 'Dias p/ Cancelamento do Boleto:'
end
object Label26: TLabel
Left = 190
Top = 368
Width = 129
Height = 13
Caption = 'Dia do m'#234's p/ Vencimento:'
end
object Label27: TLabel
Left = 353
Top = 368
Width = 116
Height = 13
Caption = 'Valor Nominal do Boleto:'
end
object Label28: TLabel
Left = 475
Top = 368
Width = 83
Height = 13
Caption = 'Sufixo p/ Seu N'#186':'
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 16
Top = 35
Width = 406
Height = 21
DataField = 'ID_ENDERECO_BOLETO'
DataSource = dtsDB
KeyField = 'ID_ENDERECO'
ListField = 'TX_ENDERECO_COMPLETO'
ListSource = dtsEnderecos
TabOrder = 0
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 428
Top = 35
Width = 140
Height = 21
DataField = 'ID_TELEFONE_BOLETO'
DataSource = dtsDB
KeyField = 'ID_TELEFONE'
ListField = 'TX_TELEFONE_COMPLETO'
ListSource = dtsTelefones
TabOrder = 1
end
object DBLookupComboBox4: TDBLookupComboBox
Left = 588
Top = 35
Width = 280
Height = 21
DataField = 'ID_EMAIL_BOLETO'
DataSource = dtsDB
KeyField = 'ID_EMAIL'
ListField = 'TX_EMAIL'
ListSource = dtsEmail
TabOrder = 2
end
object gbMensagemBoleto: TGroupBox
Left = 16
Top = 62
Width = 552
Height = 155
Caption = 'Mensagem:'
TabOrder = 3
object Label49: TLabel
Left = 8
Top = 20
Width = 38
Height = 13
Caption = 'Linha 1:'
end
object Label50: TLabel
Left = 8
Top = 47
Width = 38
Height = 13
Caption = 'Linha 2:'
end
object Label51: TLabel
Left = 8
Top = 74
Width = 38
Height = 13
Caption = 'Linha 3:'
end
object Label52: TLabel
Left = 8
Top = 101
Width = 38
Height = 13
Caption = 'Linha 4:'
end
object Label57: TLabel
Left = 8
Top = 128
Width = 38
Height = 13
Caption = 'Linha 5:'
end
object dbEdtLinha1Boleto: TDBEdit
Left = 52
Top = 17
Width = 493
Height = 21
DataField = 'TX_MENSAGEM_BOLETO_1'
DataSource = dtsDB
TabOrder = 0
end
object dbEdtLinha2Boleto: TDBEdit
Left = 52
Top = 44
Width = 493
Height = 21
DataField = 'TX_MENSAGEM_BOLETO_2'
DataSource = dtsDB
TabOrder = 1
end
object dbEdtLinha3Boleto: TDBEdit
Left = 52
Top = 71
Width = 493
Height = 21
DataField = 'TX_MENSAGEM_BOLETO_3'
DataSource = dtsDB
TabOrder = 2
end
object dbEdtLinha4Boleto: TDBEdit
Left = 52
Top = 98
Width = 493
Height = 21
DataField = 'TX_MENSAGEM_BOLETO_4'
DataSource = dtsDB
TabOrder = 3
end
object dbEdtLinha5Boleto: TDBEdit
Left = 52
Top = 125
Width = 493
Height = 21
DataField = 'TX_MENSAGEM_BOLETO_5'
DataSource = dtsDB
TabOrder = 4
end
end
object GroupBox3: TGroupBox
Left = 16
Top = 248
Width = 280
Height = 105
Caption = 'Desconto 1:'
TabOrder = 4
DesignSize = (
280
105)
object Label34: TLabel
Left = 181
Top = 27
Width = 27
Height = 13
Anchors = [akTop, akRight]
Caption = 'Taxa:'
ExplicitLeft = 143
end
object Label35: TLabel
Left = 8
Top = 55
Width = 27
Height = 13
Caption = 'Valor:'
end
object Label22: TLabel
Left = 8
Top = 74
Width = 213
Height = 13
Caption = 'Qtd. Dias antes do Vencimento p/ Desconto:'
WordWrap = True
end
object DBLookupComboBox7: TDBLookupComboBox
Left = 8
Top = 24
Width = 168
Height = 21
DataField = 'TP_DESC_BOLETO_1'
DataSource = dtsDB
KeyField = 'ID_STATUS'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsDescBoleto
TabOrder = 0
end
object DBEdit11: TDBEdit
Left = 215
Top = 24
Width = 57
Height = 21
DataField = 'PR_DESC_BOLETO_1'
DataSource = dtsDB
TabOrder = 1
OnKeyPress = DBEdit11KeyPress
end
object DBEdit14: TDBEdit
Left = 41
Top = 51
Width = 108
Height = 21
DataField = 'VL_DESC_BOLETO_1'
DataSource = dtsDB
TabOrder = 2
OnKeyPress = DBEdit5KeyPress
end
object DBEdit17: TDBEdit
Left = 238
Top = 71
Width = 34
Height = 21
DataField = 'NR_DIAS_DESC_BOLETO_1'
DataSource = dtsDB
TabOrder = 3
OnKeyPress = DBEdit17KeyPress
end
end
object GroupBox4: TGroupBox
Left = 302
Top = 248
Width = 280
Height = 105
Caption = 'Desconto 2:'
TabOrder = 5
DesignSize = (
280
105)
object Label37: TLabel
Left = 181
Top = 27
Width = 27
Height = 13
Anchors = [akTop, akRight]
Caption = 'Taxa:'
ExplicitLeft = 143
end
object Label38: TLabel
Left = 8
Top = 55
Width = 27
Height = 13
Caption = 'Valor:'
end
object Label23: TLabel
Left = 8
Top = 76
Width = 213
Height = 13
Caption = 'Qtd. Dias antes do Vencimento p/ Desconto:'
WordWrap = True
end
object DBLookupComboBox8: TDBLookupComboBox
Left = 8
Top = 24
Width = 168
Height = 21
DataField = 'TP_DESC_BOLETO_2'
DataSource = dtsDB
KeyField = 'ID_STATUS'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsDescBoleto
TabOrder = 0
end
object DBEdit12: TDBEdit
Left = 215
Top = 24
Width = 57
Height = 21
DataField = 'PR_DESC_BOLETO_2'
DataSource = dtsDB
TabOrder = 1
OnKeyPress = DBEdit12KeyPress
end
object DBEdit15: TDBEdit
Left = 41
Top = 51
Width = 108
Height = 21
DataField = 'VL_DESC_BOLETO_2'
DataSource = dtsDB
TabOrder = 2
OnKeyPress = DBEdit5KeyPress
end
object DBEdit18: TDBEdit
Left = 238
Top = 73
Width = 34
Height = 21
DataField = 'NR_DIAS_DESC_BOLETO_2'
DataSource = dtsDB
TabOrder = 3
OnKeyPress = DBEdit18KeyPress
end
end
object GroupBox5: TGroupBox
Left = 588
Top = 248
Width = 280
Height = 105
Caption = 'Desconto 3:'
TabOrder = 6
DesignSize = (
280
105)
object Label40: TLabel
Left = 181
Top = 27
Width = 27
Height = 13
Anchors = [akTop, akRight]
Caption = 'Taxa:'
ExplicitLeft = 143
end
object Label41: TLabel
Left = 8
Top = 55
Width = 27
Height = 13
Caption = 'Valor:'
end
object Label24: TLabel
Left = 8
Top = 76
Width = 213
Height = 13
Caption = 'Qtd. Dias antes do Vencimento p/ Desconto:'
WordWrap = True
end
object DBLookupComboBox9: TDBLookupComboBox
Left = 8
Top = 24
Width = 168
Height = 21
DataField = 'TP_DESC_BOLETO_3'
DataSource = dtsDB
KeyField = 'ID_STATUS'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsDescBoleto
TabOrder = 0
end
object DBEdit13: TDBEdit
Left = 215
Top = 24
Width = 57
Height = 21
DataField = 'PR_DESC_BOLETO_3'
DataSource = dtsDB
TabOrder = 1
OnKeyPress = DBEdit13KeyPress
end
object DBEdit16: TDBEdit
Left = 41
Top = 51
Width = 108
Height = 21
DataField = 'VL_DESC_BOLETO_3'
DataSource = dtsDB
TabOrder = 2
OnKeyPress = DBEdit5KeyPress
end
object DBEdit19: TDBEdit
Left = 238
Top = 73
Width = 34
Height = 21
DataField = 'NR_DIAS_DESC_BOLETO_3'
DataSource = dtsDB
TabOrder = 3
OnKeyPress = DBEdit19KeyPress
end
end
object GroupBox7: TGroupBox
Left = 588
Top = 62
Width = 280
Height = 87
Caption = 'Multa:'
TabOrder = 7
DesignSize = (
280
87)
object Label45: TLabel
Left = 182
Top = 27
Width = 27
Height = 13
Anchors = [akTop, akRight]
Caption = 'Taxa:'
ExplicitLeft = 159
end
object Label46: TLabel
Left = 8
Top = 55
Width = 27
Height = 13
Caption = 'Valor:'
end
object Label18: TLabel
Left = 156
Top = 50
Width = 63
Height = 26
Caption = 'Qtd. Dias p/ Cobrar Multa:'
WordWrap = True
end
object DBLookupComboBox5: TDBLookupComboBox
Left = 8
Top = 24
Width = 168
Height = 21
DataField = 'TP_MULTA_BOLETO'
DataSource = dtsDB
KeyField = 'ID_STATUS'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsMultaBoleto
TabOrder = 0
end
object DBEdit5: TDBEdit
Left = 41
Top = 52
Width = 108
Height = 21
DataField = 'VL_MULTA_BOLETO'
DataSource = dtsDB
TabOrder = 1
OnKeyPress = DBEdit5KeyPress
end
object DBEdit6: TDBEdit
Left = 215
Top = 24
Width = 57
Height = 21
DataField = 'PR_MULTA_BOLETO'
DataSource = dtsDB
TabOrder = 2
OnKeyPress = DBEdit6KeyPress
end
object DBEdit7: TDBEdit
Left = 238
Top = 52
Width = 34
Height = 21
DataField = 'NR_DIAS_MULTA_BOLETO'
DataSource = dtsDB
TabOrder = 3
OnKeyPress = DBEdit7KeyPress
end
end
object GroupBox6: TGroupBox
Left = 588
Top = 155
Width = 280
Height = 87
Caption = 'Mora:'
TabOrder = 8
DesignSize = (
280
87)
object Label19: TLabel
Left = 182
Top = 27
Width = 27
Height = 13
Anchors = [akTop, akRight]
Caption = 'Taxa:'
ExplicitLeft = 159
end
object Label20: TLabel
Left = 8
Top = 55
Width = 27
Height = 13
Caption = 'Valor:'
end
object Label21: TLabel
Left = 156
Top = 50
Width = 61
Height = 26
Caption = 'Qtd. Dias p/ Cobrar Mora:'
WordWrap = True
end
object DBLookupComboBox6: TDBLookupComboBox
Left = 8
Top = 24
Width = 168
Height = 21
DataField = 'TP_MORA_BOLETO'
DataSource = dtsDB
KeyField = 'ID_STATUS'
ListField = 'TX_DESCRICAO'
ListSource = dtmSystem.dtsMoraBoleto
TabOrder = 0
end
object DBEdit8: TDBEdit
Left = 41
Top = 52
Width = 108
Height = 21
DataField = 'VL_MORA_BOLETO'
DataSource = dtsDB
TabOrder = 1
OnKeyPress = DBEdit5KeyPress
end
object DBEdit9: TDBEdit
Left = 215
Top = 24
Width = 57
Height = 21
DataField = 'PR_MORA_BOLETO'
DataSource = dtsDB
TabOrder = 2
OnKeyPress = DBEdit9KeyPress
end
object DBEdit10: TDBEdit
Left = 238
Top = 52
Width = 34
Height = 21
DataField = 'NR_MORA_BOLETO'
DataSource = dtsDB
TabOrder = 3
OnKeyPress = DBEdit10KeyPress
end
end
object DBEdit20: TDBEdit
Left = 16
Top = 387
Width = 157
Height = 21
DataField = 'NR_DIAS_AGENDA'
DataSource = dtsDB
TabOrder = 9
OnKeyPress = DBEdit20KeyPress
end
object DBEdit21: TDBEdit
Left = 190
Top = 387
Width = 157
Height = 21
DataField = 'NR_DIA_VENCIMENTO'
DataSource = dtsDB
TabOrder = 10
OnKeyPress = DBEdit21KeyPress
end
object DBEdit22: TDBEdit
Left = 353
Top = 387
Width = 116
Height = 21
DataField = 'VL_NOMINAL_BOLETO'
DataSource = dtsDB
TabOrder = 11
OnKeyPress = DBEdit22KeyPress
end
object DBEdit23: TDBEdit
Left = 475
Top = 387
Width = 99
Height = 21
DataField = 'TX_SUFIXO_SEU_NUMERO'
DataSource = dtsDB
TabOrder = 12
OnKeyPress = DBEdit23KeyPress
end
object GroupBox8: TGroupBox
Left = 588
Top = 359
Width = 485
Height = 135
Caption = 'Empresas dos T'#237'tulos dos Boletos'
TabOrder = 13
object DBLookupComboBox10: TDBLookupComboBox
Left = 16
Top = 24
Width = 241
Height = 21
DataField = 'ID_EMPRESA'
DataSource = dtmSystem.dtsDevEmpBoletos
KeyField = 'ID_EMPRESA'
ListField = 'TX_NOME'
ListSource = dtmSystem.dtsCHGEmpresa
TabOrder = 0
end
object DBGrid2: TDBGrid
Left = 16
Top = 51
Width = 457
Height = 70
DataSource = dtmSystem.dtsDevEmpBoletos
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_EMPRESA'
Title.Caption = 'Empresa'
Width = 415
Visible = True
end>
end
object DBNavigator1: TDBNavigator
Left = 273
Top = 24
Width = 198
Height = 21
DataSource = dtmSystem.dtsDevEmpBoletos
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 2
BeforeAction = DBNavigator1BeforeAction
end
end
end
end
end
inherited stbStatus: TStatusBar
Top = 668
Width = 1115
ExplicitTop = 668
ExplicitWidth = 1115
end
inherited grpDescricao: TGroupBox
Left = 8
Width = 1099
ExplicitLeft = 8
ExplicitWidth = 1099
inherited DBEdit1: TDBEdit
Width = 869
DataField = 'TX_NOME'
PopupMenu = PopupMenu1
ExplicitWidth = 869
end
object pnl_contatos: TPanel
Left = 968
Top = 20
Width = 121
Height = 23
BevelInner = bvLowered
TabOrder = 1
object Label15: TLabel
Left = 8
Top = 5
Width = 74
Height = 13
Caption = 'Acionamentos: '
end
object dblbl_contatos: TDBText
Left = 81
Top = 5
Width = 38
Height = 17
DataField = 'QTDE_ACIONAMENTOS'
DataSource = dtmSystem.dtsContatos
end
end
end
inherited navPrincipal: TDBNavigator
Left = 8
Width = 1098
DataSource = dtsDB
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh]
ParentShowHint = False
ExplicitLeft = 8
ExplicitWidth = 1098
end
inherited dtsDB: TDataSource
DataSet = dtmSystem.tblDevedores
OnDataChange = dtsDBDataChange
Left = 928
Top = 62
end
object dtsEnderecos: TDataSource
DataSet = dtmSystem.tblEnderecos
OnStateChange = dtsEnderecosStateChange
OnDataChange = dtsEnderecosDataChange
Left = 102
Top = 12
end
object dtsTelefones: TDataSource
DataSet = dtmSystem.tblTelefones
OnStateChange = dtsTelefonesStateChange
OnDataChange = dtsTelefonesDataChange
Left = 928
Top = 8
end
object ImageList1: TImageList
Left = 792
Bitmap = {
494C01010C0018009C0510001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000004000000001002000000000000040
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000099330000993300009933000099330000993300009933
0000993300009933000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000E80AA000E80
AA000E80AA000E80AA000E80AA00000000000000000000000000000000000A66
C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
AE000C58A6000000000000000000000000000000000000000000000000000A66
C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
AE000C58A6000000000000000000000000000000000000000000000000000000
0000000000000000000099330000FEFEFE00FEFEFE00FEFEFE008EA4FD00B8C6
FD00FEFEFE00993300000000000000000000B7818300A4787400A4787400A478
7400A4787400A4787400A4787400A4787400A4787400078DBB0061DDEE0031E2
FF0047E3FF0093F1FF003AB7DD000E80AA0000000000000000000A66C5000B76
E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
C100065CB7000C58A600000000000000000000000000000000000A66C5000B76
E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
C100065CB7000C58A60000000000000000000000000088452400884524008845
2400884524008845240099330000FEFEFE00FAFBFE007E98FC000335FB00597A
FC00FEFEFE00993300000000000000000000B7818300F6E4C800F5E1C200F4DE
BD00F3DCB800F2D9B200F2D6AD00F1D4A800F0D2A400078DBB007EF9FF0023D9
FE0037DAFF0083E8FC0030B7E0000E80AA00000000000A66C4000A76E600B2D6
FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
F30098B2CB00055DB8000C58A60000000000000000000A66C4000A76E600B2D6
FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
F30098B2CB00055DB8000C58A6000000000088452400DA592E00F1624A00F56D
5400F87B5D00F7765C0099330000D6DEFE004368FC000335FB004066FC000436
FB00D9E0FE00993300000000000000000000B4817600F7E8D000F6E5CA00F5E2
C400F5E0BF00F4DDBA00F3DBB400F1D8AF00F1D6AA00078DBB00B6F9FD00B2EF
FC00CDF3FD00D5F5FC0097DAEF000E80AA00000000000A66C50093C5F800FEFE
FF004094ED000572E8000070E7000070E800006FE7000072E800006EE800509F
F100FAFBF80076A0CB000C58A60000000000000000000A66C50093C5F800FEFE
FF004197EE000066E6002285EB0055A1F0004F9EEF000C79E9000066E700509F
F100FAFBF80076A0CB000C58A6000000000088452400E45C3500F9785A00FD8B
6900C85B2A00F1B09F00993300005274FC001442FB00BCC9FD00EFF2FE001A47
FB004F72FC00973304000000000000000000B4817600F8ECD700F8E9D2000066
00000066000000660000F4DEBC000066000000660000078DBB007CCCE0002FAC
D000219CC40046ABCC0064B3D2000E80AA001F84E6002283E600FAFCFF0075B3
F3000474E800EFF6FE009FCBF6000073E800107CE900CFE5FB00CFE5FB00006E
E7007EB9F500F2EFED00156AC0000C58A6001F84E6002283E600FAFCFF0075B3
F3000068E700509FEF00EDF5FD00CFE5FB00E2EFFD00D8EAFC002888EC00006E
E7007EB9F500F2EFED00156AC0000C58A60088452400F26E4900FE8C6A00FA84
5F00C85B2A00FFF4F30099330000E4EAFE00D9E0FE00FEFEFE00FEFEFE0098AC
FD000335FB00643459000000000000000000BA8E8500FAF0DE00F9EDDA001693
2C0032D9650000660000F5E2C20016932C0032D96500078DBB0055D0E3002ED6
F60045DFFE0084E4F6002CA9D1000E80AA001F84E60079B8F500EEF6FD00288D
ED000D7FEB00D2E7FB00FFFFFF009FCBF600CFE5FB00FFFFFF009FCBF600006F
E7001F84EB00EAF2F900629EDC000C58A6001F84E60079B8F500EEF6FD00288D
ED001F88ED00E4F1FD006BB0F200006BE7000272E800B2D5F800B7D8F900006F
E7001F84EB00EAF2F900629EDC000C58A60000000000C54B2700FF886100C85B
2A00EEB5A300FCFDFD0099330000FEFEFE00FEFEFE00FEFEFE00FEFEFE00FEFE
FE005677FC000335FB000000000000000000BA8E8500FAF3E600FAF0E0001693
2C0016932C0016932C00F6E5CB0016932C0016932C00078DBB007EF7FE0028D9
FE003ED9FF0088E7FC0035B8DF000E80AA001F84E6009ACBF800D5EAFC00218F
EF001487EE002790EF00D4E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
E8000877E900D1E5FA008ABBEC000C58A6001F84E6009ACBF800D5EAFC00218F
EF004AA2F200F2F8FE001684EC00FFFFFF000071E8002B8AEB0093C4F5000070
E8000877E900D1E5FA008ABBEC000C58A6000000000000000000A8695C009D90
9000759EAE00729BA50099330000993300009933000099330000993300009933
00008F3311002235C8000335FB0000000000CB9A8200FBF6EC00FBF4E700FAF1
E200007F0000F8ECD800F8E9D300F7E6CC00007F0000088CB90099FDFF006DFB
FF0081FFFF00AAFDFF0050D1F3000E80AA001F84E600A0D1F900D7ECFD002E9A
F2002293F1003199F100D5E9FC00FFFFFF00FFFFFF009FCBF6000073E8000070
E8000877E900D2E6FB008FC3F7000C58A6001F84E600A0D1F900D7ECFD002E9A
F20042A3F300E9F4FE0053A6F200FFFFFF00FFFFFF002C8BEC00006CE7000070
E8000877E900D2E6FB008FC3F7000C58A60000000000000000001E87E4000C7E
D800147AD0000C72CF001888AF00000000000000000000000000000000000000
000000000000000000000335FB000335FB00CB9A8200FDF9F200FDF7EE00FBF5
EA00007F0000007F0000007F0000007F0000007F0000078DBB00D0F0F700FEFF
FF00D9FFFF00CCFFFF009FFAFC000E80AA001F84E60090CBFA00F0F7FE004BAD
F50034A1F400D8ECFD00FFFFFF00ABD4F900D4E9FC00FFFFFF009FCBF600006D
E7002084EB00EDF5FE006DB2F7000C58A6001F84E60090CBFA00F0F7FE004BAD
F500279AF3009FD2FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF0074B3F200006D
E7002084EB00EDF5FE006DB2F7000C58A60000000000075177003296FD003699
FC003699FC003394F9002985F3001888AF000000000000000000000000000000
00000000000000000000000000000335FB00DCA88700FDFCF800FEFAF400FDF7
F000FCF5EB00FBF3E600007F0000FAEDDB00F9ECD600F8E8D100078DBB00078D
BB00078DBB00078DBB00078DBB00000000001F84E6004FAEF600FCFEFF0097D2
FB0041ABF700F3FAFF00B2DAFA002694F1002992EF00D3E8FC00CFE5FB00006A
E70080BAF300FAFDFF001B81E9000C58A6001F84E6004FAEF600FCFEFF0097D2
FB0035A6F60036A3F5008ECAF900FFFFFF00FFFFFF00B3D7F8002B8BEC00006A
E70080BAF300FAFDFF001B81E9000C58A600005A87001A6EAC0041A9FF0042AA
FE0041A7FB003DA4FB00379CFB002E8AF0001888AF0000000000000000000000
000000000000000000000000000000000000DCA88700FFFEFC00FEFCF900FDFA
F600FCF9F2000A14B1000618BB000B0EA700FAEEDD00F8ECD800F7EAD400F7E7
CE00986B6600000000000000000000000000000000001F84E600B7E4FD00FEFE
FF0075C6FA0042AEF70032A0F4002897F200188AEE001182ED000876E9004F9C
EF00FDFEFF008CC1F7000A66C50000000000000000001F84E600B7E4FD00FEFE
FF0079C8FA0036A8F70031A0F400FFFFFF0060AFF300037BEB00006BE7004F9C
EF00FDFEFF008CC1F7000A66C50000000000005580000751770041A6EF0040A4
EC0049B1FC0046ADFB003FA6FC00359AF9001888AF0000000000000000000000
000000000000000000000000000000000000E3B18E00FFFFFF00FEFEFD00FEFC
FB00FEFBF7000B3EFF002867FF000C1DBF00FBF3E500FAF0E000F9EDDA00F8EA
D500986B6600000000000000000000000000000000001F84E6005BC0FD00D2F1
FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
FF00B2D6FA000976E6000A66C50000000000000000001F84E6005BC0FD00D2F1
FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
FF00B2D6FA000976E6000A66C5000000000007689900106A9B00075177000751
77004FB9FF004AB1FC0044ABFC0039A0F8001888AF0000000000000000000000
000000000000000000000000000000000000E3B18E00FFFFFF00FFFFFF00FEFF
FE00FEFDFB00243AC9000B3EFF000D17B000FCF6EC00FBF4E700FAF0E200F9EE
DD00986B660000000000000000000000000000000000000000001F84E60060C4
FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
F7000B76E6000A66C500000000000000000000000000000000001F84E60060C4
FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
F7000B76E6000A66C50000000000000000002484B0006DADCB00065D87003291
CC0053BEFF0051BAFF004DB4FF001888AF000000000000000000000000000000
000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFDFC00FEFCF900FDFAF600FDF9F200FCF6EE00FBF4E800FAF1
E400986B66000000000000000000000000000000000000000000000000001F84
E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
C5000A66C5000000000000000000000000000000000000000000000000001F84
E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
C5000A66C500000000000000000000000000000000002583B0006DADCB00277D
A8000A5882000A588200005684001888AF000000000000000000000000000000
000000000000000000000000000000000000EDBD9200FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFEFD00FFFDFB00FEFBF700FDF9F400FCF7EF00FCF5
EB00986B66000000000000000000000000000000000000000000000000000000
0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
00000000000000000000000000000000000000000000000000003990B9002983
AC00116B96000056840000000000000000000000000000000000000000000000
000000000000000000000000000000000000EDBD9200DAA48200DAA48200DAA4
8200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA48200DAA4
8200986B66000000000000000000000000000000000000000000000000000000
0000000000000000990000009900000099000000990000009900000099000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000990000009900000099000000990000009900000099000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000990000009900000099000000990000009900000099000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000C58A6000C58A6000C58A6000C58A6000C58A6000C58A6000000
0000000000000000000000000000000000000000000000000000000000000019
BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
9500000095000000000000000000000000000000000000000000000000000019
BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
9500000095000000000000000000000000000000000000000000000000000019
BD000019BD001D40BF00667EC5008192C3007D8EBD005B72B10017349B000000
9500000095000000000000000000000000000000000000000000000000000A66
C5000A66C5001978DA00609DDA007DA8D40079A3CD00578CC4001362B3000054
AE000C58A60000000000000000000000000000000000000000000019BD000C34
D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
B3000927990000009500000000000000000000000000000000000019BD000C34
D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
B3000927990000009500000000000000000000000000000000000019BD000C34
D00094A9EB00F9F9F700E4E7F400C9D1F000C6CFED00DCDFEB00E5E5DE007484
B3000927990000009500000000000000000000000000000000000A66C5000B76
E60090C2F400F8F7F800E2ECF400C7DDF400C5DBF200DAE3EC00E6E2DF007098
C100065CB7000C58A6000000000000000000000000000019BD000D34D800B4C3
F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
F5009AA5C300092799000000950000000000000000000019BD000D34D800B4C3
F500FFFFFF007891EF002249E100002DD900002ED400244AD7007E94E500FBF9
F5009AA5C300092799000000950000000000000000000A66C4000A76E600B2D6
FA00FFFFFF0073B2F3002183EB000677E9000677EA002183EB0077B4F300FAF7
F30098B2CB00055DB8000C58A60000000000000000000019BD0095ACF900FEFE
FF004367F0000025E6000535E600496AE900496AE6000734D9000023CE005674
DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
FF004367F0000027E600002DE5000130E2000130DE00002CD8000025CF005674
DE00FAFBF900798BBD000000950000000000000000000019BD0095ACF900FEFE
FF003259EE000333E900224DEA00627FEC00133FE0000432D9000532D2003558
D600FAFBF900798BBD000000950000000000000000000A66C50093C5F800FEFE
FF004196EE00006AE700006BE7004E9EEF002B8BEC00006CE700006AE700509F
F100FAFBF80076A0CB000C58A600000000000032FE00234CEC00FAFBFF007792
F9000025F4000028F3001D49F300FFFFFF00F7F9FF001E49E6000027D9000024
CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
F9000025F4000031F5000030F1000030EE000030E8000030E2000130DA000023
CE00859AE700F2F2ED001939A700000095000032FE00234CEC00FAFBFF007792
F9000133F5004166F6000233F100D0D9FD00EFF2FD00234CE5000432DB000532
D300859AE700F2F2ED001939A700000095001F84E6002283E600FAFCFF0075B3
F300006CE700006EE7006AAEF100FDFEFF0098C7F6000069E6000074E800006E
E7007EB9F500F2EFED00156AC0000C58A6000032FE007694FF00ECF0FF001E4B
FE000B37FE00224BFE003B62FC00FFFFFF00FFFFFF003D62EE001E46E6000631
DA00244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
FE000533FE000A3AFE000738FB000738F8000838F1000838EB000A38E300032F
D900244BD700EBEEF8006780C700000095000032FE007694FF00ECF0FF001E4B
FE004368FE00DFE6FF000133FC005073FA00FFFFFF008199F4000333E3000432
DB00244BD700EBEEF8006780C700000095001F84E60079B8F500EEF6FD00288D
ED000B7BEA0079B7F400FFFFFF00FFFFFF00D8E9FB00127DEA000070E800006F
E7001F84EB00EAF2F900629EDC000C58A6000032FE0092A8FF00D4DDFF001040
FE005679FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003258
E6000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
FE0089A2FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008199
EE000331D800D2D9F7008FA2DC00000095000032FE0092A8FF00D4DDFF001040
FE005376FE00FFFFFF00A3B5FF00D0D9FF00FFFFFF005173F6000233EA000333
E1000331D800D2D9F7008FA2DC00000095001F84E6009ACBF800D5EAFC00218F
EF006AB3F400FFFFFF00D7EAFC0051A2F000EFF6FD004B9CEF00006DE7000070
E8000877E900D1E5FA008ABBEC000C58A6000032FE0099AFFF00D8E0FF002955
FD006A89FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003159
EA000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
FD00B7C6FE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A5B6
F5000231DC00D2DAF90094A9E600000095000032FE0099AFFF00D8E0FF002955
FD00325CFD00DAE1FF00FFFFFF00FFFFFF00FFFFFF00CFD9FD001240F1000333
E7000231DC00D2DAF90094A9E600000095001F84E600A0D1F900D7ECFD002E9A
F2003FA1F30097CCF8003598F000007AEB007CB9F500B1D4F8000070E7000070
E8000877E900D2E6FB008FC3F7000C58A6000032FE008CA4FF00F1F4FF005A7C
FD004B70FC005A7BFD006685FD00FFFFFF00FFFFFF003C63FE001D47F5000632
EA00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
FD005F80FC00728EFD006585FD00587AFE00496DFE003A61FF003B62F7002349
EC00224CE500EEF1FD00738EE300000095000032FE008CA4FF00F1F4FF005A7C
FD004A6FFC00466CFC006D8BFD006080FE00C7D2FF00FFFFFF00A0B3FA000233
EB00224CE500EEF1FD00738EE300000095001F84E60090CBFA00F0F7FE004BAD
F5002C9CF4002296F2002493F1001A8CEE001584ED00BADAF9002587EB00006D
E7002084EB00EDF5FE006DB2F7000C58A6000032FE004B71FD00FCFCFF00AABC
FD00587AFB005075FB005D7EFD00FFFFFF00FFFFFF00224EFF000029F9000025
ED00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
FD005478FB005377FB004269FC002D58FD001645FE000033FF00002AF9000021
EB00839BF300FBFCFE001E45D000000095000032FE004B71FD00FCFCFF00AABC
FD006283FB005B7DFB004B70FC003760FD00305AFE00F0F3FF00FFFFFF004166
F200839BF300FBFCFE001E45D000000095001F84E6004FAEF600FCFEFF0097D2
FB0036A7F6003BA6F500309CF2002694F0001386ED003695EE0072B2F200006A
E70080BAF300FAFDFF001B81E9000C58A600000000000032FE00BBC9FD00FFFF
FF009BB0FB006384FA00587BFB007491FE006182FE001040FF000024FB005073
F500FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
FF009BB0FB006585FA005175FB003C64FD002450FD000739FF000025FB005073
F400FCFDFF0090A6F0000019BD0000000000000000000032FE00BBC9FD00FFFF
FF0091A9FB006D8CFA00577AFB003F67FC002853FD003E65FE00708CFD003159
F400FCFDFF0090A6F0000019BD0000000000000000001F84E600B7E4FD00FEFE
FF0079C8FA0038A9F70032A0F3002998F2001C8CEF00087DEB001E85EB004F9C
EF00FDFEFF008CC1F7000A66C50000000000000000000032FE005B7EFB00D6DE
FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
FF00B3C3F8000D34D7000019BD0000000000000000000032FE005B7EFB00D6DE
FE00FFFFFF00B3C3FC006B8AFC003B64FC00224FFD002A55FF007994FE00FFFF
FF00B3C3F8000D34D7000019BD0000000000000000001F84E6005BC0FD00D2F1
FF00FFFFFF0099D4FB0050B0F700339EF3002593EF002C91EE0079B6F400FFFF
FF00B2D6FA000976E6000A66C5000000000000000000000000000032FE006283
FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
FA000C34DF000019BD00000000000000000000000000000000000032FE006283
FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
FA000C34DF000019BD00000000000000000000000000000000000032FE006283
FB00C3CFFD00FFFFFF00F1F4FF00DCE3FF00D7DFFF00ECF0FF00FFFFFF008CA4
FA000C34DF000019BD00000000000000000000000000000000001F84E60060C4
FE00BAE6FF00FFFFFF00EEF8FE00D8EDFC00D6EBFC00ECF5FD00FFFFFF008AC0
F7000B76E6000A66C50000000000000000000000000000000000000000000032
FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
BD000019BD000000000000000000000000000000000000000000000000000032
FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
BD000019BD000000000000000000000000000000000000000000000000000032
FE000032FE005C7EFC0094AAFD00A5B7FF009CB1FF006F8EFF001B46F5000019
BD000019BD000000000000000000000000000000000000000000000000001F84
E6001F84E60054B4F8008FCDFB00A4D4FA009ECEF80077B8F5001F84E7000A66
C5000A66C5000000000000000000000000000000000000000000000000000000
0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000032FE000032FE000032FE000032FE00001EE600001ED5000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000001F84E6001F84E6001F84E6001F84E6001F84E6001F84E6000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000006533330065333300653333006533330065333300653333000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000015B0600015B0600015B0600015B0600015B0600015B06000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000006533330065333300653333006533330065333300653333000000
000000000000000000000000000000000000000000000000000000000000934A
1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
330065333300000000000000000000000000000000000000000000000000016F
0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
0600015B0600000000000000000000000000000000000000000000000000016F
0900016F09001FAB2C0066C2700082C288007EBB84005CAD6400178E2300015B
0600015B0600000000000000000000000000000000000000000000000000934A
1C00934A1C00CC731C00CE995D00CDA67B00C6A07600BA8A54009B5716006533
3300653333000000000000000000000000000000000000000000934A1C00C466
0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
6D009A4F07006533330000000000000000000000000000000000016F090010AD
1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
79000A871500015B060000000000000000000000000000000000016F090010AD
1E0095E19C00F8F8F900E4F1E500C9E9CC00C7E8CA00DCE9DD00E6E1E50074B1
79000A871500015B060000000000000000000000000000000000934A1C00C466
0C00ECBF9000FFFFFF00F3EBE200EEDBC700ECD9C500EAE3DA00E1E4E500BA96
6D009A4F070065333300000000000000000000000000934A1C00C6660B00F2D2
B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
FA00C7B098009B5007006533330000000000000000000F83190010AD1E00B5EA
BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
F9009BC19F000A891600015B060000000000000000000F83190010AD1E00B5EA
BB00FFFFFF007BD6830026BC34000FB41F000AB31A0022BB30007FD78700FAF4
F9009BC19F000A891600015B06000000000000000000934A1C00C6660B00F2D2
B200FFFFFF00E3AC7600D1782300CD6A0600CD6A0600D2792400E3AF7A00F4F7
FA00C7B098009B500700653333000000000000000000934A1C00EDC19200FFFE
FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
4F00F8FBFA00C39E730089400A0000000000000000000F83190098E49F00FEFE
FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
6300FAF9FB007ABA8000015B060000000000000000000F83190098E49F00FEFE
FE004AC7580000AE0E0002B0140000AF0E0022BA300033BF400000AD080057CC
6300FAF9FB007ABA8000015B06000000000000000000934A1C00EDC19200FFFE
FE00D98E4100C6580000CA620000CA630000CA640000C9610000C7580000DB95
4F00F8FBFA00C39E730089400A0000000000BC5F0700CD7B2C00FFFCF900E7B2
7D00D7832F00EABE9200D1721300CD6B0700CA610000CC680300D78A3B00C961
0000E5B38000EFF1F100A65E18006533330025AE39002DBB3E00FAFEFA0082D9
910006B2230013B62D0005B31F0038C14A00FFFFFF0089DA910001AF120000AD
0A0086DA8E00F2EFF2001A9A2600015B060025AE39002DBB3E00FAFEFA0082D9
910006B223000CB328008DDC9A00FFFFFF001FB92F0000AF0F0009B2190000AD
0A0086DA8E00F2EFF2001A9A2600015B0600BC5F0700CD7B2C00FFFCF900E7B2
7D00DE985100D8863300D1721200CE6D0A00CC670200CC670200E5B38000D37F
2800E5B38000EFF1F100A65E180065333300BC5F0700EBB78400FCF7F000DD8B
3800E5AA6D00FFFFFF00D8812700D4741400DC934B00F3DDC700F5E1CD00CA65
0000D1771D00F8F1EA00D19A5F006533330025AE390082DE9400EEF9F20037C3
580017B93E0013B83A0068D17E00FFFFFF00FFFFFF0081D88A0001AF110001AF
110029BD3700EBF7EC0068C37100015B060025AE390082DE9400EEF9F20037C3
580017B93E0016B93C0089DB9C00FFFFFF00FFFFFF004AC7570000AE0C0001AF
110029BD3700EBF7EC0068C37100015B0600BC5F0700EBB78400FCF7F000DD8B
3800EDC29700FFFFFF00EDC69E00D7812A00D0711000CF6D0B00FFFFFF00DC98
5300D1771D00F8F1EA00D19A5F0065333300BC5F0700F0CBA400FAEBDC00E08D
3B00EBB47C00FFFFFF00E1984D00F0CBA700FFFEFD00FFFFFF00F4DDC700CC67
0300CC690400F5E3D100E3B887006533330025AE39009EE5B100D7F3DF0029C0
570025BF56008FDEA700FFFFFF00FFFFFF00FFFFFF0085D9920005B1190006B1
150010B42000D2F1D5008FD79600015B060025AE39009EE5B100D7F3DF0029C0
570025BF56001FBD50008EDDA500FFFFFF00FFFFFF00F9FDF9006ED1780006B1
150010B42000D2F1D5008FD79600015B0600BC5F0700F0CBA400FAEBDC00E08D
3B00F1C9A100FFFFFF00FFFFFF00FDF7F100E7B47F00D4761800FFFFFF00DC98
5300CC690400F5E3D100E3B8870065333300BC5F0700F3D0AC00FBEDDF00E79C
5000F0BE8C00FFFFFF00ECB67D00FBEDE000FFFFFF00FFFFFF00F4DDC700CC67
0300CC690400F6E4D200EEC08C006533330025AE3900A2E6B800D9F4E30037C5
6C0035C56C00A5E5BE00FFFFFF00FFFFFF00FFFFFF0088DA99000BB4260007B1
1A0010B41F00D3F2D70095E19C00015B060025AE3900A2E6B800D9F4E30037C5
6C0035C56C002EC3660093E0AF00FFFFFF00FFFFFF00FFFFFF0078D5870007B1
1A0010B41F00D3F2D70095E19C00015B0600BC5F0700F3D0AC00FBEDDF00E79C
5000F4D1AC00FFFFFF00FFFFFF00FFFFFF00F6E1CB00D87F2500FFFFFF00DC98
5300CC690400F6E4D200EEC08C0065333300BC5F0700F3CBA100FEF9F400F0B2
7300F5C79900FFFFFF00E9A15700E69D5300F0C9A000FFFEFE00F5E4D200CB66
0000D1771D00FBF4ED00EAAC6A006533330025AE39008FE1B000F1FCF50069D7
900055D181004ACE780093E1AF00FFFFFF00FFFFFF008ADC9E0010B6310006B2
1D0028BC3700EEFAEF0074DB7E00015B060025AE39008FE1B000F1FCF50069D7
900055D181004ECF7C00A1E5BA00FFFFFF00FFFFFF0065D181000EB52E0006B2
1D0028BC3700EEFAEF0074DB7E00015B0600BC5F0700F3CBA100FEF9F400F0B2
7300F8D8B700FFFFFF00FDF4EB00ECB37900DF8D3A00DB852E00FFFFFF00DC98
5300D1771D00FBF4ED00EAAC6A0065333300BC5F0700E7A46000FFFEFD00F9D9
B500F9CA9900FDF0E200EFAE6D00E79D5200E08C3700E0995000E8B78700CA63
0000E5B27F00FFFDFA00CD731B006533330025AE390057CF8100FCFFFD00B7ED
C8007AE1980079DF970058D4820071D89600FFFFFF0095DFA90014B83A0003B1
1D0087D99000FAFFFB0021B73000015B060025AE390057CF8100FCFFFD00B7ED
C8007AE1980073DD9300B7EDC900FFFFFF0053CD80001ABB49001BBA3E0003B1
1D0087D99000FAFFFB0021B73000015B0600BC5F0700E7A46000FFFEFD00F9D9
B500FBD7B300FADDBE00EFAD6A00E8A05600E1924100DB852E00F4DDC500D991
4700E5B27F00FFFDFA00CD731B006533330000000000BC5F0700FBE1C500FFFF
FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
5400FEFDFC00ECBD8B00934A1C00000000000000000025AE3900C9F4D800FFFF
FF00BAF3C60093EBA70076DF96004ED07B005BD087005ACE7E000DB636005ECE
7200FDFEFD0091E29900016F0900000000000000000025AE3900C9F4D800FFFF
FF00BAF3C60092EAA70097E7AF0066D68E002DC3660021BE53000FB637005ECE
7200FDFEFD0091E29900016F09000000000000000000BC5F0700FBE1C500FFFF
FF00FDD6AD00F7BC7E00F0AE6900E9A15700E2924000D87F2300CE660000DD99
5400FEFDFC00ECBD8B00934A1C000000000000000000BC5F0700ECAA6600FCEB
D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
FF00F2D2B100C2650C00934A1C00000000000000000025AE390081E09900E7FC
EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
FF00B6EABA000FAC1D00016F0900000000000000000025AE390081E09900E7FC
EC00FFFFFF00D0F8D80092E7AA0063D68A0039C76F003EC66B008ADC9F00FFFF
FF00B6EABA000FAC1D00016F09000000000000000000BC5F0700ECAA6600FCEB
D800FFFFFF00FADAB800F1B77B00E8A15900E2934400DE914400E8B78500FFFF
FF00F2D2B100C2650C00934A1C00000000000000000000000000BC5F0700ECA9
6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
8900C3650B00934A1C000000000000000000000000000000000025AE390094E8
A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
A10011AF2200016F09000000000000000000000000000000000025AE390094E8
A500DFFDE600FFFFFF00F5FDF700E2F8E900DBF5E500EDFAF200FFFFFF0094E2
A10011AF2200016F090000000000000000000000000000000000BC5F0700ECA9
6600FBE1C400FFFFFF00FEF8F200FBEDDF00FAEADC00FCF5EE00FFFFFF00EBBC
8900C3650B00934A1C000000000000000000000000000000000000000000BC5F
0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
1C00934A1C0000000000000000000000000000000000000000000000000025AE
390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
0900016F090000000000000000000000000000000000000000000000000025AE
390025AE390087E2A000ABECC400B0EBC800A7E7C00084DEA00032BF5100016F
0900016F0900000000000000000000000000000000000000000000000000BC5F
0700BC5F0700E6A36000F3C89B00F3D0AC00F0CBA500EBB47C00CE782300934A
1C00934A1C000000000000000000000000000000000000000000000000000000
000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000025AE390025AE390025AE390025AE390025AE39000C921D000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000BC5F0700BC5F0700BC5F0700BC5F0700AF570B00994C17000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000400000000100010000000000000200000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000F81FF81FFC03FFC1E007E007FC030000
C003C00380030000800180010003000080018001000300000000000000030000
000000008003000000000000C001000000000000C1FC00000000000080FE0001
00000000007F000780018001007F000780018001007F0007C003C00300FF0007
E007E00780FF0007F81FF81FC3FF0007F81FF81FF81FF81FE007E007E007E007
C003C003C003C003800180018001800180018001800180010000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000080018001800180018001800180018001C003C003C003C003
E007E007E007E007F81FF81FF81FF81FF81FF81FF81FF81FE007E007E007E007
C003C003C003C003800180018001800180018001800180010000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000080018001800180018001800180018001C003C003C003C003
E007E007E007E007F81FF81FF81FF81F00000000000000000000000000000000
000000000000}
end
object dtsTitulos: TDataSource
DataSet = dtmSystem.tblTitulos
OnStateChange = dtsTitulosStateChange
OnDataChange = dtsTitulosDataChange
Left = 989
Top = 10
end
object dtsCidades: TDataSource
DataSet = dtmSystem.tblCidades
OnDataChange = dtsCidadesDataChange
Left = 101
Top = 63
end
object dtsUF: TDataSource
DataSet = dtmSystem.tblEstados
OnDataChange = dtsUFDataChange
Left = 989
Top = 58
end
object MainMenu1: TMainMenu
Left = 566
Top = 66
object Cadastro1: TMenuItem
Caption = 'Cadastro'
object Importao1: TMenuItem
Caption = 'Importa'#231#227'o'
OnClick = Importao1Click
end
object mnuFichatitulos: TMenuItem
Caption = 'Ficha de constata'#231#227'o de t'#237'tulos'
OnClick = mnuFichatitulosClick
end
object mnu_fichahist: TMenuItem
Caption = 'Ficha de Hist'#243'rico'
OnClick = mnu_fichahistClick
end
end
end
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
Left = 946
Top = 418
object Copiar1: TMenuItem
Caption = 'Copiar'
OnClick = Copiar1Click
end
object copiar_conteudo: TMenuItem
Visible = False
OnClick = copiar_conteudoClick
end
object cp_telddd: TMenuItem
Caption = 'Copiar Telefone com DDD'
Visible = False
OnClick = cp_teldddClick
end
object cp_tel: TMenuItem
Caption = 'Copiar Telefone sem DDD'
Visible = False
OnClick = cp_telClick
end
end
object dtsHistorico: TDataSource
DataSet = dtmSystem.tblHistorico
OnStateChange = dtsHistoricoStateChange
Left = 1062
Top = 10
end
object dtsqryConsulta: TDataSource
DataSet = qryConsulta
Left = 720
Top = 64
end
object qryConsulta: TZQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 736
Top = 8
end
object dtsListaTitulos: TDataSource
DataSet = queryListaTitulos
Left = 264
Top = 8
end
object queryListaTitulos: TZQuery
Connection = dtmSystem.ZConnection
OnCalcFields = queryListaTitulosCalcFields
SQL.Strings = (
'select first 0 * from chg_titulos;')
Params = <>
Left = 642
Top = 7
object queryListaTitulosID_TITULO: TIntegerField
FieldName = 'ID_TITULO'
Required = True
end
object queryListaTitulosID_DEVEDOR: TIntegerField
FieldName = 'ID_DEVEDOR'
Required = True
end
object queryListaTitulosID_EMPRESA: TIntegerField
FieldName = 'ID_EMPRESA'
Required = True
end
object queryListaTitulosTX_PRODUTO: TWideStringField
FieldName = 'TX_PRODUTO'
Size = 100
end
object queryListaTitulosVL_TITULO: TCurrencyField
FieldName = 'VL_TITULO'
end
object queryListaTitulosDT_ENTRADA: TDateTimeField
FieldName = 'DT_ENTRADA'
end
object queryListaTitulosDT_VENCIMENTO: TDateTimeField
FieldName = 'DT_VENCIMENTO'
end
object queryListaTitulosDT_ATRASO: TIntegerField
FieldKind = fkCalculated
FieldName = 'DT_ATRASO'
Calculated = True
end
object queryListaTitulosTP_SITUACAO: TWideStringField
FieldName = 'TP_SITUACAO'
Size = 2
end
object queryListaTitulosCD_DEVEDOR: TWideStringField
FieldName = 'CD_DEVEDOR'
Size = 100
end
object queryListaTitulosNOME_EMPRESA: TStringField
FieldKind = fkLookup
FieldName = 'NOME_EMPRESA'
LookupDataSet = dtmSystem.tblCHGEmpresa
LookupKeyFields = 'ID_EMPRESA'
LookupResultField = 'TX_FANTASIA'
KeyFields = 'ID_EMPRESA'
Size = 40
Lookup = True
end
object queryListaTitulosVL_ENTRADA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_ENTRADA'
Calculated = True
end
object queryListaTitulosTP_JUROS: TStringField
FieldKind = fkCalculated
FieldName = 'TP_JUROS'
Size = 1
Calculated = True
end
object queryListaTitulosPR_JUROS: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_JUROS'
Calculated = True
end
object queryListaTitulosNR_JUROS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'NR_JUROS'
Calculated = True
end
object queryListaTitulosVL_JUROS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_JUROS'
Calculated = True
end
object queryListaTitulosPR_MULTA: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_MULTA'
Calculated = True
end
object queryListaTitulosVL_MULTA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_MULTA'
Calculated = True
end
object queryListaTitulosVL_ENCARGOS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_ENCARGOS'
Calculated = True
end
object queryListaTitulosVL_CORRIGIDO: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_CORRIGIDO'
Calculated = True
end
object queryListaTitulosPR_INDICADOR: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_INDICADOR'
Calculated = True
end
object queryListaTitulosVL_INDICADOR: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_INDICADOR'
Calculated = True
end
object queryListaTitulosPR_QUITACAO_INDICADOR: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_QUITACAO_INDICADOR'
Calculated = True
end
object queryListaTitulosVL_DESC_QUIT_IND: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_QUIT_IND'
Calculated = True
end
object queryListaTitulosPR_QUITACAO_PRINCIPAL: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_QUITACAO_PRINCIPAL'
Calculated = True
end
object queryListaTitulosVL_DESC_QUIT_PRIN: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_QUIT_PRIN'
Calculated = True
end
object queryListaTitulosPR_QUITACAO_MULTA: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_QUITACAO_MULTA'
Calculated = True
end
object queryListaTitulosVL_DESC_QUIT_MULTA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_QUIT_MULTA'
Calculated = True
end
object queryListaTitulosPR_QUITACAO_JUROS: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_QUITACAO_JUROS'
Calculated = True
end
object queryListaTitulosVL_DESC_QUIT_JUROS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_QUIT_JUROS'
Calculated = True
end
object queryListaTitulosPR_PARCELA_INDICADOR: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_PARCELA_INDICADOR'
Calculated = True
end
object queryListaTitulosVL_DESC_PAR_IND: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_PAR_IND'
Calculated = True
end
object queryListaTitulosPR_PARCELA_PRINCIPAL: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_PARCELA_PRINCIPAL'
Calculated = True
end
object queryListaTitulosVL_DESC_PAR_PRIN: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_PAR_PRIN'
Calculated = True
end
object queryListaTitulosPR_PARCELA_MULTA: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_PARCELA_MULTA'
Calculated = True
end
object queryListaTitulosVL_DESC_PAR_MULTA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_PAR_MULTA'
Calculated = True
end
object queryListaTitulosPR_PARCELA_JUROS: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_PARCELA_JUROS'
Calculated = True
end
object queryListaTitulosVL_DESC_PAR_JUROS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_PAR_JUROS'
Calculated = True
end
object queryListaTitulosNR_PARCELAS: TIntegerField
FieldKind = fkCalculated
FieldName = 'NR_PARCELAS'
Calculated = True
end
object queryListaTitulosVL_DESPESA: TCurrencyField
FieldName = 'VL_DESPESA'
end
object queryListaTitulosTP_DESPESA: TWideStringField
FieldName = 'TP_DESPESA'
Size = 1
end
object queryListaTitulosVL_INDICES: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_INDICES'
Calculated = True
end
object queryListaTitulosVL_PARCELA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_PARCELA'
Calculated = True
end
object queryListaTitulosPR_JUROS_CHEQUE: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_JUROS_CHEQUE'
Calculated = True
end
object queryListaTitulosVL_EXTRAS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_EXTRAS'
Calculated = True
end
object queryListaTitulosPR_QUITACAO_COR: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_QUITACAO_COR'
Calculated = True
end
object queryListaTitulosPR_PARCELA_COR: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_PARCELA_COR'
Calculated = True
end
object queryListaTitulosPR_ENTRADA_MIN: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_ENTRADA_MIN'
Calculated = True
end
object queryListaTitulosPR_ENTRADA_MAX: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_ENTRADA_MAX'
Calculated = True
end
object queryListaTitulosPR_ENTRADA: TFloatField
FieldKind = fkCalculated
FieldName = 'PR_ENTRADA'
Calculated = True
end
object queryListaTitulosVL_PRINCIPAL: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_PRINCIPAL'
Calculated = True
end
object queryListaTitulosVL_DESC_IND: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_IND'
Calculated = True
end
object queryListaTitulosVL_DESC_PRIN: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_PRIN'
Calculated = True
end
object queryListaTitulosVL_DESC_MULTA: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_MULTA'
Calculated = True
end
object queryListaTitulosVL_DESC_JUROS: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_DESC_JUROS'
Calculated = True
end
end
object dtsCobrador: TDataSource
DataSet = queryCobradores
OnDataChange = dtsCobradorDataChange
Left = 342
Top = 56
end
object queryCobradores: TZQuery
Connection = dtmSystem.ZConnection
SQL.Strings = (
'select * from sys_usuarios')
Params = <>
Left = 262
Top = 56
object queryCobradoresID_USUARIO: TIntegerField
FieldName = 'ID_USUARIO'
Required = True
end
object queryCobradoresTX_NOME: TWideStringField
FieldName = 'TX_NOME'
Size = 60
end
end
object dtsProvidencias: TDataSource
DataSet = dtmSystem.tblProvidencias
Left = 31
Top = 15
end
object queryHelper: TZQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 568
Top = 8
end
object dtsHelper: TDataSource
DataSet = queryHelper
Left = 496
Top = 56
end
object dtsHistAgenda: TDataSource
DataSet = ROqryHistAgenda
Left = 416
Top = 56
end
object ROqryHistAgenda: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 416
Top = 8
end
object dtsCHGEmpresa: TDataSource
DataSet = dtmSystem.tblCHGEmpresa
Left = 851
Top = 64
end
object dtsIndicadorFinanceiro: TDataSource
DataSet = dtmSystem.tblIndicadorFinanceiro
Left = 187
Top = 56
end
object dtsEmpresa: TDataSource
DataSet = dtmSystem.tblEmpresa
Left = 779
Top = 64
end
object popmnu_incluir: TPopupMenu
Left = 498
Top = 5
object mnu_incluir: TMenuItem
Caption = 'Incluir Todos'
OnClick = mnu_incluirClick
end
object mnuretirar: TMenuItem
Caption = 'Retirar todos'
OnClick = mnuretirarClick
end
end
object dtsEmail: TDataSource
DataSet = dtmSystem.tblEmail
OnStateChange = dtsEmailStateChange
Left = 1064
Top = 58
end
object qryCampanha: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 336
Top = 8
end
object ACBrCEP1: TACBrCEP
ProxyPort = '8080'
PesquisarIBGE = True
Left = 864
Top = 8
end
object zroqryProvAgend: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
Params = <>
Left = 456
Top = 106
end
object ppmnuQuebraAcordo: TPopupMenu
Left = 944
Top = 294
object mnuQuebraAcordo: TMenuItem
Caption = 'Quebrar Acordo'
OnClick = mnuQuebraAcordoClick
end
end
object ZReadOnlyQuery1: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
SQL.Strings = (
'SELECT FIRST 0 * FROM SYS_ACORDOS')
Params = <>
Left = 945
Top = 361
object ZReadOnlyQuery1ID_ITEM: TIntegerField
FieldName = 'ID_ITEM'
Required = True
end
object ZReadOnlyQuery1ID_ACORDO: TIntegerField
FieldName = 'ID_ACORDO'
Required = True
end
object ZReadOnlyQuery1ID_PARCELA: TIntegerField
FieldName = 'ID_PARCELA'
Required = True
end
object ZReadOnlyQuery1ID_ORIGINAL: TIntegerField
FieldName = 'ID_ORIGINAL'
Required = True
end
object ZReadOnlyQuery1ID_DEVEDOR: TIntegerField
FieldName = 'ID_DEVEDOR'
Required = True
end
end
end