object relAcordos: TrelAcordos Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relAcordos' ClientHeight = 556 ClientWidth = 808 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object frrelAcordo: TRLReport Left = 6 Top = 8 Width = 794 Height = 1123 DataSource = dtsAcordo Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] AfterPrint = frrelAcordoAfterPrint object RLBand1: TRLBand Left = 38 Top = 169 Width = 718 Height = 40 AutoSize = True Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = False object RLDBText1: TRLDBText Left = 3 Top = 6 Width = 296 Height = 16 AutoSize = False DataField = 'TX_NOME' DataSource = dtsAcordo Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Text = '' end object RLDBText3: TRLDBText Left = 1 Top = 24 Width = 298 Height = 16 AutoSize = False DataField = 'TX_PRODUTO' DataSource = dtsAcordo Text = 'PARCELA: ' end object RLDBText4: TRLDBText Left = 595 Top = 24 Width = 90 Height = 16 DataField = 'VL_TITULO' DataSource = dtsAcordo Text = 'R$ ' end object RLDBText6: TRLDBText Left = 397 Top = 24 Width = 112 Height = 16 DataField = 'DT_VENCIMENTO' DataSource = dtsAcordo Text = '' end object RLLabel6: TRLLabel Left = 305 Top = 24 Width = 93 Height = 16 Caption = 'VENCIMENTO:' end object RLLabel3: TRLLabel Left = 546 Top = 24 Width = 52 Height = 16 Caption = 'VALOR:' end object RLDBText11: TRLDBText Left = 305 Top = 6 Width = 265 Height = 16 DataField = 'QTDE_PARCELAS' DataSource = dtsAcordo Text = 'Parcelamento: Entrada + ' end end object RLSubDetail1: TRLSubDetail Left = 38 Top = 209 Width = 718 Height = 55 Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True DataSource = dtsOriginal object RLBand2: TRLBand Left = 0 Top = 18 Width = 718 Height = 19 AutoSize = True Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLDBText2: TRLDBText Left = 3 Top = 2 Width = 182 Height = 16 AutoSize = False DataField = 'TX_PRODUTO' DataSource = dtsOriginal Text = '' end object RLDBText5: TRLDBText Left = 473 Top = 2 Width = 90 Height = 16 DataField = 'VL_TITULO' DataSource = dtsOriginal Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = 'R$ ' end object RLDBText10: TRLDBText Left = 614 Top = 2 Width = 119 Height = 16 DataField = 'VL_CORRIGIDO' DataSource = dtsOriginal Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = 'R$ ' end object RLDBText7: TRLDBText Left = 305 Top = 2 Width = 112 Height = 16 DataField = 'DT_VENCIMENTO' DataSource = dtsOriginal Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end end object RLBand5: TRLBand Left = 0 Top = 0 Width = 718 Height = 18 AutoSize = True BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object RLLabel5: TRLLabel Left = 3 Top = 1 Width = 132 Height = 16 Caption = 'T'#205'TULOS ORIGINAIS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel7: TRLLabel Left = 473 Top = 1 Width = 71 Height = 16 Caption = 'PRINCIPAL' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RLLabel11: TRLLabel Left = 614 Top = 1 Width = 76 Height = 16 Caption = 'CORRIGIDO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object RLLabel1: TRLLabel Left = 305 Top = 1 Width = 89 Height = 16 Caption = 'VENCIMENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object RLBand4: TRLBand Left = 0 Top = 37 Width = 718 Height = 16 BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = False object RLDBResult1: TRLDBResult Left = 614 Top = 0 Width = 158 Height = 16 DataField = 'VL_CORRIGIDO' DataSource = dtsOriginal Info = riSum Text = 'R$ ' end object RLLabel4: TRLLabel Left = 571 Top = 0 Width = 36 Height = 16 Caption = 'Total:' end end end object RLBand3: 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 BeforePrint = frdbimg_logoBeforePrint end end end end object dtsAcordo: TDataSource DataSet = zroqryAcordos Left = 640 Top = 24 end object dtsOriginal: TDataSource DataSet = zroqryOriginais Left = 720 Top = 24 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' 'from chg_devedores A' 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)') Params = <> Left = 640 Top = 80 object zroqryAcordosTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object zroqryAcordosTX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqryAcordosID_TITULO: TIntegerField FieldName = 'ID_TITULO' Required = True end object zroqryAcordosVL_TITULO: TFloatField FieldName = 'VL_TITULO' end object zroqryAcordosDT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqryAcordosQTDE_PARCELAS: TIntegerField FieldName = 'QTDE_PARCELAS' end end object zroqryOriginais: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'A.tx_nome,' 'B.*,' 'C.id_parcela' 'from chg_devedores A' 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' 'left join sys_acordos C on (B.id_titulo = C.id_original)') Params = <> MasterFields = 'ID_TITULO' MasterSource = dtsAcordo LinkedFields = 'ID_PARCELA' Left = 720 Top = 80 object zroqryOriginaisTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object zroqryOriginaisTX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqryOriginaisID_TITULO: TIntegerField FieldName = 'ID_TITULO' Required = True end object zroqryOriginaisVL_TITULO: TFloatField FieldName = 'VL_TITULO' end object zroqryOriginaisID_PARCELA: TIntegerField FieldName = 'ID_PARCELA' Required = True end object zroqryOriginaisID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zroqryOriginaisID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryOriginaisDT_ENTRADA: TDateTimeField FieldName = 'DT_ENTRADA' end object zroqryOriginaisDT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqryOriginaisTP_SITUACAO: TWideStringField FieldName = 'TP_SITUACAO' Size = 2 end object zroqryOriginaisCD_DEVEDOR: TWideStringField FieldName = 'CD_DEVEDOR' Size = 100 end object zroqryOriginaisTP_CHEQUE: TWideStringField FieldName = 'TP_CHEQUE' Required = True Size = 1 end object zroqryOriginaisID_BANCO: TIntegerField FieldName = 'ID_BANCO' end object zroqryOriginaisTX_NRCHEQUE: TWideStringField FieldName = 'TX_NRCHEQUE' end object zroqryOriginaisTP_MOTIVO: TWideStringField FieldName = 'TP_MOTIVO' Size = 2 end object zroqryOriginaisVL_DESPESA: TFloatField FieldName = 'VL_DESPESA' end object zroqryOriginaisTP_DESPESA: TWideStringField FieldName = 'TP_DESPESA' Size = 1 end object zroqryOriginaisVL_MULTA: TFloatField FieldName = 'VL_MULTA' end object zroqryOriginaisVL_JUROS: TFloatField FieldName = 'VL_JUROS' end object zroqryOriginaisVL_ENCARGOS: TFloatField FieldName = 'VL_ENCARGOS' end object zroqryOriginaisVL_CORRIGIDO: TFloatField FieldName = 'VL_CORRIGIDO' end object zroqryOriginaisDT_PAGAMENTO: TDateTimeField FieldName = 'DT_PAGAMENTO' end object zroqryOriginaisTX_OBS: TWideMemoField FieldName = 'TX_OBS' BlobType = ftWideMemo end object zroqryOriginaisID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryOriginaisDT_HORA_ULTIMA_ATT: TDateTimeField FieldName = 'DT_HORA_ULTIMA_ATT' end 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 = 724 Top = 136 end end