-- corrección

This commit is contained in:
2025-01-10 08:00:25 -07:00
parent eb9404e470
commit 58aedf2c84

View File

@@ -527,7 +527,7 @@ Partial Class Inventarios_EntregaAlmacen
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
Dim FI As Date = NowADS().AddDays(-1) Dim FI As Date = NowADS().AddDays(-1)
Dim FF As Date = NowADS().AddDays(-7) Dim FF As Date = NowADS().AddDays(-7)
If ObjInventarios.RepNotasSinAlmacen(1, -1, FI, FF, "-1", -1, UsuarioActual.Empresa.CveEmpresa) Then If ObjInventarios.RepNotasSinAlmacen(1, -1, FI, FF, "-1", -1, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjInventarios.DtResultados IsNot Nothing AndAlso ObjInventarios.DtResultados.Rows.Count > 1 Then If ObjInventarios.DtResultados IsNot Nothing AndAlso ObjInventarios.DtResultados.Rows.Count > 1 Then
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
Alert("No se podrá realizar entrega de mercancía si no se les da salida a los documentos pendientes. Para más información ver el Reporte de notas sin entrada en la sección Ventas.", TipoMensaje.MsgAdvertencia) Alert("No se podrá realizar entrega de mercancía si no se les da salida a los documentos pendientes. Para más información ver el Reporte de notas sin entrada en la sección Ventas.", TipoMensaje.MsgAdvertencia)