object relBordero: TrelBordero Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relBordero' ClientHeight = 569 ClientWidth = 796 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object frBordero: TRLReport Left = 0 Top = 0 Width = 794 Height = 1123 DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] AfterPrint = frBorderoAfterPrint BeforePrint = frBorderoBeforePrint object frbnd_header: TRLBand Left = 38 Top = 38 Width = 718 Height = 143 AutoExpand = False BandType = btHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = False object frpnl_logo: TRLPanel Left = 1 Top = 0 Width = 160 Height = 143 Align = faLeftOnly Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = False object frdbimg_logo: TRLDBImage Left = 0 Top = 1 Width = 159 Height = 142 Align = faClient AutoSize = True Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = False DataField = 'IMG_LOGO' DataSource = dtsEmpresa Stretch = True end end object frlbl_titulorel: TRLLabel Left = 167 Top = 52 Width = 346 Height = 24 Caption = 'Relat'#243'rio de Entrada da Empresa:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object frlbl_empresanome: TRLLabel Left = 167 Top = 82 Width = 212 Height = 24 Caption = 'NOME DA EMPRESA' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object frbnd_footer: TRLBand Left = 38 Top = 211 Width = 718 Height = 16 BandType = btSummary Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object frdbresult_sumvalor: TRLDBResult Left = 586 Top = 1 Width = 130 Height = 16 Align = faTopOnly Alignment = taRightJustify DataField = 'VALOR' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = 'Total: ' end end object frbnd_footerrel: TRLBand Left = 38 Top = 227 Width = 718 Height = 20 BandType = btFooter object RLSystemInfo2: TRLSystemInfo Left = 503 Top = 7 Width = 49 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] ParentFont = False Text = '' end object RLSystemInfo1: TRLSystemInfo Left = 605 Top = 7 Width = 49 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] Info = itHour ParentFont = False Text = '' end object frdblbl_usuario: TRLDBText Left = 290 Top = 7 Width = 56 Height = 13 Align = faBottomOnly DataField = 'TX_NOME' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] ParentFont = False Text = '' BeforePrint = frdblbl_usuarioBeforePrint end end object frbnd_columnheader: TRLBand Left = 38 Top = 181 Width = 718 Height = 16 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object RLLabel2: TRLLabel Left = 1 Top = 1 Width = 42 Height = 16 Align = faLeftTop Caption = 'NOME' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel3: TRLLabel Left = 325 Top = 1 Width = 65 Height = 16 Align = faTopOnly Caption = 'ENTRADA' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel4: TRLLabel Left = 420 Top = 1 Width = 51 Height = 16 Align = faTopOnly Caption = 'T'#205'TULO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel5: TRLLabel Left = 220 Top = 1 Width = 68 Height = 16 Align = faTopOnly Caption = 'CPF/CNPJ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel6: TRLLabel Left = 508 Top = 1 Width = 89 Height = 16 Align = faTopOnly Caption = 'VENCIMENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel7: TRLLabel Left = 668 Top = 1 Width = 49 Height = 16 Align = faRightTop Caption = 'VALOR' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object frbnd_dados: TRLBand Left = 38 Top = 197 Width = 718 Height = 14 Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = False object frdblbl_data: TRLDBText Left = 314 Top = 0 Width = 88 Height = 14 Align = faTopOnly Alignment = taCenter DataField = 'DATA_ENTRADA' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object frdblbl_titulo: TRLDBText Left = 420 Top = 0 Width = 82 Height = 14 Align = faTopOnly AutoSize = False DataField = 'PRODUTO' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object frdblbl_valor: TRLDBText Left = 677 Top = 0 Width = 40 Height = 14 Align = faRightTop Alignment = taRightJustify DataField = 'VALOR' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object frdblbl_codigo: TRLDBText Left = 1 Top = 0 Width = 207 Height = 14 Align = faLeftTop AutoSize = False DataField = 'NOME' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText1: TRLDBText Left = 500 Top = 0 Width = 104 Height = 14 Align = faTopOnly Alignment = taCenter DataField = 'DATA_VENCIMENTO' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText2: TRLDBText Left = 220 Top = 0 Width = 86 Height = 14 Align = faTopOnly DataField = 'TX_DOCUMENTO' DataSource = dtsQry Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end end end object frfilterpdf: TRLPDFFilter DocumentInfo.Creator = 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + 'ortes Inform'#225'tica' DisplayName = 'Documento PDF' Left = 736 Top = 8 end object dtsEmpresa: TDataSource DataSet = dtmSystem.tblEmpresa Left = 568 Top = 8 end object zqryRel: TZQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'A.id_devedor,' 'A.tx_nome as NOME,' 'case when a.tp_cliente = '#39'F'#39' then A.cd_cpf' 'when a.tp_cliente = '#39'J'#39' then a.cd_cnpj end as TX_DOCUMENTO,' 'A.cd_devedor as CODIGO,' 'B.dt_entrada as DATA_ENTRADA,' 'B.tx_produto as PRODUTO,' 'B.vl_titulo as VALOR,' 'B.dt_vencimento as DATA_VENCIMENTO' 'from chg_devedores A' 'inner join chg_titulos B' 'on (A.id_devedor = B.id_devedor);') Params = <> Left = 624 Top = 8 object zqryRelID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zqryRelNOME: TWideStringField FieldName = 'NOME' ReadOnly = True Size = 60 end object zqryRelCODIGO: TWideStringField FieldName = 'CODIGO' end object zqryRelPRODUTO: TWideStringField FieldName = 'PRODUTO' Size = 100 end object zqryRelVALOR: TFloatField FieldName = 'VALOR' currency = True end object zqryRelDATA_VENCIMENTO: TDateTimeField FieldName = 'DATA_VENCIMENTO' end object zqryRelTX_DOCUMENTO: TWideStringField FieldName = 'TX_DOCUMENTO' ReadOnly = True Size = 18 end object zqryRelDATA_ENTRADA: TDateTimeField FieldName = 'DATA_ENTRADA' end end object dtsQry: TDataSource DataSet = zqryRel Left = 680 Top = 8 end end