Scripts varios

Llamaremos al ahoraProceso "ImprimirFichero"
Parámetros:
1- Conexión (Object)
2- Objeto (Object)
3- Path (String): Ruta especificada en la tabla ceesi_listados.
4- Optional Descripcion (String)
5- Optional Where (String)=""
6- Optional Ver (Byte) = 0: (0 FormShow: mostrar ventana selección report; 1 Preview : visualizacion Directa; 2 Print: Imprimir directo)
7- Optional ParentForm (Object) = Nothing


 Ver código ejemplo


Sub Initialize()
gForm.Controls("Botonera").Activarscripts = True
gForm.Botonera.Boton("botImprimir").Visible=True
End Sub

Sub Botonera_AfterExecute(aBotonera, aBoton)
If aBoton.Name = "botImprimir" Then
gCn.AhoraProceso "ImprimirFichero", False, gCn, Nothing, "CLIENTES\Albaran Valorado de Cliente.rpt","","WHERE Albaranes_Cli_Cab.IdAlbaran = 1"
End If

End Sub


Autor: Daniel Ernesto Lutz Llano