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.
 

311 lines
7.7 KiB

object relHistorico: TrelHistorico
Left = 0
Top = 0
BorderStyle = bsNone
Caption = 'relHistorico'
ClientHeight = 1125
ClientWidth = 795
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object relHistorico: TRLReport
Left = 0
Top = 0
Width = 794
Height = 1123
DataSource = dtsRelatorio
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
object frbnd_header: TRLBand
Left = 38
Top = 38
Width = 718
Height = 131
AutoExpand = False
BandType = btHeader
Borders.Sides = sdCustom
Borders.DrawLeft = True
Borders.DrawTop = True
Borders.DrawRight = True
Borders.DrawBottom = False
object frlbl_titulorel: TRLLabel
Left = 20
Top = 20
Width = 225
Height = 24
Caption = 'Rela'#231#227'o de Hist'#243'ricos'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_nome: TRLDBText
Left = 20
Top = 50
Width = 106
Height = 24
DataField = 'TX_NOME'
DataSource = dtmSystem.dtsDevedores
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Text = ''
end
object frlbl_referente: TRLLabel
Left = 1
Top = 115
Width = 716
Height = 16
Align = faBottom
Alignment = taCenter
Caption = 'Referente ao per'#237'odo: '
end
object frlbl_documento: TRLDBText
Left = 20
Top = 80
Width = 236
Height = 24
DataSource = dtmSystem.dtsDevedores
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Text = 'CPF/CNPJ: '
end
end
object RLBand1: TRLBand
Left = 38
Top = 169
Width = 718
Height = 88
Borders.Sides = sdCustom
Borders.DrawLeft = True
Borders.DrawTop = True
Borders.DrawRight = True
Borders.DrawBottom = True
object frdblbl_datacontato: TRLDBText
Left = 5
Top = 5
Width = 162
Height = 16
DataField = 'DT_CONTATO'
DataSource = dtsRelatorio
Text = 'Contato dia: '
end
object frdblbl_quemfez: TRLDBText
Left = 309
Top = 1
Width = 99
Height = 16
Align = faCenterTop
DataField = 'TX_COBRADOR'
DataSource = dtsRelatorio
Text = ''
end
object frdblbl_providencia: TRLDBText
Left = 5
Top = 24
Width = 234
Height = 16
DataField = 'TX_PROVIDENCIA'
DataSource = dtsRelatorio
Text = 'Provid'#234'ncia tomada: '
end
object frdbmem_hist: TRLDBMemo
Left = 5
Top = 62
Width = 706
Height = 16
Behavior = [beSiteExpander]
DataField = 'TL_MEMO'
DataSource = dtsRelatorio
end
object frlbl_hist: TRLLabel
Left = 5
Top = 43
Width = 59
Height = 16
Caption = 'Hist'#243'rico:'
end
end
object RLBand2: TRLBand
Left = 38
Top = 257
Width = 718
Height = 18
AlignToBottom = True
BandType = btFooter
Options = [boOptimisticPageBreak]
object RLSystemInfo2: TRLSystemInfo
Left = 337
Top = 5
Width = 49
Height = 13
Align = faBottomOnly
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
Text = ''
end
object RLSystemInfo1: TRLSystemInfo
Left = 439
Top = 5
Width = 49
Height = 13
Align = faBottomOnly
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
Info = itHour
ParentFont = False
Text = ''
end
object frlbl_usuario: TRLLabel
Left = 3
Top = 2
Width = 77
Height = 16
Align = faBottomOnly
Caption = 'Atendente: '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frdblbl_usuario: TRLDBText
Left = 79
Top = 2
Width = 64
Height = 16
Align = faBottomOnly
DataField = 'TX_NOME'
DataSource = dtsUser
Text = ''
end
object RLSystemInfo3: TRLSystemInfo
Left = 662
Top = 5
Width = 147
Height = 13
Align = faBottomOnly
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
Info = itLastPageNumber
ParentFont = False
Text = 'Pag.'
end
object RLSystemInfo4: TRLSystemInfo
Left = 589
Top = 5
Width = 30
Height = 13
Align = faBottomOnly
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
Info = itPageNumber
ParentFont = False
Text = 'Pag.'
end
object frlbl_de: TRLLabel
Left = 630
Top = 5
Width = 21
Height = 13
Align = faBottomOnly
Caption = 'de'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'unifont'
Font.Style = []
ParentFont = False
end
end
end
object dtsRelatorio: TDataSource
DataSet = zroqryHistorico
Left = 616
Top = 72
end
object zroqryHistorico: TZReadOnlyQuery
Connection = dtmSystem.ZConnection
SQL.Strings = (
'select first 0 * from chg_historico')
Params = <>
Left = 616
Top = 16
object zroqryHistoricoID_DEVEDOR: TIntegerField
FieldName = 'ID_DEVEDOR'
end
object zroqryHistoricoID_COBRADOR: TIntegerField
FieldName = 'ID_COBRADOR'
end
object zroqryHistoricoID_PROVIDENCIA: TIntegerField
FieldName = 'ID_PROVIDENCIA'
end
object zroqryHistoricoDT_CONTATO: TDateTimeField
FieldName = 'DT_CONTATO'
end
object zroqryHistoricoCD_PROTOCOLO: TWideStringField
FieldName = 'CD_PROTOCOLO'
end
object zroqryHistoricoTL_MEMO: TWideMemoField
FieldName = 'TL_MEMO'
BlobType = ftWideMemo
end
object zroqryHistoricoTX_COBRADOR: TStringField
FieldKind = fkLookup
FieldName = 'TX_COBRADOR'
LookupDataSet = dtmSystem.tblUsuariosConsulta
LookupKeyFields = 'ID_USUARIO'
LookupResultField = 'TX_NOME'
KeyFields = 'ID_COBRADOR'
Size = 25
Lookup = True
end
object zroqryHistoricoTX_PROVIDENCIA: TStringField
FieldKind = fkLookup
FieldName = 'TX_PROVIDENCIA'
LookupDataSet = dtmSystem.tblProvidencias
LookupKeyFields = 'ID_PROVIDENCIA'
LookupResultField = 'TX_NOME'
KeyFields = 'ID_PROVIDENCIA'
Size = 50
Lookup = True
end
end
object dtsUser: TDataSource
DataSet = dtmSystem.tblUsuariosConsulta
Left = 524
Top = 16
end
end