Reglas en Reporte
Publicado por Barzi (36 intervenciones) el 19/10/2005 02:44:52
Hola amigos PB's bueno haber si me ayudan tengo una funcion de menu que utilizo para llamar a los eventos de mi ventana de w_reporte(que no hereda de ninguna otra ventana)
ue_PaginaPrimera (me llama correco)
ue_PaginaAnterior (me llama correco)
ue_PaginaSiguiente (me llama correco)
ue_PaginaUltima (me llama correco)
ue_ZoomIncrementar (error no funciona)
uo_ZomDisminuir (error no funciona)
uo_Reglas (error no funciona)
Esta es la funcion:
window lw_sheet
lw_sheet = ParentWindow.GetActiveSheet()
If IsValid(lw_sheet) Then
lw_sheet.TriggerEvent(asEvento)
End If
// asEvento es un argumento de tipo string
Sring ls_reglas
ls_reglas = dw_datarepo.DataWindow.Print.Preview.Rulers
If ls_reglas='Yes' Then
dw_datos.Object.DataWindow.Print.Preview.Rulers = 'No'
Else
dw_datos.Object.DataWindow.Print.Preview.Rulers = 'Yes'
End If
en las tres ultimos eventos de la ventana w_reporte en tiempo de ejecucion no funciona...
ue_ZoomIncrementar
uo_ZomDisminuir
uo_Reglas
Este es el codigo de los eventos:
//ue_zoomdisminuir
Integer li_factor
li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)
If li_factor > 40 Then
li_factor = li_factor -20
ElseIf li_factor < 200 Then
li_factor = 20
End If
dw_datarepo.Object.DataWindow.Print.Preview.Zoom = String(li_factor)
--------------------------------------------------------------------------------------------------------------------
//ue_zoomincrementar
Integer li_factor
li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)
If li_factor <= 180 Then
li_factor = li_factor +20
ElseIf li_factor < 200 Then
li_factor = 200
End If
dw_datarepo.Object.Datawindow.Print.Preview.Zoom = String(li_factor)
--------------------------------------------------------------------------------------------------------------------
//uo_reglas
String ls_reglas
ls_reglas = dw_datos.Object.DataWindow.Print.Preview.Rulers
If ls_reglas='Yes' Then
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'No'
Else
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'Yes'
End If
Y las llamo de la siguiente manera en los item del menu
Reglas
mf_invocar_evento("ue_reglas")
Incrementar Zoom
mf_invocar_evento("ue_zoomincrementar")
Diminuir Zoom
mf_invocar_evento("ue_zoomdisminuir")
Ahora que esta mal para q no me imcremente ni disminuya el zoom y tampoco me muestre la regla para el reporte de la w_reporte. Tengo que realizar alguna propiedad en el datawindow reporte.. bueno espero q me ayuden
Gracias por su tiempo...
Saludos de Lima - Peru
ue_PaginaPrimera (me llama correco)
ue_PaginaAnterior (me llama correco)
ue_PaginaSiguiente (me llama correco)
ue_PaginaUltima (me llama correco)
ue_ZoomIncrementar (error no funciona)
uo_ZomDisminuir (error no funciona)
uo_Reglas (error no funciona)
Esta es la funcion:
window lw_sheet
lw_sheet = ParentWindow.GetActiveSheet()
If IsValid(lw_sheet) Then
lw_sheet.TriggerEvent(asEvento)
End If
// asEvento es un argumento de tipo string
Sring ls_reglas
ls_reglas = dw_datarepo.DataWindow.Print.Preview.Rulers
If ls_reglas='Yes' Then
dw_datos.Object.DataWindow.Print.Preview.Rulers = 'No'
Else
dw_datos.Object.DataWindow.Print.Preview.Rulers = 'Yes'
End If
en las tres ultimos eventos de la ventana w_reporte en tiempo de ejecucion no funciona...
ue_ZoomIncrementar
uo_ZomDisminuir
uo_Reglas
Este es el codigo de los eventos:
//ue_zoomdisminuir
Integer li_factor
li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)
If li_factor > 40 Then
li_factor = li_factor -20
ElseIf li_factor < 200 Then
li_factor = 20
End If
dw_datarepo.Object.DataWindow.Print.Preview.Zoom = String(li_factor)
--------------------------------------------------------------------------------------------------------------------
//ue_zoomincrementar
Integer li_factor
li_factor = Integer(dw_datarepo.Object.DataWindow.Print.Preview.Zoom)
If li_factor <= 180 Then
li_factor = li_factor +20
ElseIf li_factor < 200 Then
li_factor = 200
End If
dw_datarepo.Object.Datawindow.Print.Preview.Zoom = String(li_factor)
--------------------------------------------------------------------------------------------------------------------
//uo_reglas
String ls_reglas
ls_reglas = dw_datos.Object.DataWindow.Print.Preview.Rulers
If ls_reglas='Yes' Then
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'No'
Else
dw_datarepo.Object.DataWindow.Print.Preview.Rulers = 'Yes'
End If
Y las llamo de la siguiente manera en los item del menu
Reglas
mf_invocar_evento("ue_reglas")
Incrementar Zoom
mf_invocar_evento("ue_zoomincrementar")
Diminuir Zoom
mf_invocar_evento("ue_zoomdisminuir")
Ahora que esta mal para q no me imcremente ni disminuya el zoom y tampoco me muestre la regla para el reporte de la w_reporte. Tengo que realizar alguna propiedad en el datawindow reporte.. bueno espero q me ayuden
Gracias por su tiempo...
Saludos de Lima - Peru
Valora esta pregunta
0