Ir para conteúdo
Fórum Script Brasil
  • 0

Números No Relatório


Guest Robson Ferreira

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...