COMO AGRUPAR NO DATA REPORT UTILIZANDO UM RECORDSE
Estou precisando agrupar os produtos de uma categoria utilizando o Data
Report, através de uma consulta SQL.
Report, através de uma consulta SQL.
só usando o dataenvironment do próprio VB...
dá uma pesquisada aki no site que tu acha....
dá uma pesquisada aki no site que tu acha....
Qual a sua dúvida? Como fazê-lo?
Eu uso assim:
sql = ("SELECT cli_codigo, cli_razaosocial, ctar_data, ctarpar_numero, ctarpar_parcela, ctarpar_documentocontrole, ctarpar_dtvencimento, ctarpar_dtpagamento, ctarpar_valorpago, ctarpar_valor, ctarpar_flagpagamento FROM ContaReceberParcela, ContaReceber, Cliente " & _
" WHERE ContaReceberParcela.ctarpar_flagpagamento <> '0 " & _
"' AND ContaReceberParcela.ctarpar_numero = ContaReceber.ctar_numero " & _
" AND ContaReceber.ctar_Cliente = '" & txtCodigoCliente.Text & _
" 'AND ctarpar_dtpagamento BETWEEN DATEVALUE ('" & dtInicioCliente & "') AND DATEVALUE('" & dtFinalCliente & "')" & _
" AND ContaReceber.ctar_Cliente = Cliente.cli_codigo " & _
" ORDER BY ContaReceberParcela.ctarpar_dtvencimento ")
' Bind the Recordset to the Report
Set drContasAPagarPagas.DataSource = TBContaReceberParcela
drContasAPagarPagas.DataMember = TBContaReceberParcela.DataMember
drContasAPagarPagas.ReportWidth = 10800
drContasAPagarPagas.Sections("Section4").Controls("lblcabecalho").Caption = "Contas Pagas"
drContasAPagarPagas.Sections("Section4").Controls("lblempresa").Caption = EMPRESA
drContasAPagarPagas.Sections("Section4").Controls("lblsubcabecalho").Caption = "PerÃodo: " & dtInicioCliente.Value & " a " & dtFinalCliente.Value
drContasAPagarPagas.Show vbModal
A dúvida é: como agrupar as parcelas, ficando o principal um nÃvel acima.
sql = ("SELECT cli_codigo, cli_razaosocial, ctar_data, ctarpar_numero, ctarpar_parcela, ctarpar_documentocontrole, ctarpar_dtvencimento, ctarpar_dtpagamento, ctarpar_valorpago, ctarpar_valor, ctarpar_flagpagamento FROM ContaReceberParcela, ContaReceber, Cliente " & _
" WHERE ContaReceberParcela.ctarpar_flagpagamento <> '0 " & _
"' AND ContaReceberParcela.ctarpar_numero = ContaReceber.ctar_numero " & _
" AND ContaReceber.ctar_Cliente = '" & txtCodigoCliente.Text & _
" 'AND ctarpar_dtpagamento BETWEEN DATEVALUE ('" & dtInicioCliente & "') AND DATEVALUE('" & dtFinalCliente & "')" & _
" AND ContaReceber.ctar_Cliente = Cliente.cli_codigo " & _
" ORDER BY ContaReceberParcela.ctarpar_dtvencimento ")
' Bind the Recordset to the Report
Set drContasAPagarPagas.DataSource = TBContaReceberParcela
drContasAPagarPagas.DataMember = TBContaReceberParcela.DataMember
drContasAPagarPagas.ReportWidth = 10800
drContasAPagarPagas.Sections("Section4").Controls("lblcabecalho").Caption = "Contas Pagas"
drContasAPagarPagas.Sections("Section4").Controls("lblempresa").Caption = EMPRESA
drContasAPagarPagas.Sections("Section4").Controls("lblsubcabecalho").Caption = "PerÃodo: " & dtInicioCliente.Value & " a " & dtFinalCliente.Value
drContasAPagarPagas.Show vbModal
A dúvida é: como agrupar as parcelas, ficando o principal um nÃvel acima.
Tópico encerrado , respostas não são mais permitidas