Relatorio_Crystal VB5 - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Relatorio_Crystal VB5

moncerra
não registrado

Postada em 17/02/2006 09:02 hs

Estou gerando uma relatorios de pedido Ex:

Eu posso digitar uma data especifica ele e filtar por cliente ele me retornar o relatorio da quele cliente certo..ok(01/02/06 a 01/02/06) blz so me retorna este relatorio.

Problema:

Qd eu pesso pra trazer todo pedido de uma cliente espeficico ex:

Gerar relatorio de Hdiformatica(cliente) do dia 01/02/06 a 28/02/06 ela nao me traz todo relatorios ou seja teria que mostra por ex 5 relatorios diferentes caso ele tenho feito neste mes 5 pedidos ok.

So que ele nao faz isso ele simprismente pega um pedido e coloca todos os outros items de outro cliente no mesmo pedido

Se alguem tiver um ex ou sabe como fazer este tipo de relatorio ficaria muito agradecido..

Ass: Jose ednaldo

Geronimo

JOINVILLE
SC - BRASIL

Postada em 17/02/2006 16:37 hs

Como você esta fazendo o filtro para trazer os pedidos :

Veja este exemplo:

Private Sub CmdConsulta_Click()
On Error GoTo Trata_Erro

Dim lFormulaFFF As String
'Captura data inicial
lFormulaFFF = "({bolão.Data} = DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
lFormulaFFF = lFormulaFFF & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormulaFFF = lFormulaFFF & " and {bolão.Local} ='" & LocalC.Text & "' "

Me.MousePointer = 11

    Crp.DataFiles(0) = App.Path & "olao.mdb"
    Crp.ReportFileName = App.Path & "classificação.rpt"
    Crp.SelectionFormula = lFormulaFFF
    Crp.WindowState = crptMaximized
    Crp.Destination = crptToWindow
    Crp.Action = 1
    Me.MousePointer = 0

Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site