Guest Robson Ferreira Postado Julho 12, 2005 Denunciar Share Postado Julho 12, 2005 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 & "\recibo.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... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest - robson - Postado Julho 12, 2005 Denunciar Share Postado Julho 12, 2005 NENHUMA LUZ??? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Relatório Postado Julho 13, 2005 Denunciar Share Postado Julho 13, 2005 Alguém pode me ajudar???? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Robson Ferreira
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 & "\recibo.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...
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.