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.
2367 lines
69 KiB
2367 lines
69 KiB
inherited frmCentralBoletos: TfrmCentralBoletos
|
|
Caption = 'Central de Boletos'
|
|
ClientHeight = 552
|
|
ClientWidth = 767
|
|
Menu = MainMenu1
|
|
ExplicitWidth = 773
|
|
ExplicitHeight = 600
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pcBoletos: TPageControl [0]
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 761
|
|
Height = 527
|
|
ActivePage = tsPesquisa
|
|
Align = alClient
|
|
Style = tsButtons
|
|
TabOrder = 1
|
|
object tsPesquisa: TTabSheet
|
|
Caption = 'Pesquisa'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object gb_searchfilter: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 750
|
|
Height = 73
|
|
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 = 750
|
|
Height = 170
|
|
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'
|
|
Title.Caption = 'N'#186' Inter'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'seuNumero'
|
|
Title.Caption = 'N'#186' Nexverse'
|
|
Width = 70
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'cnpjCpfSacado'
|
|
Title.Caption = 'Doc. do Sacado'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'nomeSacado'
|
|
Title.Caption = 'Nome do Sacado'
|
|
Width = 280
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'codigoBaixa'
|
|
Title.Caption = 'C'#243'digo da Baixa'
|
|
Width = 150
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'situacao'
|
|
Title.Caption = 'Situa'#231#227'o'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataPagtoBaixa'
|
|
Title.Caption = 'Data do Pagamento'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataVencimento'
|
|
Title.Caption = 'Data do Vencimento'
|
|
Width = 100
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'valorNominal'
|
|
Title.Caption = 'Valor Nominal'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'valorTotalRecebimento'
|
|
Title.Caption = 'Valor Recebido'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'telefone'
|
|
Title.Caption = 'Telefone'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'email'
|
|
Title.Caption = 'E-mail'
|
|
Width = 190
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataEmissao'
|
|
Title.Caption = 'Data da Emiss'#227'o'
|
|
Width = 90
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'dataLimite'
|
|
Title.Caption = 'Data Limite'
|
|
Width = 90
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'linhaDigitavel'
|
|
Title.Caption = 'Linda Digit'#225'vel'
|
|
Width = 350
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'valorJuros'
|
|
Title.Caption = 'Juros'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'valorMulta'
|
|
Title.Caption = 'Multa'
|
|
Width = 80
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'desconto1'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'desconto2'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'desconto3'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'multa'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'mora'
|
|
Visible = False
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'valorAbatimento'
|
|
Title.Caption = 'Valor do Abatimento'
|
|
Width = 90
|
|
Visible = True
|
|
end>
|
|
end
|
|
object gb_desc1: TGroupBox
|
|
Left = 0
|
|
Top = 253
|
|
Width = 240
|
|
Height = 113
|
|
Caption = 'Desconto 1:'
|
|
TabOrder = 2
|
|
object Label6: TLabel
|
|
Left = 16
|
|
Top = 17
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'C'#243'digo:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 176
|
|
Top = 17
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 16
|
|
Top = 63
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object DBEdit1: TDBEdit
|
|
Left = 16
|
|
Top = 36
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'codigo'
|
|
DataSource = dtsDesc1
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit2: TDBEdit
|
|
Left = 176
|
|
Top = 36
|
|
Width = 50
|
|
Height = 21
|
|
DataField = 'taxa'
|
|
DataSource = dtsDesc1
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit3: TDBEdit
|
|
Left = 16
|
|
Top = 80
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'valor'
|
|
DataSource = dtsDesc1
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object gb_desc2: TGroupBox
|
|
Left = 255
|
|
Top = 253
|
|
Width = 240
|
|
Height = 113
|
|
Caption = 'Desconto 2:'
|
|
TabOrder = 3
|
|
object Label9: TLabel
|
|
Left = 16
|
|
Top = 17
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'C'#243'digo:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 176
|
|
Top = 17
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label11: TLabel
|
|
Left = 16
|
|
Top = 63
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object DBEdit4: TDBEdit
|
|
Left = 16
|
|
Top = 36
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'codigo'
|
|
DataSource = dtsDesc2
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit5: TDBEdit
|
|
Left = 176
|
|
Top = 36
|
|
Width = 50
|
|
Height = 21
|
|
DataField = 'taxa'
|
|
DataSource = dtsDesc2
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit6: TDBEdit
|
|
Left = 16
|
|
Top = 80
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'valor'
|
|
DataSource = dtsDesc2
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object gb_desc3: TGroupBox
|
|
Left = 510
|
|
Top = 253
|
|
Width = 240
|
|
Height = 113
|
|
Caption = 'Desconto 3:'
|
|
TabOrder = 4
|
|
object Label12: TLabel
|
|
Left = 16
|
|
Top = 17
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'C'#243'digo:'
|
|
end
|
|
object Label13: TLabel
|
|
Left = 176
|
|
Top = 17
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 16
|
|
Top = 63
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object DBEdit7: TDBEdit
|
|
Left = 16
|
|
Top = 36
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'codigo'
|
|
DataSource = dtsDesc3
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit8: TDBEdit
|
|
Left = 176
|
|
Top = 36
|
|
Width = 50
|
|
Height = 21
|
|
DataField = 'taxa'
|
|
DataSource = dtsDesc3
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit9: TDBEdit
|
|
Left = 16
|
|
Top = 80
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'valor'
|
|
DataSource = dtsDesc3
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object gb_multa: TGroupBox
|
|
Left = 0
|
|
Top = 368
|
|
Width = 360
|
|
Height = 114
|
|
Caption = 'Multa:'
|
|
TabOrder = 5
|
|
object Label15: TLabel
|
|
Left = 16
|
|
Top = 63
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label16: TLabel
|
|
Left = 16
|
|
Top = 17
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'C'#243'digo:'
|
|
end
|
|
object Label17: TLabel
|
|
Left = 176
|
|
Top = 17
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label18: TLabel
|
|
Left = 176
|
|
Top = 63
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object DBEdit10: TDBEdit
|
|
Left = 16
|
|
Top = 82
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'valor'
|
|
DataSource = dtsMulta
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit11: TDBEdit
|
|
Left = 16
|
|
Top = 36
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'codigo'
|
|
DataSource = dtsMulta
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit12: TDBEdit
|
|
Left = 176
|
|
Top = 36
|
|
Width = 50
|
|
Height = 21
|
|
DataField = 'taxa'
|
|
DataSource = dtsMulta
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
object rdbdt_entrada: TrDBDateTimePicker
|
|
Left = 176
|
|
Top = 82
|
|
Width = 121
|
|
Height = 21
|
|
Date = 43017.406126562500000000
|
|
Time = 43017.406126562500000000
|
|
TabOrder = 4
|
|
DataField = 'data'
|
|
DataSource = dtsMulta
|
|
ReadOnly = True
|
|
DBEditLabel.OwnCaption = 'Data de cadastramento:'
|
|
DBEditLabel.Visible = False
|
|
FormatEmpty = '__.__.__'
|
|
end
|
|
end
|
|
object gb_mora: TGroupBox
|
|
Left = 390
|
|
Top = 368
|
|
Width = 360
|
|
Height = 114
|
|
Caption = 'Mora:'
|
|
TabOrder = 6
|
|
object Label19: TLabel
|
|
Left = 24
|
|
Top = 17
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'C'#243'digo:'
|
|
end
|
|
object Label20: TLabel
|
|
Left = 24
|
|
Top = 63
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label21: TLabel
|
|
Left = 184
|
|
Top = 17
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label22: TLabel
|
|
Left = 184
|
|
Top = 63
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object DBEdit13: TDBEdit
|
|
Left = 24
|
|
Top = 36
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'codigo'
|
|
DataSource = dtsMora
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit14: TDBEdit
|
|
Left = 24
|
|
Top = 82
|
|
Width = 137
|
|
Height = 21
|
|
DataField = 'valor'
|
|
DataSource = dtsMora
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit15: TDBEdit
|
|
Left = 184
|
|
Top = 36
|
|
Width = 50
|
|
Height = 21
|
|
DataField = 'taxa'
|
|
DataSource = dtsMora
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
object rDBDateTimePicker1: TrDBDateTimePicker
|
|
Left = 184
|
|
Top = 82
|
|
Width = 121
|
|
Height = 21
|
|
Date = 43017.406126562500000000
|
|
Time = 43017.406126562500000000
|
|
TabOrder = 4
|
|
DataField = 'data'
|
|
DataSource = dtsMora
|
|
ReadOnly = True
|
|
DBEditLabel.OwnCaption = 'Data de cadastramento:'
|
|
DBEditLabel.Visible = False
|
|
FormatEmpty = '__.__.__'
|
|
end
|
|
end
|
|
end
|
|
object tsGeraBoleto: TTabSheet
|
|
Caption = 'Gerar'
|
|
ImageIndex = 1
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pcGeraBoletos: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 753
|
|
Height = 496
|
|
ActivePage = tsGeraUm
|
|
Align = alClient
|
|
Style = tsButtons
|
|
TabOrder = 0
|
|
object tsGeraUm: TTabSheet
|
|
Caption = 'Manual'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object pcPesquisaGerar: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 745
|
|
Height = 465
|
|
ActivePage = TabSheet2
|
|
Align = alClient
|
|
Style = tsButtons
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Pesquisar'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object dbgrd_bolunico: TDBGrid
|
|
Left = 0
|
|
Top = 79
|
|
Width = 735
|
|
Height = 137
|
|
Align = alCustom
|
|
DataSource = dtsBolUnico
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
OnMouseUp = dbgrd_bolunicoMouseUp
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_NOME'
|
|
Title.Caption = 'Nome'
|
|
Width = 200
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_DOCUMENTO'
|
|
Title.Caption = 'Documento'
|
|
Width = 90
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_PRODUTO'
|
|
Title.Caption = 'Produto'
|
|
Width = 180
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'VL_TITULO'
|
|
Title.Caption = 'Principal'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'VL_CORRIGIDO'
|
|
Title.Caption = 'Corrigido'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Title.Caption = 'Vencimento'
|
|
Width = 75
|
|
Visible = True
|
|
end>
|
|
end
|
|
object dbgrd_emailsbolunico: TDBGrid
|
|
Left = 0
|
|
Top = 222
|
|
Width = 281
|
|
Height = 75
|
|
DataSource = dtsEmails
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
ReadOnly = True
|
|
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>
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 286
|
|
Top = 222
|
|
Width = 449
|
|
Height = 75
|
|
DataSource = dtsTelefones
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'NR_DDD'
|
|
Title.Caption = 'DDD'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'NR_NUMERO'
|
|
Title.Caption = 'N'#250'mero'
|
|
Width = 76
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_ATIVO'
|
|
Title.Caption = 'Ativo'
|
|
Width = 33
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_TIPOTEL'
|
|
Title.Caption = 'Tipo'
|
|
Width = 31
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_SMS'
|
|
Title.Caption = 'SMS'
|
|
Width = 32
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_DESC'
|
|
Title.Caption = 'Descri'#231#227'o'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBGrid2: TDBGrid
|
|
Left = 0
|
|
Top = 303
|
|
Width = 735
|
|
Height = 80
|
|
DataSource = dtsEnderecos
|
|
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, 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 = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_ENDERECO'
|
|
Title.Caption = 'Tipo'
|
|
Width = 32
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_ATIVO'
|
|
Title.Caption = 'Ativo'
|
|
Width = 33
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_LOGRADOURO'
|
|
Title.Caption = 'Rua'
|
|
Width = 282
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'NR_NUMERO'
|
|
Title.Caption = 'N'#250'mero'
|
|
Width = 49
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
Title.Caption = 'Complemento'
|
|
Width = 138
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_BAIRRO'
|
|
Title.Caption = 'Bairro'
|
|
Width = 93
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_CIDADE'
|
|
Title.Caption = 'Cidade'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_ESTADO'
|
|
Title.Caption = 'UF'
|
|
Width = 20
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_CEP'
|
|
Title.Caption = 'Cep'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TP_CONFIRMADO'
|
|
Title.Caption = 'Confirmado'
|
|
Width = 59
|
|
Visible = True
|
|
end>
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 3
|
|
Width = 735
|
|
Height = 70
|
|
Caption = 'Filtro:'
|
|
TabOrder = 4
|
|
object Label23: TLabel
|
|
Left = 16
|
|
Top = 16
|
|
Width = 139
|
|
Height = 13
|
|
Caption = 'Grupo de Empresa de Boleto:'
|
|
end
|
|
object Label24: TLabel
|
|
Left = 288
|
|
Top = 16
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Per'#237'odo Vencimento:'
|
|
end
|
|
object Label25: TLabel
|
|
Left = 379
|
|
Top = 39
|
|
Width = 6
|
|
Height = 13
|
|
Caption = 'a'
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 544
|
|
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 = SpeedButton2Click
|
|
end
|
|
object dblucb_filtrobolunico: TDBLookupComboBox
|
|
Left = 16
|
|
Top = 35
|
|
Width = 241
|
|
Height = 21
|
|
KeyField = 'ID_GRUPO'
|
|
ListField = 'TX_NOME'
|
|
ListSource = dtmSystem.dtsGrupoBoletos
|
|
TabOrder = 0
|
|
end
|
|
object dtp_vencinbolunico: TDateTimePicker
|
|
Left = 288
|
|
Top = 35
|
|
Width = 81
|
|
Height = 21
|
|
Date = 44215.663146446760000000
|
|
Time = 44215.663146446760000000
|
|
TabOrder = 1
|
|
end
|
|
object dtp_vencoutbolunico: TDateTimePicker
|
|
Left = 399
|
|
Top = 35
|
|
Width = 82
|
|
Height = 21
|
|
Date = 44215.663217199070000000
|
|
Time = 44215.663217199070000000
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Dados'
|
|
ImageIndex = 1
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Label26: TLabel
|
|
Left = 214
|
|
Top = 33
|
|
Width = 24
|
|
Height = 13
|
|
Caption = 'CEP:'
|
|
end
|
|
object Label27: TLabel
|
|
Left = 311
|
|
Top = 33
|
|
Width = 15
|
|
Height = 13
|
|
Caption = 'N'#186':'
|
|
end
|
|
object Label28: TLabel
|
|
Left = 416
|
|
Top = 33
|
|
Width = 67
|
|
Height = 13
|
|
Caption = 'Complemento:'
|
|
end
|
|
object Label29: TLabel
|
|
Left = 552
|
|
Top = 33
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Bairro:'
|
|
end
|
|
object Label30: TLabel
|
|
Left = 2
|
|
Top = 60
|
|
Width = 36
|
|
Height = 13
|
|
Caption = 'Cidade:'
|
|
end
|
|
object Label31: TLabel
|
|
Left = 171
|
|
Top = 60
|
|
Width = 17
|
|
Height = 13
|
|
Caption = 'UF:'
|
|
end
|
|
object Label32: TLabel
|
|
Left = 230
|
|
Top = 60
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Endere'#231'o:'
|
|
end
|
|
object lbl_dddbolunico: TLabel
|
|
Left = 2
|
|
Top = 33
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'DDD:'
|
|
end
|
|
object lbl_docbolunico: TLabel
|
|
Left = 286
|
|
Top = 6
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Documento:'
|
|
end
|
|
object lbl_emailbolunico: TLabel
|
|
Left = 489
|
|
Top = 6
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Email:'
|
|
end
|
|
object lbl_nomebolunico: TLabel
|
|
Left = 2
|
|
Top = 6
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Nome:'
|
|
end
|
|
object lbl_telbolunico: TLabel
|
|
Left = 82
|
|
Top = 33
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Telefone:'
|
|
end
|
|
object Label33: TLabel
|
|
Left = 2
|
|
Top = 106
|
|
Width = 59
|
|
Height = 13
|
|
Caption = 'Vencimento:'
|
|
end
|
|
object Label43: TLabel
|
|
Left = 159
|
|
Top = 106
|
|
Width = 75
|
|
Height = 13
|
|
Caption = 'Valor do Boleto:'
|
|
end
|
|
object Label44: TLabel
|
|
Left = 367
|
|
Top = 106
|
|
Width = 98
|
|
Height = 13
|
|
Caption = 'Valor de Abatimento:'
|
|
end
|
|
object Label53: TLabel
|
|
Left = 537
|
|
Top = 239
|
|
Width = 56
|
|
Height = 13
|
|
Caption = 'Data Limite:'
|
|
end
|
|
object Label54: TLabel
|
|
Left = 537
|
|
Top = 266
|
|
Width = 78
|
|
Height = 13
|
|
Caption = 'Dias p/ Agenda:'
|
|
end
|
|
object edt_bairrobolunico: TEdit
|
|
Left = 583
|
|
Top = 30
|
|
Width = 153
|
|
Height = 21
|
|
TabOrder = 8
|
|
end
|
|
object edt_cepbolunico: TEdit
|
|
Left = 244
|
|
Top = 30
|
|
Width = 60
|
|
Height = 21
|
|
TabOrder = 5
|
|
end
|
|
object edt_cidadebolunico: TEdit
|
|
Left = 44
|
|
Top = 57
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 9
|
|
end
|
|
object edt_compbolunico: TEdit
|
|
Left = 489
|
|
Top = 30
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 7
|
|
end
|
|
object edt_dddbolunico: TEdit
|
|
Left = 35
|
|
Top = 30
|
|
Width = 41
|
|
Height = 21
|
|
TabOrder = 3
|
|
end
|
|
object edt_docbolunico: TEdit
|
|
Left = 350
|
|
Top = 3
|
|
Width = 133
|
|
Height = 21
|
|
Hint = 'Documento sem ".", "-" ou "/'#39
|
|
TabOrder = 1
|
|
end
|
|
object edt_emailbolunico: TEdit
|
|
Left = 518
|
|
Top = 3
|
|
Width = 218
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object edt_endbolunico: TEdit
|
|
Left = 285
|
|
Top = 57
|
|
Width = 451
|
|
Height = 21
|
|
TabOrder = 11
|
|
end
|
|
object edt_endnumbolunico: TEdit
|
|
Left = 332
|
|
Top = 30
|
|
Width = 79
|
|
Height = 21
|
|
NumbersOnly = True
|
|
TabOrder = 6
|
|
end
|
|
object edt_estadobolunico: TEdit
|
|
Left = 194
|
|
Top = 57
|
|
Width = 30
|
|
Height = 21
|
|
TabOrder = 10
|
|
end
|
|
object edt_nomebolunico: TEdit
|
|
Left = 39
|
|
Top = 3
|
|
Width = 241
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object edt_telbolunico: TEdit
|
|
Left = 133
|
|
Top = 30
|
|
Width = 71
|
|
Height = 21
|
|
TabOrder = 4
|
|
end
|
|
object dt_vencbolunico: TDateTimePicker
|
|
Left = 67
|
|
Top = 103
|
|
Width = 86
|
|
Height = 21
|
|
Date = 44218.722504768520000000
|
|
Time = 44218.722504768520000000
|
|
TabOrder = 12
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 96
|
|
Width = 737
|
|
Height = 1
|
|
TabOrder = 14
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 0
|
|
Top = 126
|
|
Width = 242
|
|
Height = 87
|
|
Caption = 'Desconto 1:'
|
|
TabOrder = 15
|
|
object Label34: TLabel
|
|
Left = 143
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label35: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label36: TLabel
|
|
Left = 117
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_desc1: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 129
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'NAOTEMDESCONTO'
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa1bol: TEdit
|
|
Left = 176
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object edt_val1bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc1: TDateTimePicker
|
|
Left = 149
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 248
|
|
Top = 126
|
|
Width = 242
|
|
Height = 87
|
|
Caption = 'Desconto 2:'
|
|
TabOrder = 16
|
|
object Label37: TLabel
|
|
Left = 143
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label38: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label39: TLabel
|
|
Left = 117
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_desc2: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 129
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'NAOTEMDESCONTO'
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa2bol: TEdit
|
|
Left = 176
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object edt_val2bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc2: TDateTimePicker
|
|
Left = 149
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 496
|
|
Top = 126
|
|
Width = 242
|
|
Height = 87
|
|
Caption = 'Desconto 3:'
|
|
TabOrder = 17
|
|
object Label40: TLabel
|
|
Left = 143
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label41: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label42: TLabel
|
|
Left = 117
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_desc3: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 129
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'NAOTEMDESCONTO'
|
|
Items.Strings = (
|
|
'NAOTEMDESCONTO'
|
|
'VALORFIXODATAINFORMADA'
|
|
'PERCENTUALDATAINFORMADA'
|
|
'VALORANTECIPACAODIACORRIDO'
|
|
'VALORANTECIPACAODIAUTIL'
|
|
'PERCENTUALVALORNOMINALDIACORRIDO'
|
|
'PERCENTUALVALORNOMINALDIAUTIL')
|
|
end
|
|
object edt_taxa3bol: TEdit
|
|
Left = 176
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object edt_val3bol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_desc3: TDateTimePicker
|
|
Left = 149
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object edt_valorboleto: TEdit
|
|
Left = 240
|
|
Top = 103
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 13
|
|
OnKeyPress = edt_valorboletoKeyPress
|
|
end
|
|
object edt_abatimentobol: TEdit
|
|
Left = 471
|
|
Top = 103
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 24
|
|
OnKeyPress = edt_abatimentobolKeyPress
|
|
end
|
|
object GroupBox5: TGroupBox
|
|
Left = 263
|
|
Top = 212
|
|
Width = 257
|
|
Height = 87
|
|
Caption = 'Multa:'
|
|
TabOrder = 19
|
|
object Label45: TLabel
|
|
Left = 159
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label46: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label56: TLabel
|
|
Left = 117
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_multabol: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 145
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'NAOTEMMULTA'
|
|
Items.Strings = (
|
|
'NAOTEMMULTA'
|
|
'VALORFIXO'
|
|
'PERCENTUAL')
|
|
end
|
|
object edt_taxamultabol: TEdit
|
|
Left = 192
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object edt_vlmultabol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_mora: TDateTimePicker
|
|
Left = 149
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox6: TGroupBox
|
|
Left = 0
|
|
Top = 212
|
|
Width = 257
|
|
Height = 87
|
|
Caption = 'Mora:'
|
|
TabOrder = 18
|
|
object Label47: TLabel
|
|
Left = 159
|
|
Top = 27
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label48: TLabel
|
|
Left = 8
|
|
Top = 55
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label55: TLabel
|
|
Left = 122
|
|
Top = 55
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object cb_morabol: TComboBox
|
|
Left = 8
|
|
Top = 24
|
|
Width = 145
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'VALORDIA'
|
|
Items.Strings = (
|
|
'VALORDIA'
|
|
'TAXAMENSAL'
|
|
'ISENTO')
|
|
end
|
|
object edt_taxamorabol: TEdit
|
|
Left = 192
|
|
Top = 24
|
|
Width = 57
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object edt_vlmorabol: TEdit
|
|
Left = 41
|
|
Top = 51
|
|
Width = 70
|
|
Height = 21
|
|
TabOrder = 2
|
|
end
|
|
object dtp_multa: TDateTimePicker
|
|
Left = 154
|
|
Top = 51
|
|
Width = 84
|
|
Height = 21
|
|
Date = 44218.738580023150000000
|
|
Time = 44218.738580023150000000
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object GroupBox7: TGroupBox
|
|
Left = 0
|
|
Top = 298
|
|
Width = 737
|
|
Height = 136
|
|
Caption = 'Mensagem:'
|
|
TabOrder = 22
|
|
object Label49: TLabel
|
|
Left = 8
|
|
Top = 20
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 1:'
|
|
end
|
|
object Label50: TLabel
|
|
Left = 8
|
|
Top = 44
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 2:'
|
|
end
|
|
object Label51: TLabel
|
|
Left = 8
|
|
Top = 68
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 3:'
|
|
end
|
|
object Label52: TLabel
|
|
Left = 8
|
|
Top = 92
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 4:'
|
|
end
|
|
object Label57: TLabel
|
|
Left = 8
|
|
Top = 115
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Linha 5:'
|
|
end
|
|
object edt_linha1bol: TEdit
|
|
Left = 52
|
|
Top = 17
|
|
Width = 671
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 0
|
|
end
|
|
object edt_linha2bol: TEdit
|
|
Left = 52
|
|
Top = 41
|
|
Width = 671
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 1
|
|
end
|
|
object edt_linha3bol: TEdit
|
|
Left = 52
|
|
Top = 65
|
|
Width = 671
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 2
|
|
end
|
|
object edt_linha4bol: TEdit
|
|
Left = 52
|
|
Top = 89
|
|
Width = 671
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 3
|
|
end
|
|
object edt_linha5bol: TEdit
|
|
Left = 52
|
|
Top = 112
|
|
Width = 671
|
|
Height = 21
|
|
MaxLength = 78
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object btn_gerarbolunico: TButton
|
|
Left = 659
|
|
Top = 103
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Gerar'
|
|
TabOrder = 23
|
|
OnClick = btn_gerarbolunicoClick
|
|
end
|
|
object cb_dtlimitebol: TComboBox
|
|
Left = 637
|
|
Top = 236
|
|
Width = 92
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 20
|
|
Text = 'TRINTA'
|
|
Items.Strings = (
|
|
'TRINTA'
|
|
'SESSENTA')
|
|
end
|
|
object cb_agendabol: TComboBox
|
|
Left = 637
|
|
Top = 263
|
|
Width = 92
|
|
Height = 21
|
|
ItemIndex = 0
|
|
TabOrder = 21
|
|
Text = 'TRINTA'
|
|
Items.Strings = (
|
|
'TRINTA'
|
|
'SESSENTA')
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object tsGeraAuto: TTabSheet
|
|
Caption = 'Autom'#225'tico'
|
|
ImageIndex = 1
|
|
TabVisible = False
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 533
|
|
Width = 767
|
|
ExplicitTop = 533
|
|
ExplicitWidth = 767
|
|
end
|
|
object dtsBoletos: TDataSource
|
|
DataSet = tblBoletos
|
|
OnDataChange = dtsBoletosDataChange
|
|
Left = 168
|
|
Top = 1
|
|
end
|
|
object tblBoletos: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 296
|
|
Top = 1
|
|
object tblBoletosnossoNumero: TStringField
|
|
FieldName = 'nossoNumero'
|
|
Size = 255
|
|
end
|
|
object tblBoletosseuNumero: TStringField
|
|
FieldName = 'seuNumero'
|
|
Size = 255
|
|
end
|
|
object tblBoletoscnpjCpfSacado: TStringField
|
|
FieldName = 'cnpjCpfSacado'
|
|
Size = 255
|
|
end
|
|
object tblBoletosnomeSacado: TStringField
|
|
FieldName = 'nomeSacado'
|
|
Size = 255
|
|
end
|
|
object tblBoletoscodigoBaixa: TStringField
|
|
FieldName = 'codigoBaixa'
|
|
Size = 255
|
|
end
|
|
object tblBoletossituacao: TStringField
|
|
FieldName = 'situacao'
|
|
Size = 255
|
|
end
|
|
object tblBoletosdataPagtoBaixa: TDateField
|
|
FieldName = 'dataPagtoBaixa'
|
|
end
|
|
object tblBoletosdataVencimento: TDateField
|
|
FieldName = 'dataVencimento'
|
|
end
|
|
object tblBoletosvalorNominal: TCurrencyField
|
|
FieldName = 'valorNominal'
|
|
end
|
|
object tblBoletosvalorTotalRecebimento: TCurrencyField
|
|
FieldName = 'valorTotalRecebimento'
|
|
end
|
|
object tblBoletostelefone: TStringField
|
|
FieldName = 'telefone'
|
|
Size = 255
|
|
end
|
|
object tblBoletosemail: TStringField
|
|
FieldName = 'email'
|
|
Size = 255
|
|
end
|
|
object tblBoletosdataEmissao: TDateField
|
|
FieldName = 'dataEmissao'
|
|
end
|
|
object tblBoletosdataLimite: TDateField
|
|
FieldName = 'dataLimite'
|
|
end
|
|
object tblBoletoslinhaDigitavel: TStringField
|
|
FieldName = 'linhaDigitavel'
|
|
Size = 255
|
|
end
|
|
object tblBoletosvalorJuros: TCurrencyField
|
|
FieldName = 'valorJuros'
|
|
end
|
|
object tblBoletosvalorMulta: TCurrencyField
|
|
FieldName = 'valorMulta'
|
|
end
|
|
object tblBoletosdesconto1: TBlobField
|
|
FieldName = 'desconto1'
|
|
end
|
|
object tblBoletosdesconto2: TBlobField
|
|
FieldName = 'desconto2'
|
|
end
|
|
object tblBoletosdesconto3: TBlobField
|
|
FieldName = 'desconto3'
|
|
end
|
|
object tblBoletosmulta: TBlobField
|
|
FieldName = 'multa'
|
|
end
|
|
object tblBoletosmora: TBlobField
|
|
FieldName = 'mora'
|
|
end
|
|
object tblBoletosvalorAbatimento: TCurrencyField
|
|
FieldName = 'valorAbatimento'
|
|
end
|
|
end
|
|
object IdHTTP: TIdHTTP
|
|
IOHandler = IdSSLHandler
|
|
AllowCookies = True
|
|
ProxyParams.BasicAuthentication = False
|
|
ProxyParams.ProxyPort = 0
|
|
Request.ContentLength = -1
|
|
Request.ContentRangeEnd = -1
|
|
Request.ContentRangeStart = -1
|
|
Request.ContentRangeInstanceLength = -1
|
|
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 = 681
|
|
Top = 1
|
|
end
|
|
object IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL
|
|
MaxLineAction = maException
|
|
Port = 0
|
|
DefaultPort = 0
|
|
SSLOptions.Method = sslvSSLv23
|
|
SSLOptions.SSLVersions = [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2]
|
|
SSLOptions.Mode = sslmUnassigned
|
|
SSLOptions.VerifyMode = []
|
|
SSLOptions.VerifyDepth = 0
|
|
Left = 649
|
|
Top = 1
|
|
end
|
|
object tblDesc1: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 264
|
|
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 = 232
|
|
Top = 1
|
|
end
|
|
object tblDesc2: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 728
|
|
Top = 331
|
|
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 = 728
|
|
Top = 235
|
|
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 = 728
|
|
Top = 283
|
|
end
|
|
object tblMulta: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 425
|
|
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 = 457
|
|
Top = 1
|
|
end
|
|
object tblMora: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 489
|
|
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 = 521
|
|
Top = 1
|
|
end
|
|
object pum_download: TPopupMenu
|
|
Left = 584
|
|
Top = 1
|
|
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 = 552
|
|
Top = 1
|
|
end
|
|
object IdDecoderMIME: TIdDecoderMIME
|
|
FillChar = '='
|
|
Left = 616
|
|
Top = 1
|
|
end
|
|
object zroqryBolUnico: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0'
|
|
'd.ID_DEVEDOR,'
|
|
'd.TX_NOME,'
|
|
|
|
'case when d.TP_CLIENTE = '#39'F'#39' then d.CD_CPF when d.TP_CLIENTE = '#39 +
|
|
'J'#39' then d.CD_CNPJ end as TX_DOCUMENTO,'
|
|
't.TX_PRODUTO,'
|
|
't.VL_TITULO,'
|
|
't.VL_CORRIGIDO,'
|
|
't.DT_VENCIMENTO,'
|
|
't.ID_EMPRESA,'
|
|
't.ID_TITULO'
|
|
'from chg_titulos t'
|
|
'left join CHG_DEVEDORES d on d.ID_DEVEDOR = t.ID_DEVEDOR'
|
|
'where'
|
|
|
|
't.ID_EMPRESA in (select ID_EMPRESA from CHG_GRUPO_BOLETO_EMPRESA' +
|
|
'S where ID_GRUPO_BOLETO = 1)'
|
|
'and'
|
|
'(t.TP_SITUACAO = '#39'A'#39' or t.TP_SITUACAO = '#39'AC'#39')'
|
|
'and'
|
|
|
|
'(t.DT_VENCIMENTO >= cast('#39'2020-01-01'#39' as date) and t.DT_VENCIMEN' +
|
|
'TO <= cast('#39'2020-01-01'#39' as date))')
|
|
Params = <>
|
|
Left = 728
|
|
Top = 190
|
|
object zroqryBolUnicoID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object zroqryBolUnicoTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object zroqryBolUnicoTX_DOCUMENTO: TWideStringField
|
|
FieldName = 'TX_DOCUMENTO'
|
|
ReadOnly = True
|
|
Size = 18
|
|
end
|
|
object zroqryBolUnicoTX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zroqryBolUnicoVL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
currency = True
|
|
end
|
|
object zroqryBolUnicoVL_CORRIGIDO: TFloatField
|
|
FieldName = 'VL_CORRIGIDO'
|
|
currency = True
|
|
end
|
|
object zroqryBolUnicoDT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Required = True
|
|
end
|
|
object zroqryBolUnicoID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object zroqryBolUnicoID_TITULO: TIntegerField
|
|
FieldName = 'ID_TITULO'
|
|
Required = True
|
|
end
|
|
end
|
|
object dtsBolUnico: TDataSource
|
|
DataSet = zroqryBolUnico
|
|
Left = 728
|
|
Top = 142
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 728
|
|
Top = 46
|
|
object mnuCadastro: TMenuItem
|
|
Caption = 'Cadastro'
|
|
object mnhGrupoBoletos: TMenuItem
|
|
Caption = 'Grupos de Empresas'
|
|
OnClick = mnhGrupoBoletosClick
|
|
end
|
|
end
|
|
end
|
|
object zroqryEmails: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_emails')
|
|
Params = <>
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsBolUnico
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
Left = 728
|
|
Top = 94
|
|
object zroqryEmailsTX_EMAIL: TWideStringField
|
|
FieldName = 'TX_EMAIL'
|
|
Size = 40
|
|
end
|
|
object zroqryEmailsID_EMAIL: TIntegerField
|
|
FieldName = 'ID_EMAIL'
|
|
Required = True
|
|
end
|
|
object zroqryEmailsID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
end
|
|
object zroqryEmailsID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object zroqryEmailsDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
end
|
|
end
|
|
object dtsEmails: TDataSource
|
|
DataSet = zroqryEmails
|
|
Left = 328
|
|
Top = 1
|
|
end
|
|
object zroqryTelefones: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_telefones')
|
|
Params = <>
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsBolUnico
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
Left = 360
|
|
Top = 1
|
|
object zroqryTelefonesNR_DDD: TWideStringField
|
|
FieldName = 'NR_DDD'
|
|
Size = 4
|
|
end
|
|
object zroqryTelefonesNR_NUMERO: TWideStringField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object zroqryTelefonesTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object zroqryTelefonesTP_TIPOTEL: TWideStringField
|
|
FieldName = 'TP_TIPOTEL'
|
|
Size = 1
|
|
end
|
|
object zroqryTelefonesTP_SMS: TWideStringField
|
|
FieldName = 'TP_SMS'
|
|
Size = 1
|
|
end
|
|
object zroqryTelefonesTX_DESC: TWideStringField
|
|
FieldName = 'TX_DESC'
|
|
Size = 100
|
|
end
|
|
object zroqryTelefonesID_TELEFONE: TIntegerField
|
|
FieldName = 'ID_TELEFONE'
|
|
Required = True
|
|
end
|
|
object zroqryTelefonesID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object zroqryTelefonesTX_OBS: TWideMemoField
|
|
FieldName = 'TX_OBS'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object zroqryTelefonesID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object zroqryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
end
|
|
end
|
|
object dtsTelefones: TDataSource
|
|
DataSet = zroqryTelefones
|
|
Left = 392
|
|
Top = 1
|
|
end
|
|
object zroqryEnderecos: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select * from chg_enderecos')
|
|
Params = <>
|
|
MasterFields = 'ID_DEVEDOR'
|
|
MasterSource = dtsBolUnico
|
|
LinkedFields = 'ID_DEVEDOR'
|
|
Left = 200
|
|
Top = 1
|
|
object zroqryEnderecosID_ENDERECO: TIntegerField
|
|
FieldName = 'ID_ENDERECO'
|
|
Required = True
|
|
end
|
|
object zroqryEnderecosID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object zroqryEnderecosTP_ENDERECO: TWideStringField
|
|
FieldName = 'TP_ENDERECO'
|
|
Size = 1
|
|
end
|
|
object zroqryEnderecosTP_ATIVO: TWideStringField
|
|
FieldName = 'TP_ATIVO'
|
|
Size = 1
|
|
end
|
|
object zroqryEnderecosTX_LOGRADOURO: TWideStringField
|
|
FieldName = 'TX_LOGRADOURO'
|
|
Size = 100
|
|
end
|
|
object zroqryEnderecosTX_BAIRRO: TWideStringField
|
|
FieldName = 'TX_BAIRRO'
|
|
Size = 100
|
|
end
|
|
object zroqryEnderecosID_CIDADE: TIntegerField
|
|
FieldName = 'ID_CIDADE'
|
|
end
|
|
object zroqryEnderecosID_ESTADO: TIntegerField
|
|
FieldName = 'ID_ESTADO'
|
|
end
|
|
object zroqryEnderecosTX_CEP: TWideStringField
|
|
FieldName = 'TX_CEP'
|
|
Size = 9
|
|
end
|
|
object zroqryEnderecosTX_COMPLEMENTO: TWideStringField
|
|
FieldName = 'TX_COMPLEMENTO'
|
|
Size = 100
|
|
end
|
|
object zroqryEnderecosNR_NUMERO: TFloatField
|
|
FieldName = 'NR_NUMERO'
|
|
end
|
|
object zroqryEnderecosTP_REFERENCIA: TWideStringField
|
|
FieldName = 'TP_REFERENCIA'
|
|
Size = 1
|
|
end
|
|
object zroqryEnderecosID_HIGIENIZADORA: TIntegerField
|
|
FieldName = 'ID_HIGIENIZADORA'
|
|
end
|
|
object zroqryEnderecosTP_CONFIRMADO: TWideStringField
|
|
FieldName = 'TP_CONFIRMADO'
|
|
Size = 1
|
|
end
|
|
object zroqryEnderecosID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object zroqryEnderecosTX_ESTADO: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_ESTADO'
|
|
LookupDataSet = dtmSystem.tblEstados
|
|
LookupKeyFields = 'ID_ESTADO'
|
|
LookupResultField = 'TX_SIGLA'
|
|
KeyFields = 'ID_ESTADO'
|
|
Size = 255
|
|
Lookup = True
|
|
end
|
|
object zroqryEnderecosTX_CIDADE: TStringField
|
|
FieldKind = fkLookup
|
|
FieldName = 'TX_CIDADE'
|
|
LookupDataSet = dtmSystem.tblCidadesConsulta
|
|
LookupKeyFields = 'ID_CIDADE'
|
|
LookupResultField = 'TX_NOME'
|
|
KeyFields = 'ID_CIDADE'
|
|
Size = 255
|
|
Lookup = True
|
|
end
|
|
end
|
|
object dtsEnderecos: TDataSource
|
|
DataSet = zroqryEnderecos
|
|
Left = 136
|
|
Top = 1
|
|
end
|
|
object pum_incldel: TPopupMenu
|
|
Left = 104
|
|
Top = 1
|
|
object mnuIncluir: TMenuItem
|
|
Caption = 'Incluir'
|
|
OnClick = mnuIncluirClick
|
|
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 = 728
|
|
Top = 376
|
|
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
|
|
end
|