--Puntos GDiaz

Bancos/ProveedoresAbonar.aspx.vb

@@ -223,6 +223,15 @@ Partial Class Bancos_ProveedoresAbonar
                 ChkNoValidaSAT.Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                HplCambiarProveedor.Visible = True
+
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.SelectedText = "Todos"
+                DdlProveedores.SelectedValue = "-1"
+            End If
+
             PermiteModificarImporte = True
             TxtFechaIncobrable.Text = NowADS().ToShortDateString
 
@@ -1722,5 +1731,14 @@ Partial Class Bancos_ProveedoresAbonar
         End If
     End Sub
 
+
+    Protected Sub BtnCambiarProveedor_Click(sender As Object, e As EventArgs)
+        If DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+        Dim url As String = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&TipoPago={4}&CveUsuarioRegistro={5}&CveUsuarioResponsable={6}&CveClasificacion={7}&CveMoneda={8}&CveEstatus={9}&CveProveedorSucursal={10}&CveAplicaNC={11}&CodigoProgramacion={12}&CveSubProyecto={13}", DdlProveedores.SelectedValue, Request("FechaI").ToString(), Request("FechaF").ToString(), Request("CveUsuarioProgramo").ToString(), -1, Request("CveUsuarioRegistro").ToString(), Request("CveUsuarioResponsable").ToString(), Request("CveClasificacion").ToString(), Request("CveMoneda").ToString(), Request("CveEstatus").ToString(), Request("CveProveedorSucursal").ToString(), Request("CveAplicaNC").ToString(), Request("CodigoProgramacion").ToString(), Request("CveSubProyecto").ToString())
+        Response.Redirect(url)
+    End Sub
 End Class
 

Ventas/Ventas.aspx.vb

@@ -7723,6 +7723,18 @@ Partial Class Ventas
         '    RBLPago.SelectedValue = "2"
         'End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Me.PermiteCredito Then
+            If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
+                Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero())
+                If CreditoDispo > 0 Then
+                    TrCreditoDisponible.Visible = True
+                    LblCreditoDisponible.Text = CreditoDispo.FormatoNumero
+                    TrPorcentajeCredito.Visible = True : LblPorcentajeCredito.Text = $"{PorcentajeCredito.FormatoNumero}%"
+                End If
+
+            End If
+        End If
+
         If Not EsFilial AndAlso (((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito) Then
             'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then