object frmBoleto: TfrmBoleto Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Boleto' ClientHeight = 671 ClientWidth = 802 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 785 Height = 153 Caption = 'Conta / T'#237'tulo' TabOrder = 0 object dbgrd_titulos: TDBGrid Left = 167 Top = 28 Width = 608 Height = 113 DataSource = dtsTitulos ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'TX_PRODUTO' Title.Caption = 'T'#237'tulo' Width = 280 Visible = True end item Expanded = False FieldName = 'VL_TITULO' Title.Caption = 'Valor' Visible = True end item Expanded = False FieldName = 'DT_VENCIMENTO' Title.Caption = 'Vencimento' Visible = True end item Expanded = False FieldName = 'DT_ENTRADA' Title.Caption = 'Entrada' Visible = True end> end object dblucbx_contas: TDBLookupComboBox Left = 12 Top = 28 Width = 145 Height = 21 KeyField = 'ID_CONTA' ListField = 'TX_DESCRICAO' ListSource = dtsContas TabOrder = 1 end end object GroupBox2: TGroupBox Left = 8 Top = 167 Width = 785 Height = 63 Caption = 'Informa'#231#245'es Sobre a Cobran'#231'a' TabOrder = 1 object Label1: TLabel Left = 8 Top = 16 Width = 179 Height = 13 Caption = 'Mensagem para Local de Pagamento:' end object Label2: TLabel Left = 383 Top = 16 Width = 71 Height = 13 Caption = 'Esp'#233'cie Docto:' end object Label3: TLabel Left = 463 Top = 16 Width = 75 Height = 13 Caption = 'Esp'#233'cie Moeda:' end object Label4: TLabel Left = 544 Top = 16 Width = 34 Height = 13 Caption = 'Aceite:' end object Label5: TLabel Left = 624 Top = 16 Width = 43 Height = 13 Caption = 'Carteira:' end object Label6: TLabel Left = 672 Top = 16 Width = 73 Height = 13 Caption = 'Nosso N'#250'mero:' end object edtLocalPag: TEdit Left = 8 Top = 32 Width = 369 Height = 21 TabOrder = 0 end object edtEspecieDoc: TEdit Left = 383 Top = 32 Width = 73 Height = 21 TabOrder = 1 end object edtEspecieMod: TEdit Left = 463 Top = 32 Width = 76 Height = 21 TabOrder = 2 end object cbxAceite: TComboBox Left = 544 Top = 32 Width = 73 Height = 21 ItemIndex = 0 TabOrder = 3 Text = 'N'#227'o' Items.Strings = ( 'N'#227'o' 'Sim') end object edtCarteira: TEdit Left = 624 Top = 32 Width = 41 Height = 21 TabOrder = 4 end object edtNossoNro: TEdit Left = 672 Top = 32 Width = 103 Height = 21 TabOrder = 5 end end object GroupBox3: TGroupBox Left = 8 Top = 240 Width = 609 Height = 105 Caption = 'Acr'#233'scimos\Descontos' TabOrder = 2 object Label7: TLabel Left = 8 Top = 16 Width = 72 Height = 13 Caption = '% Mora\Juros:' end object Label8: TLabel Left = 162 Top = 16 Width = 76 Height = 13 Caption = 'Valor Desconto:' end object Label9: TLabel Left = 316 Top = 16 Width = 86 Height = 13 Caption = 'Valor Abatimento:' end object Label10: TLabel Left = 466 Top = 16 Width = 44 Height = 13 Caption = '% Multa:' end object Label11: TLabel Left = 8 Top = 56 Width = 84 Height = 13 Caption = 'Data Mora\Juros:' end object Label12: TLabel Left = 162 Top = 56 Width = 75 Height = 13 Caption = 'Data Desconto:' end object Label13: TLabel Left = 316 Top = 56 Width = 85 Height = 13 Caption = 'Data Abatimento:' end object Label14: TLabel Left = 466 Top = 56 Width = 71 Height = 13 Caption = 'Data Protesto:' end object edtValorDesconto: TEdit Left = 162 Top = 32 Width = 135 Height = 21 TabOrder = 0 end object edtValorAbatimento: TEdit Left = 316 Top = 32 Width = 135 Height = 21 Enabled = False TabOrder = 1 end object dbdtp_juros: TrDBDateTimePicker Left = 8 Top = 72 Width = 135 Height = 21 Date = 43265.429382349540000000 Time = 43265.429382349540000000 TabOrder = 3 DataField = 'DT_VENCIMENTO' DataSource = dtsTitulos ReadOnly = True DBEditLabel.Visible = False FormatEmpty = '__.__.__' end object dbdtp_desc: TrDBDateTimePicker Left = 162 Top = 72 Width = 135 Height = 21 Date = 43265.429382349540000000 Time = 43265.429382349540000000 TabOrder = 5 DataField = 'DT_VENCIMENTO' DataSource = dtsTitulos ReadOnly = True DBEditLabel.Visible = False FormatEmpty = '__.__.__' end object dbedt_mora: TDBEdit Left = 8 Top = 32 Width = 135 Height = 21 DataField = 'PR_JUROS' DataSource = dtmSystem.dtsCHGEmpresa ReadOnly = True TabOrder = 6 end object dbedt_multa: TDBEdit Left = 464 Top = 32 Width = 135 Height = 21 DataField = 'PR_MULTA' DataSource = dtmSystem.dtsCHGEmpresa ReadOnly = True TabOrder = 7 end object dtp_abatimento: TDateTimePicker Left = 316 Top = 72 Width = 135 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 TabOrder = 8 end object dtp_protesto: TDateTimePicker Left = 466 Top = 72 Width = 133 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 Enabled = False TabOrder = 9 end object cbx_abatimento: TCheckBox Left = 408 Top = 15 Width = 22 Height = 17 TabOrder = 10 OnClick = cbx_abatimentoClick end object cbx_protesto: TCheckBox Left = 543 Top = 55 Width = 19 Height = 17 TabOrder = 11 OnClick = cbx_protestoClick end end object GroupBox4: TGroupBox Left = 8 Top = 351 Width = 609 Height = 114 Caption = 'Mensagens \ Instru'#231#245'es' TabOrder = 3 object Label15: TLabel Left = 320 Top = 16 Width = 59 Height = 13 Caption = 'Instru'#231#227'o 1:' end object Label16: TLabel Left = 464 Top = 16 Width = 59 Height = 13 Caption = 'Instru'#231#227'o 2:' end object memMensagem: TMemo Left = 8 Top = 16 Width = 305 Height = 89 Lines.Strings = ( '') TabOrder = 0 end object edtInstrucoes1: TEdit Left = 320 Top = 32 Width = 137 Height = 21 TabOrder = 1 end object edtInstrucoes2: TEdit Left = 464 Top = 32 Width = 137 Height = 21 TabOrder = 2 end object Panel2: TPanel Left = 320 Top = 64 Width = 281 Height = 41 Caption = '* Informar o C'#243'digo da Instru'#231#227'o' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 end end object GroupBox5: TGroupBox Left = 624 Top = 240 Width = 169 Height = 225 Caption = 'Informa'#231#245'es Sobre a Duplicata ' TabOrder = 4 object Label17: TLabel Left = 8 Top = 16 Width = 41 Height = 13 Caption = 'N'#250'mero:' end object Label18: TLabel Left = 8 Top = 64 Width = 28 Height = 13 Caption = 'Valor:' end object Label19: TLabel Left = 8 Top = 120 Width = 68 Height = 13 Caption = 'Data Emiss'#227'o:' end object Label20: TLabel Left = 8 Top = 176 Width = 59 Height = 13 Caption = 'Vencimento:' end object edtNumeroDoc: TEdit Left = 8 Top = 32 Width = 153 Height = 21 ReadOnly = True TabOrder = 0 Text = '0000000001' end object dbedt_vltitulo: TDBEdit Left = 8 Top = 80 Width = 151 Height = 21 DataField = 'VL_TITULO' DataSource = dtsTitulos ReadOnly = True TabOrder = 1 end object dtp_emissao: TDateTimePicker Left = 8 Top = 136 Width = 151 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 TabOrder = 2 end end object GroupBox6: TGroupBox Left = 8 Top = 471 Width = 786 Height = 143 Caption = 'Informa'#231#245'es do Sacado' TabOrder = 5 object Label29: TLabel Left = 8 Top = 61 Width = 19 Height = 13 Caption = 'CEP' end object lbl_logradouro: TLabel Left = 8 Top = 16 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 lbl_num: TLabel Left = 444 Top = 16 Width = 40 Height = 13 Caption = 'N'#250'mero:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbl_comp: TLabel Left = 528 Top = 16 Width = 67 Height = 13 Caption = 'Complemento:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbl_bairro: TLabel Left = 621 Top = 16 Width = 30 Height = 13 Caption = 'Bairro:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbl_uf: TLabel Left = 96 Top = 61 Width = 17 Height = 13 Caption = 'UF:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbl_cidade: TLabel Left = 206 Top = 61 Width = 36 Height = 13 Caption = 'Cidade:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object dbedt_logradouro: TDBEdit Left = 8 Top = 35 Width = 430 Height = 21 DataField = 'TX_LOGRADOURO' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 0 end object dbedt_num: TDBEdit Left = 444 Top = 35 Width = 63 Height = 21 DataField = 'NR_NUMERO' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 1 end object dbedt_comp: TDBEdit Left = 528 Top = 35 Width = 81 Height = 21 DataField = 'TX_COMPLEMENTO' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 2 end object dbedt_bairro: TDBEdit Left = 621 Top = 35 Width = 161 Height = 21 DataField = 'TX_BAIRRO' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 3 end object dblucmbox_uf: TDBLookupComboBox Left = 96 Top = 80 Width = 92 Height = 21 DataField = 'ID_ESTADO' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyField = 'ID_ESTADO' ListField = 'TX_NOME' ListSource = dtsUF ParentFont = False ReadOnly = True TabOrder = 4 end object dblucmbox_cidade: TDBLookupComboBox Left = 206 Top = 80 Width = 134 Height = 21 DataField = 'ID_CIDADE' DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyField = 'ID_CIDADE' ListField = 'TX_NOME' ListSource = dtsCidades ParentFont = False ReadOnly = True TabOrder = 5 end object dbgrd_enderecos: TDBGrid Left = 353 Top = 62 Width = 429 Height = 78 TabStop = False DataSource = dtsEnderecos Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ParentFont = False ReadOnly = True TabOrder = 6 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'TX_LOGRADOURO' Title.Caption = 'Endere'#231'o' Width = 185 Visible = True end item Expanded = False FieldName = 'NR_NUMERO' Title.Caption = 'N'#250'mero' Width = 60 Visible = True end item Expanded = False FieldName = 'TX_COMPLEMENTO' Title.Caption = 'Complemento' Width = 125 Visible = True end item Expanded = False FieldName = 'TP_ATIVO' Title.Caption = 'Ativo' Width = 32 Visible = True end item Expanded = False FieldName = 'TX_BAIRRO' Title.Caption = 'Bairro' Width = 93 Visible = True end item Expanded = False FieldName = 'TX_ESTADO' Title.Caption = 'Estado' Width = 101 Visible = True end item Expanded = False FieldName = 'TX_CIDADE' Title.Caption = 'Cidade' Visible = True end item Expanded = False FieldName = 'TX_CEP' Title.Caption = 'CEP' Width = 82 Visible = True end item Expanded = False FieldName = 'TP_REFERENCIA' Title.Caption = 'Refer'#234'ncia' Width = 69 Visible = True end item Expanded = False FieldName = 'TP_ENDERECO' Title.Caption = 'Tipo de Endere'#231'o' Width = 104 Visible = True end item Expanded = False FieldName = 'ID_HIGIENIZADORA' Title.Caption = 'Higienizadora' Width = 76 Visible = True end> end object dbedt_cep: TDBEdit Left = 8 Top = 80 Width = 69 Height = 21 DataField = 'TX_CEP' DataSource = dtsEnderecos TabOrder = 7 end end object Panel1: TPanel Left = 0 Top = 621 Width = 802 Height = 50 Align = alBottom TabOrder = 6 object Button2: TButton Left = 237 Top = 16 Width = 75 Height = 25 Caption = 'Gerar PDF' TabOrder = 0 OnClick = Button2Click end object Button3: TButton Left = 318 Top = 16 Width = 131 Height = 25 Caption = 'Zerar Lista de Boletos' Enabled = False TabOrder = 1 end object Button4: TButton Left = 455 Top = 16 Width = 97 Height = 25 Caption = 'Incluir Boleto' TabOrder = 2 OnClick = Button4Click end object Button5: TButton Left = 558 Top = 16 Width = 129 Height = 25 Caption = 'Incluir V'#225'rios Boletos' Enabled = False TabOrder = 3 end object Button6: TButton Left = 693 Top = 16 Width = 97 Height = 25 Caption = 'Gerar Remessa' TabOrder = 4 OnClick = Button6Click end object btnenviaremail: TButton Left = 156 Top = 16 Width = 75 Height = 25 Caption = 'Enviar Email' Enabled = False TabOrder = 5 OnClick = btnenviaremailClick end object rg_email: TRadioGroup Left = 8 Top = 8 Width = 142 Height = 33 Caption = 'Email:' Columns = 2 Enabled = False Items.Strings = ( 'Empresa' 'Usu'#225'rio') TabOrder = 6 OnClick = rg_emailClick end end object dtp_vencimento: TDateTimePicker Left = 632 Top = 432 Width = 151 Height = 21 Date = 43168.429167685190000000 Time = 43168.429167685190000000 TabOrder = 7 end object ACBrBoleto: TACBrBoleto MAIL = ACBrMail Banco.TamanhoMaximoNossoNum = 10 Banco.TipoCobranca = cobNenhum Banco.LayoutVersaoArquivo = 0 Banco.LayoutVersaoLote = 0 Banco.CasasDecimaisMoraJuros = 2 Cedente.TipoInscricao = pJuridica NumeroArquivo = 0 ACBrBoletoFC = ACBrBoletoFCFortes Configuracoes.Arquivos.LogRegistro = False Configuracoes.WebService.SSLHttpLib = httpOpenSSL Configuracoes.WebService.StoreName = 'My' Configuracoes.WebService.Ambiente = taHomologacao Configuracoes.WebService.Operacao = tpInclui Configuracoes.WebService.VersaoDF = '1.2' Left = 592 Top = 72 end object ACBrBoletoFCFortes: TACBrBoletoFCFortes MostrarPreview = False MostrarSetup = False SoftwareHouse = 'Projeto ACBr - http://acbr.sf.net' DirLogo = 'C:\ACBr\Fontes\ACBrBoleto\Logos\Colorido' Left = 688 Top = 72 end object dtsContas: TDataSource OnDataChange = dtsContasDataChange Left = 616 Top = 16 end object dtsTitulos: TDataSource DataSet = dtmSystem.tblTitulos OnDataChange = dtsTitulosDataChange Left = 672 Top = 16 end object dtsCHGEmpresa: TDataSource DataSet = dtmSystem.tblCHGEmpresa Left = 744 Top = 16 end object dtsDevedor: TDataSource DataSet = dtmSystem.tblDevedores Left = 552 Top = 16 end object dtsEnderecos: TDataSource DataSet = dtmSystem.tblEnderecos OnDataChange = dtsEnderecosDataChange Left = 488 Top = 16 end object dtsUF: TDataSource DataSet = dtmSystem.tblEstados OnDataChange = dtsUFDataChange Left = 469 Top = 68 end object dtsCidades: TDataSource DataSet = dtmSystem.tblCidades OnDataChange = dtsCidadesDataChange Left = 526 Top = 66 end object ACBrMail: TACBrMail Host = '127.0.0.1' Port = '25' SetSSL = False SetTLS = False Attempts = 3 DefaultCharset = UTF_8 IDECharset = CP1252 Left = 592 Top = 128 end end