Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Clientes.aspx.vb

@@ -5983,7 +5983,7 @@ Partial Class Clientes
 
 #Region "C U E N T A S - B A N C A R I A S"
 
-    Private Sub CargaCuentasBancarias()
+    Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
 
@@ -6004,9 +6004,8 @@ Partial Class Clientes
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaPSGridCuentasBancos()
-
-        RecargaGlobalCuentasBancarias()
+        CargaPSGridCuentasBancos()
+
         CargaMonedas()
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
@@ -6208,13 +6207,10 @@ Partial Class Clientes
         RecargaGlobalCuentasBancarias()
     End Sub
     Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
-        If CveCliente > 0 Then
-            Dim ObjCuentasBancos As New ClsGenerales
-
-            If ObjCuentasBancos.GetCuentasDepositos() Then
-                GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
-            End If
-            ObjCuentasBancos.Dispose()
+        If CveCliente > 0 Then
+
+            GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
+
         End If
     End Sub
 

Ventas/Ventas.aspx

@@ -3313,7 +3313,7 @@
                             <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
                                 <td colspan="2">
                                     <asp:RadioButtonList runat="server" ID="RblPaqueteria">
-                                        <asp:ListItem Value="1" Text="Entrega En Mostrador" />
+                                        <asp:ListItem Value="1" Selected="True" Text="Entrega En Mostrador" />
                                         <asp:ListItem Value="2" Text="Entrega Interna" />
                                         <asp:ListItem Value="3" Text="Entrega Externa" />
                                     </asp:RadioButtonList>

Ventas/Ventas.aspx.vb

@@ -14471,6 +14471,8 @@ Partial Class Ventas
         If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
         End If
+
+        TxtCorreoNotificaciones.Text = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
     End Sub
 #End Region
 
@@ -25827,7 +25829,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub MostrarOpcioensPaqueteria()
-        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
         trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
         trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
     End Sub