inherited frmCentralBoletos: TfrmCentralBoletos Caption = 'Central de Boletos' ClientHeight = 707 ClientWidth = 1185 Menu = MainMenu1 OnActivate = nil ExplicitTop = -107 ExplicitWidth = 1191 ExplicitHeight = 756 PixelsPerInch = 96 TextHeight = 13 object pcBoletos: TPageControl [0] AlignWithMargins = True Left = 3 Top = 3 Width = 1179 Height = 682 ActivePage = tsGeraBoleto Align = alClient TabOrder = 1 ExplicitHeight = 726 object tsPesquisa: TTabSheet Caption = 'Pesquisa' ExplicitHeight = 698 DesignSize = ( 1171 654) object gb_searchfilter: TGroupBox Left = 0 Top = 0 Width = 1168 Height = 73 Anchors = [akLeft, akTop, akRight] 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 = 1168 Height = 242 Anchors = [akLeft, akTop, akRight] 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' Visible = True end item Expanded = False FieldName = 'seuNumero' Visible = True end item Expanded = False FieldName = 'situacao' Visible = True end item Expanded = False FieldName = 'dataVencimento' Visible = True end item Expanded = False FieldName = 'dataHoraSituacao' Visible = True end item Expanded = False FieldName = 'formatedDataHoraSituacao' Visible = True end> end object DBMemo1: TDBMemo Left = 0 Top = 599 Width = 1171 Height = 55 Align = alBottom DataField = 'pagador' DataSource = dtsBoletos TabOrder = 2 ExplicitTop = 643 end object gbBoleto: TGroupBox Left = 0 Top = 327 Width = 898 Height = 307 Caption = 'Dados do Boleto:' TabOrder = 3 end end object tsGeraBoleto: TTabSheet Caption = 'Gerar' ImageIndex = 1 ExplicitHeight = 698 object pcPesquisaGerar: TPageControl Left = 0 Top = 0 Width = 1171 Height = 654 ActivePage = TabSheet1 Align = alClient TabOrder = 0 ExplicitHeight = 698 object TabSheet1: TTabSheet AlignWithMargins = True Margins.Right = 6 Caption = 'Pesquisar' ExplicitHeight = 664 DesignSize = ( 1154 620) object gbPesquisa: TGroupBox Left = 0 Top = 0 Width = 1154 Height = 161 Align = alTop Caption = 'Pesquisar Cliente:' TabOrder = 0 DesignSize = ( 1154 161) object spdbtnPesquisa: TSpeedButton Left = 639 Top = 26 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 = spdbtnPesquisaClick end object Label6: TLabel Left = 721 Top = 9 Width = 44 Height = 13 Anchors = [akTop, akRight] Caption = 'Hist'#243'rico:' end object edtPesquisa: TEdit Left = 16 Top = 27 Width = 441 Height = 21 TabOrder = 0 end object rgTipoPesquisa: TRadioGroup Left = 463 Top = 12 Width = 170 Height = 37 Caption = 'Tipo' Columns = 2 ItemIndex = 0 Items.Strings = ( 'nome' 'documento') TabOrder = 1 end object DBGrid1: TDBGrid AlignWithMargins = True Left = 721 Top = 25 Width = 428 Height = 128 Margins.Top = 10 Margins.Bottom = 6 Align = alRight DataSource = dtsHist TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'tx_nome' Title.Caption = 'Nome' Width = 391 Visible = True end> end object DBGrid2: TDBGrid Left = 16 Top = 54 Width = 699 Height = 99 Anchors = [akLeft, akTop, akRight, akBottom] DataSource = dtsPesquisa Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, 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 = [] OnDblClick = DBGrid2DblClick Columns = < item Expanded = False FieldName = 'TX_NOME' Title.Caption = 'Nome' Width = 485 Visible = True end item Expanded = False FieldName = 'TX_DOCUMENTO' Title.Caption = 'Documento' Width = 171 Visible = True end> end end object GroupBox1: TGroupBox Left = 0 Top = 161 Width = 1154 Height = 462 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'Dados do Cliente:' TabOrder = 1 object Label7: TLabel Left = 16 Top = 72 Width = 31 Height = 13 Caption = 'Nome:' end object Label8: TLabel Left = 391 Top = 72 Width = 58 Height = 13 Caption = 'Documento:' end object Label13: TLabel Left = 16 Top = 120 Width = 49 Height = 13 Caption = 'Endere'#231'o:' end object Label9: TLabel Left = 428 Top = 120 Width = 45 Height = 13 Caption = 'Telefone:' end object Label10: TLabel Left = 588 Top = 120 Width = 28 Height = 13 Caption = 'Email:' end object Label60: TLabel Left = 588 Top = 72 Width = 157 Height = 13 Caption = 'Dias p/ Cancelamento do Boleto:' end object Label61: TLabel Left = 758 Top = 72 Width = 129 Height = 13 Caption = 'Dia do m'#234's p/ Vencimento:' end object Label62: TLabel Left = 921 Top = 72 Width = 116 Height = 13 Caption = 'Valor Nominal do Boleto:' end object Label63: TLabel Left = 1043 Top = 72 Width = 83 Height = 13 Caption = 'Sufixo p/ Seu N'#186':' end object dbedtNomeDevBoleto: TDBEdit Left = 16 Top = 91 Width = 369 Height = 21 DataField = 'TX_NOME' DataSource = dtsDevedor ReadOnly = True TabOrder = 0 end object dbedtDocDevBoleto: TDBEdit Left = 391 Top = 91 Width = 178 Height = 21 DataField = 'CD_DOCUMENTO' DataSource = dtsDevedor ReadOnly = True TabOrder = 1 end object dblucbEndDevBoleto: TDBLookupComboBox Left = 16 Top = 139 Width = 406 Height = 21 DataField = 'ID_ENDERECO_BOLETO' DataSource = dtsDevedor KeyField = 'ID_ENDERECO' ListField = 'TX_ENDERECO_COMPLETO' ListSource = dtmSystem.dtsCHGEnderecos TabOrder = 2 end object dblucbTelDevBoleto: TDBLookupComboBox Left = 428 Top = 139 Width = 140 Height = 21 DataField = 'ID_TELEFONE_BOLETO' DataSource = dtsDevedor KeyField = 'ID_TELEFONE' ListField = 'TX_TELEFONE_COMPLETO' ListSource = dtmSystem.dtsTelefones TabOrder = 3 end object dblucbEmailDevBoleto: TDBLookupComboBox Left = 588 Top = 139 Width = 280 Height = 21 DataField = 'ID_EMAIL_BOLETO' DataSource = dtsDevedor KeyField = 'ID_EMAIL' ListField = 'TX_EMAIL' ListSource = dtmSystem.dtsEmail TabOrder = 4 end object navPrincipal: TDBNavigator Left = 16 Top = 16 Width = 200 Height = 44 DataSource = dtsDevedor VisibleButtons = [nbEdit, nbPost, nbCancel, nbRefresh] Hints.Strings = ( 'Primeiro Registro' 'Registro Anterior' 'Pr'#243'ximo Registro' #218'ltimo Registro' 'Criar Registro' 'Apagar Registro' 'Editar Registro' 'Salvar Registro' 'Cancelar' 'Atualizar' 'Apply updates' 'Cancel updates') ParentShowHint = False ShowHint = False TabOrder = 5 end object GroupBox7: TGroupBox Left = 16 Top = 166 Width = 552 Height = 155 Caption = 'Mensagem:' TabOrder = 6 object Label11: TLabel Left = 8 Top = 20 Width = 38 Height = 13 Caption = 'Linha 1:' end object Label12: TLabel Left = 8 Top = 47 Width = 38 Height = 13 Caption = 'Linha 2:' end object Label22: TLabel Left = 8 Top = 74 Width = 38 Height = 13 Caption = 'Linha 3:' end object Label23: TLabel Left = 8 Top = 101 Width = 38 Height = 13 Caption = 'Linha 4:' end object Label24: TLabel Left = 8 Top = 128 Width = 38 Height = 13 Caption = 'Linha 5:' end object dbEdtLinha1Boleto: TDBEdit Left = 52 Top = 17 Width = 493 Height = 21 DataField = 'TX_MENSAGEM_BOLETO_1' DataSource = dtsDevedor TabOrder = 0 end object dbEdtLinha2Boleto: TDBEdit Left = 52 Top = 44 Width = 493 Height = 21 DataField = 'TX_MENSAGEM_BOLETO_2' DataSource = dtsDevedor TabOrder = 1 end object dbEdtLinha3Boleto: TDBEdit Left = 52 Top = 71 Width = 493 Height = 21 DataField = 'TX_MENSAGEM_BOLETO_3' DataSource = dtsDevedor TabOrder = 2 end object dbEdtLinha4Boleto: TDBEdit Left = 52 Top = 98 Width = 493 Height = 21 DataField = 'TX_MENSAGEM_BOLETO_4' DataSource = dtsDevedor TabOrder = 3 end object dbEdtLinha5Boleto: TDBEdit Left = 52 Top = 125 Width = 493 Height = 21 DataField = 'TX_MENSAGEM_BOLETO_5' DataSource = dtsDevedor TabOrder = 4 end end object btnPreparaBoleto: TButton Left = 660 Top = 16 Width = 87 Height = 25 Caption = 'Preparar Boleto' Enabled = False TabOrder = 7 Visible = False OnClick = btnPreparaBoletoClick end object GroupBox8: TGroupBox Left = 587 Top = 189 Width = 184 Height = 132 Caption = 'Multa:' TabOrder = 8 DesignSize = ( 184 132) object Label25: TLabel Left = -88 Top = 80 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 8 end object Label26: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label27: TLabel Left = 8 Top = 99 Width = 63 Height = 26 Caption = 'Qtd. Dias p/ Cobrar Multa:' WordWrap = True end object DBLookupComboBox5: TDBLookupComboBox Left = 8 Top = 24 Width = 168 Height = 21 DataField = 'TP_MULTA_BOLETO' DataSource = dtsDevedor KeyField = 'ID_STATUS' ListField = 'TX_DESCRICAO' ListSource = dtmSystem.dtsMultaBoleto TabOrder = 0 end object DBEdit5: TDBEdit Left = 41 Top = 52 Width = 108 Height = 21 DataField = 'VL_MULTA_BOLETO' DataSource = dtsDevedor TabOrder = 1 OnKeyPress = DBEdit6KeyPress end object DBEdit6: TDBEdit Left = 41 Top = 77 Width = 57 Height = 21 DataField = 'PR_MULTA_BOLETO' DataSource = dtsDevedor TabOrder = 2 OnKeyPress = DBEdit6KeyPress end object DBEdit7: TDBEdit Left = 73 Top = 102 Width = 34 Height = 21 DataField = 'NR_DIAS_MULTA_BOLETO' DataSource = dtsDevedor TabOrder = 3 OnKeyPress = DBEdit7KeyPress end end object GroupBox9: TGroupBox Left = 587 Top = 327 Width = 184 Height = 132 Caption = 'Mora:' TabOrder = 9 DesignSize = ( 184 132) object Label28: TLabel Left = -88 Top = 80 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 8 end object Label29: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label30: TLabel Left = 8 Top = 99 Width = 61 Height = 26 Caption = 'Qtd. Dias p/ Cobrar Mora:' WordWrap = True end object DBLookupComboBox6: TDBLookupComboBox Left = 8 Top = 24 Width = 168 Height = 21 DataField = 'TP_MORA_BOLETO' DataSource = dtsDevedor KeyField = 'ID_STATUS' ListField = 'TX_DESCRICAO' ListSource = dtmSystem.dtsMoraBoleto TabOrder = 0 end object DBEdit8: TDBEdit Left = 41 Top = 52 Width = 108 Height = 21 DataField = 'VL_MORA_BOLETO' DataSource = dtsDevedor TabOrder = 1 OnKeyPress = DBEdit6KeyPress end object DBEdit9: TDBEdit Left = 41 Top = 77 Width = 57 Height = 21 DataField = 'PR_MORA_BOLETO' DataSource = dtsDevedor TabOrder = 2 OnKeyPress = DBEdit6KeyPress end object DBEdit10: TDBEdit Left = 73 Top = 103 Width = 34 Height = 21 DataField = 'NR_MORA_BOLETO' DataSource = dtsDevedor TabOrder = 3 OnKeyPress = DBEdit7KeyPress end end object GroupBox10: TGroupBox Left = 16 Top = 327 Width = 184 Height = 132 Caption = 'Desconto 1:' TabOrder = 10 object Label31: TLabel Left = 8 Top = 80 Width = 27 Height = 13 Caption = 'Taxa:' end object Label32: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label33: TLabel Left = 8 Top = 99 Width = 97 Height = 28 Caption = 'Qtd. Dias antes do Venc. p/ Desconto:' WordWrap = True end object DBLookupComboBox7: TDBLookupComboBox Left = 8 Top = 24 Width = 168 Height = 21 DataField = 'TP_DESC_BOLETO_1' DataSource = dtsDevedor KeyField = 'ID_STATUS' ListField = 'TX_DESCRICAO' ListSource = dtmSystem.dtsDescBoleto TabOrder = 0 end object DBEdit11: TDBEdit Left = 41 Top = 76 Width = 57 Height = 21 DataField = 'PR_DESC_BOLETO_1' DataSource = dtsDevedor TabOrder = 1 OnKeyPress = DBEdit6KeyPress end object DBEdit14: TDBEdit Left = 41 Top = 51 Width = 108 Height = 21 DataField = 'VL_DESC_BOLETO_1' DataSource = dtsDevedor TabOrder = 2 OnKeyPress = DBEdit6KeyPress end object DBEdit17: TDBEdit Left = 104 Top = 103 Width = 34 Height = 21 DataField = 'NR_DIAS_DESC_BOLETO_1' DataSource = dtsDevedor TabOrder = 3 OnKeyPress = DBEdit7KeyPress end end object GroupBox11: TGroupBox Left = 207 Top = 327 Width = 184 Height = 132 Caption = 'Desconto 2:' TabOrder = 11 object Label43: TLabel Left = 8 Top = 78 Width = 27 Height = 13 Caption = 'Taxa:' end object Label44: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label53: TLabel Left = 8 Top = 98 Width = 97 Height = 29 Caption = 'Qtd. Dias antes do Venc. p/ Desconto:' WordWrap = True end object DBLookupComboBox8: TDBLookupComboBox Left = 8 Top = 24 Width = 168 Height = 21 DataField = 'TP_DESC_BOLETO_2' DataSource = dtsDevedor KeyField = 'ID_STATUS' ListField = 'TX_DESCRICAO' ListSource = dtmSystem.dtsDescBoleto TabOrder = 0 end object DBEdit12: TDBEdit Left = 41 Top = 76 Width = 57 Height = 21 DataField = 'PR_DESC_BOLETO_2' DataSource = dtsDevedor TabOrder = 1 OnKeyPress = DBEdit6KeyPress end object DBEdit15: TDBEdit Left = 41 Top = 51 Width = 108 Height = 21 DataField = 'VL_DESC_BOLETO_2' DataSource = dtsDevedor TabOrder = 2 OnKeyPress = DBEdit6KeyPress end object DBEdit18: TDBEdit Left = 106 Top = 103 Width = 34 Height = 21 DataField = 'NR_DIAS_DESC_BOLETO_2' DataSource = dtsDevedor TabOrder = 3 OnKeyPress = DBEdit7KeyPress end end object GroupBox12: TGroupBox Left = 397 Top = 327 Width = 184 Height = 132 Caption = 'Desconto 3:' TabOrder = 12 object Label54: TLabel Left = 8 Top = 78 Width = 27 Height = 13 Caption = 'Taxa:' end object Label58: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label59: TLabel Left = 8 Top = 98 Width = 97 Height = 29 Caption = 'Qtd. Dias antes do Venc. p/ Desconto:' WordWrap = True end object DBLookupComboBox9: TDBLookupComboBox Left = 8 Top = 24 Width = 168 Height = 21 DataField = 'TP_DESC_BOLETO_3' DataSource = dtsDevedor KeyField = 'ID_STATUS' ListField = 'TX_DESCRICAO' ListSource = dtmSystem.dtsDescBoleto TabOrder = 0 end object DBEdit13: TDBEdit Left = 41 Top = 75 Width = 57 Height = 21 DataField = 'PR_DESC_BOLETO_3' DataSource = dtsDevedor TabOrder = 1 OnKeyPress = DBEdit6KeyPress end object DBEdit16: TDBEdit Left = 41 Top = 51 Width = 108 Height = 21 DataField = 'VL_DESC_BOLETO_3' DataSource = dtsDevedor TabOrder = 2 OnKeyPress = DBEdit6KeyPress end object DBEdit19: TDBEdit Left = 107 Top = 103 Width = 34 Height = 21 DataField = 'NR_DIAS_DESC_BOLETO_3' DataSource = dtsDevedor TabOrder = 3 OnKeyPress = DBEdit7KeyPress end end object DBEdit20: TDBEdit Left = 588 Top = 91 Width = 157 Height = 21 DataField = 'NR_DIAS_AGENDA' TabOrder = 13 OnKeyPress = DBEdit7KeyPress end object DBEdit21: TDBEdit Left = 758 Top = 91 Width = 157 Height = 21 DataField = 'NR_DIA_VENCIMENTO' TabOrder = 14 OnKeyPress = DBEdit7KeyPress end object DBEdit22: TDBEdit Left = 921 Top = 91 Width = 116 Height = 21 DataField = 'VL_NOMINAL_BOLETO' TabOrder = 15 OnKeyPress = DBEdit6KeyPress end object DBEdit23: TDBEdit Left = 1043 Top = 91 Width = 99 Height = 21 DataField = 'TX_SUFIXO_SEU_NUMERO' TabOrder = 16 OnKeyPress = DBEdit7KeyPress end object btnGerarBoleto: TButton Left = 857 Top = 16 Width = 75 Height = 25 Caption = 'Gerar Boleto' TabOrder = 17 OnClick = btnGerarBoletoClick end object btnFichaCliente: TButton Left = 1024 Top = 16 Width = 127 Height = 25 Caption = 'Abrir Ficha do Devedor' Enabled = False TabOrder = 18 OnClick = btnFichaClienteClick end object GroupBox13: TGroupBox Left = 777 Top = 304 Width = 370 Height = 155 Caption = 'Empresas dos T'#237'tulos dos Boletos' TabOrder = 19 object DBLookupComboBox10: TDBLookupComboBox Left = 16 Top = 48 Width = 241 Height = 21 DataField = 'ID_EMPRESA' DataSource = dtmSystem.dtsDevEmpBoletos KeyField = 'ID_EMPRESA' ListField = 'TX_NOME' ListSource = dtmSystem.dtsCHGEmpresa TabOrder = 0 end object DBGrid3: TDBGrid Left = 16 Top = 75 Width = 329 Height = 70 DataSource = dtmSystem.dtsDevEmpBoletos 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 = 287 Visible = True end> end object DBNavigator1: TDBNavigator Left = 15 Top = 21 Width = 198 Height = 21 DataSource = dtmSystem.dtsDevEmpBoletos VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] TabOrder = 2 BeforeAction = DBNavigator1BeforeAction end end end end object TabSheet2: TTabSheet Caption = 'Dados' ImageIndex = 1 ExplicitHeight = 670 object btn_gerarbolunico: TButton Left = 1085 Top = 599 Width = 75 Height = 25 Caption = 'Gerar' TabOrder = 0 OnClick = btn_gerarbolunicoClick end object gbPagador: TGroupBox Left = 0 Top = 0 Width = 1163 Height = 113 Align = alTop Caption = 'Dados do Pagador:' TabOrder = 1 object lblNomePagador: TLabel Left = 3 Top = 16 Width = 31 Height = 13 Caption = 'Nome:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblDocumentoPagador: TLabel Left = 522 Top = 16 Width = 119 Height = 13 Caption = 'Documento (CPF/CNPJ):' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblTipoPagador: TLabel Left = 755 Top = 16 Width = 77 Height = 13 Caption = 'Tipo de Pessoa:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblEmailPagador: TLabel Left = 838 Top = 16 Width = 28 Height = 13 Caption = 'Email:' end object lblEnderecoPagador: TLabel Left = 3 Top = 62 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 lblNumeroPagador: TLabel Left = 373 Top = 62 Width = 15 Height = 13 Caption = 'N'#186':' end object lblComplementoPagador: TLabel Left = 458 Top = 62 Width = 67 Height = 13 Caption = 'Complemento:' end object lblBairroPagador: TLabel Left = 531 Top = 62 Width = 30 Height = 13 Caption = 'Bairro:' end object lblCidadePagador: TLabel Left = 658 Top = 62 Width = 36 Height = 13 Caption = 'Cidade:' end object lblUfPagador: TLabel Left = 823 Top = 62 Width = 17 Height = 13 Caption = 'UF:' end object lblCepPagador: TLabel Left = 859 Top = 62 Width = 24 Height = 13 Caption = 'CEP:' end object lblDddPagador: TLabel Left = 986 Top = 62 Width = 27 Height = 13 Caption = 'DDD:' end object lblTelefonePagador: TLabel Left = 1035 Top = 62 Width = 45 Height = 13 Caption = 'Telefone:' end object edtNomePagador: TEdit Left = 3 Top = 35 Width = 513 Height = 21 TabOrder = 0 end object edtDocumentoPagador: TEdit Left = 522 Top = 35 Width = 227 Height = 21 TabOrder = 1 end object cbTipoPagador: TComboBox Left = 755 Top = 35 Width = 77 Height = 21 TabOrder = 2 Items.Strings = ( 'F'#237'sica' 'Jur'#237'dica') end object edtEmailPagador: TEdit Left = 838 Top = 35 Width = 318 Height = 21 TabOrder = 3 end object edtEnderecoPagador: TEdit Left = 3 Top = 81 Width = 364 Height = 21 TabOrder = 4 end object edtNumeroPagador: TEdit Left = 373 Top = 81 Width = 79 Height = 21 NumbersOnly = True TabOrder = 5 end object edtComplementoPagador: TEdit Left = 458 Top = 81 Width = 67 Height = 21 TabOrder = 6 end object edtBairroPagador: TEdit Left = 531 Top = 81 Width = 121 Height = 21 TabOrder = 7 end object edtCidadePagador: TEdit Left = 658 Top = 81 Width = 159 Height = 21 TabOrder = 8 end object edtUfPagador: TEdit Left = 823 Top = 81 Width = 30 Height = 21 TabOrder = 9 end object edtCepPagador: TEdit Left = 859 Top = 81 Width = 121 Height = 21 TabOrder = 10 end object edtDddPagador: TEdit Left = 986 Top = 81 Width = 43 Height = 21 NumbersOnly = True TabOrder = 11 end object edtTelefonePagador: TEdit Left = 1035 Top = 81 Width = 121 Height = 21 TabOrder = 12 end end object gbDadosBoleto: TGroupBox Left = 0 Top = 113 Width = 1163 Height = 296 Align = alTop Caption = 'Dados do Boleto:' TabOrder = 2 object lblSeuNumeroBoleto: TLabel Left = 3 Top = 16 Width = 37 Height = 13 Caption = 'Seu N'#186':' end object lblVlNominalBoleto: TLabel Left = 119 Top = 16 Width = 68 Height = 13 Caption = 'Valor Nominal:' end object lblVencimentoBoleto: TLabel Left = 327 Top = 16 Width = 59 Height = 13 Caption = 'Vencimento:' end object lblDiasCancelamentoBoleto: TLabel Left = 419 Top = 16 Width = 122 Height = 13 Caption = 'N'#186' dias p/ Cancelamento:' end object edtSeuNumeroBoleto: TEdit Left = 3 Top = 35 Width = 110 Height = 21 MaxLength = 15 NumbersOnly = True TabOrder = 0 end object edtVlNominalBoleto: TEdit Left = 119 Top = 35 Width = 202 Height = 21 TabOrder = 1 end object dtpVencimentoBoleto: TDateTimePicker Left = 327 Top = 35 Width = 86 Height = 21 Date = 44218.722504768520000000 Time = 44218.722504768520000000 TabOrder = 2 end object edtDiasCancelamentoBoleto: TEdit Left = 419 Top = 35 Width = 121 Height = 21 NumbersOnly = True TabOrder = 3 end object gbMensagemBoleto: TGroupBox Left = 3 Top = 62 Width = 552 Height = 155 Caption = 'Mensagem:' TabOrder = 4 object Label49: TLabel Left = 8 Top = 20 Width = 38 Height = 13 Caption = 'Linha 1:' end object Label50: TLabel Left = 8 Top = 47 Width = 38 Height = 13 Caption = 'Linha 2:' end object Label51: TLabel Left = 8 Top = 74 Width = 38 Height = 13 Caption = 'Linha 3:' end object Label52: TLabel Left = 8 Top = 101 Width = 38 Height = 13 Caption = 'Linha 4:' end object Label57: TLabel Left = 8 Top = 128 Width = 38 Height = 13 Caption = 'Linha 5:' end object edtLinha1Boleto: TEdit Left = 52 Top = 17 Width = 493 Height = 21 MaxLength = 78 TabOrder = 0 end object edtLinha2Boleto: TEdit Left = 52 Top = 44 Width = 493 Height = 21 MaxLength = 78 TabOrder = 1 end object edtLinha3Boleto: TEdit Left = 52 Top = 71 Width = 493 Height = 21 MaxLength = 78 TabOrder = 2 end object edtLinha4Boleto: TEdit Left = 52 Top = 98 Width = 493 Height = 21 MaxLength = 78 TabOrder = 3 end object edtLinha5Boleto: TEdit Left = 52 Top = 125 Width = 493 Height = 21 MaxLength = 78 TabOrder = 4 end end object GroupBox2: TGroupBox Left = 561 Top = 106 Width = 280 Height = 87 Caption = 'Desconto 1:' TabOrder = 5 DesignSize = ( 280 87) object Label34: TLabel Left = 181 Top = 27 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 143 end object Label35: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label36: TLabel Left = 155 Top = 55 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Data:' ExplicitLeft = 117 end object cb_desc1: TComboBox Left = 8 Top = 24 Width = 168 Height = 21 TabOrder = 0 Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa1bol: TEdit Left = 214 Top = 24 Width = 57 Height = 21 Anchors = [akTop, akRight] TabOrder = 1 end object edt_val1bol: TEdit Left = 41 Top = 51 Width = 108 Height = 21 TabOrder = 2 end object dtp_desc1: TDateTimePicker Left = 187 Top = 51 Width = 84 Height = 21 Anchors = [akTop, akRight] Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox3: TGroupBox Left = 847 Top = 106 Width = 280 Height = 87 Caption = 'Desconto 2:' TabOrder = 6 DesignSize = ( 280 87) object Label37: TLabel Left = 181 Top = 27 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 143 end object Label38: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label39: TLabel Left = 155 Top = 55 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Data:' ExplicitLeft = 117 end object cb_desc2: TComboBox Left = 8 Top = 24 Width = 168 Height = 21 TabOrder = 0 Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa2bol: TEdit Left = 214 Top = 24 Width = 57 Height = 21 Anchors = [akTop, akRight] TabOrder = 1 end object edt_val2bol: TEdit Left = 41 Top = 51 Width = 108 Height = 21 TabOrder = 2 end object dtp_desc2: TDateTimePicker Left = 187 Top = 51 Width = 84 Height = 21 Anchors = [akTop, akRight] Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox4: TGroupBox Left = 700 Top = 199 Width = 280 Height = 87 Caption = 'Desconto 3:' TabOrder = 7 DesignSize = ( 280 87) object Label40: TLabel Left = 181 Top = 27 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 143 end object Label41: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label42: TLabel Left = 155 Top = 55 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Data:' ExplicitLeft = 117 end object cb_desc3: TComboBox Left = 8 Top = 24 Width = 168 Height = 21 TabOrder = 0 Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa3bol: TEdit Left = 214 Top = 24 Width = 57 Height = 21 Anchors = [akTop, akRight] TabOrder = 1 end object edt_val3bol: TEdit Left = 41 Top = 51 Width = 108 Height = 21 TabOrder = 2 end object dtp_desc3: TDateTimePicker Left = 187 Top = 51 Width = 84 Height = 21 Anchors = [akTop, akRight] Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox6: TGroupBox Left = 847 Top = 13 Width = 280 Height = 87 Caption = 'Mora:' TabOrder = 8 DesignSize = ( 280 87) object Label47: TLabel Left = 182 Top = 27 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 159 end object Label48: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label55: TLabel Left = 155 Top = 55 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Data:' end object cb_morabol: TComboBox Left = 8 Top = 24 Width = 168 Height = 21 TabOrder = 0 Items.Strings = ( 'VALORDIA' 'TAXAMENSAL' 'ISENTO') end object edt_taxamorabol: TEdit Left = 215 Top = 24 Width = 57 Height = 21 Anchors = [akTop, akRight] TabOrder = 1 end object edt_vlmorabol: TEdit Left = 41 Top = 51 Width = 108 Height = 21 TabOrder = 2 end object dtp_multa: TDateTimePicker Left = 188 Top = 51 Width = 84 Height = 21 Anchors = [akTop, akRight] Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox5: TGroupBox Left = 561 Top = 13 Width = 280 Height = 87 Caption = 'Multa:' TabOrder = 9 DesignSize = ( 280 87) object Label45: TLabel Left = 182 Top = 27 Width = 27 Height = 13 Anchors = [akTop, akRight] Caption = 'Taxa:' ExplicitLeft = 159 end object Label46: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label56: TLabel Left = 156 Top = 55 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Data:' ExplicitLeft = 133 end object cb_multabol: TComboBox Left = 8 Top = 24 Width = 168 Height = 21 TabOrder = 0 Items.Strings = ( 'NAOTEMMULTA' 'VALORFIXO' 'PERCENTUAL') end object edt_taxamultabol: TEdit Left = 215 Top = 24 Width = 57 Height = 21 Anchors = [akTop, akRight] TabOrder = 1 end object edt_vlmultabol: TEdit Left = 41 Top = 51 Width = 108 Height = 21 TabOrder = 2 end object dtp_mora: TDateTimePicker Left = 188 Top = 51 Width = 84 Height = 21 Anchors = [akTop, akRight] Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end end object gbBeneficiarioBoleto: TGroupBox Left = 0 Top = 409 Width = 1163 Height = 184 Align = alTop Caption = 'Dados do Benefici'#225'rio:' TabOrder = 3 object Label14: TLabel Left = 11 Top = 24 Width = 31 Height = 13 Caption = 'Nome:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 530 Top = 24 Width = 119 Height = 13 Caption = 'Documento (CPF/CNPJ):' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 763 Top = 24 Width = 77 Height = 13 Caption = 'Tipo de Pessoa:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 11 Top = 70 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 Label18: TLabel Left = 381 Top = 70 Width = 30 Height = 13 Caption = 'Bairro:' end object Label19: TLabel Left = 508 Top = 70 Width = 36 Height = 13 Caption = 'Cidade:' end object Label20: TLabel Left = 673 Top = 70 Width = 17 Height = 13 Caption = 'UF:' end object Label21: TLabel Left = 709 Top = 70 Width = 24 Height = 13 Caption = 'CEP:' end object edtNomeBeneficiario: TEdit Left = 11 Top = 43 Width = 513 Height = 21 TabOrder = 0 end object edtDocumentoBeneficiario: TEdit Left = 530 Top = 43 Width = 227 Height = 21 TabOrder = 1 end object cbTipoBeneficiario: TComboBox Left = 763 Top = 43 Width = 77 Height = 21 TabOrder = 2 Items.Strings = ( 'F'#237'sica' 'Jur'#237'dica') end object edtEnderecoBeneficiario: TEdit Left = 11 Top = 89 Width = 364 Height = 21 TabOrder = 3 end object edtBairroBeneficiario: TEdit Left = 381 Top = 89 Width = 121 Height = 21 TabOrder = 4 end object edtCidadeBeneficiario: TEdit Left = 508 Top = 89 Width = 159 Height = 21 TabOrder = 5 end object edtUfBeneficiario: TEdit Left = 673 Top = 89 Width = 30 Height = 21 TabOrder = 6 end object edtCepBeneficiario: TEdit Left = 709 Top = 89 Width = 121 Height = 21 TabOrder = 7 end end end end end end inherited stbStatus: TStatusBar Top = 688 Width = 1185 ExplicitTop = 732 ExplicitWidth = 1185 end object dtsBoletos: TDataSource DataSet = cdsBoletos OnDataChange = dtsBoletosDataChange Left = 1104 Top = 1 end object IdHTTP: TIdHTTP IOHandler = IdSSLHandler AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.CharSet = 'utf-8' Request.ContentLength = -1 Request.ContentRangeEnd = -1 Request.ContentRangeStart = -1 Request.ContentRangeInstanceLength = -1 Request.ContentType = 'application/x-www-form-urlencoded' 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 = 769 Top = 41 end object IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL MaxLineAction = maException Port = 0 DefaultPort = 0 SSLOptions.Method = sslvSSLv23 SSLOptions.SSLVersions = [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2] SSLOptions.Mode = sslmClient SSLOptions.VerifyMode = [] SSLOptions.VerifyDepth = 0 Left = 641 Top = 1 end object tblDesc1: TClientDataSet Aggregates = <> Params = <> Left = 176 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 = 112 Top = 65529 end object tblDesc2: TClientDataSet Aggregates = <> Params = <> Left = 1024 Top = 35 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 = 848 Top = 59 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 = 928 Top = 43 end object tblMulta: TClientDataSet Aggregates = <> Params = <> Left = 297 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 = 361 Top = 1 end object tblMora: TClientDataSet Aggregates = <> Params = <> Left = 417 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 = 473 Top = 1 end object pum_download: TPopupMenu Left = 536 Top = 65529 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 = 592 Top = 65529 end object IdDecoderMIME: TIdDecoderMIME FillChar = '=' Left = 976 Top = 57 end object MainMenu1: TMainMenu Left = 952 Top = 65534 object mnuCadastro: TMenuItem Caption = 'Cadastro' object mnhGrupoBoletos: TMenuItem Caption = 'Grupos de Empresas' OnClick = mnhGrupoBoletosClick end end end object pum_incldel: TPopupMenu Left = 48 Top = 1 object mnuIncluir: TMenuItem Caption = 'Incluir' 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 = 208 Top = 40 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 object tblPagador: TClientDataSet Aggregates = <> Params = <> Left = 816 end object dtsPagador: TDataSource DataSet = tblPagador Left = 887 Top = 65534 end object cdsBoletos: TClientDataSet Aggregates = <> Params = <> AfterScroll = cdsBoletosAfterScroll Left = 232 object cdsBoletosnossoNumero: TWideStringField FieldName = 'nossoNumero' Size = 255 end object cdsBoletosseuNumero: TWideStringField FieldName = 'seuNumero' Size = 15 end object cdsBoletospagador: TWideMemoField FieldName = 'pagador' BlobType = ftWideMemo Size = 3000 end object cdsBoletossituacao: TWideStringField FieldName = 'situacao' end object cdsBoletosdataVencimento: TDateField FieldName = 'dataVencimento' end object cdsBoletosdataHoraSituacao: TWideStringField FieldName = 'dataHoraSituacao' end end object dtsHist: TDataSource DataSet = dtmSystem.cdsHist Left = 670 Top = 62 end object dtsPesquisa: TDataSource DataSet = zroqryPesquisa Left = 326 Top = 30 end object zroqryPesquisa: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select ID_DEVEDOR, TX_NOME, case when TP_CLIENTE = '#39'F'#39 'then CD_CPF when TP_CLIENTE = '#39'J'#39' then CD_CNPJ end as TX_DOCUMEN' + 'TO' ' from CHG_DEVEDORES where 1 = 1') Params = <> Left = 1110 Top = 54 object zroqryPesquisaTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object zroqryPesquisaTX_DOCUMENTO: TWideStringField FieldName = 'TX_DOCUMENTO' ReadOnly = True Size = 18 end object zroqryPesquisaID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end end object dtsEmpresasTitulos: TDataSource DataSet = zroqryEmpresasTitulos Left = 446 Top = 38 end object zroqryEmpresasTitulos: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select * from chg_empresas') Params = <> Left = 558 Top = 38 object zroqryEmpresasTitulosID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryEmpresasTitulosTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 100 end object zroqryEmpresasTitulosTX_FANTASIA: TWideStringField FieldName = 'TX_FANTASIA' Size = 100 end object zroqryEmpresasTitulosTX_CNPJ: TWideStringField FieldName = 'TX_CNPJ' Size = 18 end object zroqryEmpresasTitulosTX_IE: TWideStringField FieldName = 'TX_IE' end object zroqryEmpresasTitulosTX_ENDERECO: TWideStringField FieldName = 'TX_ENDERECO' Size = 100 end object zroqryEmpresasTitulosTX_COMPLEMENTO: TWideStringField FieldName = 'TX_COMPLEMENTO' end object zroqryEmpresasTitulosID_CIDADE: TIntegerField FieldName = 'ID_CIDADE' end object zroqryEmpresasTitulosTX_BAIRRO: TWideStringField FieldName = 'TX_BAIRRO' Size = 60 end object zroqryEmpresasTitulosID_ESTADO: TIntegerField FieldName = 'ID_ESTADO' end object zroqryEmpresasTitulosTX_CEP: TWideStringField FieldName = 'TX_CEP' Size = 9 end object zroqryEmpresasTitulosTX_TELEFONE: TWideStringField FieldName = 'TX_TELEFONE' Size = 40 end object zroqryEmpresasTitulosTX_EMAIL: TWideStringField FieldName = 'TX_EMAIL' Size = 60 end object zroqryEmpresasTitulosTX_WEBSITE: TWideStringField FieldName = 'TX_WEBSITE' Size = 60 end object zroqryEmpresasTitulosNR_NUMERO: TIntegerField FieldName = 'NR_NUMERO' end object zroqryEmpresasTitulosTX_IM: TWideStringField FieldName = 'TX_IM' end object zroqryEmpresasTitulosTL_OBSERVACOES: TWideMemoField FieldName = 'TL_OBSERVACOES' BlobType = ftWideMemo end object zroqryEmpresasTitulosID_REPASSE: TIntegerField FieldName = 'ID_REPASSE' end object zroqryEmpresasTitulosTP_ENTRADA: TWideStringField FieldName = 'TP_ENTRADA' Required = True Size = 2 end object zroqryEmpresasTitulosPR_MULTA: TFloatField FieldName = 'PR_MULTA' Required = True end object zroqryEmpresasTitulosPR_JUROS: TFloatField FieldName = 'PR_JUROS' Required = True end object zroqryEmpresasTitulosNR_PARCELAS: TIntegerField FieldName = 'NR_PARCELAS' end object zroqryEmpresasTitulosPR_DESC_QUIT_PRIN: TFloatField FieldName = 'PR_DESC_QUIT_PRIN' Required = True end object zroqryEmpresasTitulosPR_DESC_QUIT_JUROS: TFloatField FieldName = 'PR_DESC_QUIT_JUROS' Required = True end object zroqryEmpresasTitulosPR_DESC_QUIT_MULTA: TFloatField FieldName = 'PR_DESC_QUIT_MULTA' Required = True end object zroqryEmpresasTitulosPR_DESC_QUIT_IND_FIN: TFloatField FieldName = 'PR_DESC_QUIT_IND_FIN' Required = True end object zroqryEmpresasTitulosPR_DESC_QUIT_COR: TFloatField FieldName = 'PR_DESC_QUIT_COR' end object zroqryEmpresasTitulosPR_DESC_FINAN_PRIN: TFloatField FieldName = 'PR_DESC_FINAN_PRIN' Required = True end object zroqryEmpresasTitulosPR_DESC_FINAN_JUROS: TFloatField FieldName = 'PR_DESC_FINAN_JUROS' Required = True end object zroqryEmpresasTitulosPR_DESC_FINAN_MULTA: TFloatField FieldName = 'PR_DESC_FINAN_MULTA' Required = True end object zroqryEmpresasTitulosPR_DESC_FINAN_IND_FIN: TFloatField FieldName = 'PR_DESC_FINAN_IND_FIN' Required = True end object zroqryEmpresasTitulosPR_DESC_FINAN_COR: TFloatField FieldName = 'PR_DESC_FINAN_COR' end object zroqryEmpresasTitulosPR_INDICADOR_FINANCEIRO: TFloatField FieldName = 'PR_INDICADOR_FINANCEIRO' Required = True end object zroqryEmpresasTitulosPR_JUROS_PARCELAR: TFloatField FieldName = 'PR_JUROS_PARCELAR' end object zroqryEmpresasTitulosPR_ENTRADA_MIN: TFloatField FieldName = 'PR_ENTRADA_MIN' end object zroqryEmpresasTitulosPR_ENTRADA_MAX: TFloatField FieldName = 'PR_ENTRADA_MAX' end object zroqryEmpresasTitulosTP_CHEQUE: TWideStringField FieldName = 'TP_CHEQUE' Size = 1 end object zroqryEmpresasTitulosTP_CRED: TWideStringField FieldName = 'TP_CRED' Size = 1 end object zroqryEmpresasTitulosTP_DIN: TWideStringField FieldName = 'TP_DIN' Size = 1 end object zroqryEmpresasTitulosID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryEmpresasTitulosDT_HORA_ULTIMA_ATT: TDateTimeField FieldName = 'DT_HORA_ULTIMA_ATT' end object zroqryEmpresasTitulosID_DEPARTAMENTO: TIntegerField FieldName = 'ID_DEPARTAMENTO' end object zroqryEmpresasTitulosNR_JUROS: TFloatField FieldName = 'NR_JUROS' Required = True end object zroqryEmpresasTitulosTP_JUROS: TWideStringField FieldName = 'TP_JUROS' Required = True Size = 1 end end object dtsDevedor: TDataSource DataSet = dtmSystem.tblDevedores OnStateChange = dtsDevedorStateChange Left = 1022 Top = 349 end end