Funcion para alertar fecha proxima

[vanesitaX]

hola chiquillos!! , necesito ayuuuuuda please!!! .... resulta que tengo que hacer una función para que el sistema me alerte días antes que esta por llegar una fecha determinada almacenada en una tabla en sql server 2005, estoy trabajando con VS2008 (vb.net)

por ejemplo cada vez que entre al sistema salga un msgbox que me diga "Hay Facturas por vencer en Cinco dias o Menos" de lo contrario salga otro msj...


he buscado información y nada que me sirva ... ayuda por favor, nunca he hecho una función con fechas y estoy desorientada :(


muchas gracias de antemano

[KeiDash]

Iniciado por vanesitaX

hola chiquillos!! , necesito ayuuuuuda please!!! .... resulta que tengo que hacer una función para que el sistema me alerte días antes que esta por llegar una fecha determinada almacenada en una tabla en sql server 2005, estoy trabajando con VS2008 (vb.net)

por ejemplo cada vez que entre al sistema salga un msgbox que me diga "Hay Facturas por vencer en Cinco dias o Menos" de lo contrario salga otro msj...


he buscado información y nada que me sirva ... ayuda por favor, nunca he hecho una función con fechas y estoy desorientada :(


muchas gracias de antemano

Pues...Lo mejor que puedes hacer es una aplicación que se conecte con la base de datos y recoja la fecha, eso para empezar, y si la fecha es la que deseas, muestras un mensaje.

Segundo; Compilar la aplicación y hacer que cuando se arranque el S.O el programa se inicie también (añadirlo como tarea a ejecutar en Windows)

Cada vez que la aplicación se arranque, en su inicialización, consultaría la BD, extraería la fecha y avisaría en caso de tener que hacerlo.

Se entiende?¿ Esta clarito creo.

Seria quizas algo asi;

Código:

Private Function AlertDate() AS Boolean
 A) Conectar con la base de datos (usando quizas un SQLConnection + SQLDataAdapter + DataSet)
 B) Si el valor de la fecha <> Date.MinValue ORELSE Fecha = Date.Today -> Mostrará advertencia (True)
 C) Return True/False segun lo obtenido
End Function

[vanesitaX]

habeeeeer.... esta seria mi función, guiame y dime si esta bien y donde puedo poner eso de los 5 días

Código:

        Private Function comprobarfecha() As Boolean

            Dim SQLCn1 As SqlConnection
            Dim comando As SqlCommand
            SQLCn1 = New SqlConnection
            SQLCn1.ConnectionString = ("server=vane;uid=USER_FACT;pwd=12345;database=BDD_FACTURA")
            SQLCn1.Open()

            Dim misql As String

            misql = "SELECT FACT_FECHAVEN FROM FACTURA"

            comando = SQLCn1.CreateCommand
            comando.CommandText = misql

            Dim fechav As String = CDate(comando.ExecuteScalar())
            SQLCn1.Close()
            If fechav <> Date.MinValue OrElse fechav = Date.Today Then
                Return False
            End If
            Return True

        End Function

estoy llamando a la función desde un botón, por ahora...

Código:

Protected Sub nuevo_fact(ByVal sender As Object, ByVal e As EventArgs)
            If comprobarfecha() Then
                MsgBox("Hay Facturas por vencer en Cinco días o Menos", vbInformation, "A T E N C I O N")
                Response.Redirect("factura.aspx")
            Else
                MsgBox("No hay Facturas que venzan en menos de 5 dias", vbInformation, "A T E N C I O N")
                Response.Redirect("factura.aspx")
            End If

        End Sub

gracias por la ayuda

[vanesitaX]

ayuda plzzzzzzzzzzzzzzzz

[vanesitaX]

al final el if de la funcion lo deje asi y al parecer funciona bien xD

If (Today.AddDays(-5) > fechav) Then

[vanesitaX]

y noooo... lo revise mejor y no me funciona tan bien como deberia D: .... ayúdenme con ese maldito if!!!! :(


Edit:
al final lo deje asi:
If (Today.AddDays(0) > fechav OrElse Today.AddDays(5) < fechav) Then

y me funciono bien (creo xD )