From df21e26eabd51e21d49f2d89fe46ee651270eccc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Feb 2025 12:25:22 -0700
Subject: [PATCH] =?UTF-8?q?--=20considerar=20la=20opci=C3=B3n=20NC:=20que?=
 =?UTF-8?q?=20no=20afecte=20almacen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 27 ++++++++++-----------------
 1 file changed, 10 insertions(+), 17 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2b3255f1e..8ad5465df 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4399,14 +4399,14 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
-        If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
-            Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
-            Dim Fecha28Dic As Date = New Date(2024, 12, 28)
-            If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
-                Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
+        'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
+        '    Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
+        '    Dim Fecha28Dic As Date = New Date(2024, 12, 28)
+        '    If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
+        '        Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
+        '        Exit Sub
+        '    End If
+        'End If
 
         If Not ValidaPresupuesto(2) Then
             Exit Sub
@@ -6500,7 +6500,7 @@ Partial Class Compras_Compras
                                                         Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios
                                                         If UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122) Then AgregaMercanciaInventario = False
 
-                                                        Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV")
+                                                        Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV")
 
                                                         Dim Insertado205 As Boolean = False
 
@@ -7526,7 +7526,6 @@ Partial Class Compras_Compras
                                                             Next
                                                             importeMovimiento = 0
                                                         End If
-
                                                 End Select
 
                                                 If ErrorPrepoliza Then
@@ -18220,7 +18219,7 @@ Partial Class Compras_Compras
 
             Case "U" 'UPDATE
                 UpdatePS(CveContratoDetalle)
-                Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                Alert("Concepto actualizado Correctamente.", TipoMensaje.ToastInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
         End Select
         ActualizaTotales = False
@@ -18232,13 +18231,8 @@ Partial Class Compras_Compras
             GuardaAC()
         End If
 
-
-
-
-
         If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
 
-
             If Not TmpDT.Columns.Contains("DesvicularAF") Then
                 TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
             End If
@@ -18492,7 +18486,6 @@ Partial Class Compras_Compras
             Exit Sub
         End Try
 
-
         'BANDERA
         Dim AplicaCalculaTotales As Boolean = False