SoloCodigo

Que tal JMINT por que no pruebas con lo que ya anteriormente habia puesto en otro comentario


No te preocupes, no tienes que hacer un reporte con código. Haz lo siguiente, a mi me funciona:

1) En el reporte estadndo en Crystal, abre el menú base de datos, escoge la opción Establecer ubicación y a lo mejor tienes algo como esto:
Movimientos ventas!C:\VENTAS\BASE\Ventas.mdb
cambialo por esto
Movimientos ventas!Ventas.mdb
es decir, quitas la ruta. "Movimientos ventas" es la tabla y "ventas.mdb" la base de datos.

2) En el proyecto de VB en el formulario que cargaste el control de Crystal, prueba lo siguiente:
a) coloca en un botón el siguiente código:
CReport1.DataFiles(0) = App.Path & "Ventas.mdb"
CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Ventas.mdb" & ";Persist Security Info=False "
CReport1.ReportSource = crptReport
CReport1.ReportFileName = App.Path & "\ListaVentas.rpt"
CReport1.Action = 1




No importaria si es otro servidor, por que con el App.Path se indica de donde lo estas ejecutando, si quieres tener una carpeta con tus reportes a lo mejor agregarias: App.path & "CARPETAREPORTES\reporte.rpt"

intentalo y trata de jugar con este código

suerte

Juan Carlos

Hola:

Escribe tu oproblema concreto y si te puedo ayudar con mucho gusto, pero creo que de entrada tienes que hacer dos conexiones

Saludos

Juan Carlos

Hola

Te recomiendo uses el MSFlexgrid, es mas flexible y funciona mejor, aunque casi todo hay que hacerlo con código.

Si te interesa te puedo mandar un ejemplo, por email.

Saludos

Juan Carlos

Jaume muchas gracias por la atención, si sabes de alguna que no sea de paga, o como puedo iniciar para crearla te lo agradeceré.

De antemano gracias a los que se interesen en el tema y escriban

Saludos

Juan Carlos

Hola nuevamente:

No precisamente quiero el códifo de un reporteador, si alguien tiene una idea de como comenzar, y si hay algún tipo de control especial o alguna ayuda, será muy bienvenida

Hola Kev:

Yo uso Crystal 8 y puedo hacer lo siguiente:

Dependiendo donde tengas el campo Clic derecho en el campo que deseas, en formato de campo hay una opción que dice suprimir, un boton que dice x+2 puedes poner una fórmula para que se suprima cuando cumpla esa condición.  Y complementas, en el diseñador con el botón derecho del mouse en la sección, eliges dar formato a sección y activas la casilla que dice Suprimir sección en blanco, espero sea esto lo que buscas.

Saludos

Juan Carlos

Hola:

Dale clic con el boton derecho del mouse al dbgrid, en propiedades selecciona el Tab que diga General y desactiva las opciones AllowAddNew y AllowDelete.

Y en el Tab Diseño ve seleccionando cada columna y una por una, activa la Opción Locked.


Saludos


Juan Carlos

Hola Kev:

Realmente no tengo una página favorita de Crystal.  
He aprendido un poco a través de libros, no se donde te encuentres a lo mejor te podá recomendar alguno, pero lo mas importante estarte metiendo a Crystal y estarle moviendo por todos lados


Saludos

Juan Carlos

Si explicas exactamente que quieres hacer te podría ayudar, por lo pronto prueba esta otra opción:

CReport1.GroupCondition(0) = "GROUP1;{CAJA.CAJREFERENCIA};ANYCHANGE;A"


Si ya te había funcionado y después de cambiar el reporte dejo de hacerlo, a lo mejor cambiaste el agrupamiento oroginal y no lo reflejas en la formula, o tu campo parametro no acepta el agrupamiento, por favor explicalo mejor.


Saludos


Juan Carlos

Hola:

Sinceramente no entiendo muy bien tus preguntas, pero si entendi en la primera quieres filtar y poner condiciones, lo que no se si con campos parametro o no, pero puedes probar lo siguiente


'Cdbl es para convertir el campo a double
'Movimientos ventas 1 es el nombre de la tabla
' movcantidad es el campo
' como ejemplo me aparecen los registros que tengan en cantidad mayor a cero


Con codigo puedes poner lo siuguiente:

dim strVentas as string

strVentas = "CDBL({MOVIMIENTOS VENTAS 1.movcantidad})>=" & CDbl("0")

CReport1.SelectionFormula = strVentas

Con esto puedas filtrar la información, sucede lo mismo para los demás campos



la segunda pregunta no la entendi muy bien, pero si quieres dar formato al texto, hazlic con el boton derecho del mouse en el campo o formula que este en tu reporte en diseño y en la opción Dar formato al campo, puedes seleccionar la opción Puede crecer y determinar el número de líneas que quieres que aparezca y el tamaño tu lo asignas.

Saludos, cualquier duda escribela


Juan Carlos

Hola:

Seguramente estas usando el formato de fecha de dd/mm/aa
en Crystal tienes que usar el formato mm/dd/yy, pero prueba lo siguiente

Declara 3 variables enteras
dim dia as integer, mes as integer, año as integer

' obten el dias, mes y año de las valores de las fechas, aquí puse ejemplo de
'un control dtpicker, lo puedes hacer de la fecha actual ej dia=day(date)

dia = Day(DTPfechafin.Value)
mes = Month(DTPfechafin.Value)
año = Year(DTPfechafin.Value)
fechafinal = "#" & mes & "/" & dia & "/" & año & "#"

dia=Day(Date)
mes=Month(Date)
año=Year(Date)
fechainicial = "#" & mes & "/" & dia & "/" & año & "#"

varfechaalta = "{MOVIMIENTOS VENTAS 1.MOVFECHA}>= " & fechainicial & " And {MOVIMIENTOS VENTAS 1.MOVFECHA}<= " & fechafinal
CReport1.SelectionFormula = varfechaalta

DE ESA MANERA PUEDES FILTRAR FECHAS EN CRYSTAL, CUALQUIER DUDA
ESCRIBELO
SALUDOS

Juan Carlos

Si todavia te sirve por que no purebas lo siguiente:

CReport1.DataFiles(0) = gblubicacion & "base.mdb"
CReport1.Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &  gblubicacion & "base.mdb" & ";Persist Security Info=False "
 CReport1.ReportSource = crptReport


me funciona con access.  También debe funcionar con cualquier otro manejador, solamente cambiar el provider por la de sql