inherited frmCentralBoletos: TfrmCentralBoletos Caption = 'Central de Boletos' ClientHeight = 552 ClientWidth = 767 Menu = MainMenu1 ExplicitWidth = 773 ExplicitHeight = 600 PixelsPerInch = 96 TextHeight = 13 object pcBoletos: TPageControl [0] AlignWithMargins = True Left = 3 Top = 3 Width = 761 Height = 527 ActivePage = tsPesquisa Align = alClient Style = tsButtons TabOrder = 1 object tsPesquisa: TTabSheet Caption = 'Pesquisa' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object gb_searchfilter: TGroupBox Left = 0 Top = 0 Width = 750 Height = 73 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 = 750 Height = 170 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' Title.Caption = 'N'#186' Inter' Width = 80 Visible = True end item Expanded = False FieldName = 'seuNumero' Title.Caption = 'N'#186' Nexverse' Width = 70 Visible = True end item Expanded = False FieldName = 'cnpjCpfSacado' Title.Caption = 'Doc. do Sacado' Width = 100 Visible = True end item Expanded = False FieldName = 'nomeSacado' Title.Caption = 'Nome do Sacado' Width = 280 Visible = True end item Expanded = False FieldName = 'codigoBaixa' Title.Caption = 'C'#243'digo da Baixa' Width = 150 Visible = True end item Expanded = False FieldName = 'situacao' Title.Caption = 'Situa'#231#227'o' Width = 100 Visible = True end item Expanded = False FieldName = 'dataPagtoBaixa' Title.Caption = 'Data do Pagamento' Width = 100 Visible = True end item Expanded = False FieldName = 'dataVencimento' Title.Caption = 'Data do Vencimento' Width = 100 Visible = True end item Expanded = False FieldName = 'valorNominal' Title.Caption = 'Valor Nominal' Width = 80 Visible = True end item Expanded = False FieldName = 'valorTotalRecebimento' Title.Caption = 'Valor Recebido' Width = 80 Visible = True end item Expanded = False FieldName = 'telefone' Title.Caption = 'Telefone' Width = 80 Visible = True end item Expanded = False FieldName = 'email' Title.Caption = 'E-mail' Width = 190 Visible = True end item Expanded = False FieldName = 'dataEmissao' Title.Caption = 'Data da Emiss'#227'o' Width = 90 Visible = True end item Expanded = False FieldName = 'dataLimite' Title.Caption = 'Data Limite' Width = 90 Visible = True end item Expanded = False FieldName = 'linhaDigitavel' Title.Caption = 'Linda Digit'#225'vel' Width = 350 Visible = True end item Expanded = False FieldName = 'valorJuros' Title.Caption = 'Juros' Width = 80 Visible = True end item Expanded = False FieldName = 'valorMulta' Title.Caption = 'Multa' Width = 80 Visible = True end item Expanded = False FieldName = 'desconto1' Visible = False end item Expanded = False FieldName = 'desconto2' Visible = False end item Expanded = False FieldName = 'desconto3' Visible = False end item Expanded = False FieldName = 'multa' Visible = False end item Expanded = False FieldName = 'mora' Visible = False end item Expanded = False FieldName = 'valorAbatimento' Title.Caption = 'Valor do Abatimento' Width = 90 Visible = True end> end object gb_desc1: TGroupBox Left = 0 Top = 253 Width = 240 Height = 113 Caption = 'Desconto 1:' TabOrder = 2 object Label6: TLabel Left = 16 Top = 17 Width = 36 Height = 13 Caption = 'C'#243'digo:' end object Label7: TLabel Left = 176 Top = 17 Width = 27 Height = 13 Caption = 'Taxa:' end object Label8: TLabel Left = 16 Top = 63 Width = 27 Height = 13 Caption = 'Valor:' end object DBEdit1: TDBEdit Left = 16 Top = 36 Width = 137 Height = 21 DataField = 'codigo' DataSource = dtsDesc1 ReadOnly = True TabOrder = 0 end object DBEdit2: TDBEdit Left = 176 Top = 36 Width = 50 Height = 21 DataField = 'taxa' DataSource = dtsDesc1 ReadOnly = True TabOrder = 1 end object DBEdit3: TDBEdit Left = 16 Top = 80 Width = 137 Height = 21 DataField = 'valor' DataSource = dtsDesc1 ReadOnly = True TabOrder = 2 end end object gb_desc2: TGroupBox Left = 255 Top = 253 Width = 240 Height = 113 Caption = 'Desconto 2:' TabOrder = 3 object Label9: TLabel Left = 16 Top = 17 Width = 36 Height = 13 Caption = 'C'#243'digo:' end object Label10: TLabel Left = 176 Top = 17 Width = 27 Height = 13 Caption = 'Taxa:' end object Label11: TLabel Left = 16 Top = 63 Width = 27 Height = 13 Caption = 'Valor:' end object DBEdit4: TDBEdit Left = 16 Top = 36 Width = 137 Height = 21 DataField = 'codigo' DataSource = dtsDesc2 ReadOnly = True TabOrder = 0 end object DBEdit5: TDBEdit Left = 176 Top = 36 Width = 50 Height = 21 DataField = 'taxa' DataSource = dtsDesc2 ReadOnly = True TabOrder = 1 end object DBEdit6: TDBEdit Left = 16 Top = 80 Width = 137 Height = 21 DataField = 'valor' DataSource = dtsDesc2 ReadOnly = True TabOrder = 2 end end object gb_desc3: TGroupBox Left = 510 Top = 253 Width = 240 Height = 113 Caption = 'Desconto 3:' TabOrder = 4 object Label12: TLabel Left = 16 Top = 17 Width = 36 Height = 13 Caption = 'C'#243'digo:' end object Label13: TLabel Left = 176 Top = 17 Width = 27 Height = 13 Caption = 'Taxa:' end object Label14: TLabel Left = 16 Top = 63 Width = 27 Height = 13 Caption = 'Valor:' end object DBEdit7: TDBEdit Left = 16 Top = 36 Width = 137 Height = 21 DataField = 'codigo' DataSource = dtsDesc3 ReadOnly = True TabOrder = 0 end object DBEdit8: TDBEdit Left = 176 Top = 36 Width = 50 Height = 21 DataField = 'taxa' DataSource = dtsDesc3 ReadOnly = True TabOrder = 1 end object DBEdit9: TDBEdit Left = 16 Top = 80 Width = 137 Height = 21 DataField = 'valor' DataSource = dtsDesc3 ReadOnly = True TabOrder = 2 end end object gb_multa: TGroupBox Left = 0 Top = 368 Width = 360 Height = 114 Caption = 'Multa:' TabOrder = 5 object Label15: TLabel Left = 16 Top = 63 Width = 27 Height = 13 Caption = 'Valor:' end object Label16: TLabel Left = 16 Top = 17 Width = 36 Height = 13 Caption = 'C'#243'digo:' end object Label17: TLabel Left = 176 Top = 17 Width = 27 Height = 13 Caption = 'Taxa:' end object Label18: TLabel Left = 176 Top = 63 Width = 26 Height = 13 Caption = 'Data:' end object DBEdit10: TDBEdit Left = 16 Top = 82 Width = 137 Height = 21 DataField = 'valor' DataSource = dtsMulta ReadOnly = True TabOrder = 0 end object DBEdit11: TDBEdit Left = 16 Top = 36 Width = 137 Height = 21 DataField = 'codigo' DataSource = dtsMulta ReadOnly = True TabOrder = 1 end object DBEdit12: TDBEdit Left = 176 Top = 36 Width = 50 Height = 21 DataField = 'taxa' DataSource = dtsMulta ReadOnly = True TabOrder = 2 end object rdbdt_entrada: TrDBDateTimePicker Left = 176 Top = 82 Width = 121 Height = 21 Date = 43017.406126562500000000 Time = 43017.406126562500000000 TabOrder = 4 DataField = 'data' DataSource = dtsMulta ReadOnly = True DBEditLabel.OwnCaption = 'Data de cadastramento:' DBEditLabel.Visible = False FormatEmpty = '__.__.__' end end object gb_mora: TGroupBox Left = 390 Top = 368 Width = 360 Height = 114 Caption = 'Mora:' TabOrder = 6 object Label19: TLabel Left = 24 Top = 17 Width = 36 Height = 13 Caption = 'C'#243'digo:' end object Label20: TLabel Left = 24 Top = 63 Width = 27 Height = 13 Caption = 'Valor:' end object Label21: TLabel Left = 184 Top = 17 Width = 27 Height = 13 Caption = 'Taxa:' end object Label22: TLabel Left = 184 Top = 63 Width = 26 Height = 13 Caption = 'Data:' end object DBEdit13: TDBEdit Left = 24 Top = 36 Width = 137 Height = 21 DataField = 'codigo' DataSource = dtsMora ReadOnly = True TabOrder = 0 end object DBEdit14: TDBEdit Left = 24 Top = 82 Width = 137 Height = 21 DataField = 'valor' DataSource = dtsMora ReadOnly = True TabOrder = 1 end object DBEdit15: TDBEdit Left = 184 Top = 36 Width = 50 Height = 21 DataField = 'taxa' DataSource = dtsMora ReadOnly = True TabOrder = 2 end object rDBDateTimePicker1: TrDBDateTimePicker Left = 184 Top = 82 Width = 121 Height = 21 Date = 43017.406126562500000000 Time = 43017.406126562500000000 TabOrder = 4 DataField = 'data' DataSource = dtsMora ReadOnly = True DBEditLabel.OwnCaption = 'Data de cadastramento:' DBEditLabel.Visible = False FormatEmpty = '__.__.__' end end end object tsGeraBoleto: TTabSheet Caption = 'Gerar' ImageIndex = 1 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object pcGeraBoletos: TPageControl Left = 0 Top = 0 Width = 753 Height = 496 ActivePage = tsGeraUm Align = alClient Style = tsButtons TabOrder = 0 object tsGeraUm: TTabSheet Caption = 'Manual' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object pcPesquisaGerar: TPageControl Left = 0 Top = 0 Width = 745 Height = 465 ActivePage = TabSheet2 Align = alClient Style = tsButtons TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Pesquisar' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object dbgrd_bolunico: TDBGrid Left = 0 Top = 79 Width = 735 Height = 137 Align = alCustom DataSource = dtsBolUnico Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] OnMouseUp = dbgrd_bolunicoMouseUp Columns = < item Expanded = False FieldName = 'TX_NOME' Title.Caption = 'Nome' Width = 200 Visible = True end item Expanded = False FieldName = 'TX_DOCUMENTO' Title.Caption = 'Documento' Width = 90 Visible = True end item Expanded = False FieldName = 'TX_PRODUTO' Title.Caption = 'Produto' Width = 180 Visible = True end item Expanded = False FieldName = 'VL_TITULO' Title.Caption = 'Principal' Visible = True end item Expanded = False FieldName = 'VL_CORRIGIDO' Title.Caption = 'Corrigido' Visible = True end item Expanded = False FieldName = 'DT_VENCIMENTO' Title.Caption = 'Vencimento' Width = 75 Visible = True end> end object dbgrd_emailsbolunico: TDBGrid Left = 0 Top = 222 Width = 281 Height = 75 DataSource = dtsEmails Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ReadOnly = True 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_EMAIL' Title.Caption = 'Email' Visible = True end> end object DBGrid1: TDBGrid Left = 286 Top = 222 Width = 449 Height = 75 DataSource = dtsTelefones Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] ReadOnly = True TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'NR_DDD' Title.Caption = 'DDD' Visible = True end item Expanded = False FieldName = 'NR_NUMERO' Title.Caption = 'N'#250'mero' Width = 76 Visible = True end item Expanded = False FieldName = 'TP_ATIVO' Title.Caption = 'Ativo' Width = 33 Visible = True end item Expanded = False FieldName = 'TP_TIPOTEL' Title.Caption = 'Tipo' Width = 31 Visible = True end item Expanded = False FieldName = 'TP_SMS' Title.Caption = 'SMS' Width = 32 Visible = True end item Expanded = False FieldName = 'TX_DESC' Title.Caption = 'Descri'#231#227'o' Visible = True end> end object DBGrid2: TDBGrid Left = 0 Top = 303 Width = 735 Height = 80 DataSource = dtsEnderecos Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, 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 = [] Columns = < item Expanded = False FieldName = 'TP_ENDERECO' Title.Caption = 'Tipo' Width = 32 Visible = True end item Expanded = False FieldName = 'TP_ATIVO' Title.Caption = 'Ativo' Width = 33 Visible = True end item Expanded = False FieldName = 'TX_LOGRADOURO' Title.Caption = 'Rua' Width = 282 Visible = True end item Expanded = False FieldName = 'NR_NUMERO' Title.Caption = 'N'#250'mero' Width = 49 Visible = True end item Expanded = False FieldName = 'TX_COMPLEMENTO' Title.Caption = 'Complemento' Width = 138 Visible = True end item Expanded = False FieldName = 'TX_BAIRRO' Title.Caption = 'Bairro' Width = 93 Visible = True end item Expanded = False FieldName = 'TX_CIDADE' Title.Caption = 'Cidade' Visible = True end item Expanded = False FieldName = 'TX_ESTADO' Title.Caption = 'UF' Width = 20 Visible = True end item Expanded = False FieldName = 'TX_CEP' Title.Caption = 'Cep' Visible = True end item Expanded = False FieldName = 'TP_CONFIRMADO' Title.Caption = 'Confirmado' Width = 59 Visible = True end> end object GroupBox1: TGroupBox Left = 0 Top = 3 Width = 735 Height = 70 Caption = 'Filtro:' TabOrder = 4 object Label23: TLabel Left = 16 Top = 16 Width = 139 Height = 13 Caption = 'Grupo de Empresa de Boleto:' end object Label24: TLabel Left = 288 Top = 16 Width = 100 Height = 13 Caption = 'Per'#237'odo Vencimento:' end object Label25: TLabel Left = 379 Top = 39 Width = 6 Height = 13 Caption = 'a' end object SpeedButton2: TSpeedButton Left = 544 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 = SpeedButton2Click end object dblucb_filtrobolunico: TDBLookupComboBox Left = 16 Top = 35 Width = 241 Height = 21 KeyField = 'ID_GRUPO' ListField = 'TX_NOME' ListSource = dtmSystem.dtsGrupoBoletos TabOrder = 0 end object dtp_vencinbolunico: TDateTimePicker Left = 288 Top = 35 Width = 81 Height = 21 Date = 44215.663146446760000000 Time = 44215.663146446760000000 TabOrder = 1 end object dtp_vencoutbolunico: TDateTimePicker Left = 399 Top = 35 Width = 82 Height = 21 Date = 44215.663217199070000000 Time = 44215.663217199070000000 TabOrder = 2 end end end object TabSheet2: TTabSheet Caption = 'Dados' ImageIndex = 1 ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object Label26: TLabel Left = 214 Top = 33 Width = 24 Height = 13 Caption = 'CEP:' end object Label27: TLabel Left = 311 Top = 33 Width = 15 Height = 13 Caption = 'N'#186':' end object Label28: TLabel Left = 416 Top = 33 Width = 67 Height = 13 Caption = 'Complemento:' end object Label29: TLabel Left = 552 Top = 33 Width = 30 Height = 13 Caption = 'Bairro:' end object Label30: TLabel Left = 2 Top = 60 Width = 36 Height = 13 Caption = 'Cidade:' end object Label31: TLabel Left = 171 Top = 60 Width = 17 Height = 13 Caption = 'UF:' end object Label32: TLabel Left = 230 Top = 60 Width = 49 Height = 13 Caption = 'Endere'#231'o:' end object lbl_dddbolunico: TLabel Left = 2 Top = 33 Width = 27 Height = 13 Caption = 'DDD:' end object lbl_docbolunico: TLabel Left = 286 Top = 6 Width = 58 Height = 13 Caption = 'Documento:' end object lbl_emailbolunico: TLabel Left = 489 Top = 6 Width = 28 Height = 13 Caption = 'Email:' end object lbl_nomebolunico: TLabel Left = 2 Top = 6 Width = 31 Height = 13 Caption = 'Nome:' end object lbl_telbolunico: TLabel Left = 82 Top = 33 Width = 45 Height = 13 Caption = 'Telefone:' end object Label33: TLabel Left = 2 Top = 106 Width = 59 Height = 13 Caption = 'Vencimento:' end object Label43: TLabel Left = 159 Top = 106 Width = 75 Height = 13 Caption = 'Valor do Boleto:' end object Label44: TLabel Left = 367 Top = 106 Width = 98 Height = 13 Caption = 'Valor de Abatimento:' end object Label53: TLabel Left = 537 Top = 239 Width = 56 Height = 13 Caption = 'Data Limite:' end object Label54: TLabel Left = 537 Top = 266 Width = 78 Height = 13 Caption = 'Dias p/ Agenda:' end object edt_bairrobolunico: TEdit Left = 583 Top = 30 Width = 153 Height = 21 TabOrder = 8 end object edt_cepbolunico: TEdit Left = 244 Top = 30 Width = 60 Height = 21 TabOrder = 5 end object edt_cidadebolunico: TEdit Left = 44 Top = 57 Width = 121 Height = 21 TabOrder = 9 end object edt_compbolunico: TEdit Left = 489 Top = 30 Width = 57 Height = 21 TabOrder = 7 end object edt_dddbolunico: TEdit Left = 35 Top = 30 Width = 41 Height = 21 TabOrder = 3 end object edt_docbolunico: TEdit Left = 350 Top = 3 Width = 133 Height = 21 Hint = 'Documento sem ".", "-" ou "/'#39 TabOrder = 1 end object edt_emailbolunico: TEdit Left = 518 Top = 3 Width = 218 Height = 21 TabOrder = 2 end object edt_endbolunico: TEdit Left = 285 Top = 57 Width = 451 Height = 21 TabOrder = 11 end object edt_endnumbolunico: TEdit Left = 332 Top = 30 Width = 79 Height = 21 NumbersOnly = True TabOrder = 6 end object edt_estadobolunico: TEdit Left = 194 Top = 57 Width = 30 Height = 21 TabOrder = 10 end object edt_nomebolunico: TEdit Left = 39 Top = 3 Width = 241 Height = 21 TabOrder = 0 end object edt_telbolunico: TEdit Left = 133 Top = 30 Width = 71 Height = 21 TabOrder = 4 end object dt_vencbolunico: TDateTimePicker Left = 67 Top = 103 Width = 86 Height = 21 Date = 44218.722504768520000000 Time = 44218.722504768520000000 TabOrder = 12 end object Panel1: TPanel Left = 0 Top = 96 Width = 737 Height = 1 TabOrder = 14 end object GroupBox2: TGroupBox Left = 0 Top = 126 Width = 242 Height = 87 Caption = 'Desconto 1:' TabOrder = 15 object Label34: TLabel Left = 143 Top = 27 Width = 27 Height = 13 Caption = 'Taxa:' end object Label35: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label36: TLabel Left = 117 Top = 55 Width = 26 Height = 13 Caption = 'Data:' end object cb_desc1: TComboBox Left = 8 Top = 24 Width = 129 Height = 21 ItemIndex = 0 TabOrder = 0 Text = 'NAOTEMDESCONTO' Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa1bol: TEdit Left = 176 Top = 24 Width = 57 Height = 21 TabOrder = 1 end object edt_val1bol: TEdit Left = 41 Top = 51 Width = 70 Height = 21 TabOrder = 2 end object dtp_desc1: TDateTimePicker Left = 149 Top = 51 Width = 84 Height = 21 Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox3: TGroupBox Left = 248 Top = 126 Width = 242 Height = 87 Caption = 'Desconto 2:' TabOrder = 16 object Label37: TLabel Left = 143 Top = 27 Width = 27 Height = 13 Caption = 'Taxa:' end object Label38: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label39: TLabel Left = 117 Top = 55 Width = 26 Height = 13 Caption = 'Data:' end object cb_desc2: TComboBox Left = 8 Top = 24 Width = 129 Height = 21 ItemIndex = 0 TabOrder = 0 Text = 'NAOTEMDESCONTO' Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa2bol: TEdit Left = 176 Top = 24 Width = 57 Height = 21 TabOrder = 1 end object edt_val2bol: TEdit Left = 41 Top = 51 Width = 70 Height = 21 TabOrder = 2 end object dtp_desc2: TDateTimePicker Left = 149 Top = 51 Width = 84 Height = 21 Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox4: TGroupBox Left = 496 Top = 126 Width = 242 Height = 87 Caption = 'Desconto 3:' TabOrder = 17 object Label40: TLabel Left = 143 Top = 27 Width = 27 Height = 13 Caption = 'Taxa:' end object Label41: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label42: TLabel Left = 117 Top = 55 Width = 26 Height = 13 Caption = 'Data:' end object cb_desc3: TComboBox Left = 8 Top = 24 Width = 129 Height = 21 ItemIndex = 0 TabOrder = 0 Text = 'NAOTEMDESCONTO' Items.Strings = ( 'NAOTEMDESCONTO' 'VALORFIXODATAINFORMADA' 'PERCENTUALDATAINFORMADA' 'VALORANTECIPACAODIACORRIDO' 'VALORANTECIPACAODIAUTIL' 'PERCENTUALVALORNOMINALDIACORRIDO' 'PERCENTUALVALORNOMINALDIAUTIL') end object edt_taxa3bol: TEdit Left = 176 Top = 24 Width = 57 Height = 21 TabOrder = 1 end object edt_val3bol: TEdit Left = 41 Top = 51 Width = 70 Height = 21 TabOrder = 2 end object dtp_desc3: TDateTimePicker Left = 149 Top = 51 Width = 84 Height = 21 Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object edt_valorboleto: TEdit Left = 240 Top = 103 Width = 121 Height = 21 TabOrder = 13 OnKeyPress = edt_valorboletoKeyPress end object edt_abatimentobol: TEdit Left = 471 Top = 103 Width = 121 Height = 21 TabOrder = 24 OnKeyPress = edt_abatimentobolKeyPress end object GroupBox5: TGroupBox Left = 263 Top = 212 Width = 257 Height = 87 Caption = 'Multa:' TabOrder = 19 object Label45: TLabel Left = 159 Top = 27 Width = 27 Height = 13 Caption = 'Taxa:' end object Label46: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label56: TLabel Left = 117 Top = 55 Width = 26 Height = 13 Caption = 'Data:' end object cb_multabol: TComboBox Left = 8 Top = 24 Width = 145 Height = 21 ItemIndex = 0 TabOrder = 0 Text = 'NAOTEMMULTA' Items.Strings = ( 'NAOTEMMULTA' 'VALORFIXO' 'PERCENTUAL') end object edt_taxamultabol: TEdit Left = 192 Top = 24 Width = 57 Height = 21 TabOrder = 1 end object edt_vlmultabol: TEdit Left = 41 Top = 51 Width = 70 Height = 21 TabOrder = 2 end object dtp_mora: TDateTimePicker Left = 149 Top = 51 Width = 84 Height = 21 Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox6: TGroupBox Left = 0 Top = 212 Width = 257 Height = 87 Caption = 'Mora:' TabOrder = 18 object Label47: TLabel Left = 159 Top = 27 Width = 27 Height = 13 Caption = 'Taxa:' end object Label48: TLabel Left = 8 Top = 55 Width = 27 Height = 13 Caption = 'Valor:' end object Label55: TLabel Left = 122 Top = 55 Width = 26 Height = 13 Caption = 'Data:' end object cb_morabol: TComboBox Left = 8 Top = 24 Width = 145 Height = 21 ItemIndex = 0 TabOrder = 0 Text = 'VALORDIA' Items.Strings = ( 'VALORDIA' 'TAXAMENSAL' 'ISENTO') end object edt_taxamorabol: TEdit Left = 192 Top = 24 Width = 57 Height = 21 TabOrder = 1 end object edt_vlmorabol: TEdit Left = 41 Top = 51 Width = 70 Height = 21 TabOrder = 2 end object dtp_multa: TDateTimePicker Left = 154 Top = 51 Width = 84 Height = 21 Date = 44218.738580023150000000 Time = 44218.738580023150000000 TabOrder = 3 end end object GroupBox7: TGroupBox Left = 0 Top = 298 Width = 737 Height = 136 Caption = 'Mensagem:' TabOrder = 22 object Label49: TLabel Left = 8 Top = 20 Width = 38 Height = 13 Caption = 'Linha 1:' end object Label50: TLabel Left = 8 Top = 44 Width = 38 Height = 13 Caption = 'Linha 2:' end object Label51: TLabel Left = 8 Top = 68 Width = 38 Height = 13 Caption = 'Linha 3:' end object Label52: TLabel Left = 8 Top = 92 Width = 38 Height = 13 Caption = 'Linha 4:' end object Label57: TLabel Left = 8 Top = 115 Width = 38 Height = 13 Caption = 'Linha 5:' end object edt_linha1bol: TEdit Left = 52 Top = 17 Width = 671 Height = 21 MaxLength = 78 TabOrder = 0 end object edt_linha2bol: TEdit Left = 52 Top = 41 Width = 671 Height = 21 MaxLength = 78 TabOrder = 1 end object edt_linha3bol: TEdit Left = 52 Top = 65 Width = 671 Height = 21 MaxLength = 78 TabOrder = 2 end object edt_linha4bol: TEdit Left = 52 Top = 89 Width = 671 Height = 21 MaxLength = 78 TabOrder = 3 end object edt_linha5bol: TEdit Left = 52 Top = 112 Width = 671 Height = 21 MaxLength = 78 TabOrder = 4 end end object btn_gerarbolunico: TButton Left = 659 Top = 103 Width = 75 Height = 25 Caption = 'Gerar' TabOrder = 23 OnClick = btn_gerarbolunicoClick end object cb_dtlimitebol: TComboBox Left = 637 Top = 236 Width = 92 Height = 21 ItemIndex = 0 TabOrder = 20 Text = 'TRINTA' Items.Strings = ( 'TRINTA' 'SESSENTA') end object cb_agendabol: TComboBox Left = 637 Top = 263 Width = 92 Height = 21 ItemIndex = 0 TabOrder = 21 Text = 'TRINTA' Items.Strings = ( 'TRINTA' 'SESSENTA') end end end end object tsGeraAuto: TTabSheet Caption = 'Autom'#225'tico' ImageIndex = 1 TabVisible = False ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 end end end end inherited stbStatus: TStatusBar Top = 533 Width = 767 ExplicitTop = 533 ExplicitWidth = 767 end object dtsBoletos: TDataSource DataSet = tblBoletos OnDataChange = dtsBoletosDataChange Left = 168 Top = 1 end object tblBoletos: TClientDataSet Aggregates = <> Params = <> Left = 296 Top = 1 object tblBoletosnossoNumero: TStringField FieldName = 'nossoNumero' Size = 255 end object tblBoletosseuNumero: TStringField FieldName = 'seuNumero' Size = 255 end object tblBoletoscnpjCpfSacado: TStringField FieldName = 'cnpjCpfSacado' Size = 255 end object tblBoletosnomeSacado: TStringField FieldName = 'nomeSacado' Size = 255 end object tblBoletoscodigoBaixa: TStringField FieldName = 'codigoBaixa' Size = 255 end object tblBoletossituacao: TStringField FieldName = 'situacao' Size = 255 end object tblBoletosdataPagtoBaixa: TDateField FieldName = 'dataPagtoBaixa' end object tblBoletosdataVencimento: TDateField FieldName = 'dataVencimento' end object tblBoletosvalorNominal: TCurrencyField FieldName = 'valorNominal' end object tblBoletosvalorTotalRecebimento: TCurrencyField FieldName = 'valorTotalRecebimento' end object tblBoletostelefone: TStringField FieldName = 'telefone' Size = 255 end object tblBoletosemail: TStringField FieldName = 'email' Size = 255 end object tblBoletosdataEmissao: TDateField FieldName = 'dataEmissao' end object tblBoletosdataLimite: TDateField FieldName = 'dataLimite' end object tblBoletoslinhaDigitavel: TStringField FieldName = 'linhaDigitavel' Size = 255 end object tblBoletosvalorJuros: TCurrencyField FieldName = 'valorJuros' end object tblBoletosvalorMulta: TCurrencyField FieldName = 'valorMulta' end object tblBoletosdesconto1: TBlobField FieldName = 'desconto1' end object tblBoletosdesconto2: TBlobField FieldName = 'desconto2' end object tblBoletosdesconto3: TBlobField FieldName = 'desconto3' end object tblBoletosmulta: TBlobField FieldName = 'multa' end object tblBoletosmora: TBlobField FieldName = 'mora' end object tblBoletosvalorAbatimento: TCurrencyField FieldName = 'valorAbatimento' end end object IdHTTP: TIdHTTP IOHandler = IdSSLHandler AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.ContentRangeEnd = -1 Request.ContentRangeStart = -1 Request.ContentRangeInstanceLength = -1 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 = 681 Top = 1 end object IdSSLHandler: TIdSSLIOHandlerSocketOpenSSL MaxLineAction = maException Port = 0 DefaultPort = 0 SSLOptions.Method = sslvSSLv23 SSLOptions.SSLVersions = [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2] SSLOptions.Mode = sslmUnassigned SSLOptions.VerifyMode = [] SSLOptions.VerifyDepth = 0 Left = 649 Top = 1 end object tblDesc1: TClientDataSet Aggregates = <> Params = <> Left = 264 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 = 232 Top = 1 end object tblDesc2: TClientDataSet Aggregates = <> Params = <> Left = 728 Top = 331 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 = 728 Top = 235 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 = 728 Top = 283 end object tblMulta: TClientDataSet Aggregates = <> Params = <> Left = 425 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 = 457 Top = 1 end object tblMora: TClientDataSet Aggregates = <> Params = <> Left = 489 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 = 521 Top = 1 end object pum_download: TPopupMenu Left = 584 Top = 1 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 = 552 Top = 1 end object IdDecoderMIME: TIdDecoderMIME FillChar = '=' Left = 616 Top = 1 end object zroqryBolUnico: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'd.ID_DEVEDOR,' 'd.TX_NOME,' 'case when d.TP_CLIENTE = '#39'F'#39' then d.CD_CPF when d.TP_CLIENTE = '#39 + 'J'#39' then d.CD_CNPJ end as TX_DOCUMENTO,' 't.TX_PRODUTO,' 't.VL_TITULO,' 't.VL_CORRIGIDO,' 't.DT_VENCIMENTO,' 't.ID_EMPRESA,' 't.ID_TITULO' 'from chg_titulos t' 'left join CHG_DEVEDORES d on d.ID_DEVEDOR = t.ID_DEVEDOR' 'where' 't.ID_EMPRESA in (select ID_EMPRESA from CHG_GRUPO_BOLETO_EMPRESA' + 'S where ID_GRUPO_BOLETO = 1)' 'and' '(t.TP_SITUACAO = '#39'A'#39' or t.TP_SITUACAO = '#39'AC'#39')' 'and' '(t.DT_VENCIMENTO >= cast('#39'2020-01-01'#39' as date) and t.DT_VENCIMEN' + 'TO <= cast('#39'2020-01-01'#39' as date))') Params = <> Left = 728 Top = 190 object zroqryBolUnicoID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zroqryBolUnicoTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object zroqryBolUnicoTX_DOCUMENTO: TWideStringField FieldName = 'TX_DOCUMENTO' ReadOnly = True Size = 18 end object zroqryBolUnicoTX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqryBolUnicoVL_TITULO: TFloatField FieldName = 'VL_TITULO' currency = True end object zroqryBolUnicoVL_CORRIGIDO: TFloatField FieldName = 'VL_CORRIGIDO' currency = True end object zroqryBolUnicoDT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqryBolUnicoID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryBolUnicoID_TITULO: TIntegerField FieldName = 'ID_TITULO' Required = True end end object dtsBolUnico: TDataSource DataSet = zroqryBolUnico Left = 728 Top = 142 end object MainMenu1: TMainMenu Left = 728 Top = 46 object mnuCadastro: TMenuItem Caption = 'Cadastro' object mnhGrupoBoletos: TMenuItem Caption = 'Grupos de Empresas' OnClick = mnhGrupoBoletosClick end end end object zroqryEmails: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select * from chg_emails') Params = <> MasterFields = 'ID_DEVEDOR' MasterSource = dtsBolUnico LinkedFields = 'ID_DEVEDOR' Left = 728 Top = 94 object zroqryEmailsTX_EMAIL: TWideStringField FieldName = 'TX_EMAIL' Size = 40 end object zroqryEmailsID_EMAIL: TIntegerField FieldName = 'ID_EMAIL' Required = True end object zroqryEmailsID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' end object zroqryEmailsID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryEmailsDT_HORA_ULTIMA_ATT: TDateTimeField FieldName = 'DT_HORA_ULTIMA_ATT' end end object dtsEmails: TDataSource DataSet = zroqryEmails Left = 328 Top = 1 end object zroqryTelefones: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select * from chg_telefones') Params = <> MasterFields = 'ID_DEVEDOR' MasterSource = dtsBolUnico LinkedFields = 'ID_DEVEDOR' Left = 360 Top = 1 object zroqryTelefonesNR_DDD: TWideStringField FieldName = 'NR_DDD' Size = 4 end object zroqryTelefonesNR_NUMERO: TWideStringField FieldName = 'NR_NUMERO' end object zroqryTelefonesTP_ATIVO: TWideStringField FieldName = 'TP_ATIVO' Size = 1 end object zroqryTelefonesTP_TIPOTEL: TWideStringField FieldName = 'TP_TIPOTEL' Size = 1 end object zroqryTelefonesTP_SMS: TWideStringField FieldName = 'TP_SMS' Size = 1 end object zroqryTelefonesTX_DESC: TWideStringField FieldName = 'TX_DESC' Size = 100 end object zroqryTelefonesID_TELEFONE: TIntegerField FieldName = 'ID_TELEFONE' Required = True end object zroqryTelefonesID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zroqryTelefonesTX_OBS: TWideMemoField FieldName = 'TX_OBS' BlobType = ftWideMemo end object zroqryTelefonesID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryTelefonesDT_HORA_ULTIMA_ATT: TDateTimeField FieldName = 'DT_HORA_ULTIMA_ATT' end end object dtsTelefones: TDataSource DataSet = zroqryTelefones Left = 392 Top = 1 end object zroqryEnderecos: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select * from chg_enderecos') Params = <> MasterFields = 'ID_DEVEDOR' MasterSource = dtsBolUnico LinkedFields = 'ID_DEVEDOR' Left = 200 Top = 1 object zroqryEnderecosID_ENDERECO: TIntegerField FieldName = 'ID_ENDERECO' Required = True end object zroqryEnderecosID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zroqryEnderecosTP_ENDERECO: TWideStringField FieldName = 'TP_ENDERECO' Size = 1 end object zroqryEnderecosTP_ATIVO: TWideStringField FieldName = 'TP_ATIVO' Size = 1 end object zroqryEnderecosTX_LOGRADOURO: TWideStringField FieldName = 'TX_LOGRADOURO' Size = 100 end object zroqryEnderecosTX_BAIRRO: TWideStringField FieldName = 'TX_BAIRRO' Size = 100 end object zroqryEnderecosID_CIDADE: TIntegerField FieldName = 'ID_CIDADE' end object zroqryEnderecosID_ESTADO: TIntegerField FieldName = 'ID_ESTADO' end object zroqryEnderecosTX_CEP: TWideStringField FieldName = 'TX_CEP' Size = 9 end object zroqryEnderecosTX_COMPLEMENTO: TWideStringField FieldName = 'TX_COMPLEMENTO' Size = 100 end object zroqryEnderecosNR_NUMERO: TFloatField FieldName = 'NR_NUMERO' end object zroqryEnderecosTP_REFERENCIA: TWideStringField FieldName = 'TP_REFERENCIA' Size = 1 end object zroqryEnderecosID_HIGIENIZADORA: TIntegerField FieldName = 'ID_HIGIENIZADORA' end object zroqryEnderecosTP_CONFIRMADO: TWideStringField FieldName = 'TP_CONFIRMADO' Size = 1 end object zroqryEnderecosID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryEnderecosTX_ESTADO: TStringField FieldKind = fkLookup FieldName = 'TX_ESTADO' LookupDataSet = dtmSystem.tblEstados LookupKeyFields = 'ID_ESTADO' LookupResultField = 'TX_SIGLA' KeyFields = 'ID_ESTADO' Size = 255 Lookup = True end object zroqryEnderecosTX_CIDADE: TStringField FieldKind = fkLookup FieldName = 'TX_CIDADE' LookupDataSet = dtmSystem.tblCidadesConsulta LookupKeyFields = 'ID_CIDADE' LookupResultField = 'TX_NOME' KeyFields = 'ID_CIDADE' Size = 255 Lookup = True end end object dtsEnderecos: TDataSource DataSet = zroqryEnderecos Left = 136 Top = 1 end object pum_incldel: TPopupMenu Left = 104 Top = 1 object mnuIncluir: TMenuItem Caption = 'Incluir' OnClick = mnuIncluirClick 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 = 728 Top = 376 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 end