AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-07-04 15:10:23 -07:00
parent 41430372f5
commit 6910198613
3 changed files with 48 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
App_Code/ClsVentas.vb
View File

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

4
Ventas/Ventas.aspx
View File

@@ -305,9 +305,9 @@
<li> <li>
<asp:LinkButton ID="LnkUUIDRelacionados" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> UUID Relacionados" OnClick="LnkUUIDRelacionados_Click" Visible="false" /> <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> <%--<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" /> <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"> <asp:Panel runat="server" ID="PnlImprimir" Visible="False">
<li> <li>
<asp:LinkButton runat="server" ID="LnkImprimir"><i class="fa fa-print"></i> Imprimir</asp:LinkButton> <asp:LinkButton runat="server" ID="LnkImprimir"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>

69
Ventas/Ventas.aspx.vb
View File

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