Ver Mensaje Individual
  #10 (permalink)  
Antiguo 03/05/2011, 11:09
funkyjorge
 
Fecha de Ingreso: junio-2010
Mensajes: 2
Antigüedad: 14 años, 9 meses
Puntos: 0
Respuesta: llamar a un reporte usando crystal 11

Cita:
Iniciado por lop7 Ver Mensaje
hola...
mira pana asi le funciono a "ENEA" yo no lo he probado pero intentalo... de todas maneras dale una buscadita al foro coloca "crystal report" y te aparecera informacion al respecto

Código:
Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report

CRViewer.DisplayBorder = False
CRViewer.DisplayTabs = False
CRViewer.EnableDrillDown = False
CRViewer.EnableRefreshButton = False

RS.Open "Select factura.*, detfactura.*, cliente.Empresa, cliente.NIF, cliente.Direccion_Fiscal, cliente.Poblacion_Fiscal, cliente.CP_Fiscal from factura, detfactura, cliente where cliente.Id=factura.Id_Cliente and factura.Id_Factura=detfactura.Id_factura and factura.Id_Factura=" & Id, Cxn, adOpenStatic, adLockReadOnly
Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\factura.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource RS

CRViewer.ReportSource = Report
CRViewer.ViewReport

Do While CRViewer.IsBusy
DoEvents
Loop

CRViewer.Zoom 100
RS.Close
saludo...
nos vmos...


hola amigo estoy implementado este codigo que has posteado pero no puedo adicionar las dos primeras lineas de codigo: Dim crystal As CRAXDRT, tampoco la otra no me la reconce yo estoy utilizando crystal reports XI y visual studio 2010 y agregue a mi proyecto los siguientes archivos: CRVIEWER y CRAXDDRT, estoy haciendo algo mal, por favor ayudame, gracias