Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Robson José Ferreira

Número no Crystal

Recommended Posts

:( 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...

Compartilhar este post


Link para o post
Compartilhar em outros sites

SAVE DATA WITH REPORT (SALVAR DADOS COM O RELATÓRIO):Já desabilitei o "save data..." tá saindo do memo 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,

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.