You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

1139 lines
29 KiB

object relPrestacaoContas: TrelPrestacaoContas
Left = 0
Top = 0
Caption = 'relPrestacaoContas'
ClientHeight = 750
ClientWidth = 1126
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object frPrestacao: TRLReport
Left = 0
Top = 0
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 = frPrestacaoAfterPrint
BeforePrint = frPrestacaoBeforePrint
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
BeforePrint = frdbimg_logoBeforePrint
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 = 252
Top = 64
Width = 654
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 - PRESTA'#199#195'O DE CONTAS - DT1 AT'#201' DT2')
ParentFont = False
BeforePrint = RLMemo1BeforePrint
end
end
object frbnd_clmheader: 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 RLLabel2: TRLLabel
Left = 1
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 = 158
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 = 325
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 = 412
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 = 522
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 = 595
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 = 645
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 = 694
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 = 849
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 = 918
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 = 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 RLLabel1: TRLLabel
Left = 794
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 = 38
Top = 154
Width = 1047
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = True
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = True
object RLDBText3: TRLDBText
Left = 325
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 = 520
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 RLDBText5: TRLDBText
Left = 412
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 = 579
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 = 632
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 = 678
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 = 813
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 = 903
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 = 976
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 = 1
Top = 1
Width = 144
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 RLDBText2: TRLDBText
Left = 158
Top = 1
Width = 156
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 = 721
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 = 38
Top = 170
Width = 1047
Height = 30
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = True
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = True
object RLDBResult1: TRLDBResult
Left = 496
Top = 18
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 RLDBResult2: TRLDBResult
Left = 555
Top = 18
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 RLDBResult3: TRLDBResult
Left = 611
Top = 18
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 RLDBResult4: TRLDBResult
Left = 658
Top = 18
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 RLDBResult5: TRLDBResult
Left = 788
Top = 18
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 RLDBResult6: TRLDBResult
Left = 878
Top = 18
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 RLDBResult7: TRLDBResult
Left = 955
Top = 18
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 = ''
end
object RLLabel13: TRLLabel
Left = 462
Top = 15
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 = 522
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 RLLabel16: TRLLabel
Left = 595
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 RLLabel17: TRLLabel
Left = 645
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 RLLabel18: TRLLabel
Left = 694
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 RLLabel19: TRLLabel
Left = 849
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 RLLabel20: TRLLabel
Left = 918
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 RLLabel21: TRLLabel
Left = 975
Top = 0
Width = 71
Height = 14
Align = faRightTop
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 = 794
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 RLDBResult8: TRLDBResult
Left = 698
Top = 18
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
end
object frbnd_footer: TRLBand
Left = 38
Top = 200
Width = 1047
Height = 69
BandType = btFooter
object fr_date: TRLSystemInfo
Left = 843
Top = 56
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 RLLabel14: TRLLabel
Left = 636
Top = 6
Width = 408
Height = 16
Caption = 'Data: ____/____/________ ASS: ____________________________'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RLDBText12: TRLDBText
Left = 3
Top = 36
Width = 189
Height = 13
DataField = 'TX_NOME'
DataSource = dtmSystem.dtsRepasse
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Modelo de Repasse: '
Visible = False
end
object RLDBText13: TRLDBText
Left = 3
Top = 55
Width = 154
Height = 13
DataField = 'PR_PRINCIPAL'
DataSource = dtmSystem.dtsRepasse
DisplayMask = '0.00%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Nominal: '
Visible = False
end
object RLDBText14: TRLDBText
Left = 132
Top = 55
Width = 112
Height = 13
DataField = 'PR_JUROS'
DataSource = dtmSystem.dtsRepasse
DisplayMask = '0.00%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Juros: '
Visible = False
end
object RLDBText15: TRLDBText
Left = 246
Top = 55
Width = 112
Height = 13
DataField = 'PR_MULTA'
DataSource = dtmSystem.dtsRepasse
DisplayMask = '0.00%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Multa: '
Visible = False
end
object RLDBText16: TRLDBText
Left = 359
Top = 55
Width = 154
Height = 13
DataField = 'PR_ENCARGOS'
DataSource = dtmSystem.dtsRepasse
DisplayMask = '0.00%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Encargos: '
Visible = False
end
object RLDBText17: TRLDBText
Left = 491
Top = 55
Width = 140
Height = 13
DataField = 'PR_CORRIGIDO'
DataSource = dtmSystem.dtsRepasse
DisplayMask = '0.00%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = 'Total: '
Visible = False
end
object RLSystemInfo1: TRLSystemInfo
Left = 659
Top = 56
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
end
end
object zqryTitulos: TZQuery
Connection = dtmSystem.ZConnection
OnCalcFields = zqryTitulosCalcFields
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_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.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)')
Params = <>
Left = 656
Top = 8
object zqryTitulosTX_NOME: TWideStringField
FieldName = 'TX_NOME'
Size = 60
end
object zqryTitulosTX_PRODUTO: TWideStringField
FieldName = 'TX_PRODUTO'
Size = 100
end
object zqryTitulosDT_VENCIMENTO: TDateTimeField
FieldName = 'DT_VENCIMENTO'
end
object zqryTitulosDT_PAGAMENTO: TDateTimeField
FieldName = 'DT_PAGAMENTO'
end
object zqryTitulosVL_MULTA: TFloatField
FieldName = 'VL_MULTA'
currency = True
end
object zqryTitulosVL_ENCARGOS: TFloatField
FieldName = 'VL_ENCARGOS'
currency = True
end
object zqryTitulosVL_CORRIGIDO: TFloatField
FieldName = 'VL_CORRIGIDO'
currency = True
end
object zqryTitulosVL_RETIDO: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_RETIDO'
Calculated = True
end
object zqryTitulosVL_REPASSE: TCurrencyField
FieldKind = fkCalculated
FieldName = 'VL_REPASSE'
Calculated = True
end
object zqryTitulosVL_DESC_PRINCIPAL: TFloatField
FieldName = 'VL_DESC_PRINCIPAL'
currency = True
end
object zqryTitulosATRASO: TIntegerField
FieldName = 'ATRASO'
ReadOnly = True
end
object zqryTitulosID_TITULO: TIntegerField
FieldName = 'ID_TITULO'
Required = True
end
object zqryTitulosVL_TITULO: TCurrencyField
FieldName = 'VL_TITULO'
ReadOnly = True
end
object zqryTitulosVL_JUROS: TFloatField
FieldName = 'VL_JUROS'
currency = True
end
object zqryTitulosID_DEVEDOR: TIntegerField
FieldName = 'ID_DEVEDOR'
Required = True
end
object zqryTitulosID_EMPRESA: TIntegerField
FieldName = 'ID_EMPRESA'
Required = True
end
object zqryTitulosVL_REPASSE_PRIN: TFloatField
FieldName = 'VL_REPASSE_PRIN'
end
object zqryTitulosVL_DESC_JUROS: TFloatField
FieldName = 'VL_DESC_JUROS'
end
object zqryTitulosVL_REPASSE_JUROS: TFloatField
FieldName = 'VL_REPASSE_JUROS'
end
object zqryTitulosVL_DESC_MULTA: TFloatField
FieldName = 'VL_DESC_MULTA'
end
object zqryTitulosVL_REPASSE_MULTA: TFloatField
FieldName = 'VL_REPASSE_MULTA'
end
object zqryTitulosVL_INDICADOR: TFloatField
FieldName = 'VL_INDICADOR'
end
object zqryTitulosVL_DESC_INDICADOR: TFloatField
FieldName = 'VL_DESC_INDICADOR'
end
object zqryTitulosVL_REPASSE_CORRIGIDO: TFloatField
FieldName = 'VL_REPASSE_CORRIGIDO'
end
object zqryTitulosTP_PRESTACAO: TWideStringField
FieldName = 'TP_PRESTACAO'
Size = 1
end
object zqryTitulosVL_REPASSE_ENCARGOS: TFloatField
FieldName = 'VL_REPASSE_ENCARGOS'
end
end
object dtsTitulos: TDataSource
DataSet = zqryTitulos
Left = 744
Top = 8
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