SMS - OS, poder hacer la cancelación de una OS/Pedido. cuando la OS no esté como finalizada.

OS/Asignaciones.aspx.vb

@@ -2,13 +2,14 @@
 Option Strict On
 
 Imports System.Data
+Imports DocumentFormat.OpenXml.Spreadsheet
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports MKB.TimePicker
 
 Partial Class OS_Asignaciones
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property TmpDT As DataTable
         Get
@@ -35,7 +36,7 @@ Partial Class OS_Asignaciones
         Set(value As DataTable)
             ViewState("DtTecnicosSubProyectos") = value
         End Set
-    End Property
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -103,8 +104,8 @@ Partial Class OS_Asignaciones
             GvNA.Columns(11).HeaderText = "Hora Cirugía"
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "C A R G A S "
     Private Sub CargaSubProyecto()
         DdlSubProyecto.Items.Clear()
@@ -139,10 +140,17 @@ Partial Class OS_Asignaciones
             GvNA.DataSource = Nothing
         End If
         GvNA.DataBind()
-        ObjOS.Dispose()
+        ObjOS.Dispose()
+
+
+
+
         UpOS.Update()
         CargarTecnico()
-    End Sub
+    End Sub
+
+
+
     Private Sub CargaOrdenesServiciosAsignadas()
         Dim ObjOS As New ClsOS
 
@@ -240,7 +248,7 @@ Partial Class OS_Asignaciones
                     Dim picker As MKB.TimePicker.TimeSelector = DirectCast(row.FindControl("TimeSelector"), MKB.TimePicker.TimeSelector)
 
                     If row.FCCheckBox("ChbxAsignar").Checked Then
-                        time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, picker.AmPm))
+                        time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, If(picker.Hour < 12, TimeSelector.AmPmSpec.AM, TimeSelector.AmPmSpec.PM)))
                         contadorOrdenesAsignadas += 1
 
                         If ObjOS.GetSubProyectosEstatusInicial(DdlTecnico.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
@@ -555,8 +563,14 @@ Partial Class OS_Asignaciones
                 e.Row.FindControl("TimeSelector").Visible = True
 
                 Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector)
-                TMSelector.Date = FechaCita
-
+                TMSelector.Date = FechaCita
+
+                'If TMSelector.Hour = 0 And TMSelector.AmPm = TimeSelector.AmPmSpec.AM Or e.Row.DataKey("CveOS").ToEntero = 9004 Then
+                If FechaCita.Hour = 0 Then
+                    Dim scripttxth As String = " $(document).ready(function() {setTimeout(function() { document.getElementById('" + TMSelector.UniqueID + "_txtHour').value = '00'; }, 100);}); "
+                    RegistraScript(scripttxth)
+                End If
+
                 e.Row.Cells(10).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString)
                 e.Row.Cells(11).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm"))
 

OS/OrdenesServicios.aspx.vb

@@ -10,6 +10,7 @@ Imports System.ServiceModel.Security
 Imports RVCFDI.RVLTimbrado
 Imports Microsoft.Owin.Security.Provider
 Imports Telerik.Web.UI
+Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI
 
 
 
@@ -478,7 +479,7 @@ Partial Class OS_OrdenesServicios
                 End If
             End If
 
-            If TipoEstatus.Contiene(1, 2, 3, 4) And CveVenta <= 0 Then
+            If TipoEstatus.Contiene(1, 2, 3, 4) And CveVenta <= 0 And (UsuarioActual.TienePermisoProceso(370) Or UsuarioActual.TienePermisoProceso(382)) Then
                 BtnCancelar.Visible = True
             Else
                 BtnGuardar.Visible = False
@@ -3202,6 +3203,9 @@ Partial Class OS_OrdenesServicios
                     End If
                 End If
             End If
+
+            'ProcesoOK = False
+
             Dim Respuesta As New RespuestaFacturacion()
             Dim DtVentaDetalle As New DataTable
             Dim CveMovimientoSalida, CveMovimientoEntrada As Integer