--FIX varios

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>

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

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