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

Ventas/Clientes.aspx.vb

@@ -4252,7 +4252,8 @@ Partial Class Clientes
                                                          
                                                         <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA, FAVOR DE NO RESPONDERLO.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
                         End If
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
+                        Dim tusuario As Usuario = UsuarioActual
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(tusuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -4332,7 +4333,7 @@ Partial Class Clientes
             End If
         End If
     End Sub
-    Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
+    Private Sub MandaCorreoEstadoCuenta(UsuarioActual As Usuario, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         'a.GuardaLog()
@@ -4344,8 +4345,8 @@ Partial Class Clientes
         Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
 
         If Envio AndAlso GuardarBitacora Then
-            Using ObjBitacora As New ClsOIEventos
-                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente)
+            Using ObjBitacora As New ClsOIEventos(UsuarioActual:=UsuarioActual)
+                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, CveEmpresa, CveCliente:=CveCliente)
             End Using
         End If
 

Ventas/ClientesAbonar.aspx.vb

@@ -2057,8 +2057,8 @@ Partial Class Ventas_ClientesAbonar
         Dim dtt As DataTable = Nothing
         Dim Deudores As New ClsMovimientos
         If Deudores.GetDocumentosxPagarDetalle(CveCliente, tCveMoneda, 2, UsuarioActual.CveEmpresa) Then
-            DdlPrestamo.DataSource = Deudores.DtResultados '.FiltraParametros("CveCliente > 0 AND Saldo > 0 AND CveIE > 0")
-            dtt = Deudores.DtResultados
+            dtt = Deudores.DtResultados.FiltraParametros("CveProveedor > 0 AND Saldo > 0 AND CveIE > 0", "FechaDocumento")
+            DdlPrestamo.DataSource = dtt
         End If
         Deudores.Dispose()
 

Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs

@@ -358,7 +358,8 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
                         CveIE = Gv.DataKey("CveIE").ToEntero();
                         Saldo = Gv.DataKey("Saldo").ToDecimal();
                         SaldoAdmin = Saldo;
-                    } 
+                    }
+                    Saldo = -Saldo; // invertimos el saldo para que se haga negativo para que sea ABono
 
                     ImporteTotalGasto += Saldo;
                     if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin,  Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE: CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero()))

Ventas/RepVentas.aspx.vb

@@ -125,6 +125,13 @@ Partial Class Ventas_RepVentas
                 LnkDescargaCartaPorte.Visible = True
             End If
 
+            If Opcion = "Cot" Then
+                DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
+                DdlGrupo.SelectedValueExist("7")
+                DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
+                DdlEstatus.ClearSelection()
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True