--Puntos GDiaz

Bancos/ProveedoresAbonar.aspx

@@ -27,7 +27,9 @@
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Pago Proveedor:
+   
     <asp:HyperLink ID="HplProveedor" CssClass="Texto" runat="server" Text=""></asp:HyperLink>
+    <asp:HyperLink ID="HplCambiarProveedor" runat="server" Visible="false" data-toggle="modal" data-target="#ModalCambiarProveedor" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>"></asp:HyperLink>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -67,6 +69,7 @@
                             </div>
                             <div class="col-md-5" runat="server" id="DivTC" visible="false">
                                 T.C.:
+                               
                                 <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaDolaresPesos();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
                                 <asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -168,6 +171,7 @@
                             </div>
                             <div>
                                 <asp:CheckBox ID="ChkEnviarCorreo" CssClass="chksino" Text=" Notificar por Correo" Checked="true" runat="server" />Notificar por correo
+                           
                             </div>
                         </div>
                         <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
@@ -510,6 +514,7 @@
                                         <div class="progress-info">
                                             <div class="status" style="font-size: 12px">
                                                 $:
+                                       
                                                 <asp:Label Text="text" ID="LtlTotalMXN" runat="server" ClientIDMode="Static" />
                                             </div>
                                         </div>
@@ -555,6 +560,39 @@
     </div>
     <%-- FIN MODAL SALDAR INCOBRABLE--%>
 
+    <div id="ModalCambiarProveedor" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Buscar Proveedor</h4>
+                </div>
+                <div class="modal-body">
+                    <asp:UpdatePanel UpdateMode="Conditional" ID="UpCambiarProveedor" runat="server">
+                        <ContentTemplate>
+                            <div class="row">
+                                <div class="col-md-2">Proveedor:</div>
+                                <div class="col-md-6">
+                                    <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                                </div>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            <asp:Button ID="BtnCambiarProveedor" runat="server" Text="Guardar" CssClass="btn btn-primary" OnClick="BtnCambiarProveedor_Click" />
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

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