From 26437e6703bdc17e92d3bf869b70c63351fadead Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 4 Jan 2025 13:12:07 -0700
Subject: [PATCH] --FIX varios

---
 Bancos/DepositosCaja.aspx    |  2 +-
 Bancos/DepositosCaja.aspx.vb |  8 ++++++++
 Ventas/Ventas.aspx.vb        | 10 ++++++++++
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index 3bebf5677..e26f6c71c 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -180,7 +180,7 @@
                     <label style="width: 100px;">Forma de Pago:</label>
                 </div>
                 <div class="col-md-1" runat="server" id="divTipoPago" >
-                     <asp:DropDownList ID="DdlTipoDeposito" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" AutoPostBack="true" DataValueField="CveCuenta" OnSelectedIndexChanged="DdlTipoPago_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm select2me" >
+                     <asp:DropDownList ID="DdlTipoDeposito" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me" >
                          <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
                          <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
                          <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index 773b538be..e060b3de8 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -234,6 +234,12 @@ Partial Class Bancos_DepositosCaja
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TotalImportePrePoliza = 0 Then
+            Alert("No se ha especificado un importe a depositar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         Dim OcurrioError As Boolean = False
         Dim NuevaCvePrePoliza As Integer
 
@@ -621,6 +627,8 @@ Partial Class Bancos_DepositosCaja
             DDlMesesSinIntereses.Visible = False
         End If
         DDlMesesSinIntereses.SelectedValue = "-1"
+
+        UPPFiltros.Update()
     End Sub
 
     Private Function ImpresionDirectaPDF(CveIEOrigen As Integer, CvePrePoliza As Integer) As String
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 04ee94e89..7e6a5be8c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8284,6 +8284,16 @@ Partial Class Ventas
             End If
         End If
 
+        'SOLO HABILITAR PARA GENERAR NOTAS DE CREDITO
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Not PermiteCredito AndAlso Not LnkSolicitarCredito.Visible Then
+            LnkSolicitarCredito.Visible = True
+
+            If DdlSolCreditoTipoDocto.Items.FindByValue("Ing") IsNot Nothing Then
+                DdlSolCreditoTipoDocto.Items.Remove(DdlSolCreditoTipoDocto.Items.FindByValue("Ing"))
+            End If
+
+        End If
+
         If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then
             'ENVIO DE FACTURA
             ChkEnviarFactura.Checked = False