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

SMS - OS, poder hacer la cancelación de una OS/Pedido. cuando la OS no esté como finalizada.

Browse Source
This commit is contained in:
rakcsle
2024-08-19 16:24:15 -07:00
parent 8e2c7b0190
commit 705080e5d4
11 changed files with 236 additions and 352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
App_Code/Modelos.vb
View File

@@ -646,7 +646,7 @@ Namespace Modelos
ObjVentas.Dispose() ObjVentas.Dispose()
If Me.RealizarDevolucionAlmacen Then If Me.RealizarDevolucionAlmacen = 1 Then
Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta
End If End If
@@ -5523,12 +5523,12 @@ Namespace Modelos
''' <param name="RealizarDevolucionAlmacen"></param> ''' <param name="RealizarDevolucionAlmacen"></param>
''' <param name="ListaRemisionesCancelar"></param> ''' <param name="ListaRemisionesCancelar"></param>
''' <returns></returns> ''' <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 '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) Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GeneraIxCconPago)
End Function 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 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 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, 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)) 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 '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.Mensaje = "La factura no se puede cancelar debido a que tiene movimientos de inventario."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -6128,7 +6128,7 @@ Namespace Modelos
If Not ErrorCancelar AndAlso TieneSalida Then 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 'REALIZA DEVOLUCION A LAS SALIDAS PENDIENTES
If Not ObjFactura.TipoDocto.Contiene("Rem", "Ped") Then If Not ObjFactura.TipoDocto.Contiene("Rem", "Ped") Then
For Each RowMovimiento As DataRow In DtSalidas.Rows For Each RowMovimiento As DataRow In DtSalidas.Rows
@@ -6225,50 +6225,50 @@ Namespace Modelos
Dim TotalCostoAcumulado As Decimal = 0 Dim TotalCostoAcumulado As Decimal = 0
Dim cont As Integer = 1 Dim cont As Integer = 1
Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER) 'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
For Each RowInv As DataRow In tmpCostos.Rows For Each RowInv As DataRow In tmpCostos.Rows
ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD() ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD()
TotalCostoAcumulado += ValorInventario TotalCostoAcumulado += ValorInventario
'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES
If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then
ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado)
End If
If Not ErrorCancelar Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, Multiplicador * ValorInventario, Multiplicador * ValorInventario, 69, SerieFolio, SerieFolio, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then
ErrorCancelar = True
End If End If
End If
cont += 1
Next
If Not ErrorCancelar Then If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, Multiplicador * TotalCosto, Multiplicador * TotalCosto, 68, SerieFolio, SerieFolio, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, False, Multiplicador * ValorInventario, Multiplicador * ValorInventario, 69, SerieFolio, SerieFolio, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero) Then ErrorCancelar = True
ErrorCancelar = True End If
End If
End If
cont += 1
Next
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, Multiplicador * TotalCosto, Multiplicador * TotalCosto, 68, SerieFolio, SerieFolio, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto) Then 'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
AutoConta = False
End If
If Not ErrorCancelar AndAlso ObjConta.ValidacionesPrePoliza(CvePrePolizaDev, UsuarioActual) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorCancelar = True ErrorCancelar = True
End If End If
End If
'AUTOCONTA - EL MOVIMIENTO 1 ES EL DE VENTA If AutoConta And Not ErrorCancelar Then
If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" ErrorCancelar = True
MensajeError = "Ocurrió un error al contabilizar la prepoliza."
If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
AutoConta = False
End If
If Not ErrorCancelar AndAlso ObjConta.ValidacionesPrePoliza(CvePrePolizaDev, UsuarioActual) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorCancelar = True
End If
End If
If AutoConta And Not ErrorCancelar Then
If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaDev, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
ErrorCancelar = True
MensajeError = "Ocurrió un error al contabilizar la prepoliza."
End If
End If End If
End If
' Else ' Else
'ErrorCancelar = True 'ErrorCancelar = True
'MensajeError = "Ocurrió un Error al ingresar las prepolizas" 'MensajeError = "Ocurrió un Error al ingresar las prepolizas"
@@ -6277,8 +6277,8 @@ Namespace Modelos
End If End If
End If End If
'AGREGA BITACORA A VENTA '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" 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 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." MensajeError = "Ocurrió un error al agregar la bitacora."
@@ -6443,7 +6443,7 @@ Namespace Modelos
End If End If
'CANCELACION DE MOVIMIENTOS DE REMISION, PEDIDOS '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 CveMovimientoUsado As Integer = -1
Dim CveAlmacenUsado As Integer = 0 Dim CveAlmacenUsado As Integer = 0
Dim CveAlmacenGeneral 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 '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 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 If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 1, AplicaDevolucionCompleta:=True) Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "No se pudo actualizar el estatus de almacen del pedido" MensajeError = "No se pudo actualizar el estatus de almacen del pedido"
@@ -6556,6 +6556,22 @@ Namespace Modelos
End If End If
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 'CANCELA CONTRATOS
If Not ErrorCancelar Then If Not ErrorCancelar Then
If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") 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 If Not ObjVentas.UpdateEstatusOCRelacionada(ObjFactura.CveVenta, CveEstatusCancelacion, ObjFactura.CveEmpresa) Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Ocurrió un error al cancelar la orden de servicio" MensajeError = "Ocurrió un error al cancelar la orden de servicio"
else
End If End If
End If End If
End If End If
@@ -6673,12 +6690,14 @@ Namespace Modelos
'MARCA LA VENTA PARA REALIZAR LA DEVOLUCION POSTERIORMENTE 'MARCA LA VENTA PARA REALIZAR LA DEVOLUCION POSTERIORMENTE
If Not ErrorCancelar Then 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 ErrorCancelar = True
MensajeError = "Ocurrió un error al marcar la venta para devolución" MensajeError = "Ocurrió un error al marcar la venta para devolución"
End If End If
End If End If
End If End If
'ACTUALIZA ESTATUS 'ACTUALIZA ESTATUS
@@ -7628,7 +7647,7 @@ Namespace Modelos
Public Property TipoDocto As String Public Property TipoDocto As String
Public Property TipoComprobante As String Public Property TipoComprobante As String
Public Property RefDocto As String = "" Public Property RefDocto As String = ""
Public Property RealizarDevolucionAlmacen As Boolean Public Property RealizarDevolucionAlmacen As Integer
Public Property CveAlmacenDevolucionVenta As Integer Public Property CveAlmacenDevolucionVenta As Integer
Public Property TipoDocumento As String Public Property TipoDocumento As String

2
Ashx/SIGWeb.ashx
View File

@@ -1723,7 +1723,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
If ObjFacturaCancelacion.TipoDocto = "Rem" Then 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 If respuesta IsNot Nothing Then
retorno = JsonConvert.SerializeObject(respuesta) retorno = JsonConvert.SerializeObject(respuesta)
End If End If

2
Compras/Compras.aspx.vb
View File

@@ -6729,7 +6729,7 @@ Partial Class Compras_Compras
Next Next
If importeMNTemp > 0 Then 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 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 ErrorPrepoliza = True

4
OS/OrdenesServicios.aspx
View File

@@ -529,7 +529,9 @@
<asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" /> <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="BtnGarantia" runat="server" Text="Ingresar como Garantia" Visible="false" />
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" 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" /> <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

71
OS/OrdenesServicios.aspx.vb
View File

@@ -5,6 +5,8 @@ Imports Extensiones
Imports System.IO Imports System.IO
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Diagnostics
Imports System.ServiceModel.Security
Partial Class OS_OrdenesServicios Partial Class OS_OrdenesServicios
Inherits ClsPaginas Inherits ClsPaginas
@@ -470,6 +472,13 @@ Partial Class OS_OrdenesServicios
DVUsuarioAtendio3.Visible = True DVUsuarioAtendio3.Visible = True
End If End If
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 If
End Sub End Sub
@@ -911,7 +920,13 @@ Partial Class OS_OrdenesServicios
End Sub End Sub
Private Sub CargaEstatusOS() Private Sub CargaEstatusOS()
DdlEstatusOS.Items.Clear() DdlEstatusOS.Items.Clear()
DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) 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.DataBind()
'DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") 'DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC")
End Sub End Sub
@@ -3579,4 +3594,58 @@ Partial Class OS_OrdenesServicios
End If End If
End If End If
End Sub 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 End Class

2
PortalCliente/PortalCliente.aspx.vb
View File

@@ -1741,7 +1741,7 @@ Partial Class Ventas_PortalCliente
If GvRow.DataKey("CveVenta").ToEntero() > 0 Then If GvRow.DataKey("CveVenta").ToEntero() > 0 Then
Dim ObjFactura As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) Dim ObjFactura As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa)
If ObjFactura IsNot Nothing Then 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)) Alert(Resp.Mensaje, If(Resp.HuboError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
End If End If
Else Else

69
RH/CatPersonal.aspx
View File

@@ -462,19 +462,19 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>MetodoPago</HeaderTemplate> <HeaderTemplate>Metodo de Pago</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("MetodoPago", "{0}") %>'></asp:Literal> &nbsp;<asp:Literal ID="LtlMetodoPago" runat="server" Text='<%# Eval("MetodoPago", "{0}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>TipoContrato</HeaderTemplate> <HeaderTemplate>Tipo Contrato</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlTipoContrato" runat="server" Text='<%# Eval("TipoContrato", "{0}") %>'></asp:Literal> &nbsp;<asp:Literal ID="LtlTipoContrato" runat="server" Text='<%# Eval("TipoContrato", "{0}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>MotivoBaja</HeaderTemplate> <HeaderTemplate>Motivo Baja</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
&nbsp;<asp:Literal ID="LtlMotivoBaja" runat="server" Text='<%# Eval("MotivoBaja", "{0}") %>'></asp:Literal> &nbsp;<asp:Literal ID="LtlMotivoBaja" runat="server" Text='<%# Eval("MotivoBaja", "{0}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -486,7 +486,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>FechaIngreso</HeaderTemplate> <HeaderTemplate>Fecha Ingreso</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaIngreso" runat="server" Text='<%# Eval("FechaIngreso", "{0:dd/MM/yyyy}") %>'></asp:Literal> <asp:Literal ID="LtlFechaIngreso" runat="server" Text='<%# Eval("FechaIngreso", "{0:dd/MM/yyyy}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -502,13 +502,13 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>SalarioDiarioPago</HeaderTemplate> <HeaderTemplate>Salario Diario Pago</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSalarioDiarioPago" runat="server" Text='<%# Eval("SalarioDiarioPago") %>'></asp:Literal> <asp:Literal ID="LtlSalarioDiarioPago" runat="server" Text='<%# Eval("SalarioDiarioPago") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>SalarioDiario</HeaderTemplate> <HeaderTemplate>Salario Diario</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSalarioDiario" runat="server" Text='<%# Eval("SalarioDiario") %>'></asp:Literal> <asp:Literal ID="LtlSalarioDiario" runat="server" Text='<%# Eval("SalarioDiario") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -520,7 +520,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>SalarioDiarioSS</HeaderTemplate> <HeaderTemplate>Salario DiarioSS</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSS") %>'></asp:Literal> <asp:Literal ID="LtlSalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSS") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -532,37 +532,37 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>NumDiasAguinaldo</HeaderTemplate> <HeaderTemplate>Num Dias Aguinaldo</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlNumDiasAguinaldo" runat="server" Text='<%# Eval("NumDiasAguinaldo") %>'></asp:Literal> <asp:Literal ID="LtlNumDiasAguinaldo" runat="server" Text='<%# Eval("NumDiasAguinaldo") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>PorPrimaVacacional</HeaderTemplate> <HeaderTemplate>Por Prima Vacacional</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlPorPrimaVacacional" runat="server" Text='<%# Eval("PorPrimaVacacional") %>'></asp:Literal> <asp:Literal ID="LtlPorPrimaVacacional" runat="server" Text='<%# Eval("PorPrimaVacacional") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>Ubicacion</HeaderTemplate> <HeaderTemplate>Ubicación</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal> <asp:Literal ID="LtlUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>FechaNacimiento</HeaderTemplate> <HeaderTemplate>Fecha Nacimiento</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento") %>'></asp:Literal> <asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>LugarNacimiento</HeaderTemplate> <HeaderTemplate>Lugar Nacimiento</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlLugarNacimiento" runat="server" Text='<%# Eval("LugarNacimiento") %>'></asp:Literal> <asp:Literal ID="LtlLugarNacimiento" runat="server" Text='<%# Eval("LugarNacimiento") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>Direccion</HeaderTemplate> <HeaderTemplate>Dirección</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlDireccion" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal> <asp:Literal ID="LtlDireccion" runat="server" Text='<%# Eval("Direccion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -604,19 +604,19 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>NombrePadre</HeaderTemplate> <HeaderTemplate>Nombre Padre</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlNombrePadre" runat="server" Text='<%# Eval("NombrePadre") %>'></asp:Literal> <asp:Literal ID="LtlNombrePadre" runat="server" Text='<%# Eval("NombrePadre") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>NombreMadre</HeaderTemplate> <HeaderTemplate>Nombre Madre</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlNombreMadre" runat="server" Text='<%# Eval("NombreMadre") %>'></asp:Literal> <asp:Literal ID="LtlNombreMadre" runat="server" Text='<%# Eval("NombreMadre") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<HeaderTemplate>ClienteAsignado</HeaderTemplate> <HeaderTemplate>Cliente Asignado</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlClienteAsignado" runat="server" Text='<%# Eval("ClienteAsignado") %>'></asp:Literal> <asp:Literal ID="LtlClienteAsignado" runat="server" Text='<%# Eval("ClienteAsignado") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -669,6 +669,12 @@
<asp:Literal ID="LtlCLABE" runat="server" Text='<%# Eval("CLABE") %>'></asp:Literal> <asp:Literal ID="LtlCLABE" runat="server" Text='<%# Eval("CLABE") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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> </Columns>
<RowStyle CssClass="Texto" /> <RowStyle CssClass="Texto" />
@@ -749,7 +755,7 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkTipoContrato" runat="server" Text="TipoContrato" /> <asp:CheckBox ID="ChkTipoContrato" runat="server" Text="Tipo Contrato" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /> <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" />
@@ -766,11 +772,11 @@
<asp:CheckBox ID="ChkFechaIngreso" Checked="true" runat="server" Text="Fecha de Ingreso" /> <asp:CheckBox ID="ChkFechaIngreso" Checked="true" runat="server" Text="Fecha de Ingreso" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkSeInscribioSS" runat="server" Text="SeInscribioSS" /> <asp:CheckBox ID="ChkSeInscribioSS" runat="server" Text="Se Inscribio SS" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkRegistroPatronal" runat="server" Text="Registro patronal" /> <asp:CheckBox ID="ChkRegistroPatronal" runat="server" Text="Registro patronal" />
<asp:CheckBox ID="ChkSalarioDiarioPago" Visible="false" runat="server" Text="SalarioDiarioPago" /> <asp:CheckBox ID="ChkSalarioDiarioPago" Visible="false" runat="server" Text="Salario Diario Pago" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkRiesgoPuesto" runat="server" Text="Riesgo de puesto" Checked="false" /> <asp:CheckBox ID="ChkRiesgoPuesto" runat="server" Text="Riesgo de puesto" Checked="false" />
@@ -778,7 +784,7 @@
</div> </div>
<div class="row" runat="server" visible="false"> <div class="row" runat="server" visible="false">
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkSalarioDiarioSS" runat="server" Text="SalarioDiarioSS" /> <asp:CheckBox ID="ChkSalarioDiarioSS" runat="server" Text="Salario Diario SS" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkBono" runat="server" Text="Bono" /> <asp:CheckBox ID="ChkBono" runat="server" Text="Bono" />
@@ -789,10 +795,10 @@
<asp:CheckBox ID="ChkSDI" runat="server" Text="SDI" /> <asp:CheckBox ID="ChkSDI" runat="server" Text="SDI" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkNumDiasAguinaldo" runat="server" Text="NumDiasAguinaldo" /> <asp:CheckBox ID="ChkNumDiasAguinaldo" runat="server" Text="Num Dias Aguinaldo" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkSalarioDiario" runat="server" Text="SalarioDiario" /> <asp:CheckBox ID="ChkSalarioDiario" runat="server" Text="Salario Diario" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" Checked="true" /> <asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" Checked="true" />
@@ -800,21 +806,21 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkPorPrimaVacacional" runat="server" Text="PorPrimaVacacional" /> <asp:CheckBox ID="ChkPorPrimaVacacional" runat="server" Text="Por Prima Vacacional" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkUbicacion" runat="server" Text="Ubicacion" /> <asp:CheckBox ID="ChkUbicacion" runat="server" Text="Ubicación" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkFechaNacimiento" runat="server" Text="FechaNacimiento" /> <asp:CheckBox ID="ChkFechaNacimiento" runat="server" Text="Fecha Nacimiento" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkLugarNacimiento" runat="server" Text="LugarNacimiento" /> <asp:CheckBox ID="ChkLugarNacimiento" runat="server" Text="Lugar Nacimiento" />
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkDireccion" runat="server" Text="Direccion" /> <asp:CheckBox ID="ChkDireccion" runat="server" Text="Dirección" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkCP" runat="server" Text="CP" /> <asp:CheckBox ID="ChkCP" runat="server" Text="CP" />
@@ -837,19 +843,22 @@
<asp:CheckBox ID="ChkCURP" runat="server" Text="CURP" /> <asp:CheckBox ID="ChkCURP" runat="server" Text="CURP" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkNombrePadre" runat="server" Text="NombrePadre" /> <asp:CheckBox ID="ChkNombrePadre" runat="server" Text="Nombre Padre" />
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkNombreMadre" runat="server" Text="NombreMadre" /> <asp:CheckBox ID="ChkNombreMadre" runat="server" Text="Nombre Madre" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkClienteAsignado" runat="server" Text="ClienteAsignado" /> <asp:CheckBox ID="ChkClienteAsignado" runat="server" Text="Cliente Asignado" />
</div> </div>
<div class="col-md-3"> <div class="col-md-3">
<asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" /> <asp:CheckBox ID="ChkTipodeSalario" runat="server" Text="Tipo de salario" />
</div> </div>
<div class="col-md-3">
<asp:CheckBox ID="ChkCorreo" runat="server" Text="Correo Personal" />
</div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-3"> <div class="col-md-3">

311
RH/CatPersonal.aspx.vb
View File

@@ -349,272 +349,55 @@ Partial Class RH_CatPersonal
#Region "P E R Z O N A L I Z A R" #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 Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
GvDatos.Columns(0).Visible = ChkCodigo.Checked
If ChkCodigo.Checked Then GvDatos.Columns(1).Visible = ChkNombre.Checked
GvDatos.Columns(0).Visible = True GvDatos.Columns(2).Visible = ChkNSS.Checked
Else GvDatos.Columns(3).Visible = ChlRFC.Checked
GvDatos.Columns(0).Visible = False GvDatos.Columns(4).Visible = ChkTurno.Checked
End If GvDatos.Columns(5).Visible = ChkPuesto.Checked
GvDatos.Columns(6).Visible = ChkDepartamento.Checked
If ChkNombre.Checked Then GvDatos.Columns(7).Visible = ChkRuta.Checked
GvDatos.Columns(1).Visible = True GvDatos.Columns(8).Visible = ChkEscolaridad.Checked
Else GvDatos.Columns(9).Visible = ChkEstadoCivil.Checked
GvDatos.Columns(1).Visible = False GvDatos.Columns(10).Visible = ChkGenero.Checked
End If GvDatos.Columns(11).Visible = ChkEstatusPersonal.Checked
GvDatos.Columns(12).Visible = ChkSubProyecto.Checked
If ChkNSS.Checked Then GvDatos.Columns(13).Visible = ChkSupervisor.Checked
GvDatos.Columns(2).Visible = True GvDatos.Columns(14).Visible = ChkTipoPeriodo.Checked
Else GvDatos.Columns(15).Visible = ChkMetodoPago.Checked
GvDatos.Columns(2).Visible = False GvDatos.Columns(16).Visible = ChkTipoContrato.Checked
End If GvDatos.Columns(17).Visible = ChkMotivoBaja.Checked
GvDatos.Columns(18).Visible = ChkProyecto.Checked
If ChlRFC.Checked Then GvDatos.Columns(19).Visible = ChkFechaIngreso.Checked
GvDatos.Columns(3).Visible = True GvDatos.Columns(20).Visible = ChkSeInscribioSS.Checked
Else GvDatos.Columns(21).Visible = ChkSalarioDiarioPago.Checked
GvDatos.Columns(3).Visible = False GvDatos.Columns(22).Visible = ChkSalarioDiario.Checked
End If GvDatos.Columns(23).Visible = ChkSDI.Checked
GvDatos.Columns(24).Visible = ChkSalarioDiarioSS.Checked
If ChkTurno.Checked Then GvDatos.Columns(25).Visible = ChkBono.Checked
GvDatos.Columns(4).Visible = True GvDatos.Columns(26).Visible = ChkNumDiasAguinaldo.Checked
Else GvDatos.Columns(27).Visible = ChkPorPrimaVacacional.Checked
GvDatos.Columns(4).Visible = False GvDatos.Columns(28).Visible = ChkUbicacion.Checked
End If GvDatos.Columns(29).Visible = ChkFechaNacimiento.Checked
GvDatos.Columns(30).Visible = ChkLugarNacimiento.Checked
If ChkPuesto.Checked Then GvDatos.Columns(31).Visible = ChkDireccion.Checked
GvDatos.Columns(5).Visible = True GvDatos.Columns(32).Visible = ChkCP.Checked
Else GvDatos.Columns(33).Visible = ChkCiudad.Checked
GvDatos.Columns(5).Visible = False GvDatos.Columns(34).Visible = ChkEstado.Checked
End If GvDatos.Columns(35).Visible = ChkTelefono.Checked
GvDatos.Columns(36).Visible = ChkCelular.Checked
If ChkDepartamento.Checked Then GvDatos.Columns(37).Visible = ChkCURP.Checked
GvDatos.Columns(6).Visible = True GvDatos.Columns(38).Visible = ChkNombrePadre.Checked
Else GvDatos.Columns(39).Visible = ChkNombreMadre.Checked
GvDatos.Columns(6).Visible = False GvDatos.Columns(40).Visible = ChkClienteAsignado.Checked
End If GvDatos.Columns(42).Visible = ChkUsuario.Checked
GvDatos.Columns(43).Visible = ChkRiesgoPuesto.Checked
If ChkRuta.Checked Then GvDatos.Columns(44).Visible = ChkRegistroPatronal.Checked
GvDatos.Columns(7).Visible = True GvDatos.Columns(45).Visible = ChkTipodeSalario.Checked
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(46).Visible = ChkBanco.Checked GvDatos.Columns(46).Visible = ChkBanco.Checked
GvDatos.Columns(47).Visible = ChkCuentaBancaria.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 If (GvDatos.Rows.Count > 0) Then
GvDatos.UseAccessibleHeader = True GvDatos.UseAccessibleHeader = True

2
Transportes/RepBoletos.aspx.vb
View File

@@ -78,7 +78,7 @@ Partial Class ListadoBoletos
If ObjRem.DtDetalle.Rows.Count > 0 Then If ObjRem.DtDetalle.Rows.Count > 0 Then
'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION 'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION
If ObjRem.DtDetalle.Rows.Count = 1 OrElse BoletosVigentes <= 1 Then 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 If RespCancelacion IsNot Nothing Then
TieneError = RespCancelacion.HuboError TieneError = RespCancelacion.HuboError
Else Else

4
Ventas/RepCancelacionesPorRespuesta.aspx.cs
View File

@@ -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 //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) 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; 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) 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); retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, AplicaCancelacionConPagos: AplicaCancelacionConPagos);

6
Ventas/Ventas.aspx.vb
View File

@@ -26067,7 +26067,9 @@ Partial Class Ventas
AplicaCancelacionConPagos = True AplicaCancelacionConPagos = True
End If 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) strMensaje.Append(resp.Mensaje)
Dim DtBonificaciones As DataTable = Nothing Dim DtBonificaciones As DataTable = Nothing
@@ -26084,7 +26086,7 @@ Partial Class Ventas
Try Try
'VERIFICA SI TIENE RNC DE BONIFICACION 'VERIFICA SI TIENE RNC DE BONIFICACION
Dim Bon As New Modelos.Factura(UsuarioActual, RowBon("CveVentaBonificacion").ToString().ToEntero(), UsuarioActual.CveEmpresa, VerificaAlmacen:=False) 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 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) strMensaje.AppendFormat("<br/>Ocurrió un error al cancelar la remisión de NC de bonificación <b> {0} </b>.", Bon.SerieFolio)
Else Else