-

Ventas/Clientes.aspx.vb

@@ -9807,7 +9807,7 @@ Partial Class Clientes
 
             Try
                 Dim Url As Uri = New Uri(String.Format("{0}ashx/SIGWeb.ashx?metodo=GetTokenAngular", "http://localhost:85/"))
-                Dim response = cliente.GetAsync(Url).Result
+                Dim response As HttpResponseMessage = cliente.GetAsync(Url).Result
                 If response.StatusCode = 200 Then
                     retorno = response.Content.ReadAsStringAsync().Result
                 End If
@@ -10275,7 +10275,7 @@ Partial Class Clientes
     End Sub
     Protected Sub BtnGuardarPL_Click(sender As Object, e As EventArgs)
         Dim ObjVentas As New ClsVentas()
-        Dim CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
+        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0)
         If CvePrecioListaNuevo > 0 Then
             Alert("La lista de precio se guardo correctamente")
             RegistraScript("$('#DivAgregarPrecioLista').modal('hide');")