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