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.
 

1398 lines
39 KiB

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