• Domingo 22 de Diciembre de 2024, 20:04

Autor Tema:  Re: Reportes especificos con crystal  (Leído 899 veces)

ccortes

  • Miembro activo
  • **
  • Mensajes: 91
    • Ver Perfil
Re: Reportes especificos con crystal
« en: Miércoles 28 de Mayo de 2003, 21:24 »
0
Como hago para imprimir un reporte sacando solo datos por campo llave.

Es decir que si en la consulta hecha en el form selecciono el cliente jorge, en la cual se despliega todas las transacciones hechas por este cliente, lo que quiero es imprimir sola las transaciones de jorge y no todo el contenido de la tabla a traves de un reporte de Crystal report, pero no se como hacerlo.

Gracias de antemano
:hitcomp:
Carlos Cortés C

richicuas

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Reportes especificos con crystal
« Respuesta #1 en: Lunes 2 de Junio de 2003, 17:24 »
0
:comp:

A continuacion te enmvio un ejemplo de como filtro yo mi información en los reportes de Crystal Reports, es casi como si definieras un WHERE en SQL, solo omitiendo la palabra WHERE, pero cuando utilizas más de dos campos debes de utilizar el conector AND o el conector OR, es importante ver como está nombrado tu campo llave en Crystal Reports, pues de igual manera debes escribir el nombre en tu filtro.

Este ejemplo conecta una base de datos por medio de un ODBC

Private Sub s_Imprimir(byval str_Filtro1 as string)
  Dim str_CadenaConexion As String
  Dim str_Formula        As String

  ' ***** Nombre del archivo que contiene el reporte
  CrystaReportControl.ReportFileName = App.Path & "reporte.rpt"

  ' ***** Conecta con la Base de datos
  CrystaReportControl.Connect = "DNS=MyDatabase;UID=User;PWD=PassWord"

  ' ***** Filtros
  str_Formula = "{MyTabla.MyCampo1} = '" & Trim(str_Filtro1) & "' " & _
                "AND {MyTabla.MyCampo2} = " & Trim(int_Filtro2) & " "
  CrystaReportControl.SelectionFormula = str_Formula

  ' ***** Imprime reporte
  CrystaReportControl.Action = 1
End Sub

Espero te sea de utilidad, me gustaría me avisaras como te fué

:suerte: