AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- si la OS, está cancelada, no se cambia al estatus

Browse Source
This commit is contained in:
rrene
2025-03-04 13:19:17 -07:00
parent ea9a1b7358
commit 5521ec4bb9
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -4672,8 +4672,21 @@ Partial Class Inventarios_EntregaAlmacen
If CveOSEstatusFinalizada > 0 Then If CveOSEstatusFinalizada > 0 Then
Dim ObjOS As New ClsOS(TransaccionSql) Dim ObjOS As New ClsOS(TransaccionSql)
'obtener estatus de la os, actual, si es cancelada, no se debe de cambiar el estatus.
Dim CveEstatusActual As Integer = 1
Dim CveTipoOS As Integer = -1
If ObjOS.GetOrdenesServicios(CveOSCerrar, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
CveEstatusActual = ObjOS.CveEstatusOrdenServicio
CveTipoOS = ObjOS.DtResultados.FiltroPrimeroValor("TipoEstatus").ToEntero
End If
'si es cancelada. no se actualiza(5.Cancelada)
If CveTipoOS <> 5 Then
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Else
Respuesta = True
End If
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta) Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
If Respuesta Then If Respuesta Then
Dim ObjInventario As New ClsInventarios(TransaccionSql) Dim ObjInventario As New ClsInventarios(TransaccionSql)