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.
438 lines
10 KiB
438 lines
10 KiB
inherited frmGrupoBoletoEmpresas: TfrmGrupoBoletoEmpresas
|
|
Caption = 'Grupo de Empresas para Boleto'
|
|
ClientHeight = 518
|
|
ClientWidth = 817
|
|
ExplicitWidth = 825
|
|
ExplicitHeight = 549
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited GroupBox2: TGroupBox
|
|
Top = 194
|
|
Width = 803
|
|
Height = 302
|
|
Anchors = [akLeft, akBottom]
|
|
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 Label15: TLabel
|
|
Left = 0
|
|
Top = 66
|
|
Width = 44
|
|
Height = 13
|
|
Caption = 'Empresa:'
|
|
end
|
|
object Label16: TLabel
|
|
Left = 411
|
|
Top = 66
|
|
Width = 32
|
|
Height = 13
|
|
Caption = 'Grupo:'
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
Left = 0
|
|
Top = 11
|
|
Width = 660
|
|
Height = 49
|
|
DataSource = dtsDB2
|
|
TabOrder = 0
|
|
end
|
|
object dbgrdGrupoEmpresa: TDBGrid
|
|
Left = 0
|
|
Top = 107
|
|
Width = 780
|
|
Height = 153
|
|
Align = alBottom
|
|
Options = [dgTitles, 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'
|
|
Title.Caption = 'Empresa'
|
|
Width = 300
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'TX_GRUPO'
|
|
Title.Caption = 'Grupo'
|
|
Width = 300
|
|
Visible = True
|
|
end>
|
|
end
|
|
object DBLookupComboBox1: TDBLookupComboBox
|
|
Left = 0
|
|
Top = 83
|
|
Width = 369
|
|
Height = 21
|
|
DataField = 'ID_EMPRESA'
|
|
KeyField = 'ID_EMPRESA'
|
|
ListField = 'TX_FANTASIA'
|
|
ListSource = dtmSystem.dtsCHGEmpresa
|
|
TabOrder = 2
|
|
end
|
|
object DBLookupComboBox2: TDBLookupComboBox
|
|
Left = 411
|
|
Top = 83
|
|
Width = 369
|
|
Height = 21
|
|
DataField = 'ID_GRUPO_BOLETO'
|
|
KeyField = 'ID_GRUPO'
|
|
ListField = 'TX_NOME'
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited stbStatus: TStatusBar
|
|
Top = 499
|
|
Width = 817
|
|
ExplicitTop = 508
|
|
ExplicitWidth = 817
|
|
end
|
|
inherited grpDescricao: TGroupBox
|
|
Width = 803
|
|
Height = 133
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
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 = TabSheet3
|
|
Style = tsButtons
|
|
TabOrder = 2
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Desconto 1'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
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 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.')
|
|
TabOrder = 0
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2')
|
|
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
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Desconto 2'
|
|
ImageIndex = 1
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
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.')
|
|
TabOrder = 1
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2')
|
|
end
|
|
object DBEdit4: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_DESC2'
|
|
DataSource = dtsDB
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit5: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_DESC2'
|
|
DataSource = dtsDB
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Desconto 3'
|
|
ImageIndex = 2
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
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.')
|
|
TabOrder = 1
|
|
Values.Strings = (
|
|
'0'
|
|
'1'
|
|
'2')
|
|
end
|
|
object DBEdit6: TDBEdit
|
|
Left = 376
|
|
Top = 16
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'PR_DESC3'
|
|
DataSource = dtsDB
|
|
TabOrder = 0
|
|
end
|
|
object DBEdit7: TDBEdit
|
|
Left = 376
|
|
Top = 43
|
|
Width = 121
|
|
Height = 21
|
|
DataField = 'NR_DESC3'
|
|
DataSource = dtsDB
|
|
TabOrder = 2
|
|
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
|
|
object dtsDB2: TDataSource
|
|
OnStateChange = dtsDB2StateChange
|
|
Left = 592
|
|
Top = 8
|
|
end
|
|
end
|