From 60a7cd96cc55bdb786c11087d5bef9c01835a607 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 13 Aug 2024 09:07:15 -0700 Subject: [PATCH] Compra B-11648 error en total almacen contra prepoliza,GDiaz - 2024.08.09 --- AF/CatAF.aspx | 255 +++++++++++++++++++- AF/CatAF.aspx.vb | 264 ++++++++++++++++++++- App_Code/ClsGenerales.vb | 14 +- Ashx/CargaEventos.ashx | 2 +- Compras/Compras.aspx.vb | 15 +- Contratos/RepPresupuestosDetalle.aspx.vb | 16 +- Inventarios/TrasladoSolicitud.aspx | 25 +- Inventarios/TrasladoSolicitud.aspx.vb | 2 +- Transportes/RepContratoDetalle.aspx | 55 ++++- Transportes/RepContratoDetalle.aspx.vb | 16 +- Transportes/RepContratosCalendario.aspx | 33 ++- Transportes/RepContratosCalendario.aspx.vb | 50 +++- Ventas/RepVentasDetalle.aspx | 3 +- 13 files changed, 696 insertions(+), 54 deletions(-) diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index b32f78b85..840217e53 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -54,6 +54,10 @@ Excel +
  • + + Personalizar Columnas +
    • @@ -160,7 +164,7 @@ - + @@ -190,86 +194,311 @@ -
    - Encontrados: - - -
    + - +
    + Encontrados: +
    + - + + <%-- 0 --%> + - + + <%-- 1 --%> + - <%----%> + + <%-- 2 --%> + + <%-- 3 --%> + + <%-- 4 --%> + + <%-- 5 --%> + + <%-- 6 --%> + + <%-- 7 --%> + + <%-- 8 --%> + + <%-- 9 --%> - + + + + <%-- 10 --%> + + + + + + + + <%-- 11 --%> + + + + + + + + <%-- 12 --%> + + + + + + + + <%-- 13 --%> + + + + + + + + <%-- 14 --%> + + + + + + + + <%-- 15 --%> + + + + + + + + <%-- 16 --%> + + + + + + + + <%-- 17 --%> + + + + + + + + <%-- 18 --%> + + + + + + + + <%-- 19 --%> + + + + + + + +     + + + + + + + + + +<%-- + + + + --%> + + + + + + + + - + <%-- + --%> diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 239c3235c..e8dfe0bfd 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -32,6 +32,19 @@ Partial Class AF_CatAF ViewState("DTAFCaracteristicas") = value End Set End Property + + Private Property DtDatos As DataTable + Get + If ViewState("DtDatos") Is Nothing Then + ViewState("DtDatos") = New DataTable + End If + Return DirectCast(ViewState("DtDatos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -46,6 +59,9 @@ Partial Class AF_CatAF CargaDatos() End If + CargaPersonalizacion() + + End If End Sub @@ -278,7 +294,7 @@ Partial Class AF_CatAF GvDatos.DataSource = DtActivosFijos GvDatos.DataBind() - 'LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0) + LtlTotalRegistros.Text = DtActivosFijos.Rows.Count.ToString.FormatoNumero(0) UpGV.Update() OrdenaDatos() @@ -492,5 +508,251 @@ Partial Class AF_CatAF #End Region +#Region " P E R S O N A L I Z A R C O L U M N A S " + Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs) + + ChkGuardarPersonalizacion.Checked = False + RegistraScript("$('#DivPersonalizar').modal('show')") + + End Sub + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + + If ChkGuardarPersonalizacion.Checked Then + GuardaPersonalizacion() + End If + + Personaliza() + CargaGvDatos() + UpGV.Update() + + End Sub + + + + Private Sub GuardaPersonalizacion() + + Dim objUsuario As New ClsSisUsuarios + Dim ListPersonalizada As New List(Of String) + + If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo") + + If ChkDescripcion.Checked Then ListPersonalizada.Add("Descripcion") + + If ChkTipoActivoFijo.Checked Then ListPersonalizada.Add("TipoActivoFijo") + + If ChkSubTIpoActivoFijo.Checked Then ListPersonalizada.Add("SubTIpoActivoFijo") + + If ChkResponsable.Checked Then ListPersonalizada.Add("Responsable") + + If ChkNoSerie.Checked Then ListPersonalizada.Add("NoSerie") + + If ChkAño.Checked Then ListPersonalizada.Add("Año") + + If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto") + + If ChkEstadoActivoFijo.Checked Then ListPersonalizada.Add("EstadoActivoFijo") + + If ChkFechaIng.Checked Then ListPersonalizada.Add("FechaIng") + + If ChkGrupo.Checked Then ListPersonalizada.Add("Grupo") + + If ChkMarcaActivoFijo.Checked Then ListPersonalizada.Add("MarcaActivoFijo") + + If ChkModeloActivoFijo.Checked Then ListPersonalizada.Add("ModeloActivoFijo") + + If ChkNombreCuenta.Checked Then ListPersonalizada.Add("NombreCuenta") + + If ChkValorCompra.Checked Then ListPersonalizada.Add("ValorCompra") + + If ChkFechaCompra.Checked Then ListPersonalizada.Add("FechaCompra") + + If ChkFechaBaja.Checked Then ListPersonalizada.Add("FechaBaja") + + If ChkProyecto.Checked Then ListPersonalizada.Add("Proyecto") + + 'If ChkSubProyecto.Checked Then ListPersonalizada.Add("SubProyecto") + + If ChkNombreCliente.Checked Then ListPersonalizada.Add("NombreCliente") + + If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones") + + + If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatAF.aspx", String.Join("|", ListPersonalizada)) Then + 'Alert("Personalizacion guardada") + End If + + objUsuario.Dispose() + + End Sub + + + Private Sub CargaPersonalizacion() + + Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatAF.aspx") + + If strBasePersonalizacion.Trim.Length > 0 Then + + ChkCodigo.Checked = False + ChkDescripcion.Checked = False + ChkTipoActivoFijo.Checked = False + ChkSubTIpoActivoFijo.Checked = False + ChkResponsable.Checked = False + ChkNoSerie.Checked = False + ChkAño.Checked = False + ChkSubProyecto.Checked = False + ChkEstadoActivoFijo.Checked = False + ChkFechaIng.Checked = False + ChkGrupo.Checked = False + ChkMarcaActivoFijo.Checked = False + ChkModeloActivoFijo.Checked = False + ChkNombreCuenta.Checked = False + ChkValorCompra.Checked = False + ChkFechaCompra.Checked = False + ChkFechaBaja.Checked = False + 'ChkNoSerie.Checked = False + 'ChkEstadoActivoFijo.Checked = False + 'ChkResponsable.Checked = False + ChkProyecto.Checked = False + 'ChkSubProyecto.Checked = False + ChkNombreCliente.Checked = False + ChkObservaciones.Checked = False + + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) + + For Each personalizacion As String In Personalizaciones + Select Case personalizacion + Case "Codigo" + ChkCodigo.Checked = True + Exit Select + Case "Descripcion" + ChkDescripcion.Checked = True + Exit Select + Case "TipoActivoFijo" + ChkTipoActivoFijo.Checked = True + Exit Select + Case "SubTIpoActivoFijo" + ChkSubTIpoActivoFijo.Checked = True + Exit Select + Case "Responsable" + ChkResponsable.Checked = True + Exit Select + Case "NoSerie" + ChkNoSerie.Checked = True + Exit Select + Case "Año" + ChkAño.Checked = True + Exit Select + Case "SubProyecto" + ChkSubProyecto.Checked = True + Exit Select + Case "EstadoActivoFijo" + ChkEstadoActivoFijo.Checked = True + Exit Select + Case "FechaIng" + ChkFechaIng.Checked = True + Exit Select + Case "Grupo" + ChkGrupo.Checked = True + Exit Select + Case "MarcaActivoFijo" + ChkMarcaActivoFijo.Checked = True + Exit Select + Case "ModeloActivoFijo" + ChkModeloActivoFijo.Checked = True + Exit Select + Case "NombreCuenta" + ChkNombreCuenta.Checked = True + Exit Select + Case "ValorCompra" + ChkValorCompra.Checked = True + Exit Select + Case "FechaCompra" + ChkFechaCompra.Checked = True + Exit Select + Case "FechaBaja" + ChkFechaBaja.Checked = True + Exit Select + Case "Proyecto" + ChkProyecto.Checked = True + Exit Select + Case "NombreCliente" + ChkNombreCliente.Checked = True + Exit Select + Case "Observaciones" + ChkObservaciones.Checked = True + Exit Select + Case Else + Exit Select + End Select + Next + + Else + PersonalizaDefault() + End If + + Personaliza() + + UPPersonalizar.Update() + + End Sub + + + Private Sub PersonalizaDefault() + + ChkCodigo.Checked = True + ChkDescripcion.Checked = True + ChkTipoActivoFijo.Checked = True + ChkSubTIpoActivoFijo.Checked = True + ChkResponsable.Checked = True + ChkNoSerie.Checked = True + ChkAño.Checked = True + ChkSubProyecto.Checked = True + ChkEstadoActivoFijo.Checked = True + ChkFechaIng.Checked = True + + End Sub + + + Private Sub Personaliza() + + GvDatos.Columns(0).Visible = ChkCodigo.Checked + GvDatos.Columns(1).Visible = ChkDescripcion.Checked + GvDatos.Columns(2).Visible = ChkTipoActivoFijo.Checked + GvDatos.Columns(3).Visible = ChkSubTIpoActivoFijo.Checked + GvDatos.Columns(4).Visible = ChkResponsable.Checked + GvDatos.Columns(5).Visible = ChkNoSerie.Checked + GvDatos.Columns(6).Visible = ChkAño.Checked + GvDatos.Columns(7).Visible = ChkSubProyecto.Checked + GvDatos.Columns(8).Visible = ChkEstadoActivoFijo.Checked + GvDatos.Columns(9).Visible = ChkFechaIng.Checked + + GvDatos.Columns(10).Visible = ChkGrupo.Checked + GvDatos.Columns(11).Visible = ChkMarcaActivoFijo.Checked + GvDatos.Columns(12).Visible = ChkModeloActivoFijo.Checked + GvDatos.Columns(13).Visible = ChkNombreCuenta.Checked + GvDatos.Columns(14).Visible = ChkValorCompra.Checked + GvDatos.Columns(15).Visible = ChkFechaCompra.Checked + GvDatos.Columns(16).Visible = ChkFechaBaja.Checked + 'GvDatos.Columns(17).Visible = ChkNoSerie.Checked + 'GvDatos.Columns(18).Visible = ChkEstadoActivoFijo.Checked + 'GvDatos.Columns(19).Visible = ChkResponsable.Checked + GvDatos.Columns(17).Visible = ChkProyecto.Checked + 'GvDatos.Columns(18).Visible = ChkSubProyecto.Checked + GvDatos.Columns(18).Visible = ChkNombreCliente.Checked + GvDatos.Columns(19).Visible = ChkObservaciones.Checked + + + + 'Personalizo = 1 + 'If Personalizo = 1 Then + ' ImgExcelPersonalizado.Visible = True + 'Else + ' ImgExcelPersonalizado.Visible = False + 'End If + + End Sub + +#End Region End Class diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 0792aa609..5c3ef1f46 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2617,18 +2617,18 @@ Public Class ClsGenerales End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Bitacora" Public Function GetHistorialBitacora(CveAcarreo As Integer, CveOrdenCompra As Integer, CveActivoFijo As Integer, CveOS As Integer, CvePS As Integer, CveCompra As Integer, CveIE As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, - Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean + Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha, Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2648,6 +2648,7 @@ Public Class ClsGenerales .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CveConceptoNomina", SqlDbType.Int).Value = CveConceptoNomina .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveAsistencia", SqlDbType.Int).Value = CveAsistencia @@ -2698,7 +2699,7 @@ Public Class ClsGenerales CveIE As Integer, Actual As String, Anterior As String, CveUsuario As Integer, CveEmpresa As Integer, SeElimino As Integer, Descripcion As String, Tipo As String, Id_Clave As String, Optional IdPoliza As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveUsuarioTabla As Integer = -1, - Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01") As Boolean + Optional CvePersonal As Integer = -1, Optional Motivo As String = "", Optional Fecha As String = "1900/01/01", Optional CveContrato As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraAdd") @@ -2725,6 +2726,7 @@ Public Class ClsGenerales .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@Motivo", SqlDbType.VarChar).Value = Motivo .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato End With diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index dab9d8862..b87b8b817 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -554,7 +554,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim cevent As CalendarEvent = New CalendarEvent() cevent.id = dr("CveContrato").ToString.ToEntero - cevent.title = dr("DescripcionContrato").ToString + cevent.title = If(dr("CodigoAF").ToString.Trim.Length > 0, $"#{dr("CodigoAF").ToString}-{dr("DescripcionContrato").ToString}", $"-{dr("DescripcionContrato").ToString}") cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index aef8546d1..11c0e9156 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6423,10 +6423,21 @@ Partial Class Compras_Compras Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) If CvePrePoliza2Almacen > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then + + Dim ImpPrepoliza As Decimal = 0D + Dim ImpPrepolizaMN As Decimal = 0D + + For Each gvRowInv As GridViewRow In GvInv.Rows + Dim gvCantidad As Decimal = gvRowInv.FCTextBox("TbCantidad").Text.ToDecimal + Dim gvPU As Decimal = gvRowInv.DataKey("PU").ToDecimal + ImpPrepoliza = ImpPrepoliza + (gvCantidad * gvPU) + Next + ImpPrepolizaMN = ImpPrepoliza * tipoCambioActual * Multiplicador + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then ErrorPrepoliza = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, False, ImpPrepolizaMN.RoundSQL(2), ImpPrepolizaMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then ErrorPrepoliza = True End If Else diff --git a/Contratos/RepPresupuestosDetalle.aspx.vb b/Contratos/RepPresupuestosDetalle.aspx.vb index 36b32b15f..434af89c8 100644 --- a/Contratos/RepPresupuestosDetalle.aspx.vb +++ b/Contratos/RepPresupuestosDetalle.aspx.vb @@ -82,7 +82,9 @@ Partial Class Contratos_RepPresupuestosDetalle Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), + GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, 1)) End If DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.DataBind() @@ -94,19 +96,21 @@ Partial Class Contratos_RepPresupuestosDetalle Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero - Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero + Dim Agrupador = IfNull(Request("Agrupador"), -1).ToString.ToEntero + Gpo = IfNull(Request("CveAgrupador"), -1).ToString.ToEntero + Dim Mensual = CBool(IfNull(Request("Mensual"), False)) Dim EsProyecto = CBool(IfNull(Request("EsProyecto"), False)) 'If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1 DdlAgrupador.SelectedValueExist(Agrupador) DdlClasificacion.SelectedValueExist(CveClasificacion) - If DdlAgrupador.SelectedValue.ToEntero = 1 Then + If DdlAgrupador.SelectedValue.ToEntero = 1 Then 'Clasificación DdlClasificacion.SelectedValueExist(Gpo) DdlProyecto.SelectedValueExist(CveProyecto) DdlSubProyecto.SelectedValueExist(CveSubProyecto) - ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then + ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then ' Centro costo If Not EsProyecto Then Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0) DdlProyecto.SelectedValueExist(Dr("CveProyecto")) @@ -121,6 +125,10 @@ Partial Class Contratos_RepPresupuestosDetalle TxtFiltrosFechaInicio.Text = FechaInicio TxtFiltrosFechaFin.Text = FechaFin ChkMensual.Checked = Mensual + + If Agrupador = 1 Then Agrupador = 2 Else Agrupador = 1 + DdlAgrupador.SelectedValueExist(Agrupador) + End Sub #End Region diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index dcf9b466e..47be19ad5 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -89,6 +89,8 @@ + + @@ -163,6 +165,20 @@ + +
    + +
    + +
    + + +
    + +
    + + +
    @@ -185,14 +201,7 @@
    - <%--
    -
    - - - -
    -
    --%> - +
    diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index f0633a349..0741c1373 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -323,7 +323,7 @@ Partial Class Inventarios_TrasladoSolicitud Estatus = 3 End If - Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud("", DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen) + Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.text, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen) If Folio > 0 Then CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 55fd4775b..64fbfe248 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -145,12 +145,12 @@ -
    - - - -
    +
    + + + +
    @@ -396,9 +396,46 @@
    - - + + + +
    +
    +
    +
    +
    + + Historial de Modificación +
    +
    +
    +
    +
    +
    +
    + + + + Fecha + + + + + + + + + + + +
    +
    +
    +
    +     +     + <%-- Pre init --%> @@ -593,7 +630,7 @@
    Observacion + ID="TxtObservacion">
    diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 42019cf5f..c5228d721 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -113,6 +113,7 @@ Partial Class RepContratoDetalle CveViajePasajero = 0 Session("FileExtension") = "" ArchivoUpdate = "" + CargaGvBitacora() End If End Sub @@ -298,7 +299,7 @@ Partial Class RepContratoDetalle Try If ObjContratos.UpdateContratos(CveContrato, LbFolio.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, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, - DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then + DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then Alert("Contrato actualizado correctamente") End If ObjContratos.Commit() @@ -606,6 +607,19 @@ Partial Class RepContratoDetalle End Sub #End Region +#Region "Bitacora historial" + Private Sub CargaGvBitacora() + ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017 + If CveContrato > 0 Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then + GvBitacora.DataSource = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + GvBitacora.DataBind() + End Sub +#End Region End Class diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 0a69f7351..13f2f9301 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -126,7 +126,7 @@
    @@ -441,10 +441,19 @@
    + Width="100%" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAF_SelectedIndexChanged" >
    + +
    + +
    + + + +
    +
    @@ -533,6 +542,7 @@ + @@ -811,7 +821,13 @@ $('#HidRemisionSerieFolio').val(event.RemisionSerieFolio); $('#HidCveVentaRemision').val(event.CveVentaRemision); $('#HidRemisionSaldo').val(event.RemisionSaldo); - $('#HidCveAF').val(event.CveActivoFijo); + + if (event.CveActivoFijo > 0) { + $('#HidCveAF').val(event.CveActivoFijo); + } else { + $('#HidCveAF').val('-1'); + } + <%-- $('#HidRemision').text(event.RemisionSerieFolio); @@ -978,8 +994,15 @@ slotEventOverlap: false, // No permitir la superposición en vistas de agenda eventRender: function (event, element) { element.css({ - 'margin-bottom': '1px', // Ajusta el valor según sea necesario - 'margin-left': '1px' // Ajusta el valor según sea necesario + 'margin-bottom': '1px', + 'margin-left': '1px', + 'white-space': 'normal', // Permitir el ajuste de texto + 'height': 'auto', // Ajustar la altura automáticamente + 'overflow': 'hidden' // Ocultar cualquier desbordamiento + }); + element.find('.fc-title').css({ + 'white-space': 'normal', // Asegurar que el texto se ajuste + 'line-height': '1.2em' // Ajustar la altura de línea para mejor legibilidad }); }, events: { diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 860d9b48f..733dfa845 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -221,7 +221,7 @@ Partial Class RepContratosCalendario Protected Sub UpdateContrato(sender As Object, e As EventArgs) - + Dim TieneError As Boolean = False Dim NumChoferes As Integer = If(chkSegundoChofer.Checked, 2, 1) If NumChoferes = 2 AndAlso DdlChofer2.SelectedValue.ToEntero <= 0 Then @@ -230,6 +230,7 @@ Partial Class RepContratosCalendario End If Dim ObjContratos As New ClsContratos + ObjContratos.IniciaTransacSQL() Dim DTAgendadados As New DataTable If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then @@ -261,10 +262,30 @@ Partial Class RepContratosCalendario CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim, NumChoferes:=NumChoferes) Then RegistraScript("$('#ModalActualizar').modal('hide');") Alert("Actualizado Correctamente.") + Else + TieneError = True End If + + If HidCveAF.Value.ToEntero <> DdlAF.SelectedValue.ToEntero Then + Dim objGenerales = New ClsGenerales(ObjContratos.IniciaTransacSQL()) + + If Not objGenerales.AddHistorialBitacora(465, -1, -1, -1, -1, -1, -1, -1, DdlAF.SelectedItem.Text, HidCveAFDes.Value, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, TxtMotivoCambioUnidad.Text, "", "", CveContrato:=CveContrato) Then + TieneError = True + End If + End If + + If TieneError Then + ObjContratos.RollBack() + Else + ObjContratos.Commit() + End If + + + ObjContratos.Dispose() + UpTitulos.Update() CargaDatos() InicializaCalendar() @@ -299,6 +320,15 @@ Partial Class RepContratosCalendario DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) + HidCveAF.Value = "-1" + HidCveAFDes.Value = "" + If GvRow.DataKey("CveAF").ToEntero > 0 Then + HidCveAF.Value = GvRow.DataKey("CveAF").ToString + HidCveAFDes.Value = DdlAF.SelectedItem.Text + End If + + TxtMotivoCambioUnidad.Text = "" + DVMotivoCambioAF.Visible = False HypRemision.Text = GvRow.DataKey("RemisionSerieFolio") @@ -326,6 +356,9 @@ Partial Class RepContratosCalendario HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") End If + TxtMotivoCambioUnidad.Text = "" + DVMotivoCambioAF.Visible = False + DdlClientes.SelectedText = HidModClienteNombre.Value DdlClientes.SelectedValue = HidModCveCliente.Value @@ -347,9 +380,10 @@ Partial Class RepContratosCalendario End If CargaAFDdl(HidCveTipoAF.Value.ToEntero) + DdlAF.SelectedValueExist(HidCveAF.Value) - + HidCveAFDes.Value = DdlAF.SelectedItem.Text UpModal.Update() @@ -452,4 +486,16 @@ Partial Class RepContratosCalendario CargaCronograma(DdlTipoVista.SelectedValue.ToEntero) End Sub + + Protected Sub DdlAF_SelectedIndexChanged(sender As Object, e As EventArgs) + DVMotivoCambioAF.Visible = False + + If HidCveAF.Value.ToEntero > 0 AndAlso DdlAF.SelectedValue.ToEntero <> HidCveAF.Value.ToEntero Then + DVMotivoCambioAF.Visible = True + End If + + UpModal.Update() + End Sub + + End Class diff --git a/Ventas/RepVentasDetalle.aspx b/Ventas/RepVentasDetalle.aspx index 8317229e6..5f2199af1 100644 --- a/Ventas/RepVentasDetalle.aspx +++ b/Ventas/RepVentasDetalle.aspx @@ -346,7 +346,8 @@ - + <%-- 0--%>