Fórum fortes report, 2 subdetail. #293383
26/08/2005
0
Pessoal, utilizo o fortes report para gerar um relatório de um pedido.
Esta funcionando muito bem.
Mas agora preciso ter 2 subdetail. (Pegar de 2 tabelas)
Preciso colocar o segundo subdetail em cima da ultima banda do meu relatório (btColumnFooter).
Mas não da certo, se eu mudo para summary, consigo colocar em cima, mas a folha desce totalmente.
No caso estou tentando fazer isso
Alguém pode me dar uma força ?
Obrigado
Esta funcionando muito bem.
Mas agora preciso ter 2 subdetail. (Pegar de 2 tabelas)
Preciso colocar o segundo subdetail em cima da ultima banda do meu relatório (btColumnFooter).
Mas não da certo, se eu mudo para summary, consigo colocar em cima, mas a folha desce totalmente.
No caso estou tentando fazer isso
--------------------------------------------- Cima --------------------------------------------- Itens,Primeira Tabela (subdetail1) --------------------------------------------- observacoes --------------------------------------------- Parcelas,Segunda tabela (subdetail2) --------------------------------------------- Rodape com algumas bandas Fim.
Alguém pode me dar uma força ?
Obrigado
Lynx
Curtir tópico
+ 0
Responder
Posts
26/08/2005
Lynx
Aparentemente, resolvi o problema colocando o subdetail dentro de uma banda (btColumnFooter).
Qualquer coisa volto a postar.
Obrigado
Qualquer coisa volto a postar.
Obrigado
Responder
Gostei + 0
27/08/2005
Sremulador
Title
Detail
group
Detail
Sumary
...
acho que deve ser assim...
Detail
group
Detail
Sumary
...
acho que deve ser assim...
Responder
Gostei + 0
27/08/2005
Lynx
sremulador Muito obrigado pela sua força, você me ajudou muito já com o fortes report.
Dessa maneira que postei, acima eu imagino que não vai funcionar porque a banda fica fixa.
Vou colocar da sua maneira, qualquer coisa volto a postar.
Valeu
Dessa maneira que postei, acima eu imagino que não vai funcionar porque a banda fica fixa.
Vou colocar da sua maneira, qualquer coisa volto a postar.
Valeu
Responder
Gostei + 0
27/08/2005
Lynx
O Complicado é que não da pra escolher a posição de um grupo.
Mas colocando no caso 3 grupos, funciona mais ou menos.
+grupo
detail1
+grupo2
observacoes
etc
+grupo3
-detail2
O Problema que no (Meio) os label não aparecem...
No caso, se eu deixar as observacoes em grupo, não aparece.
Obrigado
Mas colocando no caso 3 grupos, funciona mais ou menos.
+grupo
detail1
+grupo2
observacoes
etc
+grupo3
-detail2
O Problema que no (Meio) os label não aparecem...
No caso, se eu deixar as observacoes em grupo, não aparece.
Obrigado
Responder
Gostei + 0
27/08/2005
Lynx
Mesmo colocando um grupo, com o subdetail1, uma banda em baixo, e o outro subdetail, qualquer label dentro de um group, não aparece :cry:
Responder
Gostei + 0
27/08/2005
Lynx
é possivel deixar 2 subdetail separado por uma banda ?
Responder
Gostei + 0
29/08/2005
Lynx
sobe
Responder
Gostei + 0
29/08/2005
Sremulador
amigo você poderia me mandar seu projeto ou a unit para eu dar uma olhadinha...
Responder
Gostei + 0
29/08/2005
Lynx
Claro, desculpe a demora, vou postar o código das bandas aqui.
é só colar em cima do form, que funciona.
Eu gostaria de colocar as parcelas, em cima da banda (Previsão de Entrega)
Só consegui fazer assim...
Muito Obrigado Colega, qualquer coisa mando por email.
valeu :)
é só colar em cima do form, que funciona.
object rlPedido: TRLReport
Left = 126
Top = 10
Width = 794
Height = 1123
AdjustableMargins = True
Borders.Sides = sdAll
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = ´Arial´
Font.Style = []
Transparent = False
object bndCliente: TRLBand
Left = 39
Top = 129
Width = 716
Height = 132
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = False
end
object bndCima: TRLBand
Left = 39
Top = 39
Width = 716
Height = 90
BandType = btHeader
Color = clWhite
Degrade.OppositeColor = clWhite
ParentColor = False
end
object bndCaminhao: TRLBand
Left = 39
Top = 261
Width = 716
Height = 38
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
end
object bndObservacao: TRLBand
Left = 39
Top = 406
Width = 716
Height = 31
AutoSize = True
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblObservacoes: TRLLabel
Left = 4
Top = 3
Width = 83
Height = 13
Caption = ´Observa´#231245´es:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object mmObservacao: TRLMemo
Left = 5
Top = 18
Width = 414
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndBaixo: TRLBand
Left = 39
Top = 485
Width = 716
Height = 127
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = True
Color = clWhite
ParentColor = False
Transparent = False
end
object bndOutros: TRLBand
Left = 39
Top = 469
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Color = clWhite
ParentColor = False
Transparent = False
object lblPrevEntrega: TRLLabel
Left = 3
Top = 2
Width = 124
Height = 13
Caption = ´Previs´#227´o de Entrega:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblVendedor: TRLLabel
Left = 561
Top = 1
Width = 64
Height = 13
Alignment = taRightJustify
Caption = ´Vendedor:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndLocalEntrega: TRLBand
Left = 39
Top = 437
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
object lblLocalEntrega: TRLLabel
Left = 3
Top = 2
Width = 104
Height = 13
Caption = ´Local de Entrega:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndCondPagamento: TRLBand
Left = 39
Top = 453
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
object lblCondPagamento: TRLLabel
Left = 3
Top = 2
Width = 148
Height = 13
Caption = ´Condi´231227´o de Pagamento:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblIcms: TRLLabel
Left = 485
Top = 2
Width = 40
Height = 13
Caption = ´ICMS:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblIpi: TRLLabel
Left = 598
Top = 2
Width = 26
Height = 13
Caption = ´IPI:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object sbtParcelas: TRLSubDetail
Left = 39
Top = 389
Width = 716
Height = 17
Color = clWhite
ParentColor = False
Transparent = False
object bndParcelas: TRLBand
Left = 0
Top = 0
Width = 716
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object dbParcelas: TRLDBText
Left = 13
Top = 1
Width = 100
Height = 16
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
DataField = ´NUMPARCELA´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblParcelas
ParentFont = False
end
object dbVencimento: TRLDBText
Left = 134
Top = 1
Width = 100
Height = 16
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
DataField = ´VENCIMENTO´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblVencimentos
ParentFont = False
end
object dbValorParcela: TRLDBResult
Left = 255
Top = 1
Width = 100
Height = 16
Alignment = taRightJustify
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
DataField = ´VALOR´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblValores
Layout = tlCenter
ParentFont = False
end
end
end
object gpEquipamentos: TRLGroup
Left = 39
Top = 299
Width = 716
Height = 74
object sbtEquipamentos: TRLSubDetail
Left = 0
Top = 18
Width = 716
Height = 55
Color = clWhite
Margins.LeftMargin = 10.000000000000000000
Margins.RightMargin = 10.000000000000000000
ParentColor = False
Transparent = False
object bndEquipDesc: TRLBand
Left = 38
Top = 0
Width = 640
Height = 16
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = False
Borders.DrawBottom = True
Color = clWhite
ParentColor = False
Transparent = False
object lblValorunitario: TRLLabel
Left = 409
Top = 1
Width = 82
Height = 13
Alignment = taRightJustify
Caption = ´Valor Unit´#225´rio´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblqntd: TRLLabel
Left = 327
Top = 1
Width = 31
Height = 13
Alignment = taRightJustify
Caption = ´Qntd´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblsubtotal: TRLLabel
Left = 589
Top = 1
Width = 51
Height = 13
Alignment = taRightJustify
Caption = ´Subtotal´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblEquipamento: TRLLabel
Left = 0
Top = 1
Width = 78
Height = 13
Alignment = taRightJustify
Caption = ´Equipamento´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
end
object bndTotal: TRLBand
Left = 38
Top = 32
Width = 640
Height = 16
BandType = btSummary
Color = clWhite
ParentColor = False
Transparent = False
object dbValorTotal: TRLDBResult
Left = 470
Top = 0
Width = 170
Height = 16
Align = faRight
Alignment = taRightJustify
Color = clWhite
DataField = ´VALORTOTAL´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblsubtotal
Layout = tlCenter
ParentColor = False
ParentFont = False
Text = ´Total: ´
Transparent = False
end
end
object bntProPedidos: TRLBand
Left = 38
Top = 16
Width = 640
Height = 16
Color = clWhite
ParentColor = False
Transparent = False
object dbQntd: TRLDBText
Left = 327
Top = 0
Width = 31
Height = 16
Align = faHeight
Alignment = taRightJustify
AutoSize = False
Color = clWhite
DataField = ´QNTD´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblqntd
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbSubTotal: TRLDBText
Left = 489
Top = 0
Width = 151
Height = 16
Align = faRight
Alignment = taRightJustify
Color = clWhite
DataFormula = ´VALORUNITARIO*QNTD´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblsubtotal
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbNomeEquipamento: TRLDBText
Left = 0
Top = 0
Width = 37
Height = 16
Align = faLeft
Alignment = taJustify
Color = clWhite
DataField = ´NOME´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbValorUnitario: TRLDBResult
Left = 337
Top = 1
Width = 154
Height = 14
Alignment = taRightJustify
DataField = ´VALORUNITARIO´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblValorunitario
Layout = tlCenter
ParentFont = False
end
end
end
object bndEquipamentos: TRLBand
Left = 0
Top = 0
Width = 716
Height = 18
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblEquipamentos: TRLLabel
Left = 3
Top = 3
Width = 137
Height = 13
Caption = ´Lista de Equipamentos:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
end
object bndParcDesc: TRLBand
Left = 39
Top = 373
Width = 716
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblValores: TRLLabel
Left = 255
Top = 1
Width = 100
Height = 14
Alignment = taRightJustify
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
Caption = ´Valores´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblVencimentos: TRLLabel
Left = 134
Top = 1
Width = 100
Height = 14
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
Caption = ´Vencimentos´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblParcelas: TRLLabel
Left = 13
Top = 1
Width = 100
Height = 14
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Caption = ´Parcelas´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
end
end
Eu gostaria de colocar as parcelas, em cima da banda (Previsão de Entrega)
Só consegui fazer assim...
Muito Obrigado Colega, qualquer coisa mando por email.
valeu :)
Responder
Gostei + 0
30/08/2005
Lynx
sobe
Responder
Gostei + 0
08/10/2005
Lynx
Desculpe, faz um bom tempo que postei esse tópico, mas não gostaria de repetir ele novamente.
Ainda não consegui resolver o problema, não sei se é possivel 2 subdetail, ficarem afastados um do outro, colei o código acima, é só colar em cima de um form.
Gostaria que fica-se desta forma
Resumindo, gostaria de deixar as parcelas em baixo da condicao de pagamento.
Não sei se é possivel isso.
Obrigado
Ainda não consegui resolver o problema, não sei se é possivel 2 subdetail, ficarem afastados um do outro, colei o código acima, é só colar em cima de um form.
Gostaria que fica-se desta forma
--------------------------------------------- Cima --------------------------------------------- Itens,Primeira Tabela (subdetail1) --------------------------------------------- Algumas Observacoes ---------------------------- condicao de pagamento --------------------------------------------- Parcelas,Segunda tabela (subdetail2) --------------------------------------------- Rodape com algumas bandas Fim.
Resumindo, gostaria de deixar as parcelas em baixo da condicao de pagamento.
Não sei se é possivel isso.
Obrigado
Responder
Gostei + 0
08/10/2005
Lynx
Claro, desculpe a demora, vou postar o código das bandas aqui.
é só colar em cima do form, que funciona.
Eu gostaria de colocar as parcelas, em baixo da cond. de pagamento.
Só consegui fazer assim...
Muito Obrigado Colega, qualquer coisa mando por email.
valeu :)
object rlPedido: TRLReport
Left = 126
Top = 10
Width = 794
Height = 1123
AdjustableMargins = True
Borders.Sides = sdAll
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = ´Arial´
Font.Style = []
Transparent = False
object bndCliente: TRLBand
Left = 39
Top = 129
Width = 716
Height = 132
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = False
end
object bndCima: TRLBand
Left = 39
Top = 39
Width = 716
Height = 90
BandType = btHeader
Color = clWhite
Degrade.OppositeColor = clWhite
ParentColor = False
end
object bndCaminhao: TRLBand
Left = 39
Top = 261
Width = 716
Height = 38
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
end
object bndObservacao: TRLBand
Left = 39
Top = 406
Width = 716
Height = 31
AutoSize = True
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblObservacoes: TRLLabel
Left = 4
Top = 3
Width = 83
Height = 13
Caption = ´Observa´#231245´es:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object mmObservacao: TRLMemo
Left = 5
Top = 18
Width = 414
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndBaixo: TRLBand
Left = 39
Top = 485
Width = 716
Height = 127
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = True
Color = clWhite
ParentColor = False
Transparent = False
end
object bndOutros: TRLBand
Left = 39
Top = 469
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Color = clWhite
ParentColor = False
Transparent = False
object lblPrevEntrega: TRLLabel
Left = 3
Top = 2
Width = 124
Height = 13
Caption = ´Previs´#227´o de Entrega:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblVendedor: TRLLabel
Left = 561
Top = 1
Width = 64
Height = 13
Alignment = taRightJustify
Caption = ´Vendedor:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndLocalEntrega: TRLBand
Left = 39
Top = 437
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
object lblLocalEntrega: TRLLabel
Left = 3
Top = 2
Width = 104
Height = 13
Caption = ´Local de Entrega:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object bndCondPagamento: TRLBand
Left = 39
Top = 453
Width = 716
Height = 16
BandType = btColumnFooter
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Borders.FixedTop = True
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
object lblCondPagamento: TRLLabel
Left = 3
Top = 2
Width = 148
Height = 13
Caption = ´Condi´231227´o de Pagamento:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblIcms: TRLLabel
Left = 485
Top = 2
Width = 40
Height = 13
Caption = ´ICMS:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
object lblIpi: TRLLabel
Left = 598
Top = 2
Width = 26
Height = 13
Caption = ´IPI:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
object sbtParcelas: TRLSubDetail
Left = 39
Top = 389
Width = 716
Height = 17
Color = clWhite
ParentColor = False
Transparent = False
object bndParcelas: TRLBand
Left = 0
Top = 0
Width = 716
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object dbParcelas: TRLDBText
Left = 13
Top = 1
Width = 100
Height = 16
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
DataField = ´NUMPARCELA´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblParcelas
ParentFont = False
end
object dbVencimento: TRLDBText
Left = 134
Top = 1
Width = 100
Height = 16
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
DataField = ´VENCIMENTO´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblVencimentos
ParentFont = False
end
object dbValorParcela: TRLDBResult
Left = 255
Top = 1
Width = 100
Height = 16
Alignment = taRightJustify
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
DataField = ´VALOR´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblValores
Layout = tlCenter
ParentFont = False
end
end
end
object gpEquipamentos: TRLGroup
Left = 39
Top = 299
Width = 716
Height = 74
object sbtEquipamentos: TRLSubDetail
Left = 0
Top = 18
Width = 716
Height = 55
Color = clWhite
Margins.LeftMargin = 10.000000000000000000
Margins.RightMargin = 10.000000000000000000
ParentColor = False
Transparent = False
object bndEquipDesc: TRLBand
Left = 38
Top = 0
Width = 640
Height = 16
BandType = btColumnHeader
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = False
Borders.DrawBottom = True
Color = clWhite
ParentColor = False
Transparent = False
object lblValorunitario: TRLLabel
Left = 409
Top = 1
Width = 82
Height = 13
Alignment = taRightJustify
Caption = ´Valor Unit´#225´rio´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblqntd: TRLLabel
Left = 327
Top = 1
Width = 31
Height = 13
Alignment = taRightJustify
Caption = ´Qntd´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblsubtotal: TRLLabel
Left = 589
Top = 1
Width = 51
Height = 13
Alignment = taRightJustify
Caption = ´Subtotal´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblEquipamento: TRLLabel
Left = 0
Top = 1
Width = 78
Height = 13
Alignment = taRightJustify
Caption = ´Equipamento´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
end
object bndTotal: TRLBand
Left = 38
Top = 32
Width = 640
Height = 16
BandType = btSummary
Color = clWhite
ParentColor = False
Transparent = False
object dbValorTotal: TRLDBResult
Left = 470
Top = 0
Width = 170
Height = 16
Align = faRight
Alignment = taRightJustify
Color = clWhite
DataField = ´VALORTOTAL´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblsubtotal
Layout = tlCenter
ParentColor = False
ParentFont = False
Text = ´Total: ´
Transparent = False
end
end
object bntProPedidos: TRLBand
Left = 38
Top = 16
Width = 640
Height = 16
Color = clWhite
ParentColor = False
Transparent = False
object dbQntd: TRLDBText
Left = 327
Top = 0
Width = 31
Height = 16
Align = faHeight
Alignment = taRightJustify
AutoSize = False
Color = clWhite
DataField = ´QNTD´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblqntd
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbSubTotal: TRLDBText
Left = 489
Top = 0
Width = 151
Height = 16
Align = faRight
Alignment = taRightJustify
Color = clWhite
DataFormula = ´VALORUNITARIO*QNTD´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblsubtotal
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbNomeEquipamento: TRLDBText
Left = 0
Top = 0
Width = 37
Height = 16
Align = faLeft
Alignment = taJustify
Color = clWhite
DataField = ´NOME´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object dbValorUnitario: TRLDBResult
Left = 337
Top = 1
Width = 154
Height = 14
Alignment = taRightJustify
DataField = ´VALORUNITARIO´
DisplayMask = ´R$ ,0.00´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Holder = lblValorunitario
Layout = tlCenter
ParentFont = False
end
end
end
object bndEquipamentos: TRLBand
Left = 0
Top = 0
Width = 716
Height = 18
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblEquipamentos: TRLLabel
Left = 3
Top = 3
Width = 137
Height = 13
Caption = ´Lista de Equipamentos:´
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
ParentFont = False
end
end
end
object bndParcDesc: TRLBand
Left = 39
Top = 373
Width = 716
Height = 16
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = True
Borders.DrawRight = False
Borders.DrawBottom = False
Color = clWhite
ParentColor = False
Transparent = False
object lblValores: TRLLabel
Left = 255
Top = 1
Width = 100
Height = 14
Alignment = taRightJustify
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
Caption = ´Valores´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblVencimentos: TRLLabel
Left = 134
Top = 1
Width = 100
Height = 14
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Borders.FixedRight = True
Caption = ´Vencimentos´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object lblParcelas: TRLLabel
Left = 13
Top = 1
Width = 100
Height = 14
Alignment = taCenter
AutoSize = False
Borders.Sides = sdCustom
Borders.DrawLeft = False
Borders.DrawTop = False
Borders.DrawRight = True
Borders.DrawBottom = False
Caption = ´Parcelas´
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = ´Verdana´
Font.Style = []
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
end
end
Responder
Gostei + 0
08/10/2005
Lynx
desculpe, algum moderador pode apagar o post acima, cliquei em responder, enganado.
Achei que era possivel editar o post.
Achei que era possivel editar o post.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)