SMS - OS, poder hacer la cancelación de una OS/Pedido. cuando la OS no esté como finalizada.
This commit is contained in:
rakcsle
@@ -646,7 +646,7 @@ Namespace Modelos
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Me.RealizarDevolucionAlmacen Then
|
||||
If Me.RealizarDevolucionAlmacen = 1 Then
|
||||
Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta
|
||||
End If
|
||||
|
||||
@@ -5523,12 +5523,12 @@ Namespace Modelos
|
||||
''' <param name="RealizarDevolucionAlmacen"></param>
|
||||
''' <param name="ListaRemisionesCancelar"></param>
|
||||
''' <returns></returns>
|
||||
Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False) As MCancelacionVentaMensaje
|
||||
Public Function CancelarFactura(RealizarDevolucionAlmacen As Integer, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False, Optional GeneraIxCconPago As Boolean = False) As MCancelacionVentaMensaje
|
||||
'Comprobante emitido con errores sin relación
|
||||
Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GeneraIxCconPago)
|
||||
End Function
|
||||
|
||||
Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False,
|
||||
Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Integer = 0,
|
||||
Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1",
|
||||
Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "",
|
||||
Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0,
|
||||
@@ -5684,7 +5684,7 @@ Namespace Modelos
|
||||
Dim RevivirRemisiones As Boolean = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count))
|
||||
|
||||
'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN
|
||||
If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then
|
||||
If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not (RealizarDevolucionAlmacen.Contiene(1, 2)) And RevivirRemisiones = False Then
|
||||
|
||||
Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene movimientos de inventario."
|
||||
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
|
||||
@@ -6128,7 +6128,7 @@ Namespace Modelos
|
||||
|
||||
If Not ErrorCancelar AndAlso TieneSalida Then
|
||||
|
||||
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen Then
|
||||
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen = 1 Then
|
||||
'REALIZA DEVOLUCION A LAS SALIDAS PENDIENTES
|
||||
If Not ObjFactura.TipoDocto.Contiene("Rem", "Ped") Then
|
||||
For Each RowMovimiento As DataRow In DtSalidas.Rows
|
||||
@@ -6278,7 +6278,7 @@ Namespace Modelos
|
||||
End If
|
||||
|
||||
'AGREGA BITACORA A VENTA
|
||||
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimientoDevolucion > 0 Then
|
||||
If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen = 1 AndAlso CveMovimientoDevolucion > 0 Then
|
||||
Dim MensajeBitacora As String = "Devuelta"
|
||||
If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoDevolucion, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
|
||||
MensajeError = "Ocurrió un error al agregar la bitacora."
|
||||
@@ -6443,7 +6443,7 @@ Namespace Modelos
|
||||
End If
|
||||
|
||||
'CANCELACION DE MOVIMIENTOS DE REMISION, PEDIDOS
|
||||
If Not ErrorCancelar AndAlso ObjFactura.TipoDocto.Contiene("Rem", "Ped") AndAlso RealizarDevolucionAlmacen AndAlso ObjFactura.SaldoAlmacen <> 0 Then
|
||||
If Not ErrorCancelar AndAlso ObjFactura.TipoDocto.Contiene("Rem", "Ped") AndAlso RealizarDevolucionAlmacen = 1 AndAlso ObjFactura.SaldoAlmacen <> 0 Then
|
||||
Dim CveMovimientoUsado As Integer = -1
|
||||
Dim CveAlmacenUsado As Integer = 0
|
||||
Dim CveAlmacenGeneral As Integer = 0
|
||||
@@ -6547,7 +6547,7 @@ Namespace Modelos
|
||||
|
||||
'EMPRESA HOSPITALARIA - SI ES PEDIDO LA DEVOLUCION SE DEBE HACER DESPUES DE CANCELAR EL PEDIDO
|
||||
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ObjFactura.TipoDocto = "Ped" Then
|
||||
If Not RealizarDevolucionAlmacen AndAlso TieneAlmacen Then
|
||||
If Not RealizarDevolucionAlmacen = 1 AndAlso TieneAlmacen Then
|
||||
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
|
||||
ErrorCancelar = True
|
||||
MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
|
||||
@@ -6556,6 +6556,22 @@ Namespace Modelos
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ObjFactura.TipoDocto = "Ped" Then
|
||||
If Not RealizarDevolucionAlmacen.Contiene(1, 2) AndAlso TieneAlmacen Then
|
||||
If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
|
||||
ErrorCancelar = True
|
||||
MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'If RealizarDevolucionAlmacen = 2 AndAlso TieneAlmacen Then
|
||||
' If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
|
||||
' ErrorCancelar = True
|
||||
' MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'CANCELA CONTRATOS
|
||||
If Not ErrorCancelar Then
|
||||
If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
|
||||
@@ -6665,6 +6681,7 @@ Namespace Modelos
|
||||
If Not ObjVentas.UpdateEstatusOCRelacionada(ObjFactura.CveVenta, CveEstatusCancelacion, ObjFactura.CveEmpresa) Then
|
||||
ErrorCancelar = True
|
||||
MensajeError = "Ocurrió un error al cancelar la orden de servicio"
|
||||
else
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
@@ -6673,12 +6690,14 @@ Namespace Modelos
|
||||
|
||||
'MARCA LA VENTA PARA REALIZAR LA DEVOLUCION POSTERIORMENTE
|
||||
If Not ErrorCancelar Then
|
||||
If RealizarDevolucionAlmacen AndAlso CveAlmacenDevolucion > 0 Then
|
||||
If Not ObjVentas.UpdateVentaRealizarDevolucion(CveVenta, RealizarDevolucionAlmacen, CveAlmacenDevolucion) Then
|
||||
|
||||
If RealizarDevolucionAlmacen = 1 AndAlso CveAlmacenDevolucion > 0 Then
|
||||
If Not ObjVentas.UpdateVentaRealizarDevolucion(CveVenta, True, CveAlmacenDevolucion) Then
|
||||
ErrorCancelar = True
|
||||
MensajeError = "Ocurrió un error al marcar la venta para devolución"
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'ACTUALIZA ESTATUS
|
||||
@@ -7628,7 +7647,7 @@ Namespace Modelos
|
||||
Public Property TipoDocto As String
|
||||
Public Property TipoComprobante As String
|
||||
Public Property RefDocto As String = ""
|
||||
Public Property RealizarDevolucionAlmacen As Boolean
|
||||
Public Property RealizarDevolucionAlmacen As Integer
|
||||
Public Property CveAlmacenDevolucionVenta As Integer
|
||||
Public Property TipoDocumento As String
|
||||
|
||||
|
||||
@@ -1723,7 +1723,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
|
||||
|
||||
If ObjFacturaCancelacion.TipoDocto = "Rem" Then
|
||||
Dim respuesta = ObjFacturaCancelacion.CancelarFactura(True, New List(Of Integer))
|
||||
Dim respuesta = ObjFacturaCancelacion.CancelarFactura(1, New List(Of Integer))
|
||||
If respuesta IsNot Nothing Then
|
||||
retorno = JsonConvert.SerializeObject(respuesta)
|
||||
End If
|
||||
|
||||
@@ -6729,7 +6729,7 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
If importeMNTemp > 0 Then
|
||||
importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal
|
||||
'importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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()
|
||||
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
|
||||
@@ -1741,7 +1741,7 @@ Partial Class Ventas_PortalCliente
|
||||
If GvRow.DataKey("CveVenta").ToEntero() > 0 Then
|
||||
Dim ObjFactura As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
|
||||
If ObjFactura IsNot Nothing Then
|
||||
Dim Resp = ObjFactura.CancelarFactura(RealizarDevolucionAlmacen:=False, ListaRemisionesCancelar:=New List(Of Integer))
|
||||
Dim Resp = ObjFactura.CancelarFactura(0, ListaRemisionesCancelar:=New List(Of Integer))
|
||||
Alert(Resp.Mensaje, If(Resp.HuboError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
|
||||
End If
|
||||
Else
|
||||
|
||||
@@ -462,7 +462,7 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>MetodoPago</HeaderTemplate>
|
||||
<HeaderTemplate>Metodo de Pago</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("MetodoPago", "{0}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -544,7 +544,7 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>Ubicacion</HeaderTemplate>
|
||||
<HeaderTemplate>Ubicación</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -562,7 +562,7 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField Visible="false">
|
||||
<HeaderTemplate>Direccion</HeaderTemplate>
|
||||
<HeaderTemplate>Dirección</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDireccion" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -669,6 +669,12 @@
|
||||
<asp:Literal ID="LtlCLABE" runat="server" Text='<%# Eval("CLABE") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Left" Visible="false">
|
||||
<HeaderTemplate>Correo Personal</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCorreo" runat="server" Text='<%# Eval("Correo") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
<RowStyle CssClass="Texto" />
|
||||
@@ -803,7 +809,7 @@
|
||||
<asp:CheckBox ID="ChkPorPrimaVacacional" runat="server" Text="Por Prima Vacacional" />
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkUbicacion" runat="server" Text="Ubicacion" />
|
||||
<asp:CheckBox ID="ChkUbicacion" runat="server" Text="Ubicación" />
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkFechaNacimiento" runat="server" Text="Fecha Nacimiento" />
|
||||
@@ -814,7 +820,7 @@
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkDireccion" runat="server" Text="Direccion" />
|
||||
<asp:CheckBox ID="ChkDireccion" runat="server" Text="Dirección" />
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkCP" runat="server" Text="CP" />
|
||||
@@ -850,6 +856,9 @@
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" />
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<asp:CheckBox ID="ChkCorreo" runat="server" Text="Correo Personal" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-3">
|
||||
|
||||
@@ -349,272 +349,55 @@ Partial Class RH_CatPersonal
|
||||
#Region "P E R Z O N A L I Z A R"
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||
|
||||
|
||||
If ChkCodigo.Checked Then
|
||||
GvDatos.Columns(0).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(0).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNombre.Checked Then
|
||||
GvDatos.Columns(1).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(1).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNSS.Checked Then
|
||||
GvDatos.Columns(2).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(2).Visible = False
|
||||
End If
|
||||
|
||||
If ChlRFC.Checked Then
|
||||
GvDatos.Columns(3).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(3).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTurno.Checked Then
|
||||
GvDatos.Columns(4).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(4).Visible = False
|
||||
End If
|
||||
|
||||
If ChkPuesto.Checked Then
|
||||
GvDatos.Columns(5).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(5).Visible = False
|
||||
End If
|
||||
|
||||
If ChkDepartamento.Checked Then
|
||||
GvDatos.Columns(6).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(6).Visible = False
|
||||
End If
|
||||
|
||||
If ChkRuta.Checked Then
|
||||
GvDatos.Columns(7).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(7).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEscolaridad.Checked Then
|
||||
GvDatos.Columns(8).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(8).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstadoCivil.Checked Then
|
||||
GvDatos.Columns(9).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(9).Visible = False
|
||||
End If
|
||||
|
||||
If ChkGenero.Checked Then
|
||||
GvDatos.Columns(10).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(10).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstatusPersonal.Checked Then
|
||||
GvDatos.Columns(11).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(11).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSubProyecto.Checked Then
|
||||
GvDatos.Columns(12).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(12).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSupervisor.Checked Then
|
||||
GvDatos.Columns(13).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(13).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTipoPeriodo.Checked Then
|
||||
GvDatos.Columns(14).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(14).Visible = False
|
||||
End If
|
||||
|
||||
If ChkMetodoPago.Checked Then
|
||||
GvDatos.Columns(15).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(15).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTipoContrato.Checked Then
|
||||
GvDatos.Columns(16).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(16).Visible = False
|
||||
End If
|
||||
|
||||
If ChkMotivoBaja.Checked Then
|
||||
GvDatos.Columns(17).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(17).Visible = False
|
||||
End If
|
||||
|
||||
If ChkProyecto.Checked Then
|
||||
GvDatos.Columns(18).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(18).Visible = False
|
||||
End If
|
||||
|
||||
If ChkFechaIngreso.Checked Then
|
||||
GvDatos.Columns(19).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(19).Visible = False
|
||||
End If
|
||||
If ChkSeInscribioSS.Checked Then
|
||||
GvDatos.Columns(20).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(20).Visible = False
|
||||
End If
|
||||
If ChkSalarioDiarioPago.Checked Then
|
||||
GvDatos.Columns(21).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(21).Visible = False
|
||||
End If
|
||||
If ChkSalarioDiario.Checked Then
|
||||
GvDatos.Columns(22).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(22).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSDI.Checked Then
|
||||
GvDatos.Columns(23).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(23).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSalarioDiarioSS.Checked Then
|
||||
GvDatos.Columns(24).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(24).Visible = False
|
||||
End If
|
||||
|
||||
If ChkBono.Checked Then
|
||||
GvDatos.Columns(25).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(25).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNumDiasAguinaldo.Checked Then
|
||||
GvDatos.Columns(26).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(26).Visible = False
|
||||
End If
|
||||
|
||||
If ChkPorPrimaVacacional.Checked Then
|
||||
GvDatos.Columns(27).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(27).Visible = False
|
||||
End If
|
||||
|
||||
If ChkUbicacion.Checked Then
|
||||
GvDatos.Columns(28).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(28).Visible = False
|
||||
End If
|
||||
|
||||
If ChkFechaNacimiento.Checked Then
|
||||
GvDatos.Columns(29).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(29).Visible = False
|
||||
End If
|
||||
|
||||
If ChkLugarNacimiento.Checked Then
|
||||
GvDatos.Columns(30).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(30).Visible = False
|
||||
End If
|
||||
|
||||
If ChkDireccion.Checked Then
|
||||
GvDatos.Columns(31).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(31).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCP.Checked Then
|
||||
GvDatos.Columns(32).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(32).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCiudad.Checked Then
|
||||
GvDatos.Columns(33).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(33).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstado.Checked Then
|
||||
GvDatos.Columns(34).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(34).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTelefono.Checked Then
|
||||
GvDatos.Columns(35).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(35).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCelular.Checked Then
|
||||
GvDatos.Columns(36).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(36).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCURP.Checked Then
|
||||
GvDatos.Columns(37).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(37).Visible = False
|
||||
End If
|
||||
If ChkNombrePadre.Checked Then
|
||||
GvDatos.Columns(38).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(38).Visible = False
|
||||
End If
|
||||
If ChkNombreMadre.Checked Then
|
||||
GvDatos.Columns(39).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(39).Visible = False
|
||||
End If
|
||||
|
||||
If ChkClienteAsignado.Checked Then
|
||||
GvDatos.Columns(40).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(40).Visible = False
|
||||
End If
|
||||
|
||||
If ChkUsuario.Checked Then
|
||||
GvDatos.Columns(42).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(42).Visible = False
|
||||
End If
|
||||
If ChkRiesgoPuesto.Checked Then
|
||||
GvDatos.Columns(43).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(43).Visible = False
|
||||
End If
|
||||
If ChkRegistroPatronal.Checked Then
|
||||
GvDatos.Columns(44).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(44).Visible = False
|
||||
End If
|
||||
If ChkTipodeSalario.Checked Then
|
||||
GvDatos.Columns(45).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(45).Visible = False
|
||||
End If
|
||||
GvDatos.Columns(0).Visible = ChkCodigo.Checked
|
||||
GvDatos.Columns(1).Visible = ChkNombre.Checked
|
||||
GvDatos.Columns(2).Visible = ChkNSS.Checked
|
||||
GvDatos.Columns(3).Visible = ChlRFC.Checked
|
||||
GvDatos.Columns(4).Visible = ChkTurno.Checked
|
||||
GvDatos.Columns(5).Visible = ChkPuesto.Checked
|
||||
GvDatos.Columns(6).Visible = ChkDepartamento.Checked
|
||||
GvDatos.Columns(7).Visible = ChkRuta.Checked
|
||||
GvDatos.Columns(8).Visible = ChkEscolaridad.Checked
|
||||
GvDatos.Columns(9).Visible = ChkEstadoCivil.Checked
|
||||
GvDatos.Columns(10).Visible = ChkGenero.Checked
|
||||
GvDatos.Columns(11).Visible = ChkEstatusPersonal.Checked
|
||||
GvDatos.Columns(12).Visible = ChkSubProyecto.Checked
|
||||
GvDatos.Columns(13).Visible = ChkSupervisor.Checked
|
||||
GvDatos.Columns(14).Visible = ChkTipoPeriodo.Checked
|
||||
GvDatos.Columns(15).Visible = ChkMetodoPago.Checked
|
||||
GvDatos.Columns(16).Visible = ChkTipoContrato.Checked
|
||||
GvDatos.Columns(17).Visible = ChkMotivoBaja.Checked
|
||||
GvDatos.Columns(18).Visible = ChkProyecto.Checked
|
||||
GvDatos.Columns(19).Visible = ChkFechaIngreso.Checked
|
||||
GvDatos.Columns(20).Visible = ChkSeInscribioSS.Checked
|
||||
GvDatos.Columns(21).Visible = ChkSalarioDiarioPago.Checked
|
||||
GvDatos.Columns(22).Visible = ChkSalarioDiario.Checked
|
||||
GvDatos.Columns(23).Visible = ChkSDI.Checked
|
||||
GvDatos.Columns(24).Visible = ChkSalarioDiarioSS.Checked
|
||||
GvDatos.Columns(25).Visible = ChkBono.Checked
|
||||
GvDatos.Columns(26).Visible = ChkNumDiasAguinaldo.Checked
|
||||
GvDatos.Columns(27).Visible = ChkPorPrimaVacacional.Checked
|
||||
GvDatos.Columns(28).Visible = ChkUbicacion.Checked
|
||||
GvDatos.Columns(29).Visible = ChkFechaNacimiento.Checked
|
||||
GvDatos.Columns(30).Visible = ChkLugarNacimiento.Checked
|
||||
GvDatos.Columns(31).Visible = ChkDireccion.Checked
|
||||
GvDatos.Columns(32).Visible = ChkCP.Checked
|
||||
GvDatos.Columns(33).Visible = ChkCiudad.Checked
|
||||
GvDatos.Columns(34).Visible = ChkEstado.Checked
|
||||
GvDatos.Columns(35).Visible = ChkTelefono.Checked
|
||||
GvDatos.Columns(36).Visible = ChkCelular.Checked
|
||||
GvDatos.Columns(37).Visible = ChkCURP.Checked
|
||||
GvDatos.Columns(38).Visible = ChkNombrePadre.Checked
|
||||
GvDatos.Columns(39).Visible = ChkNombreMadre.Checked
|
||||
GvDatos.Columns(40).Visible = ChkClienteAsignado.Checked
|
||||
GvDatos.Columns(42).Visible = ChkUsuario.Checked
|
||||
GvDatos.Columns(43).Visible = ChkRiesgoPuesto.Checked
|
||||
GvDatos.Columns(44).Visible = ChkRegistroPatronal.Checked
|
||||
GvDatos.Columns(45).Visible = ChkTipodeSalario.Checked
|
||||
GvDatos.Columns(46).Visible = ChkBanco.Checked
|
||||
GvDatos.Columns(47).Visible = ChkCuentaBancaria.Checked
|
||||
GvDatos.Columns(48).Visible = ChkClaBE.Checked
|
||||
|
||||
GvDatos.Columns(48).Visible = ChkCLABE.Checked
|
||||
GvDatos.Columns(49).Visible = ChkCorreo.Checked
|
||||
|
||||
If (GvDatos.Rows.Count > 0) Then
|
||||
GvDatos.UseAccessibleHeader = True
|
||||
|
||||
@@ -78,7 +78,7 @@ Partial Class ListadoBoletos
|
||||
If ObjRem.DtDetalle.Rows.Count > 0 Then
|
||||
'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION
|
||||
If ObjRem.DtDetalle.Rows.Count = 1 OrElse BoletosVigentes <= 1 Then
|
||||
Dim RespCancelacion = ObjRem.CancelarFactura(False, ValidarSAT:=False, CancelarBoletos:=True, ListaRemisionesCancelar:=New List(Of Integer))
|
||||
Dim RespCancelacion = ObjRem.CancelarFactura(0, ValidarSAT:=False, CancelarBoletos:=True, ListaRemisionesCancelar:=New List(Of Integer))
|
||||
If RespCancelacion IsNot Nothing Then
|
||||
TieneError = RespCancelacion.HuboError
|
||||
Else
|
||||
|
||||
@@ -572,7 +572,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
//SI REGISTRA SALIDA DE ALMACÉN EN AUTOMÁTICO Y ES DEVOLUCION QUE REALIZE EL MOVMIENTO DE SALIDA DE ALMACEN
|
||||
if ((UsuarioActual.Empresa.Funcionalidad(567) == "1" || UsuarioActual.Empresa.Funcionalidad(531) == "1") && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0)
|
||||
{
|
||||
factura.RealizarDevolucionAlmacen = true;
|
||||
factura.RealizarDevolucionAlmacen = 1;
|
||||
}
|
||||
|
||||
bool AplicaCancelacionConPagos = false;
|
||||
@@ -583,7 +583,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
|
||||
if (UsuarioActual.TienePermisoProceso(269) && UsuarioActual.Empresa.Funcionalidad(109) == "1" && factura.TipoDocto == "Ing" && factura.SaldoAlmacen != 0)
|
||||
{
|
||||
factura.RealizarDevolucionAlmacen = true;
|
||||
factura.RealizarDevolucionAlmacen = 1;
|
||||
}
|
||||
retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, AplicaCancelacionConPagos: AplicaCancelacionConPagos);
|
||||
|
||||
|
||||
@@ -26067,7 +26067,9 @@ Partial Class Ventas
|
||||
AplicaCancelacionConPagos = True
|
||||
End If
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
|
||||
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
|
||||
strMensaje.Append(resp.Mensaje)
|
||||
Dim DtBonificaciones As DataTable = Nothing
|
||||
|
||||
@@ -26084,7 +26086,7 @@ Partial Class Ventas
|
||||
Try
|
||||
'VERIFICA SI TIENE RNC DE BONIFICACION
|
||||
Dim Bon As New Modelos.Factura(UsuarioActual, RowBon("CveVentaBonificacion").ToString().ToEntero(), UsuarioActual.CveEmpresa, VerificaAlmacen:=False)
|
||||
Dim respBon As Modelos.Factura.MCancelacionVentaMensaje = Bon.CancelarFactura(False, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
|
||||
Dim respBon As Modelos.Factura.MCancelacionVentaMensaje = Bon.CancelarFactura(0, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
|
||||
If respBon.HuboError Then
|
||||
strMensaje.AppendFormat("<br/>Ocurrió un error al cancelar la remisión de NC de bonificación <b> {0} </b>.", Bon.SerieFolio)
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user