Ejemplo de lanzamiento de un listado desde un script

En este ejemplo el script solicita un rango de códigos de clientes y lanza un listado para este rango. Su utilidad combina el uso de la prestación de interacciones y el lanzamiento de listados Crystal Reports por pantalla.

Sub Main (Criterio, Orden, Opciones)
   If Not Interact.Aceptado Then 'Interact.NuevoValor Nombre, Texto, Tipo, Clave, Defecto, Tabla, Campo
      Interact.Reinicia "Datos", "Rango de clientes para el listado" : Interact.Cancelable = 1
      Interact.NuevoValor "Desde", "Desde Cliente", "Entero", 0, "0","Contacto","Cliente"
      Interact.NuevoValor "Hasra", "Hasta Cliente", "Entero", 0, "99999","Contacto","Cliente"
   Else   
      Crit = "[Cliente].[Codigo] >= " & fpc.Vac(Interact.Valor ("Desde")) 
      Crit = Crit & " AND [Cliente].[Codigo] <= " & fpc.Vac(Interact.Valor ("Hasta")) 
      Diario.NuevoFormulario "visorcrystalreport", fpc.SQLCR (Crit), "Cliente.Codigo ASC", "Fichero='Cliente formato listado.rpt' NumeroCopias=1 Impresora=''"
      Interact.Reinicia "", ""
   End If
End Sub

Volver a la búsqueda anterior