Merge branch 'master' of http://192.168.10.111:8383/SIG

OS/OrdenesServicios.aspx

@@ -529,7 +529,9 @@
                                     <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                                     <asp:Button ID="BtnGarantia" runat="server" Text="Ingresar como Garantia" Visible="false" />
                                     <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" Visible="false" />
-                                    <asp:Button ID="BtnCancelar" runat="server" Text="Cancelar" Visible="False" OnClientClick="javascript:window.location.href='/OS/CatOrdenesServicios.aspx';return false" />
+
+                                    <asp:Button ID="BtnCancelar" runat="server" Text="Cancelar"  CssClass="btn btn-danger"  data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClick="BtnCancelar_Click" Visible="false" />
+
                                     <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                                 </ContentTemplate>
                             </asp:UpdatePanel>

OS/OrdenesServicios.aspx.vb

@@ -5,6 +5,8 @@ Imports Extensiones
 Imports System.IO
 Imports System.Data
 Imports System.Data.SqlClient
+Imports System.Diagnostics
+Imports System.ServiceModel.Security
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -470,6 +472,13 @@ Partial Class OS_OrdenesServicios
                     DVUsuarioAtendio3.Visible = True
                 End If
             End If
+
+            If TipoEstatus.Contiene(1, 2, 3, 4) And CveVenta <= 0 Then
+                BtnCancelar.Visible = True
+            Else
+                BtnGuardar.Visible = False
+            End If
+
         End If
     End Sub
 
@@ -911,7 +920,13 @@ Partial Class OS_OrdenesServicios
     End Sub
     Private Sub CargaEstatusOS()
         DdlEstatusOS.Items.Clear()
-        DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
+        If TipoEstatus = 5 Then
+            DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa)
+            DdlEstatusOS.Enabled = False
+        Else
+            DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltraParametros(" TipoEstatus <> 5 ")
+        End If
+
         DdlEstatusOS.DataBind()
         'DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
     End Sub
@@ -3579,4 +3594,58 @@ Partial Class OS_OrdenesServicios
             End If
         End If
     End Sub
+
+    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
+
+
+        Dim CveEstatusOrdenServicioCancelacion As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", " TipoEstatus = 5 ").ToEntero
+        Dim CveAlmacenDevolucion As Integer
+        Dim CveMotivoCancelacion As Integer = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMotivoCancelacion", "CveSATMotivoCancelacion IN (3)").ToEntero
+
+        If Not CveEstatusOrdenServicioCancelacion > 0 Then
+            Alert("No se encontro el esatus de cancelacion", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Not CveMotivoCancelacion > 0 Then
+            Alert("No se encontro la clave el motivo de cancelacion", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CvePedido, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
+
+        Try
+
+            Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing
+
+            If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then
+
+                Dim SWatch As New Stopwatch
+                SWatch.Start()
+
+                Dim DevAlm As Boolean = True
+
+                ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
+
+                resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio")
+
+                If resp.HuboError Then
+                    Alert($"Se presento un error al cancelar la orden de servicio, {resp.Mensaje}".ToString(), TipoMensaje.MsgError)
+                Else
+                    Alert($"la orden de servicio  se cancelada correctamente, {resp.Mensaje}", resp.TipoMensaje, " location.reload(true); ")
+
+                    Dim objGeneral As New ClsGenerales
+                    objGeneral.AddHistorialBitacora(256, -1, -1, -1, CveOS, -1, -1, -1, "Cancelada", DdlEstatusOS.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", "", "")
+                    objGeneral.Dispose()
+
+
+                End If
+
+            End If
+
+        Catch ex As Exception
+            Alert("Se presento un error al cancelar la orden de servicio")
+        End Try
+
+    End Sub
 End Class