Crystal Report 8 y VB 6.

[xochitemol]

mira hasta hora no he podido resolver lo de las fechas lo que hago es pasar un recordset a un reporte con origen de datos ttx y queria ver si me puedes mandar un ejemplo don de manejes fechas en tus reporte uso crystal 9.0 y vb 6 por tu ayuda gracias

[tammuz24]

Hola amigos estuve leyendo todo lo que explicaron acerca de CR, y pues me ha ayudado mucho, gracias...
Pero me gustaria saber como se hace lo de los Archivos TTX.
Espero me puedan ayuda ro mandar un ejemplo de eso, de antemano muchas gracias son unos sabios

[tammuz24]

Hola me gustaria saber si me pueden ayudar con los archivos TTX, con un ejemplo o una breve explicacion de antemano gracias.
Me ha servido mucho. sus explicaciones

[jrp01]

En CR 10 trae una especie de editor no se si el 9 lo traiga ahi puedes crear estos archivo, en el 8.5 no lo trae. ¿Que version usas?

[KalaNag]

Hola a todos. Soy nuevo en el foro, llegue aqui por google. Tengo un problemita con CR10 + VB6 sobre SQL Server 2000.

Tengo un reporte que usa 5 tablas y se navega perfecto en CR, pero al momento de cargarlo en el CRViewer me da este error:

"Logon Failed.
ADO Error Code: 0x80040e4d
Source: Microsoft OLE DB Provider for SQL Server
Desc: Error de Inicio de sesion para 'sa'
SQL State: 42000
Native Error: 18456"

Por el tipo de error me imagino que es el nombre usuario, servidor o clave que estan malos, mas no les consigo error. Cuando solo muestro el reporte con los datos guardados (sin hacer .DiscardSavedData) no me da el error y lo muestra perfecto. El problema es que necesito seleccionar un registro especifico dinamicamente, por lo que los datos guardados no me sirven. Este es el codigo.

'variables
Dim crxApp As New CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report

'abrir reporte
Set crxRpt = crxApp.OpenReport("C:\reporte.rpt")
'login en el servidor. Se que el servidor esta bien, porque si lo quito o pongo uno falso, me da otro error distinto
crxRpt.Database.LogOnServer "p2ssql.dll", "VIRTUAL2003", "basedatos", "sa", "admin"
'si esta linea no esta, el error no ocurre mas abajo.
crxRpt.DiscardSavedData
crxRpt.RecordSelectionFormula = "{requisiciones.id_requisicion} = " & 68
crystal.ReportSource = crxRpt
'aqui ocurre el error si uso .DiscardSavedData
crystal.ViewReport

Por favor si pueden darme una ayudita se los agradezco. Apenas estoy comenzando a utilizar el CR, asi que probablemente se me pasa algo o estoy haciendo algo mal. En algun lado lei que habia que conectar a la BD cada tabla, pero no se como hacerlo.

Gracias de antemano...

[jrp01]

Mejor asignale un recordset en el subforo de VB si buscas hay algunos ejemplos

[roostercillo]

Hola buenas tardes, tengo un problema con mi reporte, quiero que me filtre dependiendo de la clave del cliente, un periodo de tiempo que son dos fechas (Fecha desde y fecha hasta) y dependiendo del tipo de factura (venta/devolucion).

Estoy utilizando visual 8 y crystal 8 con access.

aqui les pongo el codigo, si me muestra el reporte pero con todo el contenido de la base de datos.

Tambien ya lo intente filtrar con la pura clave del cliente sin fechas, por que e leido que las fechas llevan otro formato.

espero me puedan ayudar
gracias bye saludos



Set rs = Nothing
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\CONTROL\base\VentasDevoluciones1.mdb;Per sist Security Info=False"
str = "SELECT fecha, idcliente, nomcliente, ciudad, kit, parespedidos, paressurtidos, deposito, efectivo, pagare, importe," & _
" idfactura, idticket, envios, VD FROM ventDev WHERE Idcliente = " & Me.lblclave & " AND VD = '" & Me.lblVD & "' AND (fecha BETWEEN #" & Format(lblFechDesde, "dd/MM/yyyy") & "# AND #" & Format(lblFechHasta, "dd/MM/yyyy") & "#)"
rs.Open str, conn, adOpenDynamic, adLockPessimistic

Set crReport = Nothing
Set crReport = crApp.OpenReport("C:\Archivos de programa\Microsoft Visual Studio\VB98\RptDist.rpt", 1)


crReport.Database.SetDataSource rs, 3, 1

Screen.MousePointer = vbHourglass
crReport.DiscardSavedData
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Set crReport = Nothing
'CRViewer1.Refresh
Screen.MousePointer = vbDefault

[gkings]

Hola, me podrias enviar un ejemplo de tu codigo en VB6 en donde utilizas los archivos TTX?

Trabajo en el mantenimiento de un codigo y necesito migrar de Crystal 8.5 a Crystal XI. En el codigo actual se utilizan archivos TTX, pero ahora con Crystal XI, la funcion SetLogonInfo ya no se utiliza.

m_Report.Database.Tables(lIndex).SetLogOnInfo sDBFileName

La linea anterior es la que se utiliza actualmente para hacer referencia al archivo TTX. sBDFileName contiene el path hacia ese archivo. Pero ahora no se como hacer eso mismo sin utilizar SetLogOnInfo.

Espero haber sido claro.

Muchas gracias de antemano.

Jorge Reyes

P.D. Te agregue a mi messenger, espero no te moleste.

Iniciado por jrp01

Usa RDC y los reportes los generas con archivos TTX de esa manera no dependes de una base de datos para generarlos.