Error cuando intentaba imprimir un pdf

Inventarios/Kardex.aspx.vb

@@ -369,6 +369,7 @@ Partial Class Inventarios_Kardex
     Private Sub Imprimir(Optional reporte As String = "PDF")
 
         Dim DtKardex As DataTable = Nothing
+        If ddlProducto2.SelectedValue.ToEntero > 0 Then
             DtKardex = CargarKardex(ddlProducto2.SelectedValue.ToEntero)
             If (Not IsNothing(DtKardex)) Then
                 Dim params As New List(Of ReportParameter)
@@ -379,12 +380,16 @@ Partial Class Inventarios_Kardex
                 End If
                 DtKardex.Dispose()
             End If
+        Else
+            Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
+        End If
 
     End Sub
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
         GenerarPDF()
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
+        If ddlProducto2.SelectedValue.ToEntero > 0 Then
             Dim Movimientos As New ClsInventarios
             Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
             Dim Entrada As Boolean = cbEntrada.Checked
@@ -441,6 +446,9 @@ Partial Class Inventarios_Kardex
             Else
                 Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
             End If
+        Else
+            Alert("Debes seleccionar un Producto/Servicio", TipoMensaje.MsgAdvertencia)
+        End If
 
     End Sub
 #End Region
@@ -450,7 +458,7 @@ Partial Class Inventarios_Kardex
     Protected Sub LnkEditarFecha_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         CveMovimiento = gvRow.DataKey("CveMovimiento").ToEntero
-        TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH:mm")
+        TxtFecha.Text = gvRow.DataKey("FechaMovto").ToDateTime.ToString("yyyy-MM-ddTHH: mm")
         RegistraScript("$('#DModalEditarFecha').modal()")
         UpModalEditarFecha.Update()
     End Sub