SMS - 2024.02.06 OS Observaciones, Rep Cirugias Observaciones personalizar

OS/OrdenesServicios.aspx.vb

@@ -3298,11 +3298,7 @@ Partial Class OS_OrdenesServicios
                             ProcesoOK = False
                         End If
                     End If
-                    If ProcesoOK Then
-                        If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa) Then
-                            ProcesoOK = False
-                        End If
-                    End If
+
                     If ProcesoOK Then
                         Dim Contabilizable As Boolean = False
                         Dim Concepto As String = "Material utilizado"
@@ -3328,11 +3324,16 @@ Partial Class OS_OrdenesServicios
                         ProcesoOK = False
                     End If
                 End If
-
-
-
-
             End If
+
+
+            If ProcesoOK Then
+                If Not ObjOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Observaciones:=TxtObservacionModal.Text.Trim) Then
+                    ProcesoOK = False
+                End If
+            End If
+
+
         End If