diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index cdbabf36e..640d3a133 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -202,7 +202,8 @@ Public Class ClsContratos Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoContrato As Integer = -1, Optional FechaInicioIngreso As DateTime = MinFecha, - Optional FechaFinIngreso As DateTime = MaxFecha) As Boolean + Optional FechaFinIngreso As DateTime = MaxFecha, + Optional EsPresupuestal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosReporteGet") @@ -218,6 +219,7 @@ Public Class ClsContratos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FechaInicioIngreso", SqlDbType.DateTime).Value = FechaInicioIngreso .Add("@FechaFinIngreso", SqlDbType.DateTime).Value = FechaFinIngreso + .Add("@EsPresupuestal", SqlDbType.Int).Value = EsPresupuestal End With Try SqlAdapter.Fill(Data) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index f4212eb22..0cd9c804a 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -520,10 +520,10 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState If Not CveCliente > 0 Then CveCliente = -1 - End If - + End If + 'no se consideran, los presupuestales If ObjContratos.GetContratosReporte(usuarioActual_.CveEmpresa, FI.ToString.ToDate, FF.ToString.ToDate, CveCliente:=CveCliente, CveTipoAF:=CveTipoActivoFijo, - CveTipoContrato:=34, CveEstatus:=CveContratoEstatus) Then + CveTipoContrato:=34, CveEstatus:=CveContratoEstatus, EsPresupuestal:=0) Then 'CveTipoAF 'CveChofer, CveChofer2 diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 06c455a78..ae62dc0f5 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,4 +1,4 @@ -Option Explicit On +'{Option Explicit On Option Strict On Imports System.Data @@ -14,9 +14,6 @@ Imports System.Data.SqlClient Imports ClsPaginas Imports Microsoft.Owin.Security.Provider - - - Partial Class Compras_Compras Inherits ClsPaginas @@ -9364,44 +9361,94 @@ Partial Class Compras_Compras End If End If + If (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then + 'NOTA. si hay un cambio en el reembolso, puede tener estas consideraciones. + '1. no tenía comprobación y se ocupa relacionar, se deberá validar que no tenga pagos contabilizados + '2. se está cambiando de comprobación + '3. se está quitando la relación de una comprobación - If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then + If (TxtRembolsoNumero.Text.Trim.Length > 0) Then + 'valida. + If NumeroReembolsoOriginal = "" Then ' se asignará a una nueva comprobación + Dim CvePersonalVal As Integer = -1 + Dim CveCajaChicaVal As Integer = -1 + Dim tienePagoContabilizado As Boolean = False - 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA - If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then - If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then - Dim CvePreComprobacion As Integer - If ObjCompra.DtResultados.Rows.Count = 0 Then - 'sino existe, creamos la comprobacion - Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text) - tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim) - - CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then - - End If + If RblRembolso.SelectedValue.ToEntero = 1 Then + CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero Else - 'si ya existe, obtenemos la prepóliza - CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero + CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero End If - ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) + If ObjCompra.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then + + If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then + tienePagoContabilizado = True + End If + + If tienePagoContabilizado Then + Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia) + Retorno = False + End If + + 'If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then + + ' Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero + + ' If FolioPoliza > 0 Then + ' If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then + ' ErrorProceso = True + ' End If + ' End If + 'End If + Else + Retorno = False + End If End If + If Retorno Then + + 'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA + If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 OrElse DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then + If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then + Dim CvePreComprobacion As Integer + If ObjCompra.DtResultados.Rows.Count = 0 Then + 'sino existe, creamos la comprobacion + Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text) + tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim) + + CvePreComprobacion = ObjContabilidad.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + If ObjCompra.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then + + End If + Else + 'si ya existe, obtenemos la prepóliza + CvePreComprobacion = ObjCompra.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero + End If + 'cambiar la prepóliza + If Not ObjContabilidad.PrePolizaCompraCambiaReembolso(CvePreComprobacion, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then + Retorno = False + End If + ' ObjContabilidad.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) + End If + End If + End If + Else + 'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal + If Not ObjContabilidad.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then + Retorno = False + End If End If End If - Else Retorno = False End If Else - Alert("La compra no se puede actualizar debido a que los totales no son iguales, verifique sus cambios", TipoMensaje.MsgError) - End If If Retorno AndAlso (CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero OrElse CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero) Then @@ -9421,20 +9468,17 @@ Partial Class Compras_Compras End If - If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then - Retorno = False - End If + 'If Retorno AndAlso Not validaNumeroReembolso(ObjCompra.IniciaTransacSQL()) Then + ' Retorno = False + ' End If Catch ex As Exception Alert("Ocurrió un error al actualizar la compra", TipoMensaje.MsgError) ObjCompra.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - Finally - - If Retorno Then If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then Alert(ObjContabilidad.MensajePolizaDescuadre.ToString) @@ -9546,112 +9590,95 @@ Partial Class Compras_Compras End Function - Private Function validaNumeroReembolso(ByRef transaccionSql As SqlTransaction) As Boolean + 'Private Function validaNumeroReembolso(ByRef transaccionSql As SqlTransaction) As Boolean - Dim CvePersonalVal As Integer = -1 - Dim CveCajaChicaVal As Integer = -1 + ' Dim CvePersonalVal As Integer = -1 + ' Dim CveCajaChicaVal As Integer = -1 - If RblRembolso.SelectedValue.ToEntero = 1 Then - CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero - Else - CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero - End If + ' If RblRembolso.SelectedValue.ToEntero = 1 Then + ' CvePersonalVal = DdlRembolsoPersonal.SelectedValue.ToEntero + ' Else + ' CveCajaChicaVal = DdlRembolsoCajaChica.SelectedValue.ToEntero + ' End If - Dim objCompras As New ClsCompras(transaccionSql) - Dim objConta As New ClsContabilidad(transaccionSql) + ' Dim objCompras As New ClsCompras(transaccionSql) + ' Dim objConta As New ClsContabilidad(transaccionSql) - Dim tienePagoContabilizado As Boolean = False - Dim ErrorProceso As Boolean = False + ' Dim tienePagoContabilizado As Boolean = False + ' Dim ErrorProceso As Boolean = False - Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza - Dim CvePrePolizaReembolsoNuevo As Integer = -1 + ' Dim CvePrePolizaReembolsoActual As Integer = CvePrePoliza + ' Dim CvePrePolizaReembolsoNuevo As Integer = -1 - If TxtRembolsoNumero.Text.Trim.Length > 0 Then + ' If TxtRembolsoNumero.Text.Trim.Length > 0 Then - If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then + ' If objCompras.GetComprobacion(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then - If objCompras.DtResultados.Rows.Count > 0 Then - CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero - Else + ' If objCompras.DtResultados.Rows.Count > 0 Then + ' CvePrePolizaReembolsoNuevo = objCompras.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero + ' Else - Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text) + ' Dim tConcepto As String = If(DdlRembolsoPersonal.SelectedValue.ToEntero > 0, DdlRembolsoPersonal.SelectedItem.Text, DdlRembolsoCajaChica.SelectedItem.Text) - tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim) + ' tConcepto = String.Format("{0}-{1}", tConcepto, TxtRembolsoNumero.Text.Trim) - CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + ' CvePrePolizaReembolsoNuevo = objConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then - ErrorProceso = True - End If + ' If Not objCompras.AddComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, CvePrePolizaReembolsoNuevo, UsuarioActual.CveEmpresa) > 0 Then + ' ErrorProceso = True + ' End If + ' End If + ' End If + ' If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then - End If - End If + ' If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then - If NumeroReembolsoOriginal = "" And TxtRembolsoNumero.Text.Trim.Length > 0 Then + ' If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then + ' tienePagoContabilizado = True + ' End If - If objCompras.GetComprobacionPagosContabilizados(CvePersonalVal, CveCajaChicaVal, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then + ' If tienePagoContabilizado Then + ' Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia) + ' Return False + ' End If - If objCompras.DtResultados IsNot Nothing AndAlso objCompras.DtResultados.Rows.Count > 0 Then - tienePagoContabilizado = True - End If + ' If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then - If tienePagoContabilizado Then - Alert($"No se puede actualizar el número de reembolso {TxtRembolsoNumero.Text}, ya tiene pagos contabilizados.", TipoMensaje.MsgAdvertencia) - Return False - End If + ' Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero + ' If FolioPoliza > 0 Then + ' If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then + ' ErrorProceso = True + ' End If + ' End If + ' End If + ' Else + ' ErrorProceso = True + ' End If + ' ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then + ' 'cambiar de prepoliza la compra actual, de la prepoliza actual a la nueva + ' If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then + ' ErrorProceso = True + ' End If + ' End If + ' Else - If objConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then + ' If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then + ' 'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal + ' If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then + ' ErrorProceso = True + ' End If + ' End If - Dim FolioPoliza As Integer = objConta.DtResultados.Rows(0)("FolioPoliza").ToString.ToEntero + ' End If - If FolioPoliza > 0 Then - If Not objConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then - ErrorProceso = True - End If - End If - - End If - - - Else - ErrorProceso = True - End If - - - - ElseIf NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length > 0 Then - 'cambiar de prepoliza la compra actual, de la prepoliza actual a la nueva - If Not objConta.PrePolizaCompraCambiaReembolso(CvePrePolizaReembolsoNuevo, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 1) Then - ErrorProceso = True - End If - End If - - - Else - - If NumeroReembolsoOriginal.Length > 0 And TxtRembolsoNumero.Text.Trim.Length = 0 Then - 'Actualizar PrePoliza Actual de Donde CveCompra = CveCompra poner CvePrePolizaOriginal - If Not objConta.PrePolizaCompraCambiaReembolso(-1, CvePrePoliza, CveCompra, UsuarioActual.CveEmpresa, 2) Then - ErrorProceso = True - End If - End If - - End If - - - - - Return If(ErrorProceso, False, True) - - End Function + ' Return If(ErrorProceso, False, True) + 'End Function Private Sub MandaCorreoActualizacionDetalle() - - Dim DTCorreos As New DataTable Dim DTMovimientos As New DataTable Dim strBody As New StringBuilder @@ -9701,10 +9728,8 @@ Partial Class Compras_Compras strBody.Append("") strBody.Append($"

Se realizo una actualización en los detalles de la compra {SerieFolioCompra} del proveedor {HplProveedor.Text}

") strBody.Append("") - strBody.Append("") - '' ENVIO DEL CORREO Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}" ArrayCC = "" @@ -9712,8 +9737,6 @@ Partial Class Compras_Compras Dim Mail As New ClsSisMail() Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC) - - End Sub Private Function ComparaDatatables() As Boolean @@ -9755,7 +9778,6 @@ Partial Class Compras_Compras NumRow += 1 Next - Return True End Function diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb index 0619d16a4..a65f16e65 100644 --- a/Inventarios/CartaPorteManual.aspx.vb +++ b/Inventarios/CartaPorteManual.aspx.vb @@ -195,9 +195,7 @@ Partial Class Inventarios_CartaPorteManual TxtFecha.Text = NowADS().ToShortDateString CEFecha.EndDate = NowADS().AddDays(-1) RVFecha.MaximumValue = NowADS().ToShortDateString - Folio = 0 - CargaCombos() CreaDT() @@ -222,7 +220,6 @@ Partial Class Inventarios_CartaPorteManual End If - 'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then ' TxtFecha.Enabled = False @@ -233,7 +230,6 @@ Partial Class Inventarios_CartaPorteManual End Sub #Region "CARGA DATOS" - Protected Sub CreaDT() Dim dt As New DataTable @@ -247,8 +243,6 @@ Partial Class Inventarios_CartaPorteManual dt.Columns.Add(column) - - dt.Columns.Add("Cantidad", Type.GetType("System.Double")) dt.Columns.Add("CveUM", Type.GetType("System.Int32")) dt.Columns.Add("UnidadMedida") @@ -265,8 +259,6 @@ Partial Class Inventarios_CartaPorteManual dt.Columns.Add("Lote") dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) - - dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32")) dt.Columns.Add("EstatusExistencia") @@ -285,14 +277,10 @@ Partial Class Inventarios_CartaPorteManual dt.Columns.Add("Embalaje") dt.Columns.Add("PesoKg", Type.GetType("System.Decimal")) - DtMovimientos = dt - CargaGvDatos() End Sub - - Private Sub CargaCombos() 'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") @@ -307,17 +295,12 @@ Partial Class Inventarios_CartaPorteManual ' TxtFechaEntrega.Text = NowADS().ToShortDateString TxtFechaLlegada.Text = NowADS().ToShortDateString - - CargaPS() - - CargarCamiones() End Sub Private Sub CargaPS() - Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) DdlProducto2.setEsWebService(EsWS) @@ -328,7 +311,12 @@ Partial Class Inventarios_CartaPorteManual DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes") End If - + Else + DdlProducto2.ddl.Items.Clear() + 'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1) + DdlProducto2.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=-1) + DdlProducto2.ddl.DataBind() + DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) End If End Sub diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index a974ad4ba..dd56a1943 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2186,16 +2186,17 @@ Partial Class Inventarios_EntregaAlmacen DtDatos.Rows(Index)("CantidadGV") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal DtDatos.Rows(Index)("CveSeccion") = gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero() - If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then - 'Esto es por que + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + Dim DdlCaducidadProducto As DropDownList = gvr.FCDropDownList("DdlCaducidadProducto") - Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) - Dim Lote As String = ArrayCaducidad(0) - Dim FechaCaducidad As String = ArrayCaducidad(1) - - DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate - DtDatos.Rows(Index)("Lote") = Lote + If DdlCaducidadProducto.SelectedValue <> "" AndAlso DdlCaducidadProducto.SelectedValue <> "|" Then + Dim ArrayCaducidad As String() = DdlCaducidadProducto.SelectedValue.Split("|"c) + Dim Lote As String = ArrayCaducidad(0) + Dim FechaCaducidad As String = ArrayCaducidad(1) + DtDatos.Rows(Index)("FechaCaducidad") = FechaCaducidad.ToDate + DtDatos.Rows(Index)("Lote") = Lote + End If Else DtDatos.Rows(Index)("FechaCaducidad") = gvr.FCTextBox("TxtCaducidad").Text.ToDate DtDatos.Rows(Index)("Lote") = gvr.FCTextBox("TxtLote").Text diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index de1de47b9..8966a44b3 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -108,24 +108,25 @@ + DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMovientoEntrada,CveMovimientoRelacionado" > - - + + - + - + + Target="_blank" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Center" DataTextField="FolioMovimiento" /> + <%--
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index 9d284a14f..1a2450b4c 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -758,7 +758,7 @@ Partial Class Inventarios_TrasladoSolicitud Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero - Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso + 'Dim CveMovimientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento de recepcion de traspaso e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True diff --git a/Proveedores/PortalProveedor.aspx.vb b/Proveedores/PortalProveedor.aspx.vb index 48f866941..f38214abf 100644 --- a/Proveedores/PortalProveedor.aspx.vb +++ b/Proveedores/PortalProveedor.aspx.vb @@ -124,7 +124,7 @@ Partial Class Portal_PortalProveedor #Region "C A R G A - D A T O S" Protected Sub CargaDatos() - GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimero($"CveProveedor = {CveProveedor}") + Dim ObjProveedor As New ClsCompProveedores() If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.Rows.Count > 0 Then @@ -259,7 +259,7 @@ Partial Class Portal_PortalProveedor Private Sub CargaBancos(SerieSucursal As String, SelectTop As Integer) Dim ObjMovtos As New ClsMovimientos() 'CxC Activas - If ObjMovtos.GetProveedorBancos(CveProveedor, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then + If ObjMovtos.GetProveedorBancos(CveProveedor, UsuarioActual.CveEmpresa, CveProveedorSucursal:=-1, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then GvBancos.DataSource = ObjMovtos.DtResultados BtnVerMasBancos.Visible = ObjMovtos.DtResultados.Rows.Count > 19 DtBancos = ObjMovtos.DtResultados diff --git a/Sistemas/SessionesActivas.aspx b/Sistemas/SessionesActivas.aspx index 580cd16d9..a5e6d36a3 100644 --- a/Sistemas/SessionesActivas.aspx +++ b/Sistemas/SessionesActivas.aspx @@ -33,11 +33,11 @@ -
+
- Filtros + Filtros
diff --git a/Sistemas/SessionesActivas.aspx.vb b/Sistemas/SessionesActivas.aspx.vb index 36c3c06e8..29ae129ea 100644 --- a/Sistemas/SessionesActivas.aspx.vb +++ b/Sistemas/SessionesActivas.aspx.vb @@ -87,6 +87,7 @@ Partial Class SessionesActivas dtF.Rows.Add(row.ItemArray()) End If Next + dtU.Dispose() Dim GroupBy1 As String() = {"CveEmpresa", "Empresa"} DdlEmpresa.DataSource = dtF.FiltraParametros("", "", {"CveEmpresa", "Empresa"}) @@ -94,6 +95,8 @@ Partial Class SessionesActivas dtF = dtF.GroupByDT(filtros, "", {GroupBy1}, Nothing, Nothing,) GVDatos.DataSource = dtF GVDatos.DataBind() + LblNumero.Text = $" ({dtF.COUNT("CveUsuario", "CveUsuario > 0")})" + objUsuarios.Dispose() End Sub Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index eb614cc9a..2ca7e6e39 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -379,10 +379,9 @@
- +
- - +
@@ -419,8 +418,7 @@
- -
+
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index ed57c2205..a5c7097d9 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -7,8 +7,6 @@ Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms - - Partial Class RepContratoDetalle Inherits ClsPaginas #Region "Propiedades" @@ -279,18 +277,8 @@ Partial Class RepContratoDetalle LtlTareaNueva.Text = String.Format(" Tarea", CveContrato) CargaEventoBitacora() End If - - If CveVentaRemision > 0 Then - DVFactura.Visible = True - ChkEsPresupuestal.Enabled = False - ChkEsPresupuestal.Checked = False - End If - End If - - - End Sub Private Sub InicializaCombos() 'Lista Tipo AF @@ -325,16 +313,12 @@ Partial Class RepContratoDetalle DdlVendedor.Enabled = False End If - End Sub Private Sub CargaDatos() CargaDatosContrato() CargaDatosViajes() 'Información General - - - End Sub Private Sub CargaDatosContrato() @@ -440,7 +424,6 @@ Partial Class RepContratoDetalle UpTabContainer.Update() End Sub - #End Region Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs) CargaDatosViajes() @@ -478,8 +461,6 @@ Partial Class RepContratoDetalle Filename = fileItem.filename Next - - If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then If Filename <> "" Then Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) @@ -499,7 +480,6 @@ Partial Class RepContratoDetalle CargaEventoBitacora() UPAddEventoBitacora.Update() End Sub - Private Sub CargaEventoBitacora() If CveContrato > 0 Then @@ -515,8 +495,6 @@ Partial Class RepContratoDetalle End If End Sub - - Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs) Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument) Dim Archivo As New System.IO.FileInfo(filePath) @@ -578,8 +556,6 @@ Partial Class RepContratoDetalle BtnDescargar.Visible = True End If End Sub - - Public Function ObtenerUrlCompleta() As String Dim Solicitud As HttpRequest = HttpContext.Current.Request @@ -589,7 +565,6 @@ Partial Class RepContratoDetalle url &= ":" & Solicitud.Url.Port End If - url &= Solicitud.ApplicationPath If Not url.EndsWith("/") Then @@ -599,15 +574,12 @@ Partial Class RepContratoDetalle Return url End Function - - Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim ArchivoUpdate As String = "-1" Dim ErrorProceso As Boolean = False Dim SeGeneroRemision As Boolean = False Dim SerieFolioRemision As String = "" If Session("FileExtension").ToString <> "" Then - 'ArchivoUpdate = $"{CveContrato.ToString}.{ Session("FileExtension")}" ArchivoUpdate = $".{Session("FileExtension").ToString}" Else @@ -617,7 +589,6 @@ Partial Class RepContratoDetalle Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then @@ -639,24 +610,24 @@ Partial Class RepContratoDetalle End If End If - If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then - 'CveVentaRemision - Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" + 'If Not ErrorProceso AndAlso Not CveVentaRemision > 0 AndAlso ChkEsPresupuestal.Checked = False Then + ' 'CveVentaRemision + ' Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{TxtFolio.Text}" - Dim Respuesta As New RespuestaFacturacion() - Dim CvePS As Integer = 907784 - Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero) + ' Dim Respuesta As New RespuestaFacturacion() + ' Dim CvePS As Integer = 907784 + ' Respuesta = GeneraRemision(CveContrato, ObsRemisionPartida, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL, DdlSubProyecto.SelectedValue.ToEntero) - If Respuesta.CveVenta > 0 Then - CveVentaRemision = Respuesta.CveVenta - SerieFolioRemision = Respuesta.SerieFolio - ErrorProceso = False - SeGeneroRemision = True - Else - ErrorProceso = True - Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) - End If - End If + ' If Respuesta.CveVenta > 0 Then + ' CveVentaRemision = Respuesta.CveVenta + ' SerieFolioRemision = Respuesta.SerieFolio + ' ErrorProceso = False + ' SeGeneroRemision = True + ' Else + ' ErrorProceso = True + ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) + ' End If + 'End If If Not ErrorProceso Then ObjContratos.Commit() diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 714f7e723..d7fc29703 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -119,8 +119,8 @@ <%-- Centro de Costos --%>
-
@@ -204,6 +204,11 @@ + + + + + <%-- Columnas Ocultas --%> @@ -223,6 +228,7 @@ + @@ -508,15 +514,12 @@
- -
- -
- + +
+
-
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 754c713f5..90e67e004 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -51,7 +51,7 @@ Partial Class ListadoContratos DdlEstatus.DataBind() DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) - CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) + CargarCentrosDeCosto(Nothing, DdlCentroCostos, Nothing, LblSubProyectoModal) DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) DdlSubProyectoModal.DataBind() @@ -180,7 +180,7 @@ Partial Class ListadoContratos End If Anexo.Text = "" - If ErrorProceso = False AndAlso Not ChkEsPresupuestal.Checked Then + If ErrorProceso = False Then Dim ObsRemisionPartida As String = $"{DdlTipoAF.SelectedItem.Text}-{ TxtDescripcion.Text}-{LbFolio.Text}" diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 44dece0e9..6bc9d7074 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -296,7 +296,7 @@ -
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
@@ -316,8 +316,7 @@ Fecha
- Salida - + Salida @@ -775,11 +774,14 @@