VB6+ Crystal Reports

[chepo]

Hola Amigos! Soy Nuevo En El Foro Y Tengo Una Pregunta...

Alguien Sabe Como Llamar Desde Visual Basic Un Reporte De Crystal Reports?!

Gracias...

[jrp01]

Pues depende hay dos metodos RDC o por el OCX.
Cual utilizas?

[rojobe55]

Bueno, aqui te pongo un ejemplo que quizas no es el mejor, pero hace un poco de todo, primero seleccina un rpt segun un combo, luego arma varias formulas de selecciona, despues estas mismas entre fechas.
Para emitir el informe (action 1) y por ultimo no olvidar, poner todo a cero otra vez por si se quiere volver a imprimir. Espero que te sirma.



If combo_asiento_impresos_grupos.Text = "" Then
Report1.ReportFileName = App.Path + "\rbs-dia1.rpt"
w_texto_asiento = "asiento = ' Todos los Asientos'"
Else
Report1.ReportFileName = App.Path + "\rbs-dia1.rpt"
w_texto_asiento = "asiento = '" & combo_asiento_impresos_grupos.Text & "'"
campo5 = Chr(34) & LTrim$(combo_asiento_impresos_grupos.Text) & Chr(34) & " in {AsientosCabecera.a1_asiento}"
' Report1.SelectionFormula = "{AsientosCabecera.a1_fecha} >= " & campo3 & " and {AsientosCabecera.a1_fecha} <= " & campo4 & " and " & campo5 & " in {AsientosCabecera.a1_asiento}"
End If

Report1.Formulas(0) = "fecha_desde = '" & msk_fec_asiento(0).FormattedText & "'"
Report1.Formulas(1) = "fecha_hasta = '" & msk_fec_asiento(1).FormattedText & "'"
Report1.Formulas(2) = w_texto_asiento

Report1.SelectionFormula = ""

If msk_fec_asiento(0).Text <> "" Then
campo3 = "date(" & Format(msk_fec_asiento(0).FormattedText, "yyyy,mm,dd") & ")"
Report1.SelectionFormula = "{AsientosCabecera.a1_fecha} >= " & campo3
w_and = " and "
End If
If msk_fec_asiento(1).Text <> "" Then
campo4 = "date(" & Format(msk_fec_asiento(1).FormattedText, "yyyy,mm,dd") & ")"
Report1.SelectionFormula = Report1.SelectionFormula & w_and & "{AsientosCabecera.a1_fecha} <= " & campo4
w_and = " and "
End If

If combo_asiento_impresos_grupos.Text <> "" Then
Report1.SelectionFormula = Report1.SelectionFormula & w_and & campo5
End If

Report1.Action = 1


Report1.Formulas(0) = ""
Report1.Formulas(1) = ""
Report1.Formulas(2) = ""
Report1.SelectionFormula = ""


Saludos cordiales.

[chepo]

Wow!!!! muchisimas gracias! no saben cuánto tiempo llevo buscándolo!!!

en serio, mil mil gracias!!
saludos!

[jrp01]

por lo que veo es que usa el OCX cosa que el la pagina de Crystal ya no lo recomiendan es mas flexible usar RDC.

Mira este link:

http://www.forosdelweb.com/f14/problemas-con-crystal-report-8-rdc-access-228647/

Ahi explique como yo uso RDC

Saludos

[rojobe55]

Que va´ser... reminisencias del Crystal 4 con el que comense...
Uno hace lo que puede y lo que no lo compra hecho...

[jrp01]

No entendi tu mensaje :

reminisencias del Crystal 4 con el que comense

[rojobe55]

Bueno, jrp01, lo que quise decir es que siempre lo utilice de esa forma, aparentemente es un poco antigua, según lo que explicas, pero asi lo usaba en una contabilidad que hice hace unos años y me parecio que a crepo le pudiera servir. Solo eso.

Saludos cordiales.

NOTA:sorry por las canas: el 55 del rojobe55 se refiere a que naci en el 55, en abril del año que viene cumpo mis primeros 50... que ´va ser...

[jrp01]

Ah ya te entendi, si esto de la informatica crece cada dia apenas uno domina algo cuando ya salio otra cosa nueva. Bueno asi es este campo.

Saludos

[elazaro]

Pues yo traigo otro problema consiste enque quiero manejar los marguenes del crystal reports des VB 6.0 me han dado algunos comandos pero no he visto como aplicarlos alguien tendra algun ejemplo de como aplicarlos

CRXReport.RightMargin
CRXReport.LeftMargin
CRXReport.TopMargin
CRXReport.bttomMargin

o

ControlCReport.MarginBottom =
ControlCReport.MarginTop =
ControlCReport.MarginLeft =
ControlCReport.MarginRight


Gracias