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.
490 lines
12 KiB
490 lines
12 KiB
inherited frmGrupoBoletoEmpresas: TfrmGrupoBoletoEmpresas
|
|
Caption = 'Grupo de Empresas para Boleto'
|
|
ClientHeight = 527
|
|
ClientWidth = 817
|
|
ExplicitWidth = 833
|
|
ExplicitHeight = 565
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited GroupBox2: TGroupBox
|
|
Top = 200
|
|
Width = 803
|
|
Height = 302
|
|
ExplicitTop = 200
|
|
ExplicitWidth = 803
|
|
ExplicitHeight = 302
|
|
inherited pcClientes: TPageControl
|
|
Width = 788
|
|
Height = 288
|
|
ExplicitWidth = 788
|
|
ExplicitHeight = 288
|
|
inherited tabCadastro: TTabSheet
|
|
ExplicitLeft = 4
|
|
ExplicitTop = 24
|
|
ExplicitWidth = 780
|
|
ExplicitHeight = 260
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 3
|
|
Top = 16
|
|
Width = 480
|
|
Height = 41
|
|
DataSource = dtsDB2
|
|
TabOrder = 0
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 3
|
|
Top = 119
|
|
Width = 643
|
|
Height = 120
|
|
DataSource = dtmSystem.dtsGrupoBoletoEmpresas
|
|
Options = [dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
|
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'
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBLookupComboBox1: TDBLookupComboBox
|
|
Left = 3
|
|
Top = 80
|
|
Width = 480
|
|
Height = 21
|
|
DataField = 'ID_EMPRESA'
|
|
DataSource = dtmSystem.dtsGrupoBoletoEmpresas
|
|
KeyField = 'ID_EMPRESA'
|
|
ListField = 'TX_FANTASIA'
|
|
ListSource = dtmSystem.dtsCHGEmpresa
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 508
|
|
Width = 817
|
|
ExplicitTop = 508
|
|
ExplicitWidth = 817
|
|
end
|
|
inherited grpDescricao: TGroupBox
|
|
Width = 803
|
|
Height = 139
|
|
ExplicitWidth = 803
|
|
ExplicitHeight = 139
|
|
object Label1: TLabel [1]
|
|
Left = 12
|
|
Top = 51
|
|
Width = 46
|
|
Height = 13
|
|
Caption = 'Descri'#231#227'o'
|
|
end
|
|
inherited DBEdit1: TDBEdit
|
|
Width = 245
|
|
DataField = 'TX_NOME'
|
|
ExplicitWidth = 245
|
|
end
|
|
object DBMemo1: TDBMemo
|
|
Left = 12
|
|
Top = 70
|
|
Width = 245
|
|
Height = 55
|
|
DataField = 'TX_DESCRICAO'
|
|
DataSource = dtsDB
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 263
|
|
Top = 3
|
|
Width = 537
|
|
Height = 130
|
|
ActivePage = TabSheet1
|
|
Style = tsButtons
|
|
TabOrder = 2
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Desconto 1'
|
|
object Label2: TLabel
|
|
Left = 320
|
|
Top = 19
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 320
|
|
Top = 74
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object DBRadioGroup1: TDBRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 300
|
|
Height = 118
|
|
DataField = 'TP_DESC1'
|
|
DataSource = dtsDB
|
|
Items.Strings = (
|
|
'N'#227'o tem desconto.'
|
|
'Valor fixo at'#233' data informada.'
|
|
'Percentual at'#233' data informada.'
|
|
'Valor por antecipa'#231#227'o (dia corrido).'
|
|
'Valor por antecipa'#231#227'o (dia '#250'til).'
|
|
'Percentual sobre o valor nominal por dia corrido.'
|
|
'Percentual sobre o valor nominal por dia '#250'til.')
|
|
TabOrder = 0
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6')
|
|
end
|
|
object DBEdit2: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_DESC1'
|
|
DataSource = dtsDB
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit3: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_DESC1'
|
|
DataSource = dtsDB
|
|
TabOrder = 2
|
|
end
|
|
object rDBDateTimePicker1: TrDBDateTimePicker
|
|
Left = 376
|
|
Top = 70
|
|
Width = 121
|
|
Height = 21
|
|
Date = 43017.406126562500000000
|
|
Time = 43017.406126562500000000
|
|
TabOrder = 4
|
|
DataField = 'DT_DESC1'
|
|
DataSource = dtsDB
|
|
ReadOnly = True
|
|
DBEditLabel.OwnCaption = 'Data de cadastramento:'
|
|
DBEditLabel.Visible = False
|
|
FormatEmpty = '__.__.__'
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Desconto 2'
|
|
ImageIndex = 1
|
|
object Label5: TLabel
|
|
Left = 320
|
|
Top = 74
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 320
|
|
Top = 19
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object DBRadioGroup2: TDBRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 300
|
|
Height = 118
|
|
DataField = 'TP_DESC2'
|
|
DataSource = dtsDB
|
|
Items.Strings = (
|
|
'N'#227'o tem desconto.'
|
|
'Valor fixo at'#233' data informada.'
|
|
'Percentual at'#233' data informada.'
|
|
'Valor por antecipa'#231#227'o (dia corrido).'
|
|
'Valor por antecipa'#231#227'o (dia '#250'til).'
|
|
'Percentual sobre o valor nominal por dia corrido.'
|
|
'Percentual sobre o valor nominal por dia '#250'til.')
|
|
TabOrder = 1
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6')
|
|
end
|
|
object DBEdit4: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_DESC2'
|
|
DataSource = dtsDB
|
|
TabOrder = 0
|
|
end
|
|
object rDBDateTimePicker2: TrDBDateTimePicker
|
|
Left = 376
|
|
Top = 70
|
|
Width = 121
|
|
Height = 21
|
|
Date = 43017.406126562500000000
|
|
Time = 43017.406126562500000000
|
|
TabOrder = 3
|
|
DataField = 'DT_DESC2'
|
|
DataSource = dtsDB
|
|
ReadOnly = True
|
|
DBEditLabel.OwnCaption = 'Data de cadastramento:'
|
|
DBEditLabel.Visible = False
|
|
FormatEmpty = '__.__.__'
|
|
end
|
|
object DBEdit5: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_DESC2'
|
|
DataSource = dtsDB
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Desconto 3'
|
|
ImageIndex = 2
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Label8: TLabel
|
|
Left = 320
|
|
Top = 74
|
|
Width = 27
|
|
Height = 13
|
|
Caption = 'Data:'
|
|
end
|
|
object Label9: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object Label10: TLabel
|
|
Left = 320
|
|
Top = 19
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object DBRadioGroup3: TDBRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 300
|
|
Height = 118
|
|
DataField = 'TP_DESC3'
|
|
DataSource = dtsDB
|
|
Items.Strings = (
|
|
'N'#227'o tem desconto.'
|
|
'Valor fixo at'#233' data informada.'
|
|
'Percentual at'#233' data informada.'
|
|
'Valor por antecipa'#231#227'o (dia corrido).'
|
|
'Valor por antecipa'#231#227'o (dia '#250'til).'
|
|
'Percentual sobre o valor nominal por dia corrido.'
|
|
'Percentual sobre o valor nominal por dia '#250'til.')
|
|
TabOrder = 1
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'6')
|
|
end
|
|
object DBEdit6: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_DESC3'
|
|
DataSource = dtsDB
|
|
TabOrder = 0
|
|
end
|
|
object rDBDateTimePicker3: TrDBDateTimePicker
|
|
Left = 376
|
|
Top = 70
|
|
Width = 121
|
|
Height = 21
|
|
Date = 43017.406126562500000000
|
|
Time = 43017.406126562500000000
|
|
TabOrder = 3
|
|
DataField = 'DT_DESC3'
|
|
DataSource = dtsDB
|
|
ReadOnly = True
|
|
DBEditLabel.OwnCaption = 'Data de cadastramento:'
|
|
DBEditLabel.Visible = False
|
|
FormatEmpty = '__.__.__'
|
|
end
|
|
object DBEdit7: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_DESC3'
|
|
DataSource = dtsDB
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
object TabSheet4: TTabSheet
|
|
Caption = 'Multa'
|
|
ImageIndex = 3
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Label11: TLabel
|
|
Left = 320
|
|
Top = 19
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label12: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object DBRadioGroup4: TDBRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 300
|
|
Height = 118
|
|
DataField = 'TP_MULTA'
|
|
DataSource = dtsDB
|
|
Items.Strings = (
|
|
'N'#227'o tem multa'
|
|
'Valor Fixo'
|
|
'Percentual')
|
|
TabOrder = 0
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2')
|
|
end
|
|
object DBEdit8: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_MULTA'
|
|
DataSource = dtsDB
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit9: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_MULTA'
|
|
DataSource = dtsDB
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object TabSheet5: TTabSheet
|
|
Caption = 'Mora'
|
|
ImageIndex = 4
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object Label13: TLabel
|
|
Left = 320
|
|
Top = 19
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Taxa:'
|
|
end
|
|
object Label14: TLabel
|
|
Left = 320
|
|
Top = 46
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Valor:'
|
|
end
|
|
object DBRadioGroup5: TDBRadioGroup
|
|
Left = -4
|
|
Top = -15
|
|
Width = 300
|
|
Height = 118
|
|
DataField = 'TP_MORA'
|
|
DataSource = dtsDB
|
|
Items.Strings = (
|
|
'Valor ao dia'
|
|
'Taxa mensal'
|
|
'N'#227'o h'#225' mora')
|
|
TabOrder = 0
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2')
|
|
end
|
|
object DBEdit10: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_MORA'
|
|
DataSource = dtsDB
|
|
TabOrder = 1
|
|
end
|
|
object DBEdit11: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_MORA'
|
|
DataSource = dtsDB
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited navPrincipal: TDBNavigator
|
|
DataSource = dtsDB
|
|
end
|
|
inherited dtsDB: TDataSource
|
|
DataSet = dtmSystem.tblGrupoBoletos
|
|
end
|
|
object dtsDB2: TDataSource
|
|
DataSet = dtmSystem.tblGrupoBoletoEmpresas
|
|
OnStateChange = dtsDB2StateChange
|
|
Left = 592
|
|
Top = 8
|
|
end
|
|
end
|