Autor Tema: Pasar Reporte o Form como string  (Leído 2527 veces)

0 Usuarios y 1 Visitante están viendo este tema.

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Pasar Reporte o Form como string
« en: Junio 03, 2011, 03:47:13 am »
Creo que esta pregunta ya se hizo para fomularios pero no encuentro el post, no recuerdo como esta posteado.

Tengo 100 datareport, y como tiene hWnd es como si fueran 100 forms, todos con diferentes nombres. Pero los voy a cargar en un picture y cuando lo cargo tengo un Select que hace una chamba, por ejemplo:
Código: (vb) [Seleccionar]
Select Case memWork
Case 2:  MiProceso RepVentasOV.hwnd, abc10
Case 3:  MiProceso RepVentasOV.hwnd, abc20
Case 4:  MiProceso RepVentasOV.hwnd, abc30
Case 5:  MiProceso RepVentasOV.hwnd, abc40
Case 5:  MiProceso RepVentasOV.hwnd, abc50
End Select
Mi bronca esta que voy a meter a ese select en diferentes procesos diferente reportes, y tendria que repetir ese Select Case 100 veces... un infierno y un espanto para mantenerlo.
¿Hay alguna forma de pasar como variable o mejor dicho como string el nombre del Datareport (o form q es lo mismo) de tal manera que yo pueda hacer algo parecido a esto:
Código: (vb) [Seleccionar]
Private Sub OperaReport(Reporte as DataReport)   'No se si es DataReport o que seria aqui, he probado y no me sale
Select Case memWork
Case 2:  MiProceso Reporte.hwnd, abc10
Case 3:  MiProceso Reporte.hwnd, abc20
Case 4:  MiProceso Reporte.hwnd, abc30
Case 5:  MiProceso Reporte.hwnd, abc40
Case 5:  MiProceso Reporte.hwnd, abc50
End Select
Asi que de esta forma solo lo invoco desde diferentes reportes como:
Call OperaReport(RepCompras), ó
Call OperaReport(RepKardex) etc etc

No lo puedo armar bien, ya me maree

Gracias.
« última modificación: Junio 03, 2011, 04:46:49 am por xkiz ™ »
Me encuentras en YAcosta.com

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Re:Pasar Reporte o Form como string
« Respuesta #1 en: Junio 03, 2011, 12:32:50 pm »
Estoy intentando no pasar el reporte como string sino como DataReport, asi que lo llamo:

Call repView(RepVentasOV, RepVentasOV.hwnd)

y el RepView es este:

Código: (vb) [Seleccionar]
Private Sub repView(RepCargado As DataReport, RepHwnd As Double) 'slo cargamos el handle
Load RepCargado
SetParent RepHwnd, PicReport.hwnd
DoEvents
PicReport.Visible = True
PicBarra.ZOrder 0  <---- Uso esto para poner un Picture encima del reporte por otro tema
End Sub
Hasta el momento va bien, seguiré trabajando en esto, pero si alguien vaticina algun inconveniente agradeceria me avise, Muchas gracias

« última modificación: Junio 03, 2011, 12:35:12 pm por YvanB »
Me encuentras en YAcosta.com

YAcosta

  • Moderador Global
  • Exabyte
  • *****
  • Mensajes: 2853
  • Reputación: +160/-38
  • Daddy de Qüentas y QüeryFull
    • Ver Perfil
    • Personal
Re:Pasar Reporte o Form como string
« Respuesta #2 en: Junio 04, 2011, 01:21:20 am »
Aqui encontre la respuesta aunque ya lo resolvi de otra forma
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/97.htm
Me encuentras en YAcosta.com