object relRelacaoAcordo: TrelRelacaoAcordo Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relRelacaoAcordo' ClientHeight = 1171 ClientWidth = 821 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object frrelRelacaoAcordo: TRLReport Left = 8 Top = 8 Width = 794 Height = 1123 AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter, btSummary] DataSource = dts1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] AfterPrint = frrelRelacaoAcordoAfterPrint object RLGroup1: TRLGroup Left = 38 Top = 169 Width = 718 Height = 160 AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter] Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True DataFields = 'ID_ACORDO' PageBreaking = pbAfterPrint object RLBand2: TRLBand Left = 1 Top = 1 Width = 716 Height = 16 Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True BeforePrint = RLBand2BeforePrint object RLDBText2: TRLDBText Left = 325 Top = 0 Width = 66 Height = 16 Align = faCenter DataField = 'TX_NOME' DataSource = dts1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Text = '' end end object RLSubDetail1: TRLSubDetail Left = 1 Top = 17 Width = 716 Height = 67 AllowedBands = [btColumnHeader, btDetail, btColumnFooter] DataSource = dts2 object RLBand1: TRLBand Left = 0 Top = 35 Width = 716 Height = 16 object RLDBText1: TRLDBText Left = 3 Top = 0 Width = 463 Height = 16 AutoSize = False DataField = 'TX_PRODUTO' DataSource = dts2 Text = '' end object RLDBText4: TRLDBText Left = 472 Top = 0 Width = 112 Height = 16 DataField = 'DT_VENCIMENTO' DataSource = dts2 Text = '' end object RLDBText5: TRLDBText Left = 608 Top = 0 Width = 90 Height = 16 DataField = 'VL_TITULO' DataSource = dts2 Text = 'R$ ' end end object RLBand5: TRLBand Left = 0 Top = 0 Width = 716 Height = 35 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True object RLLabel1: TRLLabel Left = 0 Top = 0 Width = 183 Height = 16 Align = faLeftTop Caption = 'Listagem dos T'#237'tulos Originais:' end object RLLabel2: TRLLabel Left = 0 Top = 18 Width = 68 Height = 16 Align = faLeftBottom Caption = 'PRODUTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel3: TRLLabel Left = 472 Top = 18 Width = 89 Height = 16 Align = faBottomOnly Caption = 'VENCIMENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel4: TRLLabel Left = 608 Top = 18 Width = 49 Height = 16 Align = faBottomOnly Caption = 'VALOR' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object RLBand7: TRLBand Left = 0 Top = 51 Width = 716 Height = 16 BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = True Borders.DrawRight = False Borders.DrawBottom = True object RLDBResult1: TRLDBResult AlignWithMargins = True Left = 551 Top = -1 Width = 165 Height = 16 Margins.Right = 10 Align = faRightBottom DataField = 'VL_TITULO' DataSource = dts2 Info = riSum Text = 'Total: R$ ' end end end object RLSubDetail2: TRLSubDetail Left = 1 Top = 84 Width = 716 Height = 68 AllowedBands = [btColumnHeader, btDetail, btColumnFooter] DataSource = dts3 object RLBand3: TRLBand Left = 0 Top = 35 Width = 716 Height = 16 object RLDBText3: TRLDBText Left = 0 Top = 0 Width = 466 Height = 16 AutoSize = False DataField = 'TX_PRODUTO' DataSource = dts3 Text = '' end object RLDBText6: TRLDBText Left = 472 Top = 0 Width = 112 Height = 16 DataField = 'DT_VENCIMENTO' DataSource = dts3 Text = '' end object RLDBText7: TRLDBText Left = 608 Top = 0 Width = 90 Height = 16 DataField = 'VL_TITULO' DataSource = dts3 Text = 'R$ ' end end object RLBand6: TRLBand Left = 0 Top = 0 Width = 716 Height = 35 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True object RLLabel5: TRLLabel Left = 0 Top = 0 Width = 204 Height = 16 Align = faLeftTop Caption = 'Listagem das Parcelas do Acordo:' end object RLLabel6: TRLLabel Left = 0 Top = 18 Width = 68 Height = 16 Align = faLeftBottom Caption = 'PRODUTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel7: TRLLabel Left = 472 Top = 18 Width = 89 Height = 16 Align = faBottomOnly Caption = 'VENCIMENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel8: TRLLabel Left = 608 Top = 18 Width = 49 Height = 16 Align = faBottomOnly Caption = 'VALOR' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object RLBand8: TRLBand Left = 0 Top = 51 Width = 716 Height = 16 BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = True Borders.DrawRight = False Borders.DrawBottom = True object RLDBResult2: TRLDBResult AlignWithMargins = True Left = 551 Top = -1 Width = 165 Height = 16 Margins.Right = 10 Align = faRightBottom DataField = 'VL_TITULO' DataSource = dts3 Info = riSum Text = 'Total: R$ ' end end end end object RLBand4: TRLBand Left = 38 Top = 38 Width = 718 Height = 131 BandType = btHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object RLMemo1: TRLMemo Left = 201 Top = 56 Width = 466 Height = 19 Align = faCenter Alignment = taCenter Behavior = [beSiteExpander] Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( 'BENEF - RELA'#199#195'O DE ACORDOS - DT1 AT'#201' DT2') ParentFont = False end object frpnl_logo: TRLPanel Left = 1 Top = 1 Width = 150 Height = 129 Align = faLeftMost AutoExpand = True AutoSize = True object frdbimg_logo: TRLDBImage Left = 0 Top = 0 Width = 150 Height = 129 Align = faClient Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = False DataField = 'IMG_LOGO' DataSource = dtmSystem.dtsEmpresa Stretch = True end end end object RLBand9: TRLBand Left = 38 Top = 329 Width = 718 Height = 16 AlignToBottom = True BandType = btFooter object RLSystemInfo1: TRLSystemInfo Left = 583 Top = 0 Width = 135 Height = 16 Align = faRightBottom Info = itPageNumber Text = 'P'#225'gina: ' end end end object dts1: TDataSource DataSet = zroqry1 Left = 752 Top = 32 end object zroqry1: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select distinct A.id_acordo, B.tx_nome from sys_acordos A' 'left join chg_devedores B on (A.id_devedor = B.id_devedor)' 'where id_acordo in (1,4,5,7,10,11) ' 'order by B.tx_nome') Params = <> Left = 696 Top = 32 object zroqry1ID_ACORDO: TIntegerField FieldName = 'ID_ACORDO' Required = True end object zroqry1TX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end end object dts2: TDataSource DataSet = zroqry2 Left = 752 Top = 80 end object zroqry2: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_v' + 'encimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A' 'left join chg_titulos B on (A.id_original = B.id_titulo)' 'where id_acordo in (1,4,5,7,10,11) ' 'group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimen' + 'to, B.vl_titulo') Params = <> MasterFields = 'ID_ACORDO' MasterSource = dts1 LinkedFields = 'ID_ACORDO' Left = 696 Top = 80 object zroqry2ID_ACORDO: TIntegerField FieldName = 'ID_ACORDO' Required = True end object zroqry2ID_ORIGINAL: TIntegerField FieldName = 'ID_ORIGINAL' Required = True end object zroqry2TX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqry2DT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqry2VL_TITULO: TFloatField FieldName = 'VL_TITULO' end object zroqry2COUNT: TIntegerField FieldName = 'COUNT' ReadOnly = True end end object dts3: TDataSource DataSet = zroqry3 Left = 752 Top = 144 end object zroqry3: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_ve' + 'ncimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A' 'left join chg_titulos B on (A.id_parcela = B.id_titulo)' 'where id_acordo in (1,4,5,7,10,11) ' 'group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_venciment' + 'o, B.vl_titulo') Params = <> MasterFields = 'ID_ACORDO' MasterSource = dts1 LinkedFields = 'ID_ACORDO' Left = 696 Top = 144 object zroqry3ID_ACORDO: TIntegerField FieldName = 'ID_ACORDO' Required = True end object zroqry3ID_PARCELA: TIntegerField FieldName = 'ID_PARCELA' Required = True end object zroqry3TX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqry3DT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqry3VL_TITULO: TFloatField FieldName = 'VL_TITULO' end object zroqry3COUNT: TIntegerField FieldName = 'COUNT' ReadOnly = True end end object dtsAcordo: TDataSource DataSet = zroqryAcordos Left = 752 Top = 200 end object zroqryAcordos: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'A.tx_nome,' 'B.tx_produto,' 'B.dt_vencimento,' 'B.id_titulo,' 'B.vl_titulo,' 'B.qtde_parcelas,' 'C.id_acordo' 'from chg_devedores A' 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' 'inner join sys_acordos C on (A.id_devedor = C.id_devedor)') Params = <> Left = 696 Top = 200 end object fr_filterpdf: TRLPDFFilter DocumentInfo.Creator = 'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' + 'ortes Inform'#225'tica' DisplayName = 'Documento PDF' Left = 612 Top = 40 end end