-- se quitó referencia a la opción de "cancelar pedido"

App_Code/ClsVentas.vb

@@ -3484,25 +3484,25 @@ Public Class ClsVentas
     End Function
 #End Region
 
-#Region "  CANCELAR PEDIDO  "
-    Public Function CancelarPedido(CveVenta As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Vta_CancelarPedido")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '#Region "  CANCELAR PEDIDO  "
+    '    Public Function CancelarPedido(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+    '        Dim Retorno As Boolean = False
+    '        DataAdapter("PA_Vta_CancelarPedido")
+    '        With SqlAdapter.SelectCommand.Parameters
+    '            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+    '            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        End With
 
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al cancelar el pedido.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
+    '        Try
+    '            SqlAdapter.Fill(Data)
+    '            Retorno = True
+    '        Catch ex As Exception
+    '            OnError("Ocurrió un error al cancelar el pedido.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '        End Try
 
-        Return Retorno
-    End Function
-#End Region
+    '        Return Retorno
+    '    End Function
+    '#End Region
 
 #Region "Punto Venta"
     Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean

Ventas/Ventas.aspx

@@ -305,9 +305,9 @@
             <li>
                 <asp:LinkButton ID="LnkUUIDRelacionados" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  UUID Relacionados" OnClick="LnkUUIDRelacionados_Click" Visible="false" />
             </li>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="LBCancelarPedido" runat="server" CausesValidation="False" CommandName="Delete" Text="<i class='fa fa-ban'></i>  Cancelar Pedido" OnClick="LBCancelarPedido_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Estás seguro que deseas cancelar el Pedido?" data-btn-ok-label="si" Visible="false" />
-            </li>
+            </li>--%>
             <asp:Panel runat="server" ID="PnlImprimir" Visible="False">
                 <li>
                     <asp:LinkButton runat="server" ID="LnkImprimir"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>

Ventas/Ventas.aspx.vb

@@ -2892,13 +2892,13 @@ Partial Class Ventas
                     TrFolioFiscal.Visible = True
 
                     'PERMISO PARA CANCELAR PEDIDO
-                    If GvInv.Rows.Count = 0 Then
-                        If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then
-                            If UsuarioActual.TienePermisoProceso(186) Then
-                                LBCancelarPedido.Visible = True
-                            End If
-                        End If
-                    End If
+                    'If GvInv.Rows.Count = 0 Then
+                    '    If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then
+                    '        If UsuarioActual.TienePermisoProceso(186) Then
+                    '            LBCancelarPedido.Visible = True
+                    '        End If
+                    '    End If
+                    'End If
 
                     'CARGA GV DE COMERCIO EXTERIOR SI NO ESTA TIMBRADA
                     If LblSeTimbro.Text = "No" Then
@@ -5033,12 +5033,7 @@ Partial Class Ventas
                         AplicaCancelarRemision = CBool(DbRowVenta("AplicaCancelarRemision").ToString())
                         If AplicaCancelarRemision AndAlso CveEstatus.Contiene(2, 3) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then DivCanRem.Visible = True
 
-
-                        If CveEstatus = 5 Then LbCancelarDocumento.Enabled = False
-                        'If CveEstatus = 20 Then
-                        '    LbCancelarDocumentoManual.Visible = True
-                        'End If
-
+                        If CveEstatus.Contiene(5, 14) Then LbCancelarDocumento.Enabled = False
 
                         If (Not CveEstatus.Contiene(4, 5, 12, 13, 20, 23) OrElse (CveEstatus = 5 AndAlso DbRowVenta("CveEstatusRefacturacion").ToString().ToEntero() = 4)) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Ant") AndAlso UsuarioActual.TienePermisoProceso(159) Then
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
@@ -5046,7 +5041,6 @@ Partial Class Ventas
                                 If Not (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") Then
                                     LkRefacturacion.Visible = True
                                 End If
-
                                 If (CveEstatus = 5 AndAlso DbRowVenta("CveEstatusRefacturacion").ToString().ToEntero() = 4) Then
                                     RefacturarCancelada = True
                                 End If
@@ -25398,9 +25392,7 @@ Partial Class Ventas
                         End If
                     End Using
                 End If
-
             End If
-
         End If
 
         If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
@@ -25423,7 +25415,6 @@ Partial Class Ventas
                 RFCReceptor = Me.RFCReceptorVenta
             End If
 
-
             Dim SWatch As New Stopwatch
             SWatch.Start()
             Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
@@ -25491,7 +25482,6 @@ Partial Class Ventas
                             GvFacturasPadreCancelar.DataBind()
                         End If
                     End If
-
                 End If
 
                 If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
@@ -25565,7 +25555,6 @@ Partial Class Ventas
 
             RegistraScript("$('#ModalCancelarDocumento').modal();")
         Else
-
             CancelarDocumento()
         End If
 
@@ -26339,26 +26328,26 @@ Partial Class Ventas
     End Function
 #End Region
 
-#Region "  CANCELAR PEDIDO  "
-    Protected Sub LBCancelarPedido_Click(sender As Object, e As EventArgs)
-        Dim ObjVentas As New ClsVentas
+    '#Region "  CANCELAR PEDIDO  "
+    '    Protected Sub LBCancelarPedido_Click(sender As Object, e As EventArgs)
+    '        Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.CancelarPedido(CveVenta, UsuarioActual.CveEmpresa) Then
-            Alert("El pedido se canceló correctamente.", TipoMensaje.MsgInformacion)
+    '        If ObjVentas.CancelarPedido(CveVenta, UsuarioActual.CveEmpresa) Then
+    '            Alert("El pedido se canceló correctamente.", TipoMensaje.MsgInformacion)
 
-            'DdlEstatus.Items.Clear()
-            'DdlEstatus.Items.Insert(0, New ListItem(GlobalDTEstatusFactura.FiltroPrimeroValor("EstatusFactura", "CveEstatusFactura = 14"), "14"))
-            'DdlEstatus.SelectedValue = "14"
-            'DdlEstatus.DataBind()
-            'DdlEstatus.Enabled = False
-            CveEstatus = 14
-            UpEstatus.Update()
+    '            'DdlEstatus.Items.Clear()
+    '            'DdlEstatus.Items.Insert(0, New ListItem(GlobalDTEstatusFactura.FiltroPrimeroValor("EstatusFactura", "CveEstatusFactura = 14"), "14"))
+    '            'DdlEstatus.SelectedValue = "14"
+    '            'DdlEstatus.DataBind()
+    '            'DdlEstatus.Enabled = False
+    '            CveEstatus = 14
+    '            UpEstatus.Update()
 
-        End If
-        ObjVentas.Dispose()
-    End Sub
+    '        End If
+    '        ObjVentas.Dispose()
+    '    End Sub
 
-#End Region
+    '#End Region
 
 #Region "D E V O L U C I O N   D E   P E D I D O "
     Private Sub CargaFacturaDevolucionPedido()
@@ -26613,8 +26602,8 @@ Partial Class Ventas
         DdlClasificacionPS.SelectedIndex = 0
         'DdlMetodoInv.SelectedIndex = 0
         ChkRequiereSerie.Checked = False
-        DdlMarca.SelectedIndex = 0
-        DdlMarcaPSDes.SelectedIndex = 0
+        DdlMarca.SelectedIndex = -1
+        DdlMarcaPSDes.SelectedIndex = -1
         CargaClasificacionesDetalles()
         CargaMetodosPSModal()
         UpAddPS.Update()
@@ -30576,7 +30565,7 @@ Partial Class Ventas
         LnkCotizaciones.Visible = False
         LnkOCs.Visible = False
         LbCancelarDocumento.Visible = False
-        LBCancelarPedido.Visible = False
+        'LBCancelarPedido.Visible = False
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False
@@ -31016,7 +31005,7 @@ Partial Class Ventas
         LnkCotizaciones.Visible = False
         LnkOCs.Visible = False
         LbCancelarDocumento.Visible = False
-        LBCancelarPedido.Visible = False
+        'LBCancelarPedido.Visible = False
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False
@@ -33305,7 +33294,7 @@ Partial Class Ventas
         LnkCotizaciones.Visible = False
         LnkOCs.Visible = False
         LbCancelarDocumento.Visible = False
-        LBCancelarPedido.Visible = False
+        'LBCancelarPedido.Visible = False
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False