From 6910198613c9d3006c846776aa49b8c615203de6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 Jul 2024 15:10:23 -0700 Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20referencia=20a=20la=20op?= =?UTF-8?q?ci=C3=B3n=20de=20"cancelar=20pedido"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 34 ++++++++++----------- Ventas/Ventas.aspx | 4 +-- Ventas/Ventas.aspx.vb | 69 ++++++++++++++++++------------------------- 3 files changed, 48 insertions(+), 59 deletions(-) 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