Dias de vencimiento en tipo de autorizacion

Ventas/CatAutorizacionLimites.aspx.vb

@@ -99,14 +99,17 @@ Partial Class Ventas_CatAutorizacionLimites
     Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
         LimpiaModal()
         Modalidad = "A"
-        BtnGuardar.Text = "Agregar"
+        BtnGuardar.Text = "Agregar"
         ltlMotititulo.Text = "Agregar autorización"
         UpModal.Update()
         RegistraScript("$('#DModal').modal()")
     End Sub
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+        If DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-            Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia)
+        Dim DiasVencidos As Integer = 0
         Dim CveEstatus As Integer = 1
         Dim TipoDocto As String = DdlTipoDocto.SelectedValue
         Dim CveTipoAutorizacion As Integer = DdlTipoAutorizacion.SelectedValue.ToEntero()
@@ -196,6 +199,7 @@ Partial Class Ventas_CatAutorizacionLimites
 
         Dim CveAutorizacion = gvRow.DataKey("CveAutorizacion").ToEntero()
         Dim CveCliente = gvRow.DataKey("CveCliente").ToEntero()
+        Dim CveVendedor = gvRow.DataKey("CveVendedor").ToEntero()
         Dim Importe = gvRow.DataKey("Importe").ToEntero()
         Dim CveEstatusAutorizacion As Integer = 3