-

Ventas/Promociones.aspx.vb

@@ -601,7 +601,7 @@ Partial Class Ventas_Promociones
 
 
                         If Not TieneError And Dr("CveTipoPromocion").ToString <> Dr2("CveTipoPromocion").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(369, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("TipoPromocion").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("TipoPromocion").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -609,7 +609,7 @@ Partial Class Ventas_Promociones
 
 
                         If Not TieneError And Dr("CantidadMinima").ToString <> Dr2("CantidadMinima").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(370, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CantidadMinima").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("CantidadMinima").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -624,14 +624,14 @@ Partial Class Ventas_Promociones
                         'End If
 
                         If Not TieneError And Dr("HoraInicio").ToString <> Dr2("HoraInicio").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(372, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraInicio").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraInicio").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If
                         End If
 
                         If Not TieneError And Dr("HoraFin").ToString <> Dr2("HoraFin").ToString Then
-                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr2("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
+                            If Not ObjGral.AddHistorialBitacora(373, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("HoraFin").ToString, $"{Dr("CodigoPS").ToString} - {Dr2("HoraFin").ToString}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then
                                 TieneError = True
                                 Exit For
                             End If

Ventas/Ventas.aspx.vb

@@ -8260,7 +8260,7 @@ Partial Class Ventas
                                 For Each Row As DataRow In DtMovDetalles.Rows
                                     Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                                     Dim SaldoAlmacen As Decimal = Row("SaldoAlmacen").ToString().ToDecimal()
-                                    Cantidad += Cantidad
+                                    CantidadTotal += Cantidad
 
                                     If SaldoAlmacen < 0 AndAlso Cantidad = Math.Abs(SaldoAlmacen) Then
                                         TotalSalida += Math.Abs(SaldoAlmacen)
@@ -8271,7 +8271,7 @@ Partial Class Ventas
                                 Next
 
                                 'SI SE VERIFICA QUE TODO ESTA SURTIDO, SE MARCA TODA LA FACTURA
-                                If CantidadTotal = Total Then
+                                If CantidadTotal = TotalSalida Then
                                     If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
                                         ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
                                     End If
@@ -19968,6 +19968,9 @@ Partial Class Ventas
                         sb.Append("Está seguro de cancelar el documento para realizar la refacturación?.")
                     End If
                 Else
+                    If Not UsuarioActual.Empresa.FacturaProduccion Then
+                        script = "BtnRefacturacionConfirmar();"
+                    End If
                     sb.Append("<b>No encontrado</b> <br/>")
                 End If
             Else