object relPrestacaoAnaSin: TrelPrestacaoAnaSin Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relPrestacaoAnaSin' ClientHeight = 554 ClientWidth = 1143 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 relPrestacao: TRLReport Left = 8 Top = 8 Width = 1123 Height = 794 DataSource = dtsCredores Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] MaxBands = 5 PageSetup.Orientation = poLandscape AfterPrint = relPrestacaoAfterPrint BeforePrint = relPrestacaoBeforePrint OnDataCount = relPrestacaoDataCount OnDataRecord = relPrestacaoDataRecord object frbnd_header: TRLBand Left = 38 Top = 38 Width = 1047 Height = 99 AutoExpand = False BandType = btHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = True Borders.DrawRight = True Borders.DrawBottom = True object frpnl_logo: TRLPanel Left = 1 Top = 1 Width = 112 Height = 97 Align = faLeftMost AutoExpand = True AutoSize = True object frdbimg_logo: TRLDBImage Left = 0 Top = 0 Width = 112 Height = 97 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 object frpnl_headertop: TRLPanel Left = 113 Top = 1 Width = 933 Height = 48 Align = faTop Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = False object frlbl_headertop: TRLLabel Left = 0 Top = 0 Width = 425 Height = 16 Align = faLeftTop Caption = 'ASSESSORIA DE SERVI'#199'OS LTDA - EPP CNPJ : 36.058.162/0001-28' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object RLMemo1: TRLMemo Left = 346 Top = 64 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 = ( 'PRESTA'#199#195'O DE CONTAS - DT1 AT'#201' DT2') ParentFont = False end object frlbl_dep: TRLLabel Left = 114 Top = 82 Width = 6 Height = 14 Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object RLGroup1: TRLGroup Left = 38 Top = 137 Width = 1047 Height = 88 Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = False DataFields = 'ID_EMPRESA' object RLBand2: TRLBand Left = 1 Top = 0 Width = 1045 Height = 16 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True object RLDBText2: TRLDBText Left = 476 Top = 0 Width = 93 Height = 16 Align = faCenter DataField = 'TX_FANTASIA' DataSource = dtsCredores 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 = 16 Width = 1045 Height = 73 DataSource = dtsTitulos object frbnd_clmheader: TRLBand Left = 0 Top = 0 Width = 1045 Height = 17 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True object RLLabel2: TRLLabel Left = 0 Top = 2 Width = 57 Height = 14 Align = faLeftBottom Caption = 'PRODUTO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel3: TRLLabel Left = 181 Top = 2 Width = 55 Height = 14 Align = faBottomOnly Caption = 'DEVEDOR:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel4: TRLLabel Left = 399 Top = 2 Width = 76 Height = 14 Align = faBottomOnly Caption = 'VENCIMENTO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel5: TRLLabel Left = 481 Top = 2 Width = 85 Height = 14 Align = faBottomOnly Caption = 'DATA DE PGTO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel6: TRLLabel Left = 572 Top = 2 Width = 56 Height = 14 Align = faBottomOnly Caption = 'NOMINAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel7: TRLLabel Left = 638 Top = 2 Width = 41 Height = 14 Align = faBottomOnly Caption = 'JUROS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel8: TRLLabel Left = 690 Top = 2 Width = 45 Height = 14 Align = faBottomOnly Caption = 'MULTA:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel9: TRLLabel Left = 747 Top = 2 Width = 65 Height = 14 Align = faBottomOnly Caption = 'ENCARGOS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel10: TRLLabel Left = 870 Top = 2 Width = 43 Height = 14 Align = faBottomOnly Caption = 'TOTAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel11: TRLLabel Left = 922 Top = 2 Width = 44 Height = 14 Align = faBottomOnly Caption = 'RETIDO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel12: TRLLabel Left = 974 Top = 2 Width = 71 Height = 14 Align = faRightBottom Caption = 'REPASSADO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel1: TRLLabel Left = 822 Top = 2 Width = 34 Height = 14 Align = faBottomOnly Caption = 'DESC:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object frbnd_detail: TRLBand Left = 0 Top = 17 Width = 1045 Height = 16 Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True AfterPrint = frbnd_detailAfterPrint object RLDBText3: TRLDBText Left = 399 Top = 1 Width = 87 Height = 14 Align = faBottomOnly DataField = 'DT_VENCIMENTO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText4: TRLDBText Left = 570 Top = 1 Width = 58 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_TITULO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' AfterPrint = RLDBText4AfterPrint end object RLDBText5: TRLDBText Left = 481 Top = 1 Width = 87 Height = 14 Align = faBottomOnly DataField = 'DT_PAGAMENTO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText6: TRLDBText Left = 622 Top = 1 Width = 57 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_JUROS' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText7: TRLDBText Left = 677 Top = 1 Width = 58 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_MULTA' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText8: TRLDBText Left = 731 Top = 1 Width = 81 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_ENCARGOS' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText9: TRLDBText Left = 834 Top = 1 Width = 79 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_CORRIGIDO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText10: TRLDBText Left = 907 Top = 1 Width = 59 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_RETIDO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText11: TRLDBText Left = 975 Top = 1 Width = 70 Height = 14 Align = faRightBottom Alignment = taRightJustify DataField = 'VL_REPASSE' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText1: TRLDBText Left = 0 Top = 1 Width = 168 Height = 14 Align = faLeftBottom AutoSize = False DataField = 'TX_PRODUTO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText12: TRLDBText Left = 181 Top = 1 Width = 210 Height = 14 Align = faBottomOnly AutoSize = False DataField = 'TX_NOME' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText18: TRLDBText Left = 749 Top = 1 Width = 107 Height = 14 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_DESC_PRINCIPAL' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end end object frbnd_clmfooter: TRLBand Left = 0 Top = 33 Width = 1045 Height = 40 BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = False Borders.DrawTop = False Borders.DrawRight = False Borders.DrawBottom = True object RLDBResult1: TRLDBResult Left = 546 Top = 28 Width = 82 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_TITULO' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult1AfterPrint end object RLDBResult2: TRLDBResult Left = 598 Top = 28 Width = 81 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_JUROS' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult2AfterPrint end object RLDBResult3: TRLDBResult Left = 656 Top = 28 Width = 79 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_MULTA' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult3AfterPrint end object RLDBResult4: TRLDBResult Left = 711 Top = 28 Width = 101 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_ENCARGOS' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult4AfterPrint end object RLDBResult5: TRLDBResult Left = 809 Top = 28 Width = 104 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_CORRIGIDO' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult5AfterPrint end object RLDBResult6: TRLDBResult Left = 882 Top = 28 Width = 84 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_RETIDO' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult6AfterPrint end object RLDBResult7: TRLDBResult Left = 954 Top = 28 Width = 91 Height = 11 Align = faRightBottom Alignment = taRightJustify DataField = 'VL_REPASSE' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult7AfterPrint end object RLLabel13: TRLLabel Left = 462 Top = 25 Width = 40 Height = 14 Align = faBottomOnly Caption = 'Totais:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel15: TRLLabel Left = 572 Top = 11 Width = 56 Height = 14 Caption = 'NOMINAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel16: TRLLabel Left = 638 Top = 11 Width = 41 Height = 14 Caption = 'JUROS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel17: TRLLabel Left = 690 Top = 11 Width = 45 Height = 14 Caption = 'MULTA:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel18: TRLLabel Left = 747 Top = 11 Width = 65 Height = 14 Caption = 'ENCARGOS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel19: TRLLabel Left = 870 Top = 11 Width = 43 Height = 14 Caption = 'TOTAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel20: TRLLabel Left = 922 Top = 11 Width = 44 Height = 14 Caption = 'RETIDO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel21: TRLLabel Left = 974 Top = 11 Width = 71 Height = 14 Caption = 'REPASSADO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel22: TRLLabel Left = 822 Top = 11 Width = 34 Height = 14 Caption = 'DESC:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLDBResult8: TRLDBResult Left = 726 Top = 28 Width = 130 Height = 11 Align = faBottomOnly Alignment = taRightJustify DataField = 'VL_DESC_PRINCIPAL' DataSource = dtsTitulos DisplayMask = '###,###,##0.00' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] Info = riSum ParentFont = False Text = '' AfterPrint = RLDBResult8AfterPrint end end end end object RLBand1: TRLBand Left = 38 Top = 225 Width = 1047 Height = 32 BandType = btFooter BeforePrint = RLBand1BeforePrint object RLLabel14: TRLLabel Left = 537 Top = 21 Width = 33 Height = 11 Align = faBottomOnly Caption = 'Totais:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False BeforePrint = RLLabel14BeforePrint end object RLLabel23: TRLLabel Left = 667 Top = 8 Width = 15 Height = 11 Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLSystemInfo1: TRLSystemInfo Left = 3 Top = 19 Width = 161 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] Info = itHour ParentFont = False Text = 'Hora da Emiss'#227'o:' end object fr_date: TRLSystemInfo Left = 187 Top = 19 Width = 161 Height = 13 Align = faBottomOnly Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'unifont' Font.Style = [] ParentFont = False Text = 'Data de emiss'#227'o:' end object RLLabel24: TRLLabel Left = 667 Top = 21 Width = 15 Height = 11 Align = faBottomOnly Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel25: TRLLabel Left = 794 Top = 8 Width = 15 Height = 11 Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel26: TRLLabel Left = 1029 Top = 21 Width = 15 Height = 11 Align = faBottomOnly Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel27: TRLLabel Left = 1029 Top = 8 Width = 15 Height = 11 Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel28: TRLLabel Left = 908 Top = 21 Width = 15 Height = 11 Align = faBottomOnly Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel29: TRLLabel Left = 908 Top = 8 Width = 15 Height = 11 Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel30: TRLLabel Left = 794 Top = 21 Width = 15 Height = 11 Align = faBottomOnly Alignment = taRightJustify Caption = ' ' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end end object dtsCredores: TDataSource DataSet = zroqryCredores OnDataChange = dtsCredoresDataChange Left = 831 Top = 47 end object zroqryCredores: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select first 0' 'e.*' 'from chg_devedores A' 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' 'inner join chg_empresas e on (E.id_empresa = B.id_empresa)' 'where (B.tp_situacao = '#39'QC'#39' or B.tp_situacao = '#39'B'#39')' 'order by e.tx_fantasia') Params = <> Left = 911 Top = 47 object zroqryCredoresID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryCredoresTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 100 end object zroqryCredoresTX_FANTASIA: TWideStringField FieldName = 'TX_FANTASIA' Size = 100 end object zroqryCredoresTX_CNPJ: TWideStringField FieldName = 'TX_CNPJ' Size = 18 end object zroqryCredoresTX_IE: TWideStringField FieldName = 'TX_IE' end object zroqryCredoresTX_ENDERECO: TWideStringField FieldName = 'TX_ENDERECO' Size = 100 end object zroqryCredoresTX_COMPLEMENTO: TWideStringField FieldName = 'TX_COMPLEMENTO' end object zroqryCredoresID_CIDADE: TIntegerField FieldName = 'ID_CIDADE' end object zroqryCredoresTX_BAIRRO: TWideStringField FieldName = 'TX_BAIRRO' Size = 60 end object zroqryCredoresID_ESTADO: TIntegerField FieldName = 'ID_ESTADO' end object zroqryCredoresTX_CEP: TWideStringField FieldName = 'TX_CEP' Size = 9 end object zroqryCredoresTX_TELEFONE: TWideStringField FieldName = 'TX_TELEFONE' Size = 40 end object zroqryCredoresTX_EMAIL: TWideStringField FieldName = 'TX_EMAIL' Size = 60 end object zroqryCredoresTX_WEBSITE: TWideStringField FieldName = 'TX_WEBSITE' Size = 60 end object zroqryCredoresNR_NUMERO: TIntegerField FieldName = 'NR_NUMERO' end object zroqryCredoresTX_IM: TWideStringField FieldName = 'TX_IM' end object zroqryCredoresTL_OBSERVACOES: TWideMemoField FieldName = 'TL_OBSERVACOES' BlobType = ftWideMemo end object zroqryCredoresID_REPASSE: TIntegerField FieldName = 'ID_REPASSE' end object zroqryCredoresTP_ENTRADA: TWideStringField FieldName = 'TP_ENTRADA' Required = True Size = 2 end object zroqryCredoresPR_MULTA: TFloatField FieldName = 'PR_MULTA' Required = True end object zroqryCredoresPR_JUROS: TFloatField FieldName = 'PR_JUROS' Required = True end object zroqryCredoresNR_PARCELAS: TIntegerField FieldName = 'NR_PARCELAS' end object zroqryCredoresPR_DESC_QUIT_PRIN: TFloatField FieldName = 'PR_DESC_QUIT_PRIN' Required = True end object zroqryCredoresPR_DESC_QUIT_JUROS: TFloatField FieldName = 'PR_DESC_QUIT_JUROS' Required = True end object zroqryCredoresPR_DESC_QUIT_MULTA: TFloatField FieldName = 'PR_DESC_QUIT_MULTA' Required = True end object zroqryCredoresPR_DESC_QUIT_IND_FIN: TFloatField FieldName = 'PR_DESC_QUIT_IND_FIN' Required = True end object zroqryCredoresPR_DESC_QUIT_COR: TFloatField FieldName = 'PR_DESC_QUIT_COR' end object zroqryCredoresPR_DESC_FINAN_PRIN: TFloatField FieldName = 'PR_DESC_FINAN_PRIN' Required = True end object zroqryCredoresPR_DESC_FINAN_JUROS: TFloatField FieldName = 'PR_DESC_FINAN_JUROS' Required = True end object zroqryCredoresPR_DESC_FINAN_MULTA: TFloatField FieldName = 'PR_DESC_FINAN_MULTA' Required = True end object zroqryCredoresPR_DESC_FINAN_IND_FIN: TFloatField FieldName = 'PR_DESC_FINAN_IND_FIN' Required = True end object zroqryCredoresPR_DESC_FINAN_COR: TFloatField FieldName = 'PR_DESC_FINAN_COR' end object zroqryCredoresPR_INDICADOR_FINANCEIRO: TFloatField FieldName = 'PR_INDICADOR_FINANCEIRO' Required = True end object zroqryCredoresPR_JUROS_PARCELAR: TFloatField FieldName = 'PR_JUROS_PARCELAR' end object zroqryCredoresPR_ENTRADA_MIN: TFloatField FieldName = 'PR_ENTRADA_MIN' end object zroqryCredoresPR_ENTRADA_MAX: TFloatField FieldName = 'PR_ENTRADA_MAX' end object zroqryCredoresTP_CHEQUE: TWideStringField FieldName = 'TP_CHEQUE' Required = True Size = 1 end object zroqryCredoresTP_CRED: TWideStringField FieldName = 'TP_CRED' Size = 1 end object zroqryCredoresTP_DIN: TWideStringField FieldName = 'TP_DIN' Size = 1 end object zroqryCredoresID_ULTIMO_USUARIO: TIntegerField FieldName = 'ID_ULTIMO_USUARIO' end object zroqryCredoresDT_HORA_ULTIMA_ATT: TDateTimeField FieldName = 'DT_HORA_ULTIMA_ATT' end end object dtsTitulos: TDataSource DataSet = zroqryTitulos Left = 999 Top = 47 end object zroqryTitulos: TZReadOnlyQuery Connection = dtmSystem.ZConnection OnCalcFields = zroqryTitulosCalcFields SQL.Strings = ( 'select first 0' 'A.tx_nome,' 'A.id_devedor,' 'B.tx_produto,' 'B.dt_vencimento,' 'B.dt_pagamento,' 'case when B.id_titulo in (select id_parcela from sys_acordos) th' + 'en (B.vl_titulo - B.vl_juros - B.vl_multa - B.vl_encargos)' 'when B.id_titulo not in (select id_parcela from sys_acordos) the' + 'n (B.vl_titulo)' 'end as vl_titulo,' 'B.vl_repasse_prin,' 'B.vl_juros,' 'B.vl_desc_juros,' 'B.vl_repasse_juros,' 'B.vl_multa,' 'B.vl_desc_multa,' 'B.vl_repasse_multa,' 'B.vl_indicador,' 'B.vl_desc_indicador,' 'B.vl_repasse_encargos,' 'B.vl_encargos,' 'B.vl_corrigido,' 'B.vl_repasse_corrigido,' 'B.vl_desc_principal,' 'B.id_titulo,' 'B.id_empresa,' 'B.tp_prestacao,' '(cast(B.dt_pagamento as date)- cast(B.dt_vencimento as date)) as' + ' atraso' 'from chg_devedores A' 'inner join chg_titulos B on (A.id_devedor = B.id_devedor)' 'order by A.tx_nome') Params = <> MasterFields = 'ID_EMPRESA' MasterSource = dtsCredores LinkedFields = 'ID_EMPRESA' Left = 998 Top = 102 object zroqryTitulosTX_NOME: TWideStringField FieldName = 'TX_NOME' Size = 60 end object zroqryTitulosTX_PRODUTO: TWideStringField FieldName = 'TX_PRODUTO' Size = 100 end object zroqryTitulosDT_VENCIMENTO: TDateTimeField FieldName = 'DT_VENCIMENTO' Required = True end object zroqryTitulosDT_PAGAMENTO: TDateTimeField FieldName = 'DT_PAGAMENTO' end object zroqryTitulosVL_JUROS: TFloatField FieldName = 'VL_JUROS' currency = True end object zroqryTitulosVL_MULTA: TFloatField FieldName = 'VL_MULTA' currency = True end object zroqryTitulosVL_ENCARGOS: TFloatField FieldName = 'VL_ENCARGOS' currency = True end object zroqryTitulosVL_CORRIGIDO: TFloatField FieldName = 'VL_CORRIGIDO' currency = True end object zroqryTitulosVL_DESC_PRINCIPAL: TFloatField FieldName = 'VL_DESC_PRINCIPAL' currency = True end object zroqryTitulosID_TITULO: TIntegerField FieldName = 'ID_TITULO' Required = True end object zroqryTitulosID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' Required = True end object zroqryTitulosATRASO: TIntegerField FieldName = 'ATRASO' ReadOnly = True end object zroqryTitulosVL_RETIDO: TCurrencyField FieldKind = fkCalculated FieldName = 'VL_RETIDO' Calculated = True end object zroqryTitulosVL_REPASSE: TCurrencyField FieldKind = fkCalculated FieldName = 'VL_REPASSE' Calculated = True end object zroqryTitulosVL_TITULO: TCurrencyField FieldName = 'VL_TITULO' ReadOnly = True end object zroqryTitulosID_DEVEDOR: TIntegerField FieldName = 'ID_DEVEDOR' Required = True end object zroqryTitulosVL_REPASSE_PRIN: TFloatField FieldName = 'VL_REPASSE_PRIN' end object zroqryTitulosVL_DESC_JUROS: TFloatField FieldName = 'VL_DESC_JUROS' end object zroqryTitulosVL_REPASSE_JUROS: TFloatField FieldName = 'VL_REPASSE_JUROS' end object zroqryTitulosVL_DESC_MULTA: TFloatField FieldName = 'VL_DESC_MULTA' end object zroqryTitulosVL_REPASSE_MULTA: TFloatField FieldName = 'VL_REPASSE_MULTA' end object zroqryTitulosVL_INDICADOR: TFloatField FieldName = 'VL_INDICADOR' end object zroqryTitulosVL_DESC_INDICADOR: TFloatField FieldName = 'VL_DESC_INDICADOR' end object zroqryTitulosVL_REPASSE_CORRIGIDO: TFloatField FieldName = 'VL_REPASSE_CORRIGIDO' end object zroqryTitulosTP_PRESTACAO: TWideStringField FieldName = 'TP_PRESTACAO' Size = 1 end object zroqryTitulosVL_REPASSE_ENCARGOS: TFloatField FieldName = 'VL_REPASSE_ENCARGOS' 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 = 808 Top = 8 end object rotblRepasseFase: TZReadOnlyQuery Connection = dtmSystem.ZConnection SQL.Strings = ( 'select * from sys_repasses_fases') Params = <> Left = 896 Top = 8 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