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.
549 lines
14 KiB
549 lines
14 KiB
object relRelacaoAcordo: TrelRelacaoAcordo
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsNone
|
|
Caption = 'relRelacaoAcordo'
|
|
ClientHeight = 1171
|
|
ClientWidth = 821
|
|
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 frrelRelacaoAcordo: TRLReport
|
|
Left = 8
|
|
Top = 8
|
|
Width = 794
|
|
Height = 1123
|
|
AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter, btSummary]
|
|
DataSource = dts1
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
AfterPrint = frrelRelacaoAcordoAfterPrint
|
|
object RLGroup1: TRLGroup
|
|
Left = 38
|
|
Top = 169
|
|
Width = 718
|
|
Height = 160
|
|
AllowedBands = [btHeader, btColumnHeader, btDetail, btColumnFooter]
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
DataFields = 'ID_ACORDO'
|
|
PageBreaking = pbAfterPrint
|
|
object RLBand2: TRLBand
|
|
Left = 1
|
|
Top = 1
|
|
Width = 716
|
|
Height = 16
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
BeforePrint = RLBand2BeforePrint
|
|
object RLDBText2: TRLDBText
|
|
Left = 325
|
|
Top = 0
|
|
Width = 66
|
|
Height = 16
|
|
Align = faCenter
|
|
DataField = 'TX_NOME'
|
|
DataSource = dts1
|
|
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 = 17
|
|
Width = 716
|
|
Height = 67
|
|
AllowedBands = [btColumnHeader, btDetail, btColumnFooter]
|
|
DataSource = dts2
|
|
object RLBand1: TRLBand
|
|
Left = 0
|
|
Top = 35
|
|
Width = 716
|
|
Height = 16
|
|
object RLDBText1: TRLDBText
|
|
Left = 3
|
|
Top = 0
|
|
Width = 463
|
|
Height = 16
|
|
AutoSize = False
|
|
DataField = 'TX_PRODUTO'
|
|
DataSource = dts2
|
|
Text = ''
|
|
end
|
|
object RLDBText4: TRLDBText
|
|
Left = 472
|
|
Top = 0
|
|
Width = 112
|
|
Height = 16
|
|
DataField = 'DT_VENCIMENTO'
|
|
DataSource = dts2
|
|
Text = ''
|
|
end
|
|
object RLDBText5: TRLDBText
|
|
Left = 608
|
|
Top = 0
|
|
Width = 90
|
|
Height = 16
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dts2
|
|
Text = 'R$ '
|
|
end
|
|
end
|
|
object RLBand5: TRLBand
|
|
Left = 0
|
|
Top = 0
|
|
Width = 716
|
|
Height = 35
|
|
BandType = btColumnHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
object RLLabel1: TRLLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 183
|
|
Height = 16
|
|
Align = faLeftTop
|
|
Caption = 'Listagem dos T'#237'tulos Originais:'
|
|
end
|
|
object RLLabel2: TRLLabel
|
|
Left = 0
|
|
Top = 18
|
|
Width = 68
|
|
Height = 16
|
|
Align = faLeftBottom
|
|
Caption = 'PRODUTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel3: TRLLabel
|
|
Left = 472
|
|
Top = 18
|
|
Width = 89
|
|
Height = 16
|
|
Align = faBottomOnly
|
|
Caption = 'VENCIMENTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel4: TRLLabel
|
|
Left = 608
|
|
Top = 18
|
|
Width = 49
|
|
Height = 16
|
|
Align = faBottomOnly
|
|
Caption = 'VALOR'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object RLBand7: TRLBand
|
|
Left = 0
|
|
Top = 51
|
|
Width = 716
|
|
Height = 16
|
|
BandType = btColumnFooter
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
object RLDBResult1: TRLDBResult
|
|
AlignWithMargins = True
|
|
Left = 551
|
|
Top = -1
|
|
Width = 165
|
|
Height = 16
|
|
Margins.Right = 10
|
|
Align = faRightBottom
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dts2
|
|
Info = riSum
|
|
Text = 'Total: R$ '
|
|
end
|
|
end
|
|
end
|
|
object RLSubDetail2: TRLSubDetail
|
|
Left = 1
|
|
Top = 84
|
|
Width = 716
|
|
Height = 68
|
|
AllowedBands = [btColumnHeader, btDetail, btColumnFooter]
|
|
DataSource = dts3
|
|
object RLBand3: TRLBand
|
|
Left = 0
|
|
Top = 35
|
|
Width = 716
|
|
Height = 16
|
|
object RLDBText3: TRLDBText
|
|
Left = 0
|
|
Top = 0
|
|
Width = 466
|
|
Height = 16
|
|
AutoSize = False
|
|
DataField = 'TX_PRODUTO'
|
|
DataSource = dts3
|
|
Text = ''
|
|
end
|
|
object RLDBText6: TRLDBText
|
|
Left = 472
|
|
Top = 0
|
|
Width = 112
|
|
Height = 16
|
|
DataField = 'DT_VENCIMENTO'
|
|
DataSource = dts3
|
|
Text = ''
|
|
end
|
|
object RLDBText7: TRLDBText
|
|
Left = 608
|
|
Top = 0
|
|
Width = 90
|
|
Height = 16
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dts3
|
|
Text = 'R$ '
|
|
end
|
|
end
|
|
object RLBand6: TRLBand
|
|
Left = 0
|
|
Top = 0
|
|
Width = 716
|
|
Height = 35
|
|
BandType = btColumnHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
object RLLabel5: TRLLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 204
|
|
Height = 16
|
|
Align = faLeftTop
|
|
Caption = 'Listagem das Parcelas do Acordo:'
|
|
end
|
|
object RLLabel6: TRLLabel
|
|
Left = 0
|
|
Top = 18
|
|
Width = 68
|
|
Height = 16
|
|
Align = faLeftBottom
|
|
Caption = 'PRODUTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel7: TRLLabel
|
|
Left = 472
|
|
Top = 18
|
|
Width = 89
|
|
Height = 16
|
|
Align = faBottomOnly
|
|
Caption = 'VENCIMENTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel8: TRLLabel
|
|
Left = 608
|
|
Top = 18
|
|
Width = 49
|
|
Height = 16
|
|
Align = faBottomOnly
|
|
Caption = 'VALOR'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object RLBand8: TRLBand
|
|
Left = 0
|
|
Top = 51
|
|
Width = 716
|
|
Height = 16
|
|
BandType = btColumnFooter
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
object RLDBResult2: TRLDBResult
|
|
AlignWithMargins = True
|
|
Left = 551
|
|
Top = -1
|
|
Width = 165
|
|
Height = 16
|
|
Margins.Right = 10
|
|
Align = faRightBottom
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dts3
|
|
Info = riSum
|
|
Text = 'Total: R$ '
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object RLBand4: TRLBand
|
|
Left = 38
|
|
Top = 38
|
|
Width = 718
|
|
Height = 131
|
|
BandType = btHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
object RLMemo1: TRLMemo
|
|
Left = 201
|
|
Top = 56
|
|
Width = 466
|
|
Height = 19
|
|
Align = faCenter
|
|
Alignment = taCenter
|
|
Behavior = [beSiteExpander]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
Lines.Strings = (
|
|
'BENEF - RELA'#199#195'O DE ACORDOS - DT1 AT'#201' DT2')
|
|
ParentFont = False
|
|
end
|
|
object frpnl_logo: TRLPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 150
|
|
Height = 129
|
|
Align = faLeftMost
|
|
AutoExpand = True
|
|
AutoSize = True
|
|
object frdbimg_logo: TRLDBImage
|
|
Left = 0
|
|
Top = 0
|
|
Width = 150
|
|
Height = 129
|
|
Align = faClient
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
DataField = 'IMG_LOGO'
|
|
DataSource = dtmSystem.dtsEmpresa
|
|
Stretch = True
|
|
end
|
|
end
|
|
end
|
|
object RLBand9: TRLBand
|
|
Left = 38
|
|
Top = 329
|
|
Width = 718
|
|
Height = 16
|
|
AlignToBottom = True
|
|
BandType = btFooter
|
|
object RLSystemInfo1: TRLSystemInfo
|
|
Left = 583
|
|
Top = 0
|
|
Width = 135
|
|
Height = 16
|
|
Align = faRightBottom
|
|
Info = itPageNumber
|
|
Text = 'P'#225'gina: '
|
|
end
|
|
end
|
|
end
|
|
object dts1: TDataSource
|
|
DataSet = zroqry1
|
|
Left = 752
|
|
Top = 32
|
|
end
|
|
object zroqry1: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select distinct A.id_acordo, B.tx_nome from sys_acordos A'
|
|
'left join chg_devedores B on (A.id_devedor = B.id_devedor)'
|
|
'where id_acordo in (1,4,5,7,10,11) '
|
|
'order by B.tx_nome')
|
|
Params = <>
|
|
Left = 696
|
|
Top = 32
|
|
object zroqry1ID_ACORDO: TIntegerField
|
|
FieldName = 'ID_ACORDO'
|
|
Required = True
|
|
end
|
|
object zroqry1TX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
end
|
|
object dts2: TDataSource
|
|
DataSet = zroqry2
|
|
Left = 752
|
|
Top = 80
|
|
end
|
|
object zroqry2: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
|
|
'select distinct A.id_acordo, A.id_original, B.tx_produto, B.dt_v' +
|
|
'encimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'
|
|
'left join chg_titulos B on (A.id_original = B.id_titulo)'
|
|
'where id_acordo in (1,4,5,7,10,11) '
|
|
|
|
'group by A.id_acordo, A.id_original, B.tx_produto, B.dt_vencimen' +
|
|
'to, B.vl_titulo')
|
|
Params = <>
|
|
MasterFields = 'ID_ACORDO'
|
|
MasterSource = dts1
|
|
LinkedFields = 'ID_ACORDO'
|
|
Left = 696
|
|
Top = 80
|
|
object zroqry2ID_ACORDO: TIntegerField
|
|
FieldName = 'ID_ACORDO'
|
|
Required = True
|
|
end
|
|
object zroqry2ID_ORIGINAL: TIntegerField
|
|
FieldName = 'ID_ORIGINAL'
|
|
Required = True
|
|
end
|
|
object zroqry2TX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zroqry2DT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Required = True
|
|
end
|
|
object zroqry2VL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
end
|
|
object zroqry2COUNT: TIntegerField
|
|
FieldName = 'COUNT'
|
|
ReadOnly = True
|
|
end
|
|
end
|
|
object dts3: TDataSource
|
|
DataSet = zroqry3
|
|
Left = 752
|
|
Top = 144
|
|
end
|
|
object zroqry3: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
|
|
'select distinct A.id_acordo, A.id_parcela, B.tx_produto, B.dt_ve' +
|
|
'ncimento, B.vl_titulo, count(a.id_acordo) from sys_acordos A'
|
|
'left join chg_titulos B on (A.id_parcela = B.id_titulo)'
|
|
'where id_acordo in (1,4,5,7,10,11) '
|
|
|
|
'group by A.id_acordo, A.id_parcela, B.tx_produto, B.dt_venciment' +
|
|
'o, B.vl_titulo')
|
|
Params = <>
|
|
MasterFields = 'ID_ACORDO'
|
|
MasterSource = dts1
|
|
LinkedFields = 'ID_ACORDO'
|
|
Left = 696
|
|
Top = 144
|
|
object zroqry3ID_ACORDO: TIntegerField
|
|
FieldName = 'ID_ACORDO'
|
|
Required = True
|
|
end
|
|
object zroqry3ID_PARCELA: TIntegerField
|
|
FieldName = 'ID_PARCELA'
|
|
Required = True
|
|
end
|
|
object zroqry3TX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zroqry3DT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Required = True
|
|
end
|
|
object zroqry3VL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
end
|
|
object zroqry3COUNT: TIntegerField
|
|
FieldName = 'COUNT'
|
|
ReadOnly = True
|
|
end
|
|
end
|
|
object dtsAcordo: TDataSource
|
|
DataSet = zroqryAcordos
|
|
Left = 752
|
|
Top = 200
|
|
end
|
|
object zroqryAcordos: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0'
|
|
'A.tx_nome,'
|
|
'B.tx_produto,'
|
|
'B.dt_vencimento,'
|
|
'B.id_titulo,'
|
|
'B.vl_titulo,'
|
|
'B.qtde_parcelas,'
|
|
'C.id_acordo'
|
|
'from chg_devedores A'
|
|
'inner join chg_titulos B on (A.id_devedor = B.id_devedor)'
|
|
'inner join sys_acordos C on (A.id_devedor = C.id_devedor)')
|
|
Params = <>
|
|
Left = 696
|
|
Top = 200
|
|
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 = 612
|
|
Top = 40
|
|
end
|
|
end
|