object relPrestacaoAnaSin2: TrelPrestacaoAnaSin2 Left = 0 Top = 0 BorderStyle = bsNone Caption = 'relPrestacaoAnaSin2' ClientHeight = 817 ClientWidth = 1139 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 relPrestacao2: TRLReport Left = 8 Top = 8 Width = 1123 Height = 794 DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] PageSetup.Orientation = poLandscape AfterPrint = relPrestacao2AfterPrint BeforePrint = relPrestacao2BeforePrint object RLBand1: 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 RLPanel1: TRLPanel Left = 1 Top = 1 Width = 112 Height = 97 Align = faLeftMost AutoExpand = True AutoSize = True object RLDBImage1: 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 RLPanel2: 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 RLLabel14: 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 RLMemo2: 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 RLBand4: TRLBand Left = 38 Top = 137 Width = 1047 Height = 17 BandType = btColumnHeader Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLLabel27: 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 RLLabel28: 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 RLLabel29: 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 RLLabel30: 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 RLLabel31: 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 RLLabel32: 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 RLLabel33: TRLLabel Left = 975 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 RLLabel34: 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 RLBand5: TRLBand Left = 38 Top = 154 Width = 1047 Height = 16 Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLDBText22: 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 = '' end object RLDBText24: 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 RLDBText25: 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 RLDBText26: 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 RLDBText27: 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 RLDBText28: 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 RLDBText29: TRLDBText Left = 959 Top = 1 Width = 87 Height = 14 Align = faRightBottom Alignment = taRightJustify DataField = 'VL_REPASSADO' DataSource = dtsTitulos Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False Text = '' end object RLDBText32: 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 object RLDBText1: TRLDBText Left = 4 Top = 1 Width = 88 Height = 14 DataField = 'TX_FANTASIA' DataSource = dtsTitulos Text = '' end end object RLBand6: TRLBand Left = 38 Top = 170 Width = 1047 Height = 31 BandType = btColumnFooter Borders.Sides = sdCustom Borders.DrawLeft = True Borders.DrawTop = False Borders.DrawRight = True Borders.DrawBottom = True object RLDBResult9: TRLDBResult Left = 546 Top = 19 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 = '' end object RLDBResult10: TRLDBResult Left = 598 Top = 19 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 = '' end object RLDBResult11: TRLDBResult Left = 656 Top = 19 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 = '' end object RLDBResult12: TRLDBResult Left = 711 Top = 19 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 = '' end object RLDBResult13: TRLDBResult Left = 809 Top = 19 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 = '' end object RLDBResult14: TRLDBResult Left = 882 Top = 19 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 = '' end object RLDBResult15: TRLDBResult Left = 942 Top = 19 Width = 104 Height = 11 Align = faRightBottom Alignment = taRightJustify DataField = 'VL_REPASSADO' 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 = '' end object RLLabel35: TRLLabel Left = 462 Top = 16 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 RLLabel36: TRLLabel Left = 572 Top = 0 Width = 56 Height = 14 Align = faTopOnly Caption = 'NOMINAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel37: TRLLabel Left = 638 Top = 0 Width = 41 Height = 14 Align = faTopOnly Caption = 'JUROS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel38: TRLLabel Left = 690 Top = 0 Width = 45 Height = 14 Align = faTopOnly Caption = 'MULTA:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel39: TRLLabel Left = 747 Top = 0 Width = 65 Height = 14 Align = faTopOnly Caption = 'ENCARGOS:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel40: TRLLabel Left = 870 Top = 0 Width = 43 Height = 14 Align = faTopOnly Caption = 'TOTAL:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel41: TRLLabel Left = 922 Top = 0 Width = 44 Height = 14 Align = faTopOnly Caption = 'RETIDO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel42: TRLLabel Left = 974 Top = 0 Width = 71 Height = 14 Align = faTopOnly Caption = 'REPASSADO:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLLabel43: TRLLabel Left = 822 Top = 0 Width = 34 Height = 14 Align = faTopOnly Caption = 'DESC:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object RLDBResult16: TRLDBResult Left = 726 Top = 19 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 = '' end object RLSystemInfo1: TRLSystemInfo Left = 4 Top = 17 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 = 188 Top = 17 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 end end object dtsTitulos: TDataSource DataSet = cdsSintetico Left = 939 Top = 23 end object zroqryTitulos: TZReadOnlyQuery Connection = dtmSystem.ZConnection OnCalcFields = zroqryTitulosCalcFields SQL.Strings = ( 'select first 0' '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_encargos,' 'B.vl_indicador,' 'B.vl_desc_indicador,' 'B.vl_repasse_encargos,' 'B.vl_corrigido,' 'B.vl_repasse_corrigido,' 'B.vl_desc_principal,' 'B.id_titulo,' 'B.id_empresa,' 'B.id_devedor,' 'e.tx_fantasia,' 'e.tx_cnpj,' '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)' 'inner join chg_empresas e on (B.id_empresa = e.id_empresa)' 'order by A.tx_nome') Params = <> MasterFields = 'ID_EMPRESA' LinkedFields = 'ID_EMPRESA' Left = 1003 Top = 22 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' end object zroqryTitulosVL_MULTA: TFloatField FieldName = 'VL_MULTA' end object zroqryTitulosVL_ENCARGOS: TFloatField FieldName = 'VL_ENCARGOS' end object zroqryTitulosVL_CORRIGIDO: TFloatField FieldName = 'VL_CORRIGIDO' 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 zroqryTitulosTX_FANTASIA: TWideStringField FieldName = 'TX_FANTASIA' Size = 100 end object zroqryTitulosTX_CNPJ: TWideStringField FieldName = 'TX_CNPJ' Size = 18 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 cdsSintetico: TClientDataSet Aggregates = <> PacketRecords = 0 Params = <> Left = 1007 Top = 71 object cdsSinteticoVL_TITULO: TCurrencyField FieldName = 'VL_TITULO' end object cdsSinteticoVL_JUROS: TCurrencyField FieldName = 'VL_JUROS' end object cdsSinteticoVL_MULTA: TCurrencyField FieldName = 'VL_MULTA' end object cdsSinteticoVL_ENCARGOS: TCurrencyField FieldName = 'VL_ENCARGOS' end object cdsSinteticoVL_DESC_PRINCIPAL: TCurrencyField FieldName = 'VL_DESC_PRINCIPAL' end object cdsSinteticoVL_CORRIGIDO: TCurrencyField FieldName = 'VL_CORRIGIDO' end object cdsSinteticoVL_RETIDO: TCurrencyField FieldName = 'VL_RETIDO' end object cdsSinteticoVL_REPASSADO: TCurrencyField FieldName = 'VL_REPASSADO' end object cdsSinteticoID_EMPRESA: TIntegerField FieldName = 'ID_EMPRESA' end object cdsSinteticoTX_FANTASIA: TStringField FieldName = 'TX_FANTASIA' Size = 60 end object cdsSinteticoTX_CNPJ: TStringField FieldName = 'TX_CNPJ' Size = 18 end 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 = 847 Top = 23 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 object zroqryCredoresID_DEPARTAMENTO: TIntegerField FieldName = 'ID_DEPARTAMENTO' 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 = 752 Top = 32 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