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.
498 lines
13 KiB
498 lines
13 KiB
object relAcordos: TrelAcordos
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsNone
|
|
Caption = 'relAcordos'
|
|
ClientHeight = 556
|
|
ClientWidth = 808
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object frrelAcordo: TRLReport
|
|
Left = 6
|
|
Top = 8
|
|
Width = 794
|
|
Height = 1123
|
|
DataSource = dtsAcordo
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
AfterPrint = frrelAcordoAfterPrint
|
|
object RLBand1: TRLBand
|
|
Left = 38
|
|
Top = 169
|
|
Width = 718
|
|
Height = 40
|
|
AutoSize = True
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
object RLDBText1: TRLDBText
|
|
Left = 3
|
|
Top = 6
|
|
Width = 296
|
|
Height = 16
|
|
AutoSize = False
|
|
DataField = 'TX_NOME'
|
|
DataSource = dtsAcordo
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object RLDBText3: TRLDBText
|
|
Left = 1
|
|
Top = 24
|
|
Width = 298
|
|
Height = 16
|
|
AutoSize = False
|
|
DataField = 'TX_PRODUTO'
|
|
DataSource = dtsAcordo
|
|
Text = 'PARCELA: '
|
|
end
|
|
object RLDBText4: TRLDBText
|
|
Left = 595
|
|
Top = 24
|
|
Width = 90
|
|
Height = 16
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dtsAcordo
|
|
Text = 'R$ '
|
|
end
|
|
object RLDBText6: TRLDBText
|
|
Left = 397
|
|
Top = 24
|
|
Width = 112
|
|
Height = 16
|
|
DataField = 'DT_VENCIMENTO'
|
|
DataSource = dtsAcordo
|
|
Text = ''
|
|
end
|
|
object RLLabel6: TRLLabel
|
|
Left = 305
|
|
Top = 24
|
|
Width = 93
|
|
Height = 16
|
|
Caption = 'VENCIMENTO:'
|
|
end
|
|
object RLLabel3: TRLLabel
|
|
Left = 546
|
|
Top = 24
|
|
Width = 52
|
|
Height = 16
|
|
Caption = 'VALOR:'
|
|
end
|
|
object RLDBText11: TRLDBText
|
|
Left = 305
|
|
Top = 6
|
|
Width = 265
|
|
Height = 16
|
|
DataField = 'QTDE_PARCELAS'
|
|
DataSource = dtsAcordo
|
|
Text = 'Parcelamento: Entrada + '
|
|
end
|
|
end
|
|
object RLSubDetail1: TRLSubDetail
|
|
Left = 38
|
|
Top = 209
|
|
Width = 718
|
|
Height = 55
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = True
|
|
DataSource = dtsOriginal
|
|
object RLBand2: TRLBand
|
|
Left = 0
|
|
Top = 18
|
|
Width = 718
|
|
Height = 19
|
|
AutoSize = True
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
object RLDBText2: TRLDBText
|
|
Left = 3
|
|
Top = 2
|
|
Width = 182
|
|
Height = 16
|
|
AutoSize = False
|
|
DataField = 'TX_PRODUTO'
|
|
DataSource = dtsOriginal
|
|
Text = ''
|
|
end
|
|
object RLDBText5: TRLDBText
|
|
Left = 473
|
|
Top = 2
|
|
Width = 90
|
|
Height = 16
|
|
DataField = 'VL_TITULO'
|
|
DataSource = dtsOriginal
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = 'R$ '
|
|
end
|
|
object RLDBText10: TRLDBText
|
|
Left = 614
|
|
Top = 2
|
|
Width = 119
|
|
Height = 16
|
|
DataField = 'VL_CORRIGIDO'
|
|
DataSource = dtsOriginal
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = 'R$ '
|
|
end
|
|
object RLDBText7: TRLDBText
|
|
Left = 305
|
|
Top = 2
|
|
Width = 112
|
|
Height = 16
|
|
DataField = 'DT_VENCIMENTO'
|
|
DataSource = dtsOriginal
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
end
|
|
object RLBand5: TRLBand
|
|
Left = 0
|
|
Top = 0
|
|
Width = 718
|
|
Height = 18
|
|
AutoSize = True
|
|
BandType = btColumnHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
object RLLabel5: TRLLabel
|
|
Left = 3
|
|
Top = 1
|
|
Width = 132
|
|
Height = 16
|
|
Caption = 'T'#205'TULOS ORIGINAIS'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel7: TRLLabel
|
|
Left = 473
|
|
Top = 1
|
|
Width = 71
|
|
Height = 16
|
|
Caption = 'PRINCIPAL'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object RLLabel11: TRLLabel
|
|
Left = 614
|
|
Top = 1
|
|
Width = 76
|
|
Height = 16
|
|
Caption = 'CORRIGIDO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object RLLabel1: TRLLabel
|
|
Left = 305
|
|
Top = 1
|
|
Width = 89
|
|
Height = 16
|
|
Caption = 'VENCIMENTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object RLBand4: TRLBand
|
|
Left = 0
|
|
Top = 37
|
|
Width = 718
|
|
Height = 16
|
|
BandType = btColumnFooter
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
object RLDBResult1: TRLDBResult
|
|
Left = 614
|
|
Top = 0
|
|
Width = 158
|
|
Height = 16
|
|
DataField = 'VL_CORRIGIDO'
|
|
DataSource = dtsOriginal
|
|
Info = riSum
|
|
Text = 'R$ '
|
|
end
|
|
object RLLabel4: TRLLabel
|
|
Left = 571
|
|
Top = 0
|
|
Width = 36
|
|
Height = 16
|
|
Caption = 'Total:'
|
|
end
|
|
end
|
|
end
|
|
object RLBand3: 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
|
|
BeforePrint = frdbimg_logoBeforePrint
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object dtsAcordo: TDataSource
|
|
DataSet = zroqryAcordos
|
|
Left = 640
|
|
Top = 24
|
|
end
|
|
object dtsOriginal: TDataSource
|
|
DataSet = zroqryOriginais
|
|
Left = 720
|
|
Top = 24
|
|
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'
|
|
'from chg_devedores A'
|
|
'inner join chg_titulos B on (A.id_devedor = B.id_devedor)')
|
|
Params = <>
|
|
Left = 640
|
|
Top = 80
|
|
object zroqryAcordosTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object zroqryAcordosTX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zroqryAcordosID_TITULO: TIntegerField
|
|
FieldName = 'ID_TITULO'
|
|
Required = True
|
|
end
|
|
object zroqryAcordosVL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
end
|
|
object zroqryAcordosDT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Required = True
|
|
end
|
|
object zroqryAcordosQTDE_PARCELAS: TIntegerField
|
|
FieldName = 'QTDE_PARCELAS'
|
|
end
|
|
end
|
|
object zroqryOriginais: TZReadOnlyQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0'
|
|
'A.tx_nome,'
|
|
'B.*,'
|
|
'C.id_parcela'
|
|
'from chg_devedores A'
|
|
'inner join chg_titulos B on (A.id_devedor = B.id_devedor)'
|
|
'left join sys_acordos C on (B.id_titulo = C.id_original)')
|
|
Params = <>
|
|
MasterFields = 'ID_TITULO'
|
|
MasterSource = dtsAcordo
|
|
LinkedFields = 'ID_PARCELA'
|
|
Left = 720
|
|
Top = 80
|
|
object zroqryOriginaisTX_NOME: TWideStringField
|
|
FieldName = 'TX_NOME'
|
|
Size = 60
|
|
end
|
|
object zroqryOriginaisTX_PRODUTO: TWideStringField
|
|
FieldName = 'TX_PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zroqryOriginaisID_TITULO: TIntegerField
|
|
FieldName = 'ID_TITULO'
|
|
Required = True
|
|
end
|
|
object zroqryOriginaisVL_TITULO: TFloatField
|
|
FieldName = 'VL_TITULO'
|
|
end
|
|
object zroqryOriginaisID_PARCELA: TIntegerField
|
|
FieldName = 'ID_PARCELA'
|
|
Required = True
|
|
end
|
|
object zroqryOriginaisID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object zroqryOriginaisID_EMPRESA: TIntegerField
|
|
FieldName = 'ID_EMPRESA'
|
|
Required = True
|
|
end
|
|
object zroqryOriginaisDT_ENTRADA: TDateTimeField
|
|
FieldName = 'DT_ENTRADA'
|
|
end
|
|
object zroqryOriginaisDT_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DT_VENCIMENTO'
|
|
Required = True
|
|
end
|
|
object zroqryOriginaisTP_SITUACAO: TWideStringField
|
|
FieldName = 'TP_SITUACAO'
|
|
Size = 2
|
|
end
|
|
object zroqryOriginaisCD_DEVEDOR: TWideStringField
|
|
FieldName = 'CD_DEVEDOR'
|
|
Size = 100
|
|
end
|
|
object zroqryOriginaisTP_CHEQUE: TWideStringField
|
|
FieldName = 'TP_CHEQUE'
|
|
Required = True
|
|
Size = 1
|
|
end
|
|
object zroqryOriginaisID_BANCO: TIntegerField
|
|
FieldName = 'ID_BANCO'
|
|
end
|
|
object zroqryOriginaisTX_NRCHEQUE: TWideStringField
|
|
FieldName = 'TX_NRCHEQUE'
|
|
end
|
|
object zroqryOriginaisTP_MOTIVO: TWideStringField
|
|
FieldName = 'TP_MOTIVO'
|
|
Size = 2
|
|
end
|
|
object zroqryOriginaisVL_DESPESA: TFloatField
|
|
FieldName = 'VL_DESPESA'
|
|
end
|
|
object zroqryOriginaisTP_DESPESA: TWideStringField
|
|
FieldName = 'TP_DESPESA'
|
|
Size = 1
|
|
end
|
|
object zroqryOriginaisVL_MULTA: TFloatField
|
|
FieldName = 'VL_MULTA'
|
|
end
|
|
object zroqryOriginaisVL_JUROS: TFloatField
|
|
FieldName = 'VL_JUROS'
|
|
end
|
|
object zroqryOriginaisVL_ENCARGOS: TFloatField
|
|
FieldName = 'VL_ENCARGOS'
|
|
end
|
|
object zroqryOriginaisVL_CORRIGIDO: TFloatField
|
|
FieldName = 'VL_CORRIGIDO'
|
|
end
|
|
object zroqryOriginaisDT_PAGAMENTO: TDateTimeField
|
|
FieldName = 'DT_PAGAMENTO'
|
|
end
|
|
object zroqryOriginaisTX_OBS: TWideMemoField
|
|
FieldName = 'TX_OBS'
|
|
BlobType = ftWideMemo
|
|
end
|
|
object zroqryOriginaisID_ULTIMO_USUARIO: TIntegerField
|
|
FieldName = 'ID_ULTIMO_USUARIO'
|
|
end
|
|
object zroqryOriginaisDT_HORA_ULTIMA_ATT: TDateTimeField
|
|
FieldName = 'DT_HORA_ULTIMA_ATT'
|
|
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 = 724
|
|
Top = 136
|
|
end
|
|
end
|