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
