diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index b4d4021b6..7d26e4509 100644
--- a/App_Code/ClsVentas.vb
+++ b/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
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index ef6c31bd3..59e0d4f5f 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -305,9 +305,9 @@
-
+ <%--
-
+ --%>
Imprimir
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 92b60cd02..f2601d1db 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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