diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index f21c6e65b..c97f3f3b9 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -4,6 +4,7 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones +Imports StackExchange.Redis Public Class ClsClientes @@ -259,7 +260,7 @@ Public Class ClsClientes Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1, - Optional Cuenta As String = "-1") As Boolean + Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesGet") @@ -283,6 +284,8 @@ Public Class ClsClientes .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro .Add("@TopSelect", SqlDbType.Int).Value = TopSelect .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta + .Add("@EnQuebranto", SqlDbType.Int).Value = EnQuebranto + .Add("@EnDemanda", SqlDbType.Int).Value = EnDemanda End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index fd14b2e9a..0813ad5c8 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -6247,13 +6247,14 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdatePedidoDetalleCantidad(CveVentaDetalle As Integer, Cantidad As Decimal) As Boolean + Public Function UpdatePedidoDetalleCantidad(CveVentaDetalle As Integer, Cantidad As Decimal, Optional Opcion As Integer = 1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasDetalleCantidadUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 3b0a253bc..717f0c40e 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1337,7 +1337,7 @@ Public Class ClsOS Return Retorno End Function - Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional FolioAdicional As String = "") As Boolean + Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, CveEmpresa As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional FolioAdicional As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_UpdateVentaOS") @@ -1345,6 +1345,7 @@ Public Class ClsOS With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Paciente", SqlDbType.VarChar).Value = Paciente .Add("@Episodio", SqlDbType.VarChar).Value = Episodio .Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional @@ -1361,6 +1362,28 @@ Public Class ClsOS Return Retorno End Function + Public Function LiberarVentaOS(CveVenta As Integer, CveEmpresa As Integer, Optional CveOS As Integer = -1) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_OS_LiberarVentaOS") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al guardar la venta en la Orden de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2e5a4205a..2a64841fe 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9199,7 +9199,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 312, 309) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 206, 310) End Select - Case 11 ' anticipos + Case 11 ' anticipos proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 21, 56) @@ -9207,7 +9207,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 339, 346) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347) End Select - Case 15 ' notas de crédito + Case 15 ' notas de crédito proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 60, 324) @@ -9239,6 +9239,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 92 'falta nuevo concepto Retorno.CveConceptoComplementario = 332 End Select + Case 12 ' anticipos de clientes + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 11 + Case 2 'dólares + Retorno.CveConcepto = 296 + Retorno.CveConceptoComplementario = 227 + End Select End Select Else 'cuando es la provisión Select Case CveTipoSaldo @@ -9250,7 +9258,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 311, 306) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 201, 307) End Select - Case 11 ' anticipos + Case 11 ' anticipos proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 10, 48) @@ -9258,7 +9266,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 338, 345) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347) End Select - Case 15 ' notas de crédito + Case 15 ' notas de crédito proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 18, 323) @@ -9290,6 +9298,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 66 'falta nuevo concepto Retorno.CveConceptoComplementario = 332 End Select + Case 12 ' anticipos de clientes + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 3 + Case 2 'dólares + Retorno.CveConcepto = 295 + Retorno.CveConceptoComplementario = 226 + End Select End Select End If @@ -10803,7 +10819,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepComisionesSMS.aspx".ToUpper(), 1347) PaginaDict.Add("/Ventas/RepVencimientosCredito.aspx".ToUpper(), 146) PaginaDict.Add("/Ventas/CatMotivosDevoluciones.aspx".ToUpper(), 786) - + PaginaDict.Add("/Ventas/CatPSSubProyectosVendedores.aspx".ToUpper(), 787) #End Region #Region "Varios" diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index abc48596e..99efd2b31 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6322,7 +6322,7 @@ Public Class ClsVentas End Function - Public Function GetLineasAdicionalesVencimientos(CveCliente As Integer, TipoLinea As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean + Public Function GetLineasAdicionalesVencimientos(CveCliente As Integer, TipoLinea As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesVencimientosGet") @@ -6332,6 +6332,7 @@ Public Class ClsVentas .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -7425,6 +7426,60 @@ Public Class ClsVentas Return Retorno End Function +#Region "PRODUCTOS/SERVICIOS, SUBPROYECTOS Y VENDEDORES" + + Public Function GetPSSubProyectosVendedores(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ProductosSubProyectosVendedoresGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los ps, subproyectos y vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddPSSubProyectosVendedores(CvePS As Integer, CveSubProyecto As Integer, CveVendedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ProductosSubProyectosVendedoresAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar el ps, subproyecto y vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function RemovePSSubProyectosVendedores(CvePS As Integer, CveSubProyecto As Integer, CveVendedor As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ProductosSubProyectosVendedoresRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el ps, subproyecto y vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + +#End Region + #Region "IDisposable Support" diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 579856c52..d98568038 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -646,7 +646,7 @@ Namespace Modelos ObjVentas.Dispose() - If Me.RealizarDevolucionAlmacen Then + If Me.RealizarDevolucionAlmacen = 1 Then Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta End If @@ -2353,7 +2353,7 @@ Namespace Modelos 'Si viene de OS, Se guarda CveVenta en OS If CveOS > 0 Then - If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then + If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS, UsuarioActual.CveEmpresa) Then ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio") End If End If @@ -5523,12 +5523,12 @@ Namespace Modelos ''' ''' ''' - 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 @@ -5995,6 +5995,7 @@ Namespace Modelos Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL()) Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL()) Dim ObjClientes As New ClsClientes(ObjVentas.IniciaTransacSQL()) + Dim ObjOS As New ClsOS(ObjVentas.IniciaTransacSQL()) Try If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then @@ -6128,7 +6129,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 @@ -6225,50 +6226,50 @@ Namespace Modelos Dim TotalCostoAcumulado As Decimal = 0 Dim cont As Integer = 1 - 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) - For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD() - TotalCostoAcumulado += ValorInventario + 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) + For Each RowInv As DataRow In tmpCostos.Rows + ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD() + TotalCostoAcumulado += ValorInventario - 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES - If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then - ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) + 'CUANDO ES EL ÚLTIMO MOVIMIENTO Y HAY DIFERENCIAS EN LOS IMPORTES + If cont = DtCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then + 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 + cont += 1 + Next - 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 - 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 + ErrorCancelar = True + End If - 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 End If + End If - '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 - 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 + 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 ' Else 'ErrorCancelar = True 'MensajeError = "Ocurrió un Error al ingresar las prepolizas" @@ -6277,8 +6278,8 @@ Namespace Modelos End If End If - 'AGREGA BITACORA A VENTA - If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimientoDevolucion > 0 Then + 'AGREGA BITACORA A VENTA + 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: {1}", CveMovimientoDevolucion, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then MensajeError = "Ocurrió un error al agregar la bitacora." @@ -6443,7 +6444,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 +6548,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 +6557,8 @@ Namespace Modelos End If End If + + 'CANCELA CONTRATOS If Not ErrorCancelar Then If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then @@ -6613,6 +6616,16 @@ Namespace Modelos End If End If + 'EMPRESA HOSPITALARIA - SI SE CANCELA UNA REMISIÓN DEBE DE DESVINCULARSE DE LA OS y retornarle el estatus en proceso + If Not ErrorCancelar AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then + + If Not ObjOS.LiberarVentaOS(ObjFactura.CveVenta, UsuarioActual.CveEmpresa) Then + ErrorCancelar = True + MensajeError = "No se pudo actualizar el estatus de almacen del pedido" + End If + + End If + 'POLIZA DE CANCELACION 'If Not ErrorCancelar Then ' If UsuarioActual.Empresa.UsaAC Then @@ -6665,6 +6678,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 +6687,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 @@ -7080,13 +7096,14 @@ Namespace Modelos Dim CveMovimientoEntradaDevRem As Integer = 0 Dim FolioMovimientoEntradaDevRem As Integer = 0 Dim Fecha As DateTime = ClsPaginas.NowADS() + Dim tCveOS As Integer = DtMovDetalle.MAX("CveOS").ToEntero 'SALIDA DE (ENTREGA POR ADELANTADO) - CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1") + CveMovimientoSalidaDevRem = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR1", CveOS:=tCveOS) FolioMovimientoSalidaDevRem = ObjInventario.Folio 'ENTRADA A (ALMACEN GENERAL) - CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2") + CveMovimientoEntradaDevRem = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveRemision, -1, -1, Observaciones:="", Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalidaDevRem, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="Mod/CancExAR2", CveOS:=tCveOS) FolioMovimientoEntradaDevRem = ObjInventario.Folio If Not (CveMovimientoSalidaDevRem > 0 And CveMovimientoEntradaDevRem > 0) Then @@ -7628,7 +7645,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 diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index cc2504d43..eedb48556 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -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 diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 36a6ab867..a24cdb404 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2290,6 +2290,28 @@ Partial Class Compras_Compras Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False End If + + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + For Each item As DataRow In TmpDT.Rows + Dim EquivalenciaBase = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa).FiltroPrimero("UnidadBase = 1") + If EquivalenciaBase IsNot Nothing Then + If item("CveUM").ToString() <> EquivalenciaBase("CveUM").ToString() Then + Dim EquivalenciaACambiar = GlobalDTProductosServiciosEquivalencias(item("CvePS").ToString().ToEntero(), item("CveUM").ToString().ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimero("") + If EquivalenciaACambiar IsNot Nothing Then + Dim Cantidad As Decimal = Math.Round(item("Cantidad").ToString().ToDecimal() / EquivalenciaACambiar("Cantidad").ToString().ToDecimal(), 6) + Dim PU As Decimal = Math.Round((item("Total").ToString().ToDecimal() + item("Descuento").ToString().ToDecimal()) / Cantidad, 6) + item("Cantidad") = Cantidad + item("PU") = PU + End If + item("CveUM") = EquivalenciaBase("CveUM") + item("UM") = EquivalenciaBase("UM") + End If + End If + Next + GvPS.DataSource = TmpDT + GvPS.DataBind() + UpPS.Update() + End If End If Else Alert("No se Encontró la Factura", TipoMensaje.MsgAdvertencia) @@ -6729,7 +6751,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 diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index e6270a0dd..bbe1ffb73 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -170,23 +170,30 @@ DataKeyNames="EsDevolucionVenta" data-sort="true" EmptyDataText="No se encontraron resultados." AutoGenerateColumns="False" > + <%--0--%> - - - <%-- --%> - + <%--1--%> + - + <%--2--%> + <%--3--%> + <%--4--%> + <%--5--%> + <%--6--%> + <%--7--%> + <%--8--%> + + <%--9--%> diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index bf204bdb0..e7d5a7c78 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -88,6 +88,7 @@ Partial Class RepNotasSinAlmacen GvVentas.Columns(6).Visible = True GvVentas.Columns(7).Visible = True GvVentas.Columns(8).Visible = True + GvVentas.Columns(9).Visible = True TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString GvVentas.Columns(4).Visible = False diff --git a/OC/OC.aspx b/OC/OC.aspx index 3e9e10ea3..b044e98f4 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -482,15 +482,15 @@ Descuento: - + - Descuento Pronto Pago: + %Desc. Pronto Pago: - + diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index 713b9ab26..dbc6ce8af 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -529,7 +529,9 @@ - + + + diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index ccb64cfc1..14029ca24 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -5,6 +5,13 @@ Imports Extensiones Imports System.IO Imports System.Data Imports System.Data.SqlClient +Imports System.Diagnostics +Imports System.ServiceModel.Security +Imports RVCFDI.RVLTimbrado +Imports Microsoft.Owin.Security.Provider +Imports Telerik.Web.UI + + Partial Class OS_OrdenesServicios Inherits ClsPaginas @@ -470,6 +477,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 +925,13 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaEstatusOS() 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.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") End Sub @@ -2565,7 +2585,7 @@ Partial Class OS_OrdenesServicios 'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN Dim Existencia As Double - TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:
") + TextoExistencia.Append("Los siguiente productos se ajustaron por falta de existencia:
") For Each dr As DataRow In TmpDTMaterialesDetalle.Rows Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59")) @@ -3124,6 +3144,37 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If + + Dim DT_Ventas_Detalles As DataTable = DTSolicitudDev.FiltraParametros("", "", {"CantidadPedido", "CvePS", "CveVentaDetalle"}) + DT_Ventas_Detalles.Columns.Add("CantidadUsada", GetType(Decimal)) + DT_Ventas_Detalles.AcceptChanges() + + For Each dRow As DataRow In DT_Ventas_Detalles.Rows + + For Each gvRow As GridViewRow In GvMU.Rows + + Dim CantidadUsada As Decimal = gvRow.FCTextBox("TxtUtilizado").Text.ToDecimal + + If dRow("CvePS").ToString.ToDecimal = gvRow.DataKey("CvePS").ToDecimal AndAlso CantidadUsada > 0 Then + + dRow("CantidadUsada") = dRow("CantidadUsada").ToString.ToDecimal + CantidadUsada + + End If + Next + + Next + + For Each dRow As DataRow In DT_Ventas_Detalles.Rows + Dim CantidadUsada As Decimal = dRow("CantidadUsada").ToString.ToDecimal + If dRow("CantidadUsada").ToString.ToDecimal < dRow("CantidadPedido").ToString.ToDecimal Then + If Not ObjInventario.UpdatePedidoDetalleCantidad(dRow("CveVentaDetalle").ToString.ToEntero, CantidadUsada, 2) Then + ProcesoOK = False + Exit For + End If + End If + Next + + Else If ProcesoOK Then Dim AplicaDevolucion As Boolean = False @@ -3287,7 +3338,7 @@ Partial Class OS_OrdenesServicios ProcesoOK = False End If If ProcesoOK Then - If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then + If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then ProcesoOK = False End If End If @@ -3301,7 +3352,7 @@ Partial Class OS_OrdenesServicios If ProcesoOK Then - If Not ObjOS.UpdateVentaOS(-1, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then + If Not ObjOS.UpdateVentaOS(-1, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then ProcesoOK = False End If End If @@ -3409,6 +3460,44 @@ Partial Class OS_OrdenesServicios Dim CveMoneda As Integer = -1 Dim tCveVendedor As Integer = -1 + + Dim CountDetalles As Integer = 0 + Dim PuEnCero As Boolean = False + + For Each GvRow As GridViewRow In GvMU.Rows + + Dim CantidadRegistro As Decimal = GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal + Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal + Dim CodigoPS As String = GvRow.DataKey("CodigoPS") + + If CantidadRegistro > 0 Then + If PU > 0 Then + CountDetalles = CountDetalles + 1 + Else + Alert($"Prodcuto {CodigoPS} con precio unitario en cero.", TipoMensaje.MsgAdvertencia) + PuEnCero = True + End If + End If + + Next + + If PuEnCero Then + Respuesta.CveVenta = -1 + Respuesta.SerieFolio = "" + Respuesta.dtdetalle = New DataTable + Return Respuesta + End If + + If CountDetalles = 0 Then + Respuesta.CveVenta = -1 + Respuesta.SerieFolio = "" + Respuesta.dtdetalle = New DataTable + Alert("Remision sin detalles.", TipoMensaje.MsgAdvertencia) + Return Respuesta + End If + + + If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0) CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero @@ -3579,4 +3668,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 \ No newline at end of file diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index a52d8ebde..2c06bdd99 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -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 diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 943b7d063..7508c99b0 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -462,19 +462,19 @@ - MetodoPago + Metodo de Pago   - TipoContrato + Tipo Contrato   - MotivoBaja + Motivo Baja   @@ -486,7 +486,7 @@ - FechaIngreso + Fecha Ingreso @@ -502,13 +502,13 @@ - SalarioDiarioPago + Salario Diario Pago - SalarioDiario + Salario Diario @@ -520,7 +520,7 @@ - SalarioDiarioSS + Salario DiarioSS @@ -532,37 +532,37 @@ - NumDiasAguinaldo + Num Dias Aguinaldo - PorPrimaVacacional + Por Prima Vacacional - Ubicacion + Ubicación - FechaNacimiento + Fecha Nacimiento - LugarNacimiento + Lugar Nacimiento - Direccion + Dirección @@ -604,19 +604,19 @@ - NombrePadre + Nombre Padre - NombreMadre + Nombre Madre - ClienteAsignado + Cliente Asignado @@ -669,6 +669,12 @@ + + Correo Personal + + + + @@ -749,7 +755,7 @@
- +
@@ -766,11 +772,11 @@
- +
- +
@@ -778,7 +784,7 @@
- +
@@ -789,10 +795,10 @@
- +
- +
@@ -800,21 +806,21 @@
- +
- +
- +
- +
- +
@@ -837,19 +843,22 @@
- +
- +
- +
+
+ +
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 5f0caa47a..31984727b 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -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 diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 2d0ad96bd..915212911 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -433,21 +433,22 @@ Partial Class Sistemas_CatSesiones Private Sub CargaSubProyectos() 'Carga SubProyectos - GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing - Dim ObjSubProyectos As New ClsSubProyectos + GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing + GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing + 'Dim ObjSubProyectos As New ClsSubProyectos 'If ObjSubProyectos.GetSubProyectos Then ' Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados 'Else ' Application("GlobalDTSubProyectos") = Nothing 'End If - If ObjSubProyectos.GetSubProyectosUsuarios Then - Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) - Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados - Else - Application("GlobalDTProyectosUsuarios") = Nothing - Application("GlobalDTSubProyectosUsuarios") = Nothing - End If - ObjSubProyectos.Dispose() + 'If ObjSubProyectos.GetSubProyectosUsuarios Then + ' Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) + ' Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados + 'Else + ' Application("GlobalDTProyectosUsuarios") = Nothing + ' Application("GlobalDTSubProyectosUsuarios") = Nothing + 'End If + 'ObjSubProyectos.Dispose() 'Fin Carga Proyectos End Sub @@ -591,7 +592,7 @@ Partial Class Sistemas_CatSesiones Case "" dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Case Else - dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable) + dt = DirectCast(Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable) End Select Gv.DataSource = dt diff --git a/Transportes/RepBoletos.aspx.vb b/Transportes/RepBoletos.aspx.vb index 11e309130..45385581d 100644 --- a/Transportes/RepBoletos.aspx.vb +++ b/Transportes/RepBoletos.aspx.vb @@ -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 diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 7c80c0c08..d11cf1856 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -21,10 +21,10 @@ Partial Class ListadoContratos #End Region #Region "Carga Página" Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString - txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString If Not IsPostBack Then + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString + txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString InicializaCombos() CargaDatos() End If diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index da087eb92..6e9660fbb 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -108,17 +108,30 @@
-
- - +
- +
+
En Demanda:
+
+ + Todos + Solo En Demanda + No en Demanda + +
+
En Quebranto:
+
+ + Todos + Solo En Quebranto + No En Quebranto + +
+
-
- diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb index 06d87da1a..38c00e4bb 100644 --- a/Ventas/CatClientes.aspx.vb +++ b/Ventas/CatClientes.aspx.vb @@ -25,24 +25,10 @@ Partial Class CatClientes If Not Page.IsPostBack Then ViewState("Orden") = "" - CargaNombreClientes() - - + Inicializa() CargaSucursales() CargaClasificaciones() CargaVendedor() - - 'CargaCorporativo() - - 'CargaDatos() - - PanelContrato.Visible = True - MPContrato.Enabled = True - - - Me.Form.DefaultButton = LbFiltrar.UniqueID - - CargaPersonalizacion() End If @@ -54,14 +40,14 @@ Partial Class CatClientes Dim Nombre, RFC As String Nombre = "-1" RFC = "-1" - If TxtNombre.Text.Trim <> String.Empty Then Nombre = TxtNombre.Text.Trim - If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim 'If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then - If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero) Then - + If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, + PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero, + EnDemanda:=DDlEnDemanda.SelectedValue.ToEntero, + EnQuebranto:=DdlEnQuebranto.SelectedValue.ToEntero) Then If ObjClientes.DtResultados.Rows.Count > 0 Then DTDatos = ObjClientes.DtResultados @@ -70,8 +56,6 @@ Partial Class CatClientes Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) End If End If - - ObjClientes.Dispose() If ViewState("Orden").ToString() <> String.Empty Then @@ -79,10 +63,8 @@ Partial Class CatClientes Else CargaGrid("") End If - UPDatos.Update() - End Sub Private Sub CargaSucursales() @@ -96,27 +78,26 @@ Partial Class CatClientes DdlClasificaciones.DataBind() DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1")) End Sub - Private Sub CargaNombreClientes() + Private Sub Inicializa() + PanelContrato.Visible = True + MPContrato.Enabled = True + Me.Form.DefaultButton = LbFiltrar.UniqueID DdlClienteAUnificar.setEsWebService(True) DdlClienteAUnificar.SelectedValue = "-1" DdlClienteAUnificar.SelectedText = "Todos" - DdlClienteOriginal.setEsWebService(True) DdlClienteOriginal.SelectedValue = "-1" DdlClienteOriginal.SelectedText = "Todos" - 'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClienteAUnificar.DataBind() - - 'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClienteOriginal.DataBind() + If UsuarioActual.CveEmpresa = 119 Then + divfiltro2.Visible = True + End If UpBodyUnificar.Update() End Sub - Private Sub CargaVendedor() DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() @@ -127,13 +108,8 @@ Partial Class CatClientes CargaDatos() - End Sub - - - - Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click GvDatos.ExportToExcel("RepClientes_" & NowADS().ToShortDateString) End Sub @@ -261,7 +237,7 @@ Partial Class CatClientes End If ObjCliente.Dispose() - CargaNombreClientes() + Inicializa() CargaDatos() End Sub #End Region @@ -276,8 +252,7 @@ Partial Class CatClientes GuardaPersonalizacion() End If - Personaliza() - + Personaliza(True) End Sub @@ -411,7 +386,6 @@ Partial Class CatClientes End If - If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatClientes.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") End If @@ -420,13 +394,12 @@ Partial Class CatClientes End Sub - Private Sub CargaPersonalizacion() + Private Sub CargaPersonalizacion(Optional RecargaDatos As Boolean = False) Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatClientes.aspx") If strBasePersonalizacion.Trim.Length > 0 Then - ChkCodigo.Checked = False ChkNombre.Checked = False ChkRFC.Checked = False @@ -564,7 +537,7 @@ Partial Class CatClientes Next - Personaliza() + Personaliza(RecargaDatos) Else PersonalizaDefault() @@ -577,7 +550,7 @@ Partial Class CatClientes Private Sub PersonalizaDefault() End Sub - Private Sub Personaliza() + Private Sub Personaliza(Optional RecargaDatos As Boolean = False) GvDatos.Columns(0).Visible = ChkCodigo.Checked @@ -614,8 +587,7 @@ Partial Class CatClientes GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked - - CargaDatos() + If RecargaDatos Then CargaDatos() UPDatos.Update() End Sub diff --git a/Ventas/CatPSSubProyectosVendedores.aspx b/Ventas/CatPSSubProyectosVendedores.aspx new file mode 100644 index 000000000..79eb37461 --- /dev/null +++ b/Ventas/CatPSSubProyectosVendedores.aspx @@ -0,0 +1,94 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="True" CodeFile="CatPSSubProyectosVendedores.aspx.vb" Inherits="Ventas_CatPSSubProyectosVendedores" %> + + + + + + + Catalogo de Productos/Servicios, SubProyectos y Vendedores + + + + + + + + +
  • + Agregar
    • +     +     +     + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + +     +     + +     + + diff --git a/Ventas/CatPSSubProyectosVendedores.aspx.vb b/Ventas/CatPSSubProyectosVendedores.aspx.vb new file mode 100644 index 000000000..ba9d7ffb6 --- /dev/null +++ b/Ventas/CatPSSubProyectosVendedores.aspx.vb @@ -0,0 +1,107 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones + +Partial Class Ventas_CatPSSubProyectosVendedores + + Inherits ClsPaginas + + Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) + If Not IsPostBack Then + CargaDatos() + CargaCombos() + End If + End Sub + + Protected Sub CargaDatos() + Dim ObjVentas As ClsVentas = New ClsVentas() + + If ObjVentas.GetPSSubProyectosVendedores(UsuarioActual.CveEmpresa) Then + GvPSSubProyectosVendedores.DataSource = ObjVentas.DtResultados + GvPSSubProyectosVendedores.DataBind() + End If + + ObjVentas.Dispose() + UpDatos.Update() + End Sub + + Protected Sub CargaCombos() + + DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlPS.SelectedText = "" + DdlPS.SelectedValue = "-1" + Else + DdlPS.ddl.Items.Clear() + DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlPS.ddl.DataBind() + DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + End If + + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedor.DataBind() + DdlVendedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + UpModalAdd.Update() + End Sub + + + Protected Sub LimpiaRegistro() + DdlPS.SelectedValue = "-1" + DdlPS.SelectedText = "" + DdlVendedor.SelectedIndex = 0 + DdlSubProyecto.SelectedIndex = 0 + UpModalAdd.Update() + End Sub + + Protected Sub LnkAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) + RegistraScript("$('#DModalAdd').modal();") + LimpiaRegistro() + UpModalAdd.Update() + End Sub + + Protected Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) + If DdlPS.SelectedValue = "" Then + Alert("Tiene que seleccionar un producto/servicio.") + Return + End If + + If DdlVendedor.SelectedValue = "-1" Then + Alert("Tiene que seleccionar un vendedor.") + Return + End If + + If DdlSubProyecto.SelectedValue = "-1" Then + Alert("Tiene que seleccionar un subproyecto.") + Return + End If + + Dim ObjVentas As ClsVentas = New ClsVentas() + Dim Continuar As Boolean = ObjVentas.AddPSSubProyectosVendedores(DdlPS.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero()) + ObjVentas.Dispose() + + If Continuar Then + RegistraScript("$('#DModalAdd').modal('hide');") + LimpiaRegistro() + Alert("El registro se ha agregado") + CargaDatos() + End If + End Sub + + Protected Sub LnkEliminar_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + Dim ObjVentas As ClsVentas = New ClsVentas() + Dim Continuar As Boolean = ObjVentas.RemovePSSubProyectosVendedores(gvRow.DataKey("CvePS").ToEntero(), gvRow.DataKey("CveSubProyecto").ToEntero(), gvRow.DataKey("CveVendedor").ToEntero()) + ObjVentas.Dispose() + + If Continuar Then + CargaDatos() + Alert("El registro se ha eliminado") + End If + End Sub + +End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index ef7407d92..15d088193 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1736,11 +1736,12 @@
    - Parametros + Crédito +      
    -
    - +
    +
    @@ -1836,7 +1837,7 @@
    - +
    @@ -1864,6 +1865,16 @@
    +
    +
    +
    + +
    +
    + +
    +
    +
    @@ -1937,6 +1948,14 @@ +
    +
    + +
    + +
    +
    +
    @@ -4632,20 +4651,7 @@
    -
    -
    -
    - -
    -
    - -
    - -
    - -
    -
    -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 814cd34a5..8bb43f4a8 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -919,7 +919,9 @@ Partial Class Clientes CargaCombosLineasAdicionales() TabLineasAdicionales.Visible = True LnkAgregarLineaAdicional.Visible = True - GetLineasAdicionales() + GetLineasAdicionales() + divQuebranto1.Visible = True + divQuebranto2.Visible = True End If If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then @@ -1689,22 +1691,18 @@ Partial Class Clientes 'Horario TxtHorario.Text = ObjClientes.Horario - - TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal TxtCelular.Text = ObjClientes.Celular - TxtExtOtro.Text = ObjClientes.ExtOtros - - - 'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then - ' ActivarRegistroAutomatico() - 'End If - + TxtExtOtro.Text = ObjClientes.ExtOtros + ChkEnQuebranto.Checked = ObjClientes.EnQuebranto ChkEnDemanda.Checked = ObjClientes.EnDemanda TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas + If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = " En Quebranto " + If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= " En Demanda " + '7eleven TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor @@ -1851,6 +1849,23 @@ Partial Class Clientes GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable() End If Retorno = True + If UsuarioActual.CveEmpresa.Contiene(119, 158) Then + Dim tdtt As DataTable = DtCxCActivas.FiltraParametros("DiasVencidos > 0") + If tdtt.Rows.Count > 0 Then + Dim tstr As String = "Facturas con vencimiento:
    " + Dim tdtsaldo As DataTable = tdtt.FiltraParametros("CveMoneda = 1") + If tdtsaldo.Rows.Count > 0 Then + tstr &= tdtt.Rows.Count & $" - ${tdtsaldo.SUM("Saldo").FormatoNumero} Pesos.
    " + End If + tdtsaldo = tdtt.FiltraParametros("CveMoneda = 2") + If tdtsaldo.Rows.Count > 0 Then + tstr &= tdtsaldo.Rows.Count & $" - ${tdtsaldo.SUM("Saldo").FormatoNumero} Dólares.
    " + End If + + Alert(tstr, TipoMensaje.MsgAdvertencia) + End If + End If + Else GvCxC.DataSource = Nothing DtCxCActivas = Nothing diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index ba4f8cd91..5c4189503 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -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); diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx index 924545b5f..df62c4fe9 100644 --- a/Ventas/RepRemisiones.aspx +++ b/Ventas/RepRemisiones.aspx @@ -207,12 +207,11 @@
    - -
    +
    - " style="display: inline-block; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + " style="display: inline-block; margin-right: -20px; width: 150px;" /> +" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    diff --git a/Ventas/RepVencimientosCredito.aspx b/Ventas/RepVencimientosCredito.aspx index c29f49f8f..df37b5edd 100644 --- a/Ventas/RepVencimientosCredito.aspx +++ b/Ventas/RepVencimientosCredito.aspx @@ -82,9 +82,11 @@ - + +
    +
    Agrupador:
    @@ -99,7 +101,11 @@
    @@ -122,8 +128,7 @@
    - @@ -134,7 +139,12 @@ - + + + +   + +
    diff --git a/Ventas/RepVencimientosCredito.aspx.cs b/Ventas/RepVencimientosCredito.aspx.cs index 2bb092c17..b7dd35217 100644 --- a/Ventas/RepVencimientosCredito.aspx.cs +++ b/Ventas/RepVencimientosCredito.aspx.cs @@ -70,7 +70,11 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas DdlClientes.setEsWebService(true); DdlClientes.Attributes.Add("data-metodo", "getcliente"); DdlClientes.SelectedText = "Todos"; - DdlClientes.SelectedValue = "-1"; + DdlClientes.SelectedValue = "-1"; + DdlSubProyectos.Items.Insert(0, new ListItem("Todos", "-1")); + DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa); + DdlSubProyectos.DataBind(); + } protected void BtnConsultar_Click(object sender, EventArgs e) @@ -85,7 +89,7 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas ClsVentas objVentas = new ClsVentas(); - if (objVentas.GetLineasAdicionalesVencimientos( DdlClientes.SelectedValue.ToEntero(), DdlTipoLinea.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), -1, UsuarioActual.CveEmpresa)) + if (objVentas.GetLineasAdicionalesVencimientos( DdlClientes.SelectedValue.ToEntero(), DdlTipoLinea.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), -1, DdlSubProyectos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) { GvD.DataSource = objVentas.DtResultados; diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 326188def..0bee31061 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13226,7 +13226,7 @@ Partial Class Ventas Timbre.Comprobante.Serie = Obj.Serie Timbre.Comprobante.Fecha = Obj.FechaCP Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 - Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76), "No Aplica", Obj.FormaPago33) + Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76, 198), "No Aplica", Obj.FormaPago33) Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento @@ -14532,7 +14532,7 @@ Partial Class Ventas 'Si viene de OS, Se guarda CveVenta en OS If CveOS > 0 Then - If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then + If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS, UsuarioActual.CveEmpresa) Then ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio") End If End If @@ -26081,7 +26081,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 @@ -26098,7 +26100,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("
    Ocurrió un error al cancelar la remisión de NC de bonificación {0} .", Bon.SerieFolio) Else