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.
457 lines
11 KiB
457 lines
11 KiB
object relBordero: TrelBordero
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsNone
|
|
Caption = 'relBordero'
|
|
ClientHeight = 569
|
|
ClientWidth = 796
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object frBordero: TRLReport
|
|
Left = 0
|
|
Top = 0
|
|
Width = 794
|
|
Height = 1123
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
AfterPrint = frBorderoAfterPrint
|
|
BeforePrint = frBorderoBeforePrint
|
|
object frbnd_header: TRLBand
|
|
Left = 38
|
|
Top = 38
|
|
Width = 718
|
|
Height = 143
|
|
AutoExpand = False
|
|
BandType = btHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
object frpnl_logo: TRLPanel
|
|
Left = 1
|
|
Top = 0
|
|
Width = 160
|
|
Height = 143
|
|
Align = faLeftOnly
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
object frdbimg_logo: TRLDBImage
|
|
Left = 0
|
|
Top = 1
|
|
Width = 159
|
|
Height = 142
|
|
Align = faClient
|
|
AutoSize = True
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = False
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = False
|
|
Borders.DrawBottom = False
|
|
DataField = 'IMG_LOGO'
|
|
DataSource = dtsEmpresa
|
|
Stretch = True
|
|
end
|
|
end
|
|
object frlbl_titulorel: TRLLabel
|
|
Left = 167
|
|
Top = 52
|
|
Width = 346
|
|
Height = 24
|
|
Caption = 'Relat'#243'rio de Entrada da Empresa:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -21
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object frlbl_empresanome: TRLLabel
|
|
Left = 167
|
|
Top = 82
|
|
Width = 212
|
|
Height = 24
|
|
Caption = 'NOME DA EMPRESA'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -21
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object frbnd_footer: TRLBand
|
|
Left = 38
|
|
Top = 211
|
|
Width = 718
|
|
Height = 16
|
|
BandType = btSummary
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
object frdbresult_sumvalor: TRLDBResult
|
|
Left = 586
|
|
Top = 1
|
|
Width = 130
|
|
Height = 16
|
|
Align = faTopOnly
|
|
Alignment = taRightJustify
|
|
DataField = 'VALOR'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
Info = riSum
|
|
ParentFont = False
|
|
Text = 'Total: '
|
|
end
|
|
end
|
|
object frbnd_footerrel: TRLBand
|
|
Left = 38
|
|
Top = 227
|
|
Width = 718
|
|
Height = 20
|
|
BandType = btFooter
|
|
object RLSystemInfo2: TRLSystemInfo
|
|
Left = 503
|
|
Top = 7
|
|
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 = 605
|
|
Top = 7
|
|
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 frdblbl_usuario: TRLDBText
|
|
Left = 290
|
|
Top = 7
|
|
Width = 56
|
|
Height = 13
|
|
Align = faBottomOnly
|
|
DataField = 'TX_NOME'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'unifont'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
BeforePrint = frdblbl_usuarioBeforePrint
|
|
end
|
|
end
|
|
object frbnd_columnheader: TRLBand
|
|
Left = 38
|
|
Top = 181
|
|
Width = 718
|
|
Height = 16
|
|
BandType = btColumnHeader
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = True
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = True
|
|
object RLLabel2: TRLLabel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 42
|
|
Height = 16
|
|
Align = faLeftTop
|
|
Caption = 'NOME'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel3: TRLLabel
|
|
Left = 325
|
|
Top = 1
|
|
Width = 65
|
|
Height = 16
|
|
Align = faTopOnly
|
|
Caption = 'ENTRADA'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel4: TRLLabel
|
|
Left = 420
|
|
Top = 1
|
|
Width = 51
|
|
Height = 16
|
|
Align = faTopOnly
|
|
Caption = 'T'#205'TULO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel5: TRLLabel
|
|
Left = 220
|
|
Top = 1
|
|
Width = 68
|
|
Height = 16
|
|
Align = faTopOnly
|
|
Caption = 'CPF/CNPJ'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel6: TRLLabel
|
|
Left = 508
|
|
Top = 1
|
|
Width = 89
|
|
Height = 16
|
|
Align = faTopOnly
|
|
Caption = 'VENCIMENTO'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object RLLabel7: TRLLabel
|
|
Left = 668
|
|
Top = 1
|
|
Width = 49
|
|
Height = 16
|
|
Align = faRightTop
|
|
Caption = 'VALOR'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -13
|
|
Font.Name = 'Arial'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object frbnd_dados: TRLBand
|
|
Left = 38
|
|
Top = 197
|
|
Width = 718
|
|
Height = 14
|
|
Borders.Sides = sdCustom
|
|
Borders.DrawLeft = True
|
|
Borders.DrawTop = False
|
|
Borders.DrawRight = True
|
|
Borders.DrawBottom = False
|
|
object frdblbl_data: TRLDBText
|
|
Left = 314
|
|
Top = 0
|
|
Width = 88
|
|
Height = 14
|
|
Align = faTopOnly
|
|
Alignment = taCenter
|
|
DataField = 'DATA_ENTRADA'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object frdblbl_titulo: TRLDBText
|
|
Left = 420
|
|
Top = 0
|
|
Width = 82
|
|
Height = 14
|
|
Align = faTopOnly
|
|
AutoSize = False
|
|
DataField = 'PRODUTO'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object frdblbl_valor: TRLDBText
|
|
Left = 677
|
|
Top = 0
|
|
Width = 40
|
|
Height = 14
|
|
Align = faRightTop
|
|
Alignment = taRightJustify
|
|
DataField = 'VALOR'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object frdblbl_codigo: TRLDBText
|
|
Left = 1
|
|
Top = 0
|
|
Width = 207
|
|
Height = 14
|
|
Align = faLeftTop
|
|
AutoSize = False
|
|
DataField = 'NOME'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object RLDBText1: TRLDBText
|
|
Left = 500
|
|
Top = 0
|
|
Width = 104
|
|
Height = 14
|
|
Align = faTopOnly
|
|
Alignment = taCenter
|
|
DataField = 'DATA_VENCIMENTO'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
object RLDBText2: TRLDBText
|
|
Left = 220
|
|
Top = 0
|
|
Width = 86
|
|
Height = 14
|
|
Align = faTopOnly
|
|
DataField = 'TX_DOCUMENTO'
|
|
DataSource = dtsQry
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Arial'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Text = ''
|
|
end
|
|
end
|
|
end
|
|
object frfilterpdf: TRLPDFFilter
|
|
DocumentInfo.Creator =
|
|
'FortesReport Community Edition v4.0 \251 Copyright '#169' 1999-2015 F' +
|
|
'ortes Inform'#225'tica'
|
|
DisplayName = 'Documento PDF'
|
|
Left = 736
|
|
Top = 8
|
|
end
|
|
object dtsEmpresa: TDataSource
|
|
DataSet = dtmSystem.tblEmpresa
|
|
Left = 568
|
|
Top = 8
|
|
end
|
|
object zqryRel: TZQuery
|
|
Connection = dtmSystem.ZConnection
|
|
SQL.Strings = (
|
|
'select first 0'
|
|
'A.id_devedor,'
|
|
'A.tx_nome as NOME,'
|
|
'case when a.tp_cliente = '#39'F'#39' then A.cd_cpf'
|
|
'when a.tp_cliente = '#39'J'#39' then a.cd_cnpj end as TX_DOCUMENTO,'
|
|
'A.cd_devedor as CODIGO,'
|
|
'B.dt_entrada as DATA_ENTRADA,'
|
|
'B.tx_produto as PRODUTO,'
|
|
'B.vl_titulo as VALOR,'
|
|
'B.dt_vencimento as DATA_VENCIMENTO'
|
|
'from chg_devedores A'
|
|
'inner join chg_titulos B'
|
|
'on (A.id_devedor = B.id_devedor);')
|
|
Params = <>
|
|
Left = 624
|
|
Top = 8
|
|
object zqryRelID_DEVEDOR: TIntegerField
|
|
FieldName = 'ID_DEVEDOR'
|
|
Required = True
|
|
end
|
|
object zqryRelNOME: TWideStringField
|
|
FieldName = 'NOME'
|
|
ReadOnly = True
|
|
Size = 60
|
|
end
|
|
object zqryRelCODIGO: TWideStringField
|
|
FieldName = 'CODIGO'
|
|
end
|
|
object zqryRelPRODUTO: TWideStringField
|
|
FieldName = 'PRODUTO'
|
|
Size = 100
|
|
end
|
|
object zqryRelVALOR: TFloatField
|
|
FieldName = 'VALOR'
|
|
currency = True
|
|
end
|
|
object zqryRelDATA_VENCIMENTO: TDateTimeField
|
|
FieldName = 'DATA_VENCIMENTO'
|
|
end
|
|
object zqryRelTX_DOCUMENTO: TWideStringField
|
|
FieldName = 'TX_DOCUMENTO'
|
|
ReadOnly = True
|
|
Size = 18
|
|
end
|
|
object zqryRelDATA_ENTRADA: TDateTimeField
|
|
FieldName = 'DATA_ENTRADA'
|
|
end
|
|
end
|
|
object dtsQry: TDataSource
|
|
DataSet = zqryRel
|
|
Left = 680
|
|
Top = 8
|
|
end
|
|
end
|