' getDesdeHasta()
Sub Main
    stop
    Set xFiltro = CreateObject("Scripting.Dictionary")
    ' Set xFiltro = CreateObject("vbscript.regexp")
    Set xVisualVar = VisualVarEditor( "Seleccion Parametros de Busqueda" )
    Call AddVarDate( xVisualVar, "1. FechaDesde", "Fecha Desde", "Ingrese los datos", Date())
    Call AddVarDate( xVisualVar, "2. FechaHasta", "Fecha Hasta", "Ingrese los datos", Date())

   If ShowVisualVar( xVisualVar ) Then
        xFechaDesde = cDate(GetValueVisualVar( xVisualVar, "1. FechaDesde", "Ingrese los datos" ))
        xFechaHasta = cDate(GetValueVisualVar( xVisualVar, "2. FechaHasta", "Ingrese los datos" ))

        xFiltro.add "desde", year(xFechaDesde) & right("00" & month(xFechaDesde),2) & right("00" & day(xFechaDesde),2)

        xFiltro.add "hasta", year(xFechaHasta) & right("00" & month(xFechaHasta),2) & right("00" & day(xFechaHasta),2)
    Else
        xFiltro = Nothing
    End If

    ReturnValue = xFiltro

End Sub


'  XLS_LIBRODIARIO(self)
Sub Main
    Stop
    Set self = xSelf.value
    Set filtro = getDesdeHasta()
    If Not self Is Nothing and Not filtro Is Nothing then
        Call EXPORTAR_EXCEL(self.workspace,"EXEC [dbo].[XLS_LIBRODIARIO] '" & filtro("desde") & "', '" & filtro("hasta") & "'")
    End If
End Sub