--Puntos BDH

App_Code/ClsVentas.vb

@@ -5221,7 +5221,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function AutorizacionLimitesUpdate(CveAutorizacion As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer) As Boolean
+    Public Function AutorizacionLimitesUpdate(CveAutorizacion As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuarioAutorizo As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_AutorizacionLimitesUpdate", CommandType.StoredProcedure)
@@ -5233,7 +5233,7 @@ Public Class ClsVentas
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@Importe", SqlDbType.Money).Value = Importe
             .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
-
+            .Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
         End With
 
         Try

App_Code/Modelos.vb

@@ -452,6 +452,7 @@ Namespace Modelos
             Dim ObjVentas As New ClsVentas()
             If ObjVentas.GetVenta(CveVenta, CveEmpresa, VerificaAlmacen:=VerificaAlmacen) Then
                 If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+
                     setValues(ObjVentas.DtResultados.Rows(0))
                     SetMetodoPago()
                     SetMoneda()
@@ -466,17 +467,14 @@ Namespace Modelos
                     Else
                         Me.VentaDesglosaIEPS = True
                     End If
+
                     SetTotales(ObjVentas.DtResultados, ObjVentas)
+
                     If CargaDTDetalle Then
                         If ObjVentas.GetVentaDetalle(CveVenta) Then
                             Me.DtDetalle = ObjVentas.DtResultados.Copy()
                         End If
                     End If
-                End If
-            Else
-                ErrorList.Add("No se pudo cargar la información de la factura.")
-            End If
-            ObjVentas.Dispose()
 
                     If CargaDatosCliente Then SetCliente()
 
@@ -486,6 +484,16 @@ Namespace Modelos
 
                     Me.DirectorioServidor = DirectorioServidor
                     Timbre = New CFDITimbre
+                End If
+            Else
+                Me.CveVenta = -1
+                Me.CveEmpresa = -1
+                Me.CveCliente = -1
+
+                ErrorList.Add("No se pudo cargar la información de la factura.")
+            End If
+
+            ObjVentas.Dispose()
         End Sub
         Private Sub SetTotales(dtVentas As DataTable, ObjVentas As ClsVentas)
             Dim TmpDTImpuestos As New DataTable
@@ -6331,8 +6339,9 @@ Namespace Modelos
                                         For Each CveRemision As Integer In ListaRemisionesCancelar
                                             Dim ObjRemision As New Factura(UsuarioActual, CveRemision, UsuarioActual.CveEmpresa, VerificaAlmacen:=True)
 
-                                            If ObjRemision IsNot Nothing AndAlso ObjRemision.SaldoAlmacen <> 0 Then
+                                            If ObjRemision IsNot Nothing AndAlso ObjRemision.CveVenta > 0 Then
 
+                                                If ObjRemision.SaldoAlmacen <> 0 Then
                                                     Dim SaldoAlmacenExA As Decimal = 0
                                                     Dim SaldoAlmacenUsados As Decimal = 0
                                                     Dim DtSaldosAlmacenRemision As DataTable = Nothing
@@ -6393,21 +6402,17 @@ Namespace Modelos
                                                             End If
                                                         End If
 
-                                                End If
-
                                                         'CANCELAR MOVIMIENTOS DE GARANTIA SI TIENE
-                                                If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                                        If Not ErrorCancelar AndAlso Not GenerarMovimientoGarantia(15, "Salida Garantía", ClsPaginas.NowADS(), ObjRemision, ObjAcum, ObjInventario, ObjConta) Then
-                                                    If Not GenerarMovimientoGarantia(15, "Salida Garantía", ClsPaginas.NowADS(), ObjRemision, ObjAcum, ObjInventario, ObjConta) Then
                                                             ErrorCancelar = True
                                                         End If
-                                                End If
 
                                                         'CANCELA LOS FOLIOS DE GARANTIA
-                                                If Not ErrorCancelar Then
+                                                        If Not ErrorCancelar AndAlso Not ObjAcum.UpdateGarantiaCancelacion(ObjRemision.CveVenta) Then
-                                                    If Not ObjAcum.UpdateGarantiaCancelacion(ObjRemision.CveVenta) Then
                                                             ErrorCancelar = True
                                                             MensajeError = "Ocurrió un error al actualizar la garantía"
                                                         End If
+
                                                     End If
 
                                                     If DtDevRemision IsNot Nothing Then
@@ -6417,7 +6422,11 @@ Namespace Modelos
                                                     If DtDevMovs IsNot Nothing Then
                                                         DtDevMovs.Dispose()
                                                     End If
+                                                End If
 
+                                            Else
+                                                ErrorCancelar = True
+                                                MensajeError = "Ocurrió un error al cargar los datos de la remisión. Por favor vuelva a intentar."
                                             End If
 
                                             If ObjRemision IsNot Nothing Then

Ventas/CatAutorizacionLimites.aspx

@@ -127,13 +127,14 @@
                     <asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
                     <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="D.Venc" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
                     <asp:HyperLinkField DataTextField="FacturaAplicada" Target="_blank" HeaderText="Factura" DataNavigateUrlFields="CveVentaAplicada" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Usuario" HeaderText="Solicitó" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Motivo" HeaderText="Motivo" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                         <ItemTemplate>
                             <asp:Label ID="LblEstatus" Text='<%# Eval("Estatus") %>' runat="server"></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="UsuarioAutorizo" HeaderText="Autorizó" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" HeaderText="Autorizar/Rechazar">
                         <ItemTemplate>
                             <asp:LinkButton data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea autorizar el limite?" data-btn-ok-label="si" ID="LnkAutorizar" OnClick="LnkAutorizar_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-check'></i>"></asp:LinkButton>

Ventas/CatAutorizacionLimites.aspx.vb

@@ -263,7 +263,7 @@ Partial Class Ventas_CatAutorizacionLimites
         End If
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
+        If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion, UsuarioActual.CveUsuario) Then
             Alert("El límite de crédito fue autorizado.")
         End If
         ObjVentas.Dispose()
@@ -280,7 +280,7 @@ Partial Class Ventas_CatAutorizacionLimites
         Dim CveEstatusAutorizacion As Integer = 3
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion) Then
+        If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion, UsuarioActual.CveUsuario) Then
             Alert("El límite de crédito fue rechazado.")
         End If
         ObjVentas.Dispose()