RELATORIO CRYSTAL

USUARIO.EXCLUIDOS 11/07/2005 01:32:25
#93266
Olá Pessoal,

Montei um relatório no Crystal (Ver abaixo) que o mesmo está informando
o numero diferente do digitado no textbox do VB. O que será???
O selection formula montada não está ocorrendo erro...Mas a informação
do relatório está diferente no numero digitado.
COMO FAÇO PARA QUE O MESMO SAIA COMO O INFORMADO NO VB no RELATÓ“RIO?

Ficarei grato se alguém puder me ajudar....

-> VB
----------------------------------------------------------------------------------------------
Private Sub cmdImprimir_Click()

'Box p/ informar o número inicial
If txtNumIni.Text = "" Then
MsgBox "Digite o número inicial...", vbExclamation, "Advertência"
txtNumIni.SetFocus
Exit Sub

'Box p/ informar o número Final
ElseIf txtNumFin1.Text = "" Then
MsgBox "Digite o número final...", vbExclamation, "Advertência"
txtNumFin.SetFocus
Exit Sub

'Box p/ informar o nome do clientes
ElseIf cboNome.Text = "" Then
MsgBox "Informe o nome do clientes...", vbExclamation, "Advertência"
cboNome.SetFocus
Exit Sub

Else
Dim numini
Dim numfin
Dim nomecl

numini = (txtNumIni1.Text)
numfin = (txtNumFin1.Text)
nomecl = (cboNome.Text)

End If

'Caminho do Banco de Dados
crimpressao.DataFiles(0) = App.Path & "\clientes.mdb"

'Select Formula:
crimpressao.SelectionFormula = "{QryCliente.NOME} = '" & cboNome & "' AND {QryCliente.IDNUM} >= " & txtNumIni & " AND {QryCliente.IDNUM} <= " & txtNumFin


'Caminho do Relatório
crimpressao.ReportFileName = App.Path & "ecibo.rpt"


crimpressao.WindowTitle = "Relatório Resumido"
crimpressao.WindowState = crptMaximized
crimpressao.Destination = 0
crimpressao.Action = 1

End Sub
----------------------------------------------------------------------------------------------
-> CRYSTAL REPORT Relatório / LOCAL: DETAIL


-> "Aqui entra o nome do cliente" Tá ok!
NOME: {QryCliente.NOME}
-----------------------------------------
-> "Aqui entra o 1º numero informado (1,2,3 etc...) Tá Ok!
Nº INICIAL: {QryCliente.IDNUM}
-----------------------------------------
-> "Aqui entra o 2º numero informado
(aqui tá errado) no textbox FINAL
foi informado o numero difente do primeiro.
Nº INICIAL: {QryCliente.IDNUM}
------------------------------------------------
Exemplo de como deverá ser impresso

IMPRIMIR
============================
NOME DO CLIENTE: ANA
Nº INICIAL: 1
Nº FINAL: 3
============================
============================
NOME DO CLIENTE: BETO
Nº INICIAL: 3
Nº FINAL: 5
============================
Assim por diante...
USUARIO.EXCLUIDOS 12/07/2005 00:53:49
#93536
nenhuma luz???
USUARIO.EXCLUIDOS 12/07/2005 08:53:32
#93559
Nao entendi cara, você quer passar um aparemter field é isso?

Tipo o caro digitou o numero 3 no vb, vc quer passar isso para o relatório ?
USUARIO.EXCLUIDOS 12/07/2005 13:42:58
#93623
Correto!

Mas o código citado acima, esta rodando normalmente. Mas no relatório apareçe o ultimo field informado diferente.
Por exemplo: "NO VB" FOI INFORMADO O NOME + O NUMERO INICIAL + O NUMERO FINAL. (Certo). Vejamos: NOME: Robson, NUMERO INICIAL: 3, NUMERO FINAL: 6
NO CRYSTAL ESTà SAINDO ASSIM:
NOME: Robson NUMERO INICIAL: 3 NUMERO FINAL: 3 (AQUI ERA PARA SAIR O 6, NÃO O 3)

ENTENDEU?

Grato,



'Select Formula:
crimpressao.SelectionFormula = "{QryCliente.NOME} = '" & cboNome & "' AND
{QryCliente.IDNUM} >= " & txtNumIni & " AND {QryCliente.IDNUM} <= " & txtNumFin

JOAOLUIZ 12/07/2005 14:00:09
#93626
Caro Robson,

tente da forma abaixo

crimpressao.SelectionFormula =("{QryCliente.NOME} = '" & cboNome & "' AND
{QryCliente.IDNUM} >= " & txtNumIni & " AND {QryCliente.IDNUM} <= " & txtNumFin & " ")
USUARIO.EXCLUIDOS 12/07/2005 17:42:54
#93724
Caro JOAO,

Coloquei como o citado: "Resultado" saindo do mesmo jeito.

* Eu queria que o relatório saisse assim, por exemplo:
----------------------------------------------------------------------
NOME Nº INICIAL Nº FINAL
Robson 1 3
----------------------------------------------------------------------
O último Numero acima não está saindo como o informado.....
está saindo o NOME: Robson + o Nº Inicial 1 + o Nº Final 1,
sendo que o último nº é o 3 ... Ok!
P/S:
Conforme o NOME + Nº Inicial + Nº Final, O nome e os números
inicial fica dependendo da informação nos textbox e combo do VB.

Grato,
ANDERSONELIAS 12/07/2005 18:16:45
#93732
Não seria por que vc esta usando o {QryCliente.IDNUM} duas vezes? para passar o numero inicial e depois o final neste mesmo campo?
USUARIO.EXCLUIDOS 12/07/2005 18:38:02
#93739
Caro Anderso

Vou reformular p/ ver o resultado. Trocar o
{QryCliente.IDNUM} p/ {QryCliente.NOME} + {QryCliente.IDAUTO} + {QryCliente.IDNUM}

Grato,
USUARIO.EXCLUIDOS 13/07/2005 15:55:40
#93975
Boa Tarde, "Galera"...

Já tentei de tudo... E o nº final no relatório continua do mesmo jeito...
Alguem saberia me informar o que há de errado?
-----------------------------------------------------------------------------------------------------------
.SelectionFormula =("{QryNUM.NOME} = '" & cboNome & "' AND
{QryNUM.IDAUTO} >= " & txtNumIni & " AND {QryNUM.NUMERO} <= " & txtNumFin & " ")
-----------------------------------------------------------------------------------------------------------
P/S: QryNUM, é uma consulta apontado p/ o access que contém os campos,
[ NOME, IDAUTO e NUMERO], o campo "NOME", pertence a tabela "TblCliente"
o campo IDAUTO e NUMERO pertence a Tabela "TblNumero". Convem lhe informar
que na tabela "TblNumero" existem entre os dois campo: (IDAUTO) e (NUMERO), os
números cadastrado de 1 a 999 e na tabela "TblCliente" somente um nome de cada
clientes.

!!! Por Favor !!! se houver alguma sugestão me informe, p/ que eu possa fazer a correção.

Grato,
Tópico encerrado , respostas não são mais permitidas
Voltar