Postada em 11/04/2016 15:49 hs
Uso para gerar meu relatório com banco MySQL isso:SQL = "SELECT *, venda.TotalS AS total_venda_agrupa, venda.totalc AS valor_total_venda, venda_forma_pagamento.descricao AS nome_forma_pagamento, vendaesc.QUANTIDADEprod as qtd, (vendaesc.QUANTIDADEprod * vendaesc.ValUniProd) As total_soma FROM vendaesc,venda INNER JOIN venda_forma_pagamento ON venda_forma_pagamento.cod = venda.forma_pagamento where vendaesc.data='" & DateRat & "' AND venda.cod = vendaesc.venda order by venda.cod"prs.Open SQL, gConexao, adOpenStatic, adLockOptimistic, adCmdText If prs.RecordCount = 0 Then MsgBox "Não foi encontrado nenhum registro correspondente a sua consulta", vbOKOnly + vbInformation, "Atenção" Exit SubEnd IfDo While Not prs.EOFSet RptFPagamentoDetalhe.DataSource = prs prs.MoveNextLoop RptFPagamentoDetalhe.Show vbModalTudo funciona perfeitamente, não existem problemas no SQL, a questão é que me pediram para implementar um novo campo no data report chamado (total) este campo deverá conter o total de uma venda, pelo que pesquisei será necessário (ou não) adicionar o Group Header/Footer, mas, tentei incansavelmente integrar ele ao meu código, mudei a consulta para o uso do shape append, mas, nada funcionou, alguem por favor, me dá uma luz.
Feliz aquele que transfere o que sabe e aprende.
|
