-- option explicit

-- repie, filtro por usuario

Ventas/Clientes.aspx.vb

@@ -2098,7 +2098,7 @@ Partial Class Clientes
 
                 Dim Cuerpo As String = TxtBody.Text
                 Dim Asunto As String = ""
-                Dim TipoComprobante = ""
+                Dim TipoComprobante As String = ""
                 Dim Adjunto As String = ""
 
                 If HdnTipoDocto.Value.ToString() = "Ing" Then TipoComprobante = "Factura"
@@ -6901,6 +6901,7 @@ Partial Class Clientes
         DdlClavePedimento.Items.Clear()
         DdlClavePedimento.DataSource = GlobalDTClavePedimento()
         DdlClavePedimento.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlClavePedimento.DataBind()
 
         DdlMotivoTraslado.Items.Clear()
         DdlMotivoTraslado.DataSource = GlobalDTSATMotivoTraslado()
@@ -9863,9 +9864,8 @@ Partial Class Clientes
                 )
                 System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
 
-                Dim Url = New Uri(String.Format("{0}api/cliente/GetHistorialVentas", "http://localhost:5000/"))
-
-                Dim response = cliente.PostAsync(Url, New StringContent(Parametros.ToString(), Encoding.UTF8, "application/json")).Result
+                Dim Url As Uri = New Uri(String.Format("{0}api/cliente/GetHistorialVentas", "http://localhost:5000/"))
+                Dim response As HttpResponseMessage = cliente.PostAsync(Url, New StringContent(Parametros.ToString(), Encoding.UTF8, "application/json")).Result
 
                 If response.StatusCode = 200 Then
                     Dim json = response.Content.ReadAsStringAsync().Result
@@ -9917,10 +9917,8 @@ Partial Class Clientes
             cliente.DefaultRequestHeaders.Add("Accept", "text/json")
 
             Try
-                Dim Url = New Uri(String.Format("{0}ashx/SIGWeb.ashx?metodo=GetTokenAngular", "http://localhost:85/"))
-
+                Dim Url As Uri = New Uri(String.Format("{0}ashx/SIGWeb.ashx?metodo=GetTokenAngular", "http://localhost:85/"))
                 Dim response = cliente.GetAsync(Url).Result
-
                 If response.StatusCode = 200 Then
                     retorno = response.Content.ReadAsStringAsync().Result
                 End If
@@ -10289,7 +10287,7 @@ Partial Class Clientes
 
     Protected Sub LnkEliminarLineaAdicional_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveLineaAdicionalEliminar = GvRow.DataKey("CveLineaAdicional").ToEntero
+        Dim CveLineaAdicionalEliminar As Integer = GvRow.DataKey("CveLineaAdicional").ToEntero
         Dim ErrorEliminacion As Boolean = False
 
         Dim ObjVentas As New ClsVentas