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.
 

443 lines
11 KiB

object relRecibosEmitidos: TrelRecibosEmitidos
Left = 0
Top = 0
BorderStyle = bsNone
ClientHeight = 1133
ClientWidth = 809
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object fr_recibosemitidos: TRLReport
Left = 8
Top = 8
Width = 794
Height = 1123
DataSource = dtsqryReport
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
AfterPrint = fr_recibosemitidosAfterPrint
BeforePrint = fr_recibosemitidosBeforePrint
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'
Stretch = True
end
end
object frlbl_titulorel: TRLLabel
Left = 167
Top = 52
Width = 222
Height = 24
Caption = 'Relat'#243'rio de Recibos:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_datas: TRLLabel
Left = 167
Top = 82
Width = 78
Height = 24
Caption = 'DATAS'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
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 frlbl_nrrecibo: TRLLabel
Left = 1
Top = 1
Width = 18
Height = 16
Align = faLeftTop
Caption = 'N'#186
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_nomerecibo: TRLLabel
Left = 228
Top = 1
Width = 118
Height = 16
Align = faTopOnly
Caption = 'NOME DO RECIBO'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_cpf: TRLLabel
Left = 112
Top = 1
Width = 30
Height = 16
Align = faTopOnly
Caption = 'CPF'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_vltotal: TRLLabel
Left = 495
Top = 1
Width = 96
Height = 16
Align = faTopOnly
Caption = 'VALOR TOTAL'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object frlbl_dtimpressao: TRLLabel
Left = 596
Top = 1
Width = 121
Height = 16
Align = faRightTop
Caption = 'DATA IMPRESS'#195'O'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RLLabel1: TRLLabel
Left = 397
Top = 1
Width = 44
Height = 16
Align = faTopOnly
Caption = 'CAIXA'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RLLabel2: TRLLabel
Left = 65
Top = 1
Width = 40
Height = 16
Align = faTopOnly
Caption = 'CANC'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object frbnd_details: TRLBand
Left = 38
Top = 197
Width = 718
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = True
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = True
object frdblbl_nrrecibo: TRLDBText
Left = 1
Top = 0
Width = 78
Height = 16
Align = faLeftTop
DataField = 'NR_RECIBO'
DataSource = dtsqryReport
Text = ''
end
object frdblbl_nomerecibo: TRLDBText
Left = 228
Top = 0
Width = 149
Height = 16
Align = faTopOnly
AutoSize = False
DataField = 'TX_NOME'
DataSource = dtsqryReport
Text = ''
end
object frdblbl_cpf: TRLDBText
Left = 112
Top = 0
Width = 108
Height = 16
Align = faTopOnly
DataField = 'TX_DOCUMENTO'
DataSource = dtsqryReport
Text = ''
end
object frdblbl_vltotal: TRLDBText
Left = 492
Top = 0
Width = 99
Height = 16
Align = faTopOnly
Alignment = taRightJustify
DataField = 'VL_CORRIGIDO'
DataSource = dtsqryReport
Text = ''
end
object frdblbl_dtimpressao: TRLDBText
Left = 604
Top = 0
Width = 106
Height = 16
Align = faTopOnly
Alignment = taCenter
DataField = 'DT_IMPRESSAO'
DataSource = dtsqryReport
Text = ''
end
object RLDBText1: TRLDBText
Left = 397
Top = 0
Width = 91
Height = 16
Align = faTopOnly
AutoSize = False
DataField = 'TX_CAIXA'
DataSource = dtsqryReport
Text = ''
end
object RLDBText2: TRLDBText
Left = 65
Top = 0
Width = 107
Height = 16
DataField = 'TP_CANCELADO'
DataSource = dtsqryReport
Text = ''
end
end
object RLBand1: TRLBand
Left = 38
Top = 213
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 = 144
Top = 1
Width = 183
Height = 16
Align = faTopOnly
Alignment = taRightJustify
DataField = 'VL_CORRIGIDO'
DataSource = dtsqryReport
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Info = riSum
ParentFont = False
Text = 'Total: '
Visible = False
end
object frlbl_total: TRLLabel
Left = 494
Top = 1
Width = 64
Height = 16
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object frbnd_footerrel: TRLBand
Left = 38
Top = 229
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
end
end
object dtsqryReport: TDataSource
DataSet = qryReport
Left = 728
Top = 32
end
object qryReport: TZQuery
Connection = dtmSystem.ZConnection
SQL.Strings = (
'select first 0'
'sys_recibos.*, '
'case when tx_cpf = '#39#39' then tx_cnpj'
'when tx_cpf <> '#39#39' then tx_cpf'
'end as tx_documento from sys_recibos')
Params = <>
Left = 648
Top = 32
object qryReportNR_RECIBO: TWideStringField
FieldName = 'NR_RECIBO'
Required = True
end
object qryReportTX_NOME: TWideStringField
FieldName = 'TX_NOME'
Size = 255
end
object qryReportTX_CPF: TWideStringField
FieldName = 'TX_CPF'
Size = 14
end
object qryReportTX_CNPJ: TWideStringField
FieldName = 'TX_CNPJ'
Size = 18
end
object qryReportDT_IMPRESSAO: TDateTimeField
FieldName = 'DT_IMPRESSAO'
end
object qryReportID_USUARIO: TIntegerField
FieldName = 'ID_USUARIO'
end
object qryReportTX_CAIXA: TStringField
FieldKind = fkLookup
FieldName = 'TX_CAIXA'
LookupDataSet = dtmSystem.tblUsuariosConsulta
LookupKeyFields = 'ID_USUARIO'
LookupResultField = 'TX_NOME'
KeyFields = 'ID_USUARIO'
Size = 25
Lookup = True
end
object qryReportVL_CORRIGIDO: TFloatField
FieldName = 'VL_CORRIGIDO'
end
object qryReportTP_CANCELADO: TWideStringField
FieldName = 'TP_CANCELADO'
Size = 1
end
object qryReportTX_DOCUMENTO: TWideStringField
FieldName = 'TX_DOCUMENTO'
ReadOnly = True
Size = 18
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 = 584
Top = 32
end
object dtsEmpresa: TDataSource
DataSet = dtmSystem.tblEmpresa
Left = 520
Top = 32
end
end