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.
2575 lines
76 KiB
2575 lines
76 KiB
inherited frmCentralBoletos: TfrmCentralBoletos
|
|
Caption = 'Central de Boletos'
|
|
ClientHeight = 707
|
|
ClientWidth = 1185
|
|
Menu = MainMenu1
|
|
OnActivate = nil
|
|
ExplicitTop = -107
|
|
ExplicitWidth = 1191
|
|
ExplicitHeight = 756
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pcBoletos: TPageControl [0]
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 1179
|
|
Height = 682
|
|
ActivePage = tsGeraBoleto
|
|
Align = alClient
|
|
TabOrder = 1
|
|
ExplicitHeight = 726
|
|
object tsPesquisa: TTabSheet
|
|
Caption = 'Pesquisa'
|
|
ExplicitHeight = 698
|
|
DesignSize = (
|
|
1171
|
|
654)
|
|
object gb_searchfilter: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1168
|
|
Height = 73
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = 'Filtro de Pesquisa:'
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 16
|
|
Top = 16
|
|
Width = 92
|
|
Height = 13
|
|
Caption = 'Situa'#231#227'o do boleto:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 152
|
|
Top = 16
|
|
Width = 70
|
|
Height = 13
|
|
Caption = 'Filtrar data por:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 264
|
|
Top = 16
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'Per'#237'odo:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 355
|
|
Top = 39
|
|
Width = 6
|
|
Height = 13
|
|
Caption = 'a'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 472
|
|
Top = 16
|
|
Width = 62
|
|
Height = 13
|
|
Caption = 'Ordernar por:'
|
|
Enabled = False
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 688
|
|
Top = 34
|
|
Width = 23
|
|
Height = 22
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
18000000000000030000120B0000120B00000000000000000000FF00FF314B62
|
|
AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
|
|
106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
|
|
00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2
|
|
9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC
|
|
E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF
|
|
FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED
|
|
B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF
|
|
DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0
|
|
B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0
|
|
BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1
|
|
D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577
|
|
6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF}
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object cb_filtrosituacao: TComboBox
|
|
Left = 16
|
|
Top = 35
|
|
Width = 121
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'Todos'
|
|
Items.Strings = (
|
|
'Todos'
|
|
'Vencidos & s Vencer'
|
|
'Expirados'
|
|
'Pagos'
|
|
'Baixados')
|
|
end
|
|
object cb_filtrotipodata: TComboBox
|
|
Left = 152
|
|
Top = 35
|
|
Width = 97
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 1
|
|
Text = 'Vencimento'
|
|
Items.Strings = (
|
|
'Vencimento'
|
|
'Emiss'#227'o'
|
|
'Situa'#231#227'o')
|
|
end
|
|
object dt_inicio: TDateTimePicker
|
|
Left = 264
|
|
Top = 35
|
|
Width = 81
|
|
Height = 21
|
|
Date = 44215.663146446760000000
|
|
Time = 44215.663146446760000000
|
|
TabOrder = 2
|
|
end
|
|
object dt_fim: TDateTimePicker
|
|
Left = 375
|
|
Top = 35
|
|
Width = 82
|
|
Height = 21
|
|
Date = 44215.663217199070000000
|
|
Time = 44215.663217199070000000
|
|
TabOrder = 3
|
|
end
|
|
object cb_filtroordem: TComboBox
|
|
Left = 472
|
|
Top = 35
|
|
Width = 201
|
|
Height = 21
|
|
Enabled = False
|
|
ItemIndex = 0
|
|
TabOrder = 4
|
|
Text = 'N'#250'mero do Inter'
|
|
Items.Strings = (
|
|
'N'#250'mero do Inter'
|
|
'N'#250'mero da Nexverse'
|
|
'Vencimento Crescente'
|
|
'Vencimento Decrescente'
|
|
'Nome do Sacado'
|
|
'Valor Crescente'
|
|
'Valor Decrescente'
|
|
'Status Crescente'
|
|
'Status Decrescente')
|
|
end
|
|
end
|
|
object dbgrd_boletos: TDBGrid
|
|
Left = 0
|
|
Top = 79
|
|
Width = 1168
|
|
Height = 242
|
|
Anchors = [akLeft, akTop, akRight]
|
|
DataSource = dtsBoletos
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgTitleClick, dgTitleHotTrack]
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnDrawColumnCell = dbgrd_boletosDrawColumnCell
|
|
OnMouseUp = dbgrd_boletosMouseUp
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'nossoNumero'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'seuNumero'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'situacao'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataVencimento'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataHoraSituacao'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'formatedDataHoraSituacao'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBMemo1: TDBMemo
|
|
Left = 0
|
|
Top = 599
|
|
Width = 1171
|
|
Height = 55
|
|
Align = alBottom
|
|
DataField = 'pagador'
|
|
DataSource = dtsBoletos
|
|
TabOrder = 2
|
|
ExplicitTop = 643
|
|
end
|
|
object gbBoleto: TGroupBox
|
|
Left = 0
|
|
Top = 327
|
|
Width = 898
|
|
Height = 307
|
|
Caption = 'Dados do Boleto:'
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object tsGeraBoleto: TTabSheet
|
|
Caption = 'Gerar'
|
|
ImageIndex = 1
|
|
ExplicitHeight = 698
|
|
object pcPesquisaGerar: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1171
|
|
Height = 654
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
TabOrder = 0
|
|
ExplicitHeight = 698
|
|
object TabSheet1: TTabSheet
|
|
AlignWithMargins = True
|
|
Margins.Right = 6
|
|
Caption = 'Pesquisar'
|
|
ExplicitHeight = 664
|
|
DesignSize = (
|
|
1154
|
|
620)
|
|
object gbPesquisa: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1154
|
|
Height = 161
|
|
Align = alTop
|
|
Caption = 'Pesquisar Cliente:'
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
1154
|
|
161)
|
|
object spdbtnPesquisa: TSpeedButton
|
|
Left = 639
|
|
Top = 26
|
|
Width = 23
|
|
Height = 22
|
|
Glyph.Data = {
|
|
36030000424D3603000000000000360000002800000010000000100000000100
|
|
18000000000000030000120B0000120B00000000000000000000FF00FF314B62
|
|
AC7D7EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FF5084B20F6FE1325F8CB87E7AFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF32A0FE37A1FF
|
|
106FE2325F8BB67D79FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FF37A4FE379FFF0E6DDE355F89BB7F79FF00FFFF
|
|
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
37A4FE359EFF0F6FDE35608BA67B7FFF00FFFF00FFFF00FFFF00FFFF00FFFF00
|
|
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF38A5FE329DFF156DCE444F5BFF
|
|
00FF9C6B65AF887BAF887EAA8075FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
|
|
FF00FFFF00FF3BABFFA1CAE7AD8679A98373E0CFB1FFFFDAFFFFDDFCF8CFCCB2
|
|
9FA1746BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFC0917DFC
|
|
E9ACFFFFCCFFFFCFFFFFD0FFFFDEFFFFFAE3D3D1996965FF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFB08978FAD192FEF4C2FFFFD0FFFFDAFFFFF6FFFF
|
|
FCFFFFFCB69384FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFB08978FEDA97ED
|
|
B478FBEEBBFFFFD3FFFFDCFFFFF4FFFFF4FFFFE2E9DDBCA67B73FF00FFFF00FF
|
|
FF00FFFF00FFFF00FFB18A78FFDE99E9A167F4D199FEFCCCFFFFD5FFFFDAFFFF
|
|
DCFFFFD7EFE6C5A97E75FF00FFFF00FFFF00FFFF00FFFF00FFAA7F73FAE0A4F0
|
|
B778EEBA7BF6DDA6FEFBCCFFFFD3FFFFD1FFFFD7D9C5A7A3756CFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFCEB293FFFEDDF4D1A5EEBA7BF2C78FF8E1ABFCF0
|
|
BAFCFACAA3776FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFA1746BE1
|
|
D4D3FFFEEEF7CC8CF0B473F7C788FCE3A5C2A088A5776CFF00FFFF00FFFF00FF
|
|
FF00FFFF00FFFF00FFFF00FFFF00FF986865BA9587EAD7A4EAD59EE0C097A577
|
|
6CA5776CFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
|
|
00FFFF00FFA77E70A98073A4786EFF00FFFF00FFFF00FFFF00FF}
|
|
OnClick = spdbtnPesquisaClick
|
|
end
|
|
object Label6: TLabel
|
|
Left = 721
|
|
Top = 9
|
|
Width = 44
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Hist'#243'rico:'
|
|
end
|
|
object edtPesquisa: TEdit
|
|
Left = 16
|
|
Top = 27
|
|
Width = 441
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object rgTipoPesquisa: TRadioGroup
|
|
Left = 463
|
|
Top = 12
|
|
Width = 170
|
|
Height = 37
|
|
Caption = 'Tipo'
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'nome'
|
|
'documento')
|
|
TabOrder = 1
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
AlignWithMargins = True
|
|
Left = 721
|
|
Top = 25
|
|
Width = 428
|
|
Height = 128
|
|
Margins.Top = 10
|
|
Margins.Bottom = 6
|
|
Align = alRight
|
|
DataSource = dtsHist
|
|
TabOrder = 2
|
|
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 = 391
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBGrid2: TDBGrid
|
|
Left = 16
|
|
Top = 54
|
|
Width = 699
|
|
Height = 99
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataSource = dtsPesquisa
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnDblClick = DBGrid2DblClick
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_NOME'
|
|
Title.Caption = 'Nome'
|
|
Width = 485
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_DOCUMENTO'
|
|
Title.Caption = 'Documento'
|
|
Width = 171
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 161
|
|
Width = 1154
|
|
Height = 462
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = 'Dados do Cliente:'
|
|
TabOrder = 1
|
|
object Label7: TLabel
|
|
Left = 16
|
|
Top = 72
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Nome:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 391
|
|
Top = 72
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Documento:'
|
|
end
|
|
object Label13: TLabel
|
|
Left = 16
|
|
Top = 120
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Endere'#231'o:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 428
|
|
Top = 120
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Telefone:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 588
|
|
Top = 120
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Email:'
|
|
end
|
|
object Label60: TLabel
|
|
Left = 588
|
|
Top = 72
|
|
Width = 157
|
|
Height = 13
|
|
Caption = 'Dias p/ Cancelamento do Boleto:'
|
|
end
|
|
object Label61: TLabel
|
|
Left = 758
|
|
Top = 72
|
|
Width = 129
|
|
Height = 13
|
|
Caption = 'Dia do m'#234's p/ Vencimento:'
|
|
end
|
|
object Label62: TLabel
|
|
Left = 921
|
|
Top = 72
|
|
Width = 116
|
|
Height = 13
|
|
Caption = 'Valor Nominal do Boleto:'
|
|
end
|
|
object Label63: TLabel
|
|
Left = 1043
|
|
Top = 72
|
|
Width = 83
|
|
Height = 13
|
|
Caption = 'Sufixo p/ Seu N'#186':'
|
|
end
|
|
object dbedtNomeDevBoleto: TDBEdit
|
|
Left = 16
|
|
Top = 91
|
|
Width = 369
|
|
Height = 21
|
|
DataField = 'TX_NOME'
|
|
DataSource = dtsDevedor
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object dbedtDocDevBoleto: TDBEdit
|
|
Left = 391
|
|
Top = 91
|
|
Width = 178
|
|
Height = 21
|
|
DataField = 'CD_DOCUMENTO'
|
|
DataSource = dtsDevedor
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object dblucbEndDevBoleto: TDBLookupComboBox
|
|
Left = 16
|
|
Top = 139
|
|
Width = 406
|
|
Height = 21
|
|
DataField = 'ID_ENDERECO_BOLETO'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_ENDERECO'
|
|
ListField = 'TX_ENDERECO_COMPLETO'
|
|
ListSource = dtmSystem.dtsCHGEnderecos
|
|
TabOrder = 2
|
|
end
|
|
object dblucbTelDevBoleto: TDBLookupComboBox
|
|
Left = 428
|
|
Top = 139
|
|
Width = 140
|
|
Height = 21
|
|
DataField = 'ID_TELEFONE_BOLETO'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_TELEFONE'
|
|
ListField = 'TX_TELEFONE_COMPLETO'
|
|
ListSource = dtmSystem.dtsTelefones
|
|
TabOrder = 3
|
|
end
|
|
object dblucbEmailDevBoleto: TDBLookupComboBox
|
|
Left = 588
|
|
Top = 139
|
|
Width = 280
|
|
Height = 21
|
|
DataField = 'ID_EMAIL_BOLETO'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_EMAIL'
|
|
ListField = 'TX_EMAIL'
|
|
ListSource = dtmSystem.dtsEmail
|
|
TabOrder = 4
|
|
end
|
|
object navPrincipal: TDBNavigator
|
|
Left = 16
|
|
Top = 16
|
|
Width = 200
|
|
Height = 44
|
|
DataSource = dtsDevedor
|
|
VisibleButtons = [nbEdit, nbPost, nbCancel, nbRefresh]
|
|
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 = False
|
|
TabOrder = 5
|
|
end
|
|
object GroupBox7: TGroupBox
|
|
Left = 16
|
|
Top = 166
|
|
Width = 552
|
|
Height = 155
|
|
Caption = 'Mensagem:'
|
|
TabOrder = 6
|
|
object Label11: TLabel
|
|
Left = 8
|
|
Top = 20
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 1:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 8
|
|
Top = 47
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 2:'
|
|
end
|
|
object Label22: TLabel
|
|
Left = 8
|
|
Top = 74
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 3:'
|
|
end
|
|
object Label23: TLabel
|
|
Left = 8
|
|
Top = 101
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 4:'
|
|
end
|
|
object Label24: 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 = dtsDevedor
|
|
TabOrder = 0
|
|
end
|
|
object dbEdtLinha2Boleto: TDBEdit
|
|
Left = 52
|
|
Top = 44
|
|
Width = 493
|
|
Height = 21
|
|
DataField = 'TX_MENSAGEM_BOLETO_2'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 1
|
|
end
|
|
object dbEdtLinha3Boleto: TDBEdit
|
|
Left = 52
|
|
Top = 71
|
|
Width = 493
|
|
Height = 21
|
|
DataField = 'TX_MENSAGEM_BOLETO_3'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
end
|
|
object dbEdtLinha4Boleto: TDBEdit
|
|
Left = 52
|
|
Top = 98
|
|
Width = 493
|
|
Height = 21
|
|
DataField = 'TX_MENSAGEM_BOLETO_4'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
end
|
|
object dbEdtLinha5Boleto: TDBEdit
|
|
Left = 52
|
|
Top = 125
|
|
Width = 493
|
|
Height = 21
|
|
DataField = 'TX_MENSAGEM_BOLETO_5'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object btnPreparaBoleto: TButton
|
|
Left = 660
|
|
Top = 16
|
|
Width = 87
|
|
Height = 25
|
|
Caption = 'Preparar Boleto'
|
|
Enabled = False
|
|
TabOrder = 7
|
|
Visible = False
|
|
OnClick = btnPreparaBoletoClick
|
|
end
|
|
object GroupBox8: TGroupBox
|
|
Left = 587
|
|
Top = 189
|
|
Width = 184
|
|
Height = 132
|
|
Caption = 'Multa:'
|
|
TabOrder = 8
|
|
DesignSize = (
|
|
184
|
|
132)
|
|
object Label25: TLabel
|
|
Left = -88
|
|
Top = 80
|
|
Width = 27
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Taxa:'
|
|
ExplicitLeft = 8
|
|
end
|
|
object Label26: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label27: TLabel
|
|
Left = 8
|
|
Top = 99
|
|
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 = dtsDevedor
|
|
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 = dtsDevedor
|
|
TabOrder = 1
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit6: TDBEdit
|
|
Left = 41
|
|
Top = 77
|
|
Width = 57
|
|
Height = 21
|
|
DataField = 'PR_MULTA_BOLETO'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit7: TDBEdit
|
|
Left = 73
|
|
Top = 102
|
|
Width = 34
|
|
Height = 21
|
|
DataField = 'NR_DIAS_MULTA_BOLETO'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
end
|
|
object GroupBox9: TGroupBox
|
|
Left = 587
|
|
Top = 327
|
|
Width = 184
|
|
Height = 132
|
|
Caption = 'Mora:'
|
|
TabOrder = 9
|
|
DesignSize = (
|
|
184
|
|
132)
|
|
object Label28: TLabel
|
|
Left = -88
|
|
Top = 80
|
|
Width = 27
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Taxa:'
|
|
ExplicitLeft = 8
|
|
end
|
|
object Label29: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label30: TLabel
|
|
Left = 8
|
|
Top = 99
|
|
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 = dtsDevedor
|
|
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 = dtsDevedor
|
|
TabOrder = 1
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit9: TDBEdit
|
|
Left = 41
|
|
Top = 77
|
|
Width = 57
|
|
Height = 21
|
|
DataField = 'PR_MORA_BOLETO'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit10: TDBEdit
|
|
Left = 73
|
|
Top = 103
|
|
Width = 34
|
|
Height = 21
|
|
DataField = 'NR_MORA_BOLETO'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
end
|
|
object GroupBox10: TGroupBox
|
|
Left = 16
|
|
Top = 327
|
|
Width = 184
|
|
Height = 132
|
|
Caption = 'Desconto 1:'
|
|
TabOrder = 10
|
|
object Label31: TLabel
|
|
Left = 8
|
|
Top = 80
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label32: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label33: TLabel
|
|
Left = 8
|
|
Top = 99
|
|
Width = 97
|
|
Height = 28
|
|
Caption = 'Qtd. Dias antes do Venc. p/ Desconto:'
|
|
WordWrap = True
|
|
end
|
|
object DBLookupComboBox7: TDBLookupComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
DataField = 'TP_DESC_BOLETO_1'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_STATUS'
|
|
ListField = 'TX_DESCRICAO'
|
|
ListSource = dtmSystem.dtsDescBoleto
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit11: TDBEdit
|
|
Left = 41
|
|
Top = 76
|
|
Width = 57
|
|
Height = 21
|
|
DataField = 'PR_DESC_BOLETO_1'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 1
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit14: TDBEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
DataField = 'VL_DESC_BOLETO_1'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit17: TDBEdit
|
|
Left = 104
|
|
Top = 103
|
|
Width = 34
|
|
Height = 21
|
|
DataField = 'NR_DIAS_DESC_BOLETO_1'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
end
|
|
object GroupBox11: TGroupBox
|
|
Left = 207
|
|
Top = 327
|
|
Width = 184
|
|
Height = 132
|
|
Caption = 'Desconto 2:'
|
|
TabOrder = 11
|
|
object Label43: TLabel
|
|
Left = 8
|
|
Top = 78
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label44: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label53: TLabel
|
|
Left = 8
|
|
Top = 98
|
|
Width = 97
|
|
Height = 29
|
|
Caption = 'Qtd. Dias antes do Venc. p/ Desconto:'
|
|
WordWrap = True
|
|
end
|
|
object DBLookupComboBox8: TDBLookupComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
DataField = 'TP_DESC_BOLETO_2'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_STATUS'
|
|
ListField = 'TX_DESCRICAO'
|
|
ListSource = dtmSystem.dtsDescBoleto
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit12: TDBEdit
|
|
Left = 41
|
|
Top = 76
|
|
Width = 57
|
|
Height = 21
|
|
DataField = 'PR_DESC_BOLETO_2'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 1
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit15: TDBEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
DataField = 'VL_DESC_BOLETO_2'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit18: TDBEdit
|
|
Left = 106
|
|
Top = 103
|
|
Width = 34
|
|
Height = 21
|
|
DataField = 'NR_DIAS_DESC_BOLETO_2'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
end
|
|
object GroupBox12: TGroupBox
|
|
Left = 397
|
|
Top = 327
|
|
Width = 184
|
|
Height = 132
|
|
Caption = 'Desconto 3:'
|
|
TabOrder = 12
|
|
object Label54: TLabel
|
|
Left = 8
|
|
Top = 78
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label58: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label59: TLabel
|
|
Left = 8
|
|
Top = 98
|
|
Width = 97
|
|
Height = 29
|
|
Caption = 'Qtd. Dias antes do Venc. p/ Desconto:'
|
|
WordWrap = True
|
|
end
|
|
object DBLookupComboBox9: TDBLookupComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
DataField = 'TP_DESC_BOLETO_3'
|
|
DataSource = dtsDevedor
|
|
KeyField = 'ID_STATUS'
|
|
ListField = 'TX_DESCRICAO'
|
|
ListSource = dtmSystem.dtsDescBoleto
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit13: TDBEdit
|
|
Left = 41
|
|
Top = 75
|
|
Width = 57
|
|
Height = 21
|
|
DataField = 'PR_DESC_BOLETO_3'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 1
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit16: TDBEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
DataField = 'VL_DESC_BOLETO_3'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 2
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit19: TDBEdit
|
|
Left = 107
|
|
Top = 103
|
|
Width = 34
|
|
Height = 21
|
|
DataField = 'NR_DIAS_DESC_BOLETO_3'
|
|
DataSource = dtsDevedor
|
|
TabOrder = 3
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
end
|
|
object DBEdit20: TDBEdit
|
|
Left = 588
|
|
Top = 91
|
|
Width = 157
|
|
Height = 21
|
|
DataField = 'NR_DIAS_AGENDA'
|
|
TabOrder = 13
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
object DBEdit21: TDBEdit
|
|
Left = 758
|
|
Top = 91
|
|
Width = 157
|
|
Height = 21
|
|
DataField = 'NR_DIA_VENCIMENTO'
|
|
TabOrder = 14
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
object DBEdit22: TDBEdit
|
|
Left = 921
|
|
Top = 91
|
|
Width = 116
|
|
Height = 21
|
|
DataField = 'VL_NOMINAL_BOLETO'
|
|
TabOrder = 15
|
|
OnKeyPress = DBEdit6KeyPress
|
|
end
|
|
object DBEdit23: TDBEdit
|
|
Left = 1043
|
|
Top = 91
|
|
Width = 99
|
|
Height = 21
|
|
DataField = 'TX_SUFIXO_SEU_NUMERO'
|
|
TabOrder = 16
|
|
OnKeyPress = DBEdit7KeyPress
|
|
end
|
|
object btnGerarBoleto: TButton
|
|
Left = 857
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Gerar Boleto'
|
|
TabOrder = 17
|
|
OnClick = btnGerarBoletoClick
|
|
end
|
|
object btnFichaCliente: TButton
|
|
Left = 1024
|
|
Top = 16
|
|
Width = 127
|
|
Height = 25
|
|
Caption = 'Abrir Ficha do Devedor'
|
|
Enabled = False
|
|
TabOrder = 18
|
|
OnClick = btnFichaClienteClick
|
|
end
|
|
object GroupBox13: TGroupBox
|
|
Left = 777
|
|
Top = 304
|
|
Width = 370
|
|
Height = 155
|
|
Caption = 'Empresas dos T'#237'tulos dos Boletos'
|
|
TabOrder = 19
|
|
object DBLookupComboBox10: TDBLookupComboBox
|
|
Left = 16
|
|
Top = 48
|
|
Width = 241
|
|
Height = 21
|
|
DataField = 'ID_EMPRESA'
|
|
DataSource = dtmSystem.dtsDevEmpBoletos
|
|
KeyField = 'ID_EMPRESA'
|
|
ListField = 'TX_NOME'
|
|
ListSource = dtmSystem.dtsCHGEmpresa
|
|
TabOrder = 0
|
|
end
|
|
object DBGrid3: TDBGrid
|
|
Left = 16
|
|
Top = 75
|
|
Width = 329
|
|
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 = 287
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 15
|
|
Top = 21
|
|
Width = 198
|
|
Height = 21
|
|
DataSource = dtmSystem.dtsDevEmpBoletos
|
|
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
|
|
TabOrder = 2
|
|
BeforeAction = DBNavigator1BeforeAction
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Dados'
|
|
ImageIndex = 1
|
|
ExplicitHeight = 670
|
|
object btn_gerarbolunico: TButton
|
|
Left = 1085
|
|
Top = 599
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Gerar'
|
|
TabOrder = 0
|
|
OnClick = btn_gerarbolunicoClick
|
|
end
|
|
object gbPagador: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1163
|
|
Height = 113
|
|
Align = alTop
|
|
Caption = 'Dados do Pagador:'
|
|
TabOrder = 1
|
|
object lblNomePagador: TLabel
|
|
Left = 3
|
|
Top = 16
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Nome:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblDocumentoPagador: TLabel
|
|
Left = 522
|
|
Top = 16
|
|
Width = 119
|
|
Height = 13
|
|
Caption = 'Documento (CPF/CNPJ):'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblTipoPagador: TLabel
|
|
Left = 755
|
|
Top = 16
|
|
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 lblEmailPagador: TLabel
|
|
Left = 838
|
|
Top = 16
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Email:'
|
|
end
|
|
object lblEnderecoPagador: TLabel
|
|
Left = 3
|
|
Top = 62
|
|
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 lblNumeroPagador: TLabel
|
|
Left = 373
|
|
Top = 62
|
|
Width = 15
|
|
Height = 13
|
|
Caption = 'N'#186':'
|
|
end
|
|
object lblComplementoPagador: TLabel
|
|
Left = 458
|
|
Top = 62
|
|
Width = 67
|
|
Height = 13
|
|
Caption = 'Complemento:'
|
|
end
|
|
object lblBairroPagador: TLabel
|
|
Left = 531
|
|
Top = 62
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Bairro:'
|
|
end
|
|
object lblCidadePagador: TLabel
|
|
Left = 658
|
|
Top = 62
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Cidade:'
|
|
end
|
|
object lblUfPagador: TLabel
|
|
Left = 823
|
|
Top = 62
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'UF:'
|
|
end
|
|
object lblCepPagador: TLabel
|
|
Left = 859
|
|
Top = 62
|
|
Width = 24
|
|
Height = 13
|
|
Caption = 'CEP:'
|
|
end
|
|
object lblDddPagador: TLabel
|
|
Left = 986
|
|
Top = 62
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'DDD:'
|
|
end
|
|
object lblTelefonePagador: TLabel
|
|
Left = 1035
|
|
Top = 62
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Telefone:'
|
|
end
|
|
object edtNomePagador: TEdit
|
|
Left = 3
|
|
Top = 35
|
|
Width = 513
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object edtDocumentoPagador: TEdit
|
|
Left = 522
|
|
Top = 35
|
|
Width = 227
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object cbTipoPagador: TComboBox
|
|
Left = 755
|
|
Top = 35
|
|
Width = 77
|
|
Height = 21
|
|
TabOrder = 2
|
|
Items.Strings = (
|
|
'F'#237'sica'
|
|
'Jur'#237'dica')
|
|
end
|
|
object edtEmailPagador: TEdit
|
|
Left = 838
|
|
Top = 35
|
|
Width = 318
|
|
Height = 21
|
|
TabOrder = 3
|
|
end
|
|
object edtEnderecoPagador: TEdit
|
|
Left = 3
|
|
Top = 81
|
|
Width = 364
|
|
Height = 21
|
|
TabOrder = 4
|
|
end
|
|
object edtNumeroPagador: TEdit
|
|
Left = 373
|
|
Top = 81
|
|
Width = 79
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 5
|
|
end
|
|
object edtComplementoPagador: TEdit
|
|
Left = 458
|
|
Top = 81
|
|
Width = 67
|
|
Height = 21
|
|
TabOrder = 6
|
|
end
|
|
object edtBairroPagador: TEdit
|
|
Left = 531
|
|
Top = 81
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 7
|
|
end
|
|
object edtCidadePagador: TEdit
|
|
Left = 658
|
|
Top = 81
|
|
Width = 159
|
|
Height = 21
|
|
TabOrder = 8
|
|
end
|
|
object edtUfPagador: TEdit
|
|
Left = 823
|
|
Top = 81
|
|
Width = 30
|
|
Height = 21
|
|
TabOrder = 9
|
|
end
|
|
object edtCepPagador: TEdit
|
|
Left = 859
|
|
Top = 81
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 10
|
|
end
|
|
object edtDddPagador: TEdit
|
|
Left = 986
|
|
Top = 81
|
|
Width = 43
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 11
|
|
end
|
|
object edtTelefonePagador: TEdit
|
|
Left = 1035
|
|
Top = 81
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 12
|
|
end
|
|
end
|
|
object gbDadosBoleto: TGroupBox
|
|
Left = 0
|
|
Top = 113
|
|
Width = 1163
|
|
Height = 296
|
|
Align = alTop
|
|
Caption = 'Dados do Boleto:'
|
|
TabOrder = 2
|
|
object lblSeuNumeroBoleto: TLabel
|
|
Left = 3
|
|
Top = 16
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'Seu N'#186':'
|
|
end
|
|
object lblVlNominalBoleto: TLabel
|
|
Left = 119
|
|
Top = 16
|
|
Width = 68
|
|
Height = 13
|
|
Caption = 'Valor Nominal:'
|
|
end
|
|
object lblVencimentoBoleto: TLabel
|
|
Left = 327
|
|
Top = 16
|
|
Width = 59
|
|
Height = 13
|
|
Caption = 'Vencimento:'
|
|
end
|
|
object lblDiasCancelamentoBoleto: TLabel
|
|
Left = 419
|
|
Top = 16
|
|
Width = 122
|
|
Height = 13
|
|
Caption = 'N'#186' dias p/ Cancelamento:'
|
|
end
|
|
object edtSeuNumeroBoleto: TEdit
|
|
Left = 3
|
|
Top = 35
|
|
Width = 110
|
|
Height = 21
|
|
MaxLength = 15
|
|
NumbersOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object edtVlNominalBoleto: TEdit
|
|
Left = 119
|
|
Top = 35
|
|
Width = 202
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object dtpVencimentoBoleto: TDateTimePicker
|
|
Left = 327
|
|
Top = 35
|
|
Width = 86
|
|
Height = 21
|
|
Date = 44218.722504768520000000
|
|
Time = 44218.722504768520000000
|
|
TabOrder = 2
|
|
end
|
|
object edtDiasCancelamentoBoleto: TEdit
|
|
Left = 419
|
|
Top = 35
|
|
Width = 121
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 3
|
|
end
|
|
object gbMensagemBoleto: TGroupBox
|
|
Left = 3
|
|
Top = 62
|
|
Width = 552
|
|
Height = 155
|
|
Caption = 'Mensagem:'
|
|
TabOrder = 4
|
|
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 edtLinha1Boleto: TEdit
|
|
Left = 52
|
|
Top = 17
|
|
Width = 493
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 0
|
|
end
|
|
object edtLinha2Boleto: TEdit
|
|
Left = 52
|
|
Top = 44
|
|
Width = 493
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 1
|
|
end
|
|
object edtLinha3Boleto: TEdit
|
|
Left = 52
|
|
Top = 71
|
|
Width = 493
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 2
|
|
end
|
|
object edtLinha4Boleto: TEdit
|
|
Left = 52
|
|
Top = 98
|
|
Width = 493
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 3
|
|
end
|
|
object edtLinha5Boleto: TEdit
|
|
Left = 52
|
|
Top = 125
|
|
Width = 493
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 561
|
|
Top = 106
|
|
Width = 280
|
|
Height = 87
|
|
Caption = 'Desconto 1:'
|
|
TabOrder = 5
|
|
DesignSize = (
|
|
280
|
|
87)
|
|
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 Label36: TLabel
|
|
Left = 155
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Data:'
|
|
ExplicitLeft = 117
|
|
end
|
|
object cb_desc1: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
TabOrder = 0
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa1bol: TEdit
|
|
Left = 214
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edt_val1bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc1: TDateTimePicker
|
|
Left = 187
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 847
|
|
Top = 106
|
|
Width = 280
|
|
Height = 87
|
|
Caption = 'Desconto 2:'
|
|
TabOrder = 6
|
|
DesignSize = (
|
|
280
|
|
87)
|
|
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 Label39: TLabel
|
|
Left = 155
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Data:'
|
|
ExplicitLeft = 117
|
|
end
|
|
object cb_desc2: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
TabOrder = 0
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa2bol: TEdit
|
|
Left = 214
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edt_val2bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc2: TDateTimePicker
|
|
Left = 187
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 700
|
|
Top = 199
|
|
Width = 280
|
|
Height = 87
|
|
Caption = 'Desconto 3:'
|
|
TabOrder = 7
|
|
DesignSize = (
|
|
280
|
|
87)
|
|
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 Label42: TLabel
|
|
Left = 155
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Data:'
|
|
ExplicitLeft = 117
|
|
end
|
|
object cb_desc3: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
TabOrder = 0
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa3bol: TEdit
|
|
Left = 214
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edt_val3bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc3: TDateTimePicker
|
|
Left = 187
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 847
|
|
Top = 13
|
|
Width = 280
|
|
Height = 87
|
|
Caption = 'Mora:'
|
|
TabOrder = 8
|
|
DesignSize = (
|
|
280
|
|
87)
|
|
object Label47: TLabel
|
|
Left = 182
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Taxa:'
|
|
ExplicitLeft = 159
|
|
end
|
|
object Label48: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label55: TLabel
|
|
Left = 155
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_morabol: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
TabOrder = 0
|
|
Items.Strings = (
|
|
'VALORDIA'
|
|
'TAXAMENSAL'
|
|
'ISENTO')
|
|
end
|
|
object edt_taxamorabol: TEdit
|
|
Left = 215
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edt_vlmorabol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_multa: TDateTimePicker
|
|
Left = 188
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 561
|
|
Top = 13
|
|
Width = 280
|
|
Height = 87
|
|
Caption = 'Multa:'
|
|
TabOrder = 9
|
|
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 Label56: TLabel
|
|
Left = 156
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Data:'
|
|
ExplicitLeft = 133
|
|
end
|
|
object cb_multabol: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 168
|
|
Height = 21
|
|
TabOrder = 0
|
|
Items.Strings = (
|
|
'NAOTEMMULTA'
|
|
'VALORFIXO'
|
|
'PERCENTUAL')
|
|
end
|
|
object edt_taxamultabol: TEdit
|
|
Left = 215
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edt_vlmultabol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 108
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_mora: TDateTimePicker
|
|
Left = 188
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
object gbBeneficiarioBoleto: TGroupBox
|
|
Left = 0
|
|
Top = 409
|
|
Width = 1163
|
|
Height = 184
|
|
Align = alTop
|
|
Caption = 'Dados do Benefici'#225'rio:'
|
|
TabOrder = 3
|
|
object Label14: TLabel
|
|
Left = 11
|
|
Top = 24
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Nome:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label15: TLabel
|
|
Left = 530
|
|
Top = 24
|
|
Width = 119
|
|
Height = 13
|
|
Caption = 'Documento (CPF/CNPJ):'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label16: TLabel
|
|
Left = 763
|
|
Top = 24
|
|
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 Label17: TLabel
|
|
Left = 11
|
|
Top = 70
|
|
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 Label18: TLabel
|
|
Left = 381
|
|
Top = 70
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Bairro:'
|
|
end
|
|
object Label19: TLabel
|
|
Left = 508
|
|
Top = 70
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Cidade:'
|
|
end
|
|
object Label20: TLabel
|
|
Left = 673
|
|
Top = 70
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'UF:'
|
|
end
|
|
object Label21: TLabel
|
|
Left = 709
|
|
Top = 70
|
|
Width = 24
|
|
Height = 13
|
|
Caption = 'CEP:'
|
|
end
|
|
object edtNomeBeneficiario: TEdit
|
|
Left = 11
|
|
Top = 43
|
|
Width = 513
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object edtDocumentoBeneficiario: TEdit
|
|
Left = 530
|
|
Top = 43
|
|
Width = 227
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object cbTipoBeneficiario: TComboBox
|
|
Left = 763
|
|
Top = 43
|
|
Width = 77
|
|
Height = 21
|
|
TabOrder = 2
|
|
Items.Strings = (
|
|
'F'#237'sica'
|
|
'Jur'#237'dica')
|
|
end
|
|
object edtEnderecoBeneficiario: TEdit
|
|
Left = 11
|
|
Top = 89
|
|
Width = 364
|
|
Height = 21
|
|
TabOrder = 3
|
|
end
|
|
object edtBairroBeneficiario: TEdit
|
|
Left = 381
|
|
Top = 89
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 4
|
|
end
|
|
object edtCidadeBeneficiario: TEdit
|
|
Left = 508
|
|
Top = 89
|
|
Width = 159
|
|
Height = 21
|
|
TabOrder = 5
|
|
end
|
|
object edtUfBeneficiario: TEdit
|
|
Left = 673
|
|
Top = 89
|
|
Width = 30
|
|
Height = 21
|
|
TabOrder = 6
|
|
end
|
|
object edtCepBeneficiario: TEdit
|
|
Left = 709
|
|
Top = 89
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 7
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 688
|
|
Width = 1185
|
|
ExplicitTop = 732
|
|
ExplicitWidth = 1185
|
|
end
|
|
object dtsBoletos: TDataSource
|
|
DataSet = cdsBoletos
|
|
OnDataChange = dtsBoletosDataChange
|
|
Left = 1104
|
|
Top = 1
|
|
end
|
|
object IdHTTP: TIdHTTP
|
|
IOHandler = IdSSLHandler
|
|
AllowCookies = True
|
|
ProxyParams.BasicAuthentication = False
|
|
ProxyParams.ProxyPort = 0
|
|
Request.CharSet = 'utf-8'
|
|
Request.ContentLength = -1
|
|
Request.ContentRangeEnd = -1
|
|
Request.ContentRangeStart = -1
|
|
Request.ContentRangeInstanceLength = -1
|
|
Request.ContentType = 'application/x-www-form-urlencoded'
|
|
Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
|
|
Request.BasicAuthentication = False
|
|
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
|
|
Request.Ranges.Units = 'bytes'
|
|
Request.Ranges = <>
|
|
HTTPOptions = [hoForceEncodeParams]
|
|
Left = 769
|
|
Top = 41
|
|
end
|
|
object IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL
|
|
MaxLineAction = maException
|
|
Port = 0
|
|
DefaultPort = 0
|
|
SSLOptions.Method = sslvSSLv23
|
|
SSLOptions.SSLVersions = [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2]
|
|
SSLOptions.Mode = sslmClient
|
|
SSLOptions.VerifyMode = []
|
|
SSLOptions.VerifyDepth = 0
|
|
Left = 641
|
|
Top = 1
|
|
end
|
|
object tblDesc1: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 176
|
|
Top = 1
|
|
object tblDesc1codigo: TStringField
|
|
FieldName = 'codigo'
|
|
Size = 255
|
|
end
|
|
object tblDesc1taxa: TFloatField
|
|
FieldName = 'taxa'
|
|
end
|
|
object tblDesc1valor: TCurrencyField
|
|
FieldName = 'valor'
|
|
end
|
|
end
|
|
object dtsDesc1: TDataSource
|
|
DataSet = tblDesc1
|
|
Left = 112
|
|
Top = 65529
|
|
end
|
|
object tblDesc2: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 1024
|
|
Top = 35
|
|
object tblDesc2codigo: TStringField
|
|
FieldName = 'codigo'
|
|
Size = 255
|
|
end
|
|
object tblDesc2taxa: TFloatField
|
|
FieldName = 'taxa'
|
|
end
|
|
object tblDesc2valor: TCurrencyField
|
|
FieldName = 'valor'
|
|
end
|
|
end
|
|
object dtsDesc2: TDataSource
|
|
DataSet = tblDesc2
|
|
Left = 848
|
|
Top = 59
|
|
end
|
|
object tblDesc3: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 728
|
|
Top = 1
|
|
object tblDesc3codigo: TStringField
|
|
FieldName = 'codigo'
|
|
Size = 255
|
|
end
|
|
object tblDesc3taxa: TFloatField
|
|
FieldName = 'taxa'
|
|
end
|
|
object tblDesc3valor: TCurrencyField
|
|
FieldName = 'valor'
|
|
end
|
|
end
|
|
object dtsDesc3: TDataSource
|
|
DataSet = tblDesc3
|
|
Left = 928
|
|
Top = 43
|
|
end
|
|
object tblMulta: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 297
|
|
Top = 1
|
|
object tblMultacodigo: TStringField
|
|
FieldName = 'codigo'
|
|
Size = 255
|
|
end
|
|
object tblMultataxa: TFloatField
|
|
FieldName = 'taxa'
|
|
end
|
|
object tblMultavalor: TCurrencyField
|
|
FieldName = 'valor'
|
|
end
|
|
object tblMultadata: TDateField
|
|
FieldName = 'data'
|
|
end
|
|
end
|
|
object dtsMulta: TDataSource
|
|
DataSet = tblMulta
|
|
Left = 361
|
|
Top = 1
|
|
end
|
|
object tblMora: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 417
|
|
Top = 1
|
|
object tblMoracodigo: TStringField
|
|
FieldName = 'codigo'
|
|
Size = 255
|
|
end
|
|
object tblMorataxa: TFloatField
|
|
FieldName = 'taxa'
|
|
end
|
|
object tblMoravalor: TCurrencyField
|
|
FieldName = 'valor'
|
|
end
|
|
object tblMoradata: TDateField
|
|
FieldName = 'data'
|
|
end
|
|
end
|
|
object dtsMora: TDataSource
|
|
DataSet = tblMora
|
|
Left = 473
|
|
Top = 1
|
|
end
|
|
object pum_download: TPopupMenu
|
|
Left = 536
|
|
Top = 65529
|
|
object mnuDownload: TMenuItem
|
|
Caption = 'Download'
|
|
OnClick = mnuDownloadClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuBaixarInter: TMenuItem
|
|
Caption = 'Baixar no Inter'
|
|
object mnuAcertos: TMenuItem
|
|
Caption = 'Acertos'
|
|
Hint = 'Baixa por acertos'
|
|
OnClick = mnuAcertosClick
|
|
end
|
|
object mnuProtestado: TMenuItem
|
|
Caption = 'Protestado'
|
|
Hint = 'Baixado por ter sido protestado'
|
|
OnClick = mnuProtestadoClick
|
|
end
|
|
object mnuDevolucao: TMenuItem
|
|
Caption = 'Devolu'#231#227'o'
|
|
Hint = ' Baixado para devolu'#231#227'o'
|
|
OnClick = mnuDevolucaoClick
|
|
end
|
|
object mnuProtestoAposBaixa: TMenuItem
|
|
Caption = 'Protesto Ap'#243's Baixa'
|
|
Hint = 'Baixado por protesto ap'#243's baixa'
|
|
OnClick = mnuProtestoAposBaixaClick
|
|
end
|
|
object mnuPagoDireto: TMenuItem
|
|
Caption = 'Pago Direto ao Cliente'
|
|
Hint = 'Baixado, pago direto ao cliente'
|
|
OnClick = mnuPagoDiretoClick
|
|
end
|
|
object mnuSubstituicao: TMenuItem
|
|
Caption = 'Substitui'#231#227'o'
|
|
Hint = 'Baixado por substitui'#231#227'o'
|
|
OnClick = mnuSubstituicaoClick
|
|
end
|
|
object mnuFalta: TMenuItem
|
|
Caption = 'Falta de Solu'#231#227'o'
|
|
Hint = 'Baixado por falta de solu'#231#227'o'
|
|
OnClick = mnuFaltaClick
|
|
end
|
|
object mnuAPedidoCliente: TMenuItem
|
|
Caption = 'A Pedido do Cliente'
|
|
Hint = 'Baixado a pedido do cliente'
|
|
OnClick = mnuAPedidoClienteClick
|
|
end
|
|
end
|
|
object mnuBaixarCob: TMenuItem
|
|
Caption = 'Baixar na Cobran'#231'a'
|
|
OnClick = mnuBaixarCobClick
|
|
end
|
|
end
|
|
object SaveDialog: TSaveDialog
|
|
DefaultExt = #39'pdf'#39
|
|
Filter = 'PDF (*.pdf)|*.pdf'
|
|
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
|
|
Left = 592
|
|
Top = 65529
|
|
end
|
|
object IdDecoderMIME: TIdDecoderMIME
|
|
FillChar = '='
|
|
Left = 976
|
|
Top = 57
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 952
|
|
Top = 65534
|
|
object mnuCadastro: TMenuItem
|
|
Caption = 'Cadastro'
|
|
object mnhGrupoBoletos: TMenuItem
|
|
Caption = 'Grupos de Empresas'
|
|
OnClick = mnhGrupoBoletosClick
|
|
end
|
|
end
|
|
end
|
|
object pum_incldel: TPopupMenu
|
|
Left = 48
|
|
Top = 1
|
|
object mnuIncluir: TMenuItem
|
|
Caption = 'Incluir'
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuRemover: TMenuItem
|
|
Caption = 'Remover'
|
|
end
|
|
end
|
|
object rotblRepasseFase: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from sys_repasses_fases')
|
|
Params = <>
|
|
Left = 208
|
|
Top = 40
|
|
object rotblRepasseFaseID_FASE: TIntegerField
|
|
FieldName = 'ID_FASE'
|
|
Required = True
|
|
end
|
|
object rotblRepasseFasePR_PRINCIPAL: TFloatField
|
|
FieldName = 'PR_PRINCIPAL'
|
|
end
|
|
object rotblRepasseFasePR_JUROS: TFloatField
|
|
FieldName = 'PR_JUROS'
|
|
end
|
|
object rotblRepasseFasePR_MULTA: TFloatField
|
|
FieldName = 'PR_MULTA'
|
|
end
|
|
object rotblRepasseFasePR_ENCARGOS: TFloatField
|
|
FieldName = 'PR_ENCARGOS'
|
|
end
|
|
object rotblRepasseFasePR_CORRIGIDO: TFloatField
|
|
FieldName = 'PR_CORRIGIDO'
|
|
end
|
|
object rotblRepasseFaseMIN_ATRASO: TIntegerField
|
|
FieldName = 'MIN_ATRASO'
|
|
end
|
|
object rotblRepasseFaseMAX_ATRASO: TIntegerField
|
|
FieldName = 'MAX_ATRASO'
|
|
end
|
|
object rotblRepasseFaseID_REPASSE: TIntegerField
|
|
FieldName = 'ID_REPASSE'
|
|
end
|
|
object rotblRepasseFaseID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object rotblRepasseFaseDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
end
|
|
end
|
|
object tblPagador: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 816
|
|
end
|
|
object dtsPagador: TDataSource
|
|
DataSet = tblPagador
|
|
Left = 887
|
|
Top = 65534
|
|
end
|
|
object cdsBoletos: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
AfterScroll = cdsBoletosAfterScroll
|
|
Left = 232
|
|
object cdsBoletosnossoNumero: TWideStringField
|
|
FieldName = 'nossoNumero'
|
|
Size = 255
|
|
end
|
|
object cdsBoletosseuNumero: TWideStringField
|
|
FieldName = 'seuNumero'
|
|
Size = 15
|
|
end
|
|
object cdsBoletospagador: TWideMemoField
|
|
FieldName = 'pagador'
|
|
BlobType = ftWideMemo
|
|
Size = 3000
|
|
end
|
|
object cdsBoletossituacao: TWideStringField
|
|
FieldName = 'situacao'
|
|
end
|
|
object cdsBoletosdataVencimento: TDateField
|
|
FieldName = 'dataVencimento'
|
|
end
|
|
object cdsBoletosdataHoraSituacao: TWideStringField
|
|
FieldName = 'dataHoraSituacao'
|
|
end
|
|
end
|
|
object dtsHist: TDataSource
|
|
DataSet = dtmSystem.cdsHist
|
|
Left = 670
|
|
Top = 62
|
|
end
|
|
object dtsPesquisa: TDataSource
|
|
DataSet = zroqryPesquisa
|
|
Left = 326
|
|
Top = 30
|
|
end
|
|
object zroqryPesquisa: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select ID_DEVEDOR, TX_NOME, case when TP_CLIENTE = '#39'F'#39
|
|
|
|
'then CD_CPF when TP_CLIENTE = '#39'J'#39' then CD_CNPJ end as TX_DOCUMEN' +
|
|
'TO'
|
|
' from CHG_DEVEDORES where 1 = 1')
|
|
Params = <>
|
|
Left = 1110
|
|
Top = 54
|
|
object zroqryPesquisaTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object zroqryPesquisaTX_DOCUMENTO: TWideStringField
|
|
FieldName = 'TX_DOCUMENTO'
|
|
ReadOnly = True
|
|
Size = 18
|
|
end
|
|
object zroqryPesquisaID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
end
|
|
object dtsEmpresasTitulos: TDataSource
|
|
DataSet = zroqryEmpresasTitulos
|
|
Left = 446
|
|
Top = 38
|
|
end
|
|
object zroqryEmpresasTitulos: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_empresas')
|
|
Params = <>
|
|
Left = 558
|
|
Top = 38
|
|
object zroqryEmpresasTitulosID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 100
|
|
end
|
|
object zroqryEmpresasTitulosTX_FANTASIA: TWideStringField
|
|
FieldName = 'TX_FANTASIA'
|
|
Size = 100
|
|
end
|
|
object zroqryEmpresasTitulosTX_CNPJ: TWideStringField
|
|
FieldName = 'TX_CNPJ'
|
|
Size = 18
|
|
end
|
|
object zroqryEmpresasTitulosTX_IE: TWideStringField
|
|
FieldName = 'TX_IE'
|
|
end
|
|
object zroqryEmpresasTitulosTX_ENDERECO: TWideStringField
|
|
FieldName = 'TX_ENDERECO'
|
|
Size = 100
|
|
end
|
|
object zroqryEmpresasTitulosTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
end
|
|
object zroqryEmpresasTitulosID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
end
|
|
object zroqryEmpresasTitulosTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 60
|
|
end
|
|
object zroqryEmpresasTitulosID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
object zroqryEmpresasTitulosTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
Size = 9
|
|
end
|
|
object zroqryEmpresasTitulosTX_TELEFONE: TWideStringField
|
|
FieldName = 'TX_TELEFONE'
|
|
Size = 40
|
|
end
|
|
object zroqryEmpresasTitulosTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 60
|
|
end
|
|
object zroqryEmpresasTitulosTX_WEBSITE: TWideStringField
|
|
FieldName = 'TX_WEBSITE'
|
|
Size = 60
|
|
end
|
|
object zroqryEmpresasTitulosNR_NUMERO: TIntegerField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object zroqryEmpresasTitulosTX_IM: TWideStringField
|
|
FieldName = 'TX_IM'
|
|
end
|
|
object zroqryEmpresasTitulosTL_OBSERVACOES: TWideMemoField
|
|
FieldName = 'TL_OBSERVACOES'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object zroqryEmpresasTitulosID_REPASSE: TIntegerField
|
|
FieldName = 'ID_REPASSE'
|
|
end
|
|
object zroqryEmpresasTitulosTP_ENTRADA: TWideStringField
|
|
FieldName = 'TP_ENTRADA'
|
|
Required = True
|
|
Size = 2
|
|
end
|
|
object zroqryEmpresasTitulosPR_MULTA: TFloatField
|
|
FieldName = 'PR_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_JUROS: TFloatField
|
|
FieldName = 'PR_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosNR_PARCELAS: TIntegerField
|
|
FieldName = 'NR_PARCELAS'
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_QUIT_PRIN: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_PRIN'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_QUIT_JUROS: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_QUIT_MULTA: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_QUIT_IND_FIN: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_IND_FIN'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_QUIT_COR: TFloatField
|
|
FieldName = 'PR_DESC_QUIT_COR'
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_FINAN_PRIN: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_PRIN'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_FINAN_JUROS: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_FINAN_MULTA: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_MULTA'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_FINAN_IND_FIN: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_IND_FIN'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_DESC_FINAN_COR: TFloatField
|
|
FieldName = 'PR_DESC_FINAN_COR'
|
|
end
|
|
object zroqryEmpresasTitulosPR_INDICADOR_FINANCEIRO: TFloatField
|
|
FieldName = 'PR_INDICADOR_FINANCEIRO'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosPR_JUROS_PARCELAR: TFloatField
|
|
FieldName = 'PR_JUROS_PARCELAR'
|
|
end
|
|
object zroqryEmpresasTitulosPR_ENTRADA_MIN: TFloatField
|
|
FieldName = 'PR_ENTRADA_MIN'
|
|
end
|
|
object zroqryEmpresasTitulosPR_ENTRADA_MAX: TFloatField
|
|
FieldName = 'PR_ENTRADA_MAX'
|
|
end
|
|
object zroqryEmpresasTitulosTP_CHEQUE: TWideStringField
|
|
FieldName = 'TP_CHEQUE'
|
|
Size = 1
|
|
end
|
|
object zroqryEmpresasTitulosTP_CRED: TWideStringField
|
|
FieldName = 'TP_CRED'
|
|
Size = 1
|
|
end
|
|
object zroqryEmpresasTitulosTP_DIN: TWideStringField
|
|
FieldName = 'TP_DIN'
|
|
Size = 1
|
|
end
|
|
object zroqryEmpresasTitulosID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object zroqryEmpresasTitulosDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
end
|
|
object zroqryEmpresasTitulosID_DEPARTAMENTO: TIntegerField
|
|
FieldName = 'ID_DEPARTAMENTO'
|
|
end
|
|
object zroqryEmpresasTitulosNR_JUROS: TFloatField
|
|
FieldName = 'NR_JUROS'
|
|
Required = True
|
|
end
|
|
object zroqryEmpresasTitulosTP_JUROS: TWideStringField
|
|
FieldName = 'TP_JUROS'
|
|
Required = True
|
|
Size = 1
|
|
end
|
|
end
|
|
object dtsDevedor: TDataSource
|
|
DataSet = dtmSystem.tblDevedores
|
|
OnStateChange = dtsDevedorStateChange
|
|
Left = 1022
|
|
Top = 349
|
|
end
|
|
end
|