From c57c4f2c46d8bf86adc9bfe1242adb9487925f78 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 16 Apr 2024 18:02:26 -0700 Subject: [PATCH 01/13] GDiaz - Identificar anticipos puntuales --- App_Code/ClsBancos.vb | 5 ++- Bancos/IE.aspx | 89 ++++++++++++++++++++++--------------------- Bancos/IE.aspx.vb | 16 +++++++- Ventas/Ventas.aspx.vb | 5 +++ 4 files changed, 68 insertions(+), 47 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 77940930c..871e4c4b8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1475,7 +1475,8 @@ Public Class ClsBancos NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, - Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer + Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1, + Optional AnticipoPuntual As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1516,7 +1517,7 @@ Public Class ClsBancos .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago - + .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual End With Try diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 72d6f420c..198bceedf 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -25,7 +25,7 @@ Complemento Pago - +
  • PrePoliza
    • @@ -151,7 +151,7 @@
    - +
    @@ -225,7 +225,7 @@ Clientes Proveedor Viáticos - Acreedor + Acreedor @@ -245,7 +245,8 @@
    - + +
    @@ -438,23 +439,22 @@
    -
    - -
    - Folio OC: -
    -
    +
    - +
    + Folio OC: +
    +
    + + <%-- --%> - -
    -
    +
    +
    @@ -620,7 +620,7 @@
    -
    +
    @@ -759,7 +759,7 @@ - --%> + --%> Fecha Aplicación @@ -778,7 +778,7 @@ --%> - + @@ -790,11 +790,11 @@ - Deducciones Pago: - + Deducciones Pago: + - +
    @@ -834,7 +834,7 @@
    - +
    Registró: @@ -993,7 +993,7 @@ - +
    @@ -1010,7 +1010,7 @@
    - +
    @@ -1030,13 +1030,14 @@
    -
    - - +
    + + +
    @@ -1220,10 +1221,10 @@
    Cuenta Devolución: - + - - +
    @@ -1231,7 +1232,7 @@
    -
    +
    @@ -1249,10 +1250,10 @@
    - -
    - - + +
    + + @@ -1273,7 +1274,7 @@
    -<%--
    +
    -
    +
    - - + +
    -
    +
    diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 302599684..2fbaa3077 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -109,10 +109,19 @@ Partial Class RepVentaDetalle Set(value As Boolean) ViewState("Primeracontsulta") = value End Set - End Property - + End Property + Private Property ConsultaAlCargar As Boolean + Get + Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar")))) + End Get + Set(value As Boolean) + ViewState("ConsultaAlCargar") = value + End Set + End Property + + #End Region - 'pRivate ReadOnly Property ColumnasVisibles As + 'pRivate ReadOnly Property ColumnasVisibles As Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") @@ -120,14 +129,16 @@ Partial Class RepVentaDetalle CargaCombos() InicializaValores() ConfiguraEmpresa() - CargaDatos() + If ConsultaAlCargar Then + CargaDatos() + End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - LblServicioDomicilioFiltro.Visible = True DVServicioDomicilio.Visible = True - End If + PrePersonalizacion() CargaPersonalizacion() End If @@ -135,6 +146,8 @@ Partial Class RepVentaDetalle Private Sub InicializaValores() + ConsultaAlCargar = True + Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String @@ -275,8 +288,12 @@ Partial Class RepVentaDetalle DdlVendedor.Enabled = False End If - End Sub + If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then + ConsultaAlCargar = False + End If + End Sub + #Region "CARGA COMBOS" Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Año", "1")) @@ -536,7 +553,29 @@ Partial Class RepVentaDetalle If e.Row.DBCampo("RetISR").ToDouble < 0 Then e.Row.Cells(10).ForeColor = Drawing.Color.Red If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(11).ForeColor = Drawing.Color.Red If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red - If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red + If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red + + Dim Ruta As String = UsuarioActual.Empresa.Ruta + + If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then + e.Row.FCLiteral("LtlXML").Text = String.Format("
    XML
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) + Else + e.Row.FCLiteral("LtlXML").Text = "
    " + End If + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) + Else + e.Row.FCLiteral("LtlPDF").Text = "
    " + End If + Else + If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) + Else + e.Row.FCLiteral("LtlPDF").Text = "
    " + End If + End If 'If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = "" @@ -705,7 +744,11 @@ Partial Class RepVentaDetalle If ChkTC.Checked Then ListPersonalizada.Add("TC") - If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta") + If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta") + + If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF") + + If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML") If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") @@ -764,6 +807,9 @@ Partial Class RepVentaDetalle ChkFormaPago.Checked = False ChkUsoCFDI.Checked = False + ChkDescargarPDF.Checked = False + ChkDescargarXML.Checked = False + Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c) For Each personalizacion As String In Personalizaciones @@ -893,6 +939,12 @@ Partial Class RepVentaDetalle Exit Select Case "DescripcionVenta" ChkDescripcionVenta.Checked = True + Exit Select + Case "XML" + ChkDescargarXML.Checked = True + Exit Select + Case "PDF" + ChkDescargarPDF.Checked = True Exit Select Case Else Exit Select @@ -952,8 +1004,9 @@ Partial Class RepVentaDetalle GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked GvDatos.Columns(39).Visible = ChkKilometraje.Checked GvDatos.Columns(40).Visible = ChkTC.Checked - GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked - + GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked + GvDatos.Columns(42).Visible = ChkDescargarXML.Checked + GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked Personalizo = 1 If Personalizo = 1 Then From 3e2708dd548f2a76cc100bfd63b76176344c37fb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 16 Apr 2024 23:19:11 -0700 Subject: [PATCH 04/13] --fix error ortografico --- Bancos/IE.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 198bceedf..92e446f0c 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -245,7 +245,7 @@
    - +
    From 55401421939e98135e7f4a99b5c5d49f258633a7 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 16 Apr 2024 18:03:18 -0700 Subject: [PATCH 05/13] Reloj Checador 2024.04.15 --- App_Code/ClsRH.vb | 59 ++ Compras/Compras.aspx.vb | 20 +- Inventarios/EntregaAlmacen.aspx.vb | 2 +- Inventarios/KardexAlmacenHorizontal.aspx.vb | 444 +++++++------- RH/RepChecadorPreAsistencia.aspx | 58 +- RH/RepChecadorPreAsistencia.aspx.vb | 606 +++++++++++++------- 6 files changed, 721 insertions(+), 468 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 8197581c5..eeb1d6249 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2719,6 +2719,27 @@ Public Class ClsRH OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + + Public Function GetPersonalPreAsistenciaRegistros(InicioPeriodo As Date, FinPeriodo As Date, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + SqlDataAdapter("PA_RH_PersonalPreAsistenciaRegistrosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@InicioPeriodo", SqlDbType.Date).Value = InicioPeriodo + .Add("@FinPeriodo", SqlDbType.Date).Value = FinPeriodo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function @@ -2768,6 +2789,44 @@ Public Class ClsRH End Function + Public Function AddPreAsistencia(CvePersonal As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + Data = New DataTable + 'SqlAdapter = New SqlDataAdapter("PA_RH_PersonalAsistenciasAddUpd", SqlConexion) + 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure + SqlDataAdapter("PA_RH_PersonalPreAsistenciasAddUpd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAsistenciasInasistencias + .Add("@PorcentajePago", SqlDbType.Float).Value = PorcentajePago + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue + End With + + Try + SqlAdapter.Fill(Data) + CveAsistencia = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("x50102;") Then + Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) + Else + Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la Pre Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean Dim Retorno As Boolean = False Dim xmlProductos As System.Xml.Linq.XDocument = Nothing diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index ba963379c..0b165f698 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -20743,7 +20743,7 @@ Partial Class Compras_Compras Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte If (Diferencia) < 0 Then - Alert($"No hay presupuesto disponible en el subproyecto {ValSubProyecto} con la clasificación {ValClasificacion}, Tipo de gasto {ValTipoGasto}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible.
    SubProyecto: {ValSubProyecto}
    Clasificación: {ValClasificacion}
    Tipo de gasto: {ValTipoGasto}. Se excede por {Math.Abs(Diferencia).FormatoNumero}.", TipoMensaje.MsgAdvertencia) respuesta = False Else @@ -20751,7 +20751,7 @@ Partial Class Compras_Compras End If Else - Alert($"No hay presupuesto disponible en el subproyecto {ValSubProyecto} con la clasificación {ValClasificacion}, Tipo de gasto {ValTipoGasto} ", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible.
    SubProyecto: {ValSubProyecto}
    Clasificación: {ValClasificacion}
    Tipo de gasto: {ValTipoGasto}.", TipoMensaje.MsgAdvertencia) respuesta = False End If Else @@ -20808,16 +20808,24 @@ Partial Class Compras_Compras Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto) If tieneRegistrosConCveSubProyecto Then - Dim saldoTotal As Decimal = (From row In resultadosFiltrados + 'Dim saldoTotal As Decimal = (From row In resultadosFiltrados + ' Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso + ' row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion + ' Select row.Field(Of Decimal)("Saldo")).Sum() + + Dim saldoTotal As Decimal = (From row In resultadosFiltrados.AsEnumerable() Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso - row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion + If(row.IsNull("CveClasificacion"), + 0, + row.Field(Of Integer?)("CveClasificacion").GetValueOrDefault()) = item.CveClasificacion Select row.Field(Of Decimal)("Saldo")).Sum() + If saldoTotal > 0 Then Dim Diferencia As Decimal = saldoTotal - item.TotalSum If (Diferencia) < 0 Then - Alert($"No hay presupuesto disponible en el subproyecto {item.SubProyecto} con la clasificación {item.Clasificacion}, Tipo de gasto {item.TipoGasto}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible.
    SubProyecto: {item.SubProyecto}
    Clasificación: {item.Clasificacion}
    Tipo de gasto: {item.TipoGasto}. Se excede por {Math.Abs(Diferencia).FormatoNumero}.", TipoMensaje.MsgAdvertencia) respuesta = False Exit For Else @@ -20825,7 +20833,7 @@ Partial Class Compras_Compras End If Else - Alert($"No hay presupuesto disponible en el subproyecto {item.SubProyecto} con la clasificación {item.Clasificacion}, Tipo de gasto {item.TipoGasto}", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible.
    SubProyecto: {item.SubProyecto}
    Clasificación: {item.Clasificacion}
    Tipo de gasto: {item.TipoGasto}.", TipoMensaje.MsgAdvertencia) respuesta = False Exit For End If diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index be1f33adf..6e51b4464 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -3252,7 +3252,7 @@ Partial Class Inventarios_EntregaAlmacen Msg.AppendFormat("
    Consola ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola))) End If - If CveMovimientoEntrada > 0 Then + If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then Msg.AppendFormat("

    Movimiento Entrada (Traspaso): {1}", CveMovimientoEntrada, FolioEntrada) Msg.AppendFormat("
    Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) End If diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 14b886368..27bbfe0af 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -1,18 +1,18 @@ -Imports System.Data -Imports System.IO -Imports ADSNetLibrary.SIGAPI.Models.CGame -Imports Extensiones -Imports GemBox.Spreadsheet -Imports Microsoft.Reporting.WebForms - -Partial Class Inventarios_KardexAlmacenHorizontal - Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString +Imports System.Data +Imports System.IO +Imports ADSNetLibrary.SIGAPI.Models.CGame +Imports Extensiones +Imports GemBox.Spreadsheet +Imports Microsoft.Reporting.WebForms + +Partial Class Inventarios_KardexAlmacenHorizontal + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not IsPostBack Then + 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString TxtFechaF.Text = NowADS().ToShortDateString - CargaCombos() + CargaCombos() ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) LblOrden.Visible = False DdlOrden.Visible = False @@ -35,18 +35,18 @@ Partial Class Inventarios_KardexAlmacenHorizontal DdlIncluyeTransitorios.Items.RemoveAt(0) 'oculta opción "No" en tránsito End If - If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) + If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then DVFiltroCodigo.Visible = True - End If - - End If - End Sub - Private Sub CargaCombos() - - CargaFuncionalidad105() + End If + + End If + End Sub + Private Sub CargaCombos() + + CargaFuncionalidad105() CargaPS() 'Using ObjPS As New ClsProductosServicios @@ -56,25 +56,25 @@ Partial Class Inventarios_KardexAlmacenHorizontal 'End Using DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa) DdlMarca.DataBind() - DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) - - ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) - ddlAlmacen.DataBind() - - Dim ObjInv As New ClsInventarios() - If ObjInv.GetTiposAlmacenes() Then - DdlTipoAlmacen.DataSource = ObjInv.DtResultados - End If - ObjInv.Dispose() - DdlTipoAlmacen.DataBind() - - DdlTipoAlmacen.SelectedValueExist(1) - - If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString - CargaClasificaciones() - End Sub - - Private Sub CargaClasificaciones() + DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) + + ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) + ddlAlmacen.DataBind() + + Dim ObjInv As New ClsInventarios() + If ObjInv.GetTiposAlmacenes() Then + DdlTipoAlmacen.DataSource = ObjInv.DtResultados + End If + ObjInv.Dispose() + DdlTipoAlmacen.DataBind() + + DdlTipoAlmacen.SelectedValueExist(1) + + If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString + CargaClasificaciones() + End Sub + + Private Sub CargaClasificaciones() Dim CveClasificacion As Integer = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1").ToEntero Dim ObjClasificaciones As New ClsClasificaciones @@ -89,193 +89,193 @@ Partial Class Inventarios_KardexAlmacenHorizontal DdlClasificacion.DataBind() End If End If - ObjClasificaciones.Dispose() - - DdlClasificacion.DataBind() - DdlClasificacion.SelectedValueExist(CveClasificacion) - - End Sub - Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged - CargaPS() - End Sub - Private Sub CargaPS() - - If Not ddlProducto2.UsaWebService Then - 'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "") - ddlProducto2.ddl.Items.Clear() - ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo") - ddlProducto2.DataBind() - ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1")) - End If - End Sub - Private Sub CargaFuncionalidad105() - ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") - DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") - - If ddlProducto2.UsaWebService Then - ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1") - ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") - ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID) - DdlClasificacion.AutoPostBack = False - - DdlProveedor.Attributes.Add("data-metodo", "getproveedores") - Else - ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1")) - ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) - - DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1")) - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - End If - - End Sub - Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange - - DdlUnidadMedida.Items.Clear() - DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) - DdlUnidadMedida.DataBind() - DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1")) - - End Sub - Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click - Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero - CargarKardex(CveProducto) - 'If CveProducto > 0 Then - - 'Else - ' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) - 'End If - - End Sub + ObjClasificaciones.Dispose() + + DdlClasificacion.DataBind() + DdlClasificacion.SelectedValueExist(CveClasificacion) + + End Sub + Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged + CargaPS() + End Sub + Private Sub CargaPS() + + If Not ddlProducto2.UsaWebService Then + 'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "") + ddlProducto2.ddl.Items.Clear() + ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo") + ddlProducto2.DataBind() + ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1")) + End If + End Sub + Private Sub CargaFuncionalidad105() + ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If ddlProducto2.UsaWebService Then + ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1") + ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") + ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID) + DdlClasificacion.AutoPostBack = False + + DdlProveedor.Attributes.Add("data-metodo", "getproveedores") + Else + ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1")) + ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) + + DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1")) + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + End If + + End Sub + Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange + + DdlUnidadMedida.Items.Clear() + DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + DdlUnidadMedida.DataBind() + DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1")) + + End Sub + Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click + Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero + CargarKardex(CveProducto) + 'If CveProducto > 0 Then + + 'Else + ' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) + 'End If + + End Sub Private Sub CargarKardex(CvePS As Integer) - Dim dt As DataTable = Nothing - Dim ObjMovimientos As New ClsInventarios - Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") - ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") - Dim FechaF As Date = TxtFechaF.Text.ToDate - Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues() - Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) - Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) - Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero + Dim dt As DataTable = Nothing + Dim ObjMovimientos As New ClsInventarios + Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") + ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") + Dim FechaF As Date = TxtFechaF.Text.ToDate + Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues() + Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) + Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) + Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim) - Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim) - + Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim) + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero, - Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text, - CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then - If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then - dt = ObjMovimientos.DtResultados - Dim ListaBorrar As New List(Of DataColumn) - For index As Integer = 3 To dt.Columns.Count - 1 - Dim TotColumna As Double = 0 - For Each Dr As DataRow In dt.Rows - TotColumna += Dr.Item(index).ToString.ToDouble + Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text, + CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then + If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then + dt = ObjMovimientos.DtResultados + Dim ListaBorrar As New List(Of DataColumn) + For index As Integer = 3 To dt.Columns.Count - 1 + Dim TotColumna As Double = 0 + For Each Dr As DataRow In dt.Rows + TotColumna += Dr.Item(index).ToString.ToDouble Next If Not TotColumna > 0 Then ListaBorrar.Add(dt.Columns(index)) End If - Next - For Each item As DataColumn In ListaBorrar - dt.Columns().Remove(item) - Next - dt.AcceptChanges() - GvDatos.DataSource = dt - Else - Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia) - GvDatos.Columns.Clear() + Next + For Each item As DataColumn In ListaBorrar + dt.Columns().Remove(item) + Next + dt.AcceptChanges() + GvDatos.DataSource = dt + Else + Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia) + GvDatos.Columns.Clear() dt = Nothing - Exit Sub + Exit Sub End If Else ObjMovimientos.Dispose() Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError) - Exit Sub + Exit Sub End If - GvDatos.DataBind() - - For index = 4 To GvDatos.Rows(0).Cells.Count - 1 - GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0) - Next - End Sub - - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - 'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}") - 'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga - - If e.Row.RowIndex = 0 Then - e.Row.CssClass = "Totales" - End If - - - 'e.Row.Attributes.Add("style", " max-height:31px!important") - + GvDatos.DataBind() + + For index = 4 To GvDatos.Rows(0).Cells.Count - 1 + GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0) + Next + End Sub + + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + 'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}") + 'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga + + If e.Row.RowIndex = 0 Then + e.Row.CssClass = "Totales" + End If + + + 'e.Row.Attributes.Add("style", " max-height:31px!important") + e.Row.HorizontalAlign = HorizontalAlign.Right - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left - Dim Index As Integer = 0 - - For Each Cells As TableCell In e.Row.Cells - Dim Celda As String = Cells.Text - If IsNumeric(Celda) Then - Dim CveAlmacen2 As Integer = -1 - If Index >= 5 Then - Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c) - If Array.Length > 1 Then - CveAlmacen2 = Array(1).ToEntero - End If - End If - - If Celda.ToDouble = 0 Then - Cells.Text = "" - Else - Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell) - - If ce.ContainingField.HeaderText = "CP" Then - Cells.Text = Cells.Text.FormatoNumero(2) - ElseIf ce.ContainingField.HeaderText = "Valor" Then - Cells.Text = Cells.Text.FormatoNumero(2) - 'ElseIf ce.ContainingField.HeaderText = "Total" Then - ' Cells.Text = Cells.Text.FormatoNumero(2) - Else - Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) - End If - End If - e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80) - 'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}") - 'Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) - End If - Index = Index + 1 - Next - - End If - End Sub - - - - Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated - 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui). - ' e.Row.Cells(0).Width = New Unit("200px") - e.Row.Cells(2).Visible = False - e.Row.Cells(3).Visible = False - If e.Row.RowType = DataControlRowType.Header Then - 'e.Row.Cells(6).ToolTip = "Costo" - End If - End Sub - - Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - - Imprimir("Excel") - End Sub - Private Sub Imprimir(Optional reporte As String = "PDF") + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left + Dim Index As Integer = 0 + + For Each Cells As TableCell In e.Row.Cells + Dim Celda As String = Cells.Text + If IsNumeric(Celda) Then + Dim CveAlmacen2 As Integer = -1 + If Index >= 5 Then + Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c) + If Array.Length > 1 Then + CveAlmacen2 = Array(1).ToEntero + End If + End If + + If Celda.ToDouble = 0 Then + Cells.Text = "" + Else + Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell) + + If ce.ContainingField.HeaderText = "CP" Then + Cells.Text = Cells.Text.FormatoNumero(2) + ElseIf ce.ContainingField.HeaderText = "Valor" Then + Cells.Text = Cells.Text.FormatoNumero(2) + 'ElseIf ce.ContainingField.HeaderText = "Total" Then + ' Cells.Text = Cells.Text.FormatoNumero(2) + Else + Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) + End If + End If + e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80) + 'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}") + 'Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) + End If + Index = Index + 1 + Next + + End If + End Sub + + + + Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated + 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui). + ' e.Row.Cells(0).Width = New Unit("200px") + e.Row.Cells(2).Visible = False + e.Row.Cells(3).Visible = False + If e.Row.RowType = DataControlRowType.Header Then + 'e.Row.Cells(6).ToolTip = "Costo" + End If + End Sub + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + + Imprimir("Excel") + End Sub + Private Sub Imprimir(Optional reporte As String = "PDF") If GvDatos.Rows.Count > 0 Then Dim StrFiltro As New StringBuilder If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText) @@ -284,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal ExportToExcelG(GvDatos, "ExistenciasHorizontal_" & TxtFechaF.Text, "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200) Else Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia) - End If + End If End Sub Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) @@ -371,12 +371,12 @@ Partial Class Inventarios_KardexAlmacenHorizontal excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - End Sub - + End Sub + Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion")) - End Sub - + End Sub + Protected Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\KardexProyeccion.xlsx" @@ -392,8 +392,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal Response.TransmitFile(Archivo.FullName) Response.End() End If - End Sub - + End Sub + Protected Sub BtnAgregarProyeccion_Click(sender As Object, e As EventArgs) If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0) @@ -418,8 +418,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal End If AgregarProyeccion(dt) - End Sub - + End Sub + Private Sub AgregarProyeccion(dt As DataTable) Dim TieneError As Boolean = False Dim StrCodigo As New StringBuilder @@ -460,8 +460,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal ObjInventarios.Dispose() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivProyeccion")) - End Sub - + End Sub + 'Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable ' SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) ' Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) @@ -512,8 +512,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal ' Return dataTable - 'End Function - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + 'End Function + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub Private Sub LnkPOG_Click(sender As Object, e As EventArgs) Handles LnkPOG.Click @@ -599,4 +599,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal End Sub -End Class +End Class diff --git a/RH/RepChecadorPreAsistencia.aspx b/RH/RepChecadorPreAsistencia.aspx index 05d4023ec..b475984ea 100644 --- a/RH/RepChecadorPreAsistencia.aspx +++ b/RH/RepChecadorPreAsistencia.aspx @@ -16,11 +16,15 @@ - +
    • +
  • + +
    • @@ -32,46 +36,28 @@
    -
    +
    + +
      +
    • Ejercicio: + + + +
    • Tipo Periodo:
      • -
    • Periodo: - - +
    • + Período: + + +
      • - <%--
    • Fecha Inicio: -
      - - - - -
      - - - - - - -
      • -
    • Fecha Fin: -
      - - - - -
      - - - - - - - - -
      • --%> +
    • SubProyecto: @@ -340,7 +326,7 @@
      - + <%----%>
      diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 8a568df99..4fab6f22b 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -1,4 +1,5 @@ Option Strict On + Imports Extensiones Imports System.Data @@ -60,16 +61,16 @@ Partial Class RH_RepChecadorPreAsistencia End Set End Property - Private Property DTPeridos As DataTable + Private Property DTPeriodos As DataTable Get - If ViewState("DTPeridoso") Is Nothing Then + If ViewState("DTPeriodos") Is Nothing Then Return New DataTable Else - Return DirectCast(ViewState("DTPeridoso"), DataTable) + Return DirectCast(ViewState("DTPeriodos"), DataTable) End If End Get Set(value As DataTable) - ViewState("DTPeridoso") = value + ViewState("DTPeriodos") = value End Set End Property @@ -153,11 +154,26 @@ Partial Class RH_RepChecadorPreAsistencia End Property + 'Private Property dtPeriodos As DataTable + ' Get + ' If ViewState("dtPeriodos") Is Nothing Then + ' Return Nothing + ' Else + ' Return DirectCast(ViewState("dtPeriodos"), DataTable) + ' End If + ' End Get + ' Set(value As DataTable) + ' ViewState("dtPeriodos") = value + ' End Set + 'End Property + + #End Region Private Sub RH_RepChecadorIncidencias_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + cargaEjercicios() CargaCombos() End If @@ -165,6 +181,81 @@ Partial Class RH_RepChecadorPreAsistencia End Sub + + Private Sub cargaEjercicios() + Dim EjercicioActual As Integer = UsuarioActual.Empresa.EjercicioActual + If EjercicioActual = 0 Then + EjercicioActual = Now.Year + End If + + Dim dtejercicio As DataTable = Nothing + Using objnom As New ClsNominas() + If objnom.GetEjercicios(UsuarioActual.CveEmpresa) Then + dtejercicio = objnom.DtResultados + End If + End Using + + DdlEjercicios.DataSource = dtejercicio + DdlEjercicios.DataBind() + + Dim litem As ListItem = Nothing + If dtejercicio IsNot Nothing AndAlso dtejercicio.Rows.Count > 0 Then + If dtejercicio.Compute("COUNT(Ejercicio)", String.Format("Ejercicio={0}", EjercicioActual)).ToString.ToEntero = 0 Then + litem = New ListItem(EjercicioActual.ToString(), EjercicioActual.ToString()) + DdlEjercicios.Items.Insert(0, litem) + End If + If dtejercicio.Compute("COUNT(Ejercicio)", String.Format("Ejercicio={0}", EjercicioActual - 1)).ToString.ToEntero = 0 Then + litem = New ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString()) + DdlEjercicios.Items.Insert(1, litem) + ' DdlEjerciciosCM.Items.Insert(1, litem) + End If + Else + litem = New ListItem(EjercicioActual.ToString(), EjercicioActual.ToString()) + DdlEjercicios.Items.Insert(0, litem) + 'DdlEjerciciosCM.Items.Insert(0, litem) + litem = New ListItem((EjercicioActual - 1).ToString(), (EjercicioActual - 1).ToString()) + DdlEjercicios.Items.Insert(1, litem) + 'DdlEjerciciosCM.Items.Insert(1, litem) + End If + + If DdlEjercicios.Items.Count > 0 Then + DdlEjercicios.SelectedIndex = 0 + End If + + ' Additional method to check if selected value exists, and set it if it does + DdlEjercicios.SelectedValueExist(Now.Year.ToString()) + End Sub + + Protected Sub DdlEjercicios_SelectedIndexChanged(sender As Object, e As EventArgs) + cargaPeriodos() + End Sub + + Private Sub cargaPeriodos() + BtnConsultar.Enabled = False + Dim tipoPeriodo As Integer = DdlTipoPeriodo.SelectedValue.ToEntero() + Dim ejercicio As Integer = DdlEjercicios.SelectedValue.ToEntero() + DTPeriodos = Nothing + + If DdlTipoPeriodo.SelectedValue.ToEntero() > 0 Then + Using objPeriodos As New ClsNominas() + If objPeriodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1) Then + If objPeriodos.DtResultados.Rows.Count = 0 Then + Alert("No existen periodos registrados en este año y tipo de periodo, ¿desea registrarlos masivamente?", TipoMensaje.MsgConfirmacion, "$(""#divCargaMasiva"").modal(""show"");", TextoConfirmacion:="Aceptar", TextoSegundoBoton:="No") + End If + DTPeriodos = objPeriodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4,5)") + End If + End Using + + BtnConsultar.Enabled = True + End If + + DdlPeriodo.DataSource = DTPeriodos + DdlPeriodo.DataBind() + DdlPeriodo.Items.Insert(0, New ListItem("Seleccione", "-1")) + UPFiltros.Update() + 'muestraPeriodo() + End Sub + Private Sub CargaCombos() @@ -198,10 +289,10 @@ Partial Class RH_RepChecadorPreAsistencia lblTituloPagina.Text = "" - If DdlRango.SelectedIndex > 0 Then - lblTituloPagina.Text = DdlRango.SelectedItem.Text + If DdlPeriodo.SelectedIndex > 0 Then + lblTituloPagina.Text = DdlPeriodo.SelectedItem.Text - Dim DtTemp As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero) + Dim DtTemp As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero) FechaInicioPeriodo = DtTemp(0)("FechaInicio").ToString().ToDate FechaFinPeriodo = DtTemp(0)("FechaFin").ToString().ToDate End If @@ -212,8 +303,8 @@ Partial Class RH_RepChecadorPreAsistencia Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged - DdlRango.Items.Clear() - DTPeridos = Nothing + DdlPeriodo.Items.Clear() + DTPeriodos = Nothing Dim objRh As New ClsRH @@ -222,53 +313,57 @@ Partial Class RH_RepChecadorPreAsistencia CveTipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero DiasPeriodo = DTTipoPeriodoDatos.FiltraParametros(" CveTipoPeriodo = " & DdlTipoPeriodo.SelectedValue)(0)("DiasPeriodo").ToString().ToEntero - Dim objNomina As New ClsNominas - If objNomina.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, -1, -1, -1) Then + cargaPeriodos() - TxtFechaModal.Text = "" - lblTituloPagina.Text = "" - UpTituloPagina.Update() - UpModalFechaBody.Update() + 'Dim objNomina As New ClsNominas - If objNomina.DtResultados.Rows.Count > 0 Then - BtnConsultar.Enabled = True - DTPeridos = objNomina.DtResultados - Dim DTPeridosView As DataView = DTPeridos.DefaultView - DTPeridosView.Sort = " FechaInicio desc " - DTPeridos = DTPeridosView.ToTable - DdlRango.DataSource = objNomina.DtResultados + 'If objNomina.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, -1, -1, -1) Then - ' LblPeriodo.Visible = True - 'DdlRango.Visible = True - Else - ' RegistraScript("$('#ModalModalFecha').modal({ backdrop: 'static', keyboard: false});") - Alert("No se encontraron periodos disponibles.", TipoMensaje.MsgAdvertencia) - DTPeridos = Nothing - DdlRango.DataSource = Nothing - End If - Else - DTPeridos = Nothing - DdlRango.DataSource = Nothing - End If + ' TxtFechaModal.Text = "" + ' lblTituloPagina.Text = "" + ' UpTituloPagina.Update() + ' UpModalFechaBody.Update() - Dim DtTempFechaInicial As DataTable = DTPeridos.FiltraParametros("Estatus = 1") + ' If objNomina.DtResultados.Rows.Count > 0 Then + ' BtnConsultar.Enabled = True + ' DTPeriodos = objNomina.DtResultados + ' Dim DTPeridosView As DataView = DTPeriodos.DefaultView + ' DTPeridosView.Sort = " FechaInicio desc " + ' DTPeriodos = DTPeridosView.ToTable + ' DdlPeriodo.DataSource = objNomina.DtResultados - objNomina.Dispose() - DdlRango.DataBind() + ' ' LblPeriodo.Visible = True + ' 'DdlRango.Visible = True + ' Else + ' ' RegistraScript("$('#ModalModalFecha').modal({ backdrop: 'static', keyboard: false});") + ' Alert("No se encontraron periodos disponibles.", TipoMensaje.MsgAdvertencia) + ' DTPeriodos = Nothing + ' DdlPeriodo.DataSource = Nothing + ' End If + 'Else + ' DTPeriodos = Nothing + ' DdlPeriodo.DataSource = Nothing + 'End If + 'objNomina.Dispose() + + Dim DtTempFechaInicial As DataTable = DTPeriodos.FiltraParametros("Estatus = 1") + + + DdlPeriodo.DataBind() If DtTempFechaInicial.Rows.Count > 0 Then Dim temCvePeriodoNomi As Integer = DtTempFechaInicial(0)("CvePeriodo").ToString().ToEntero - DdlRango.SelectedValueExist(temCvePeriodoNomi) + DdlPeriodo.SelectedValueExist(temCvePeriodoNomi) End If - DdlRango.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + DdlPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) UPFiltros.Update() ' BtnConsultar.Enabled = True Else - DTPeridos = Nothing - DdlRango.DataSource = Nothing + DTPeriodos = Nothing + DdlPeriodo.DataSource = Nothing 'DdlRango.Visible = False ' LblPeriodo.Visible = Fale @@ -281,7 +376,7 @@ Partial Class RH_RepChecadorPreAsistencia GeneraFechasInicioFinPerdiodo() End Sub - Private Sub DdlRango_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRango.SelectedIndexChanged + Private Sub DdlRango_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged GeneraFechasInicioFinPerdiodo() UpTituloPagina.Update() @@ -302,7 +397,8 @@ Partial Class RH_RepChecadorPreAsistencia Dim dt As New DataTable Dim Retardos As Integer = 0 - Dim DTAsistenciasInasistencias As New DataTable + 'Dim DTAsistenciasInasistencias As New DataTable + Dim DTPreAsistenciasInasistencias As New DataTable Dim DTChecadorRegistros As New DataTable Dim DTHorarios As New DataTable Dim DTDiasInhabiles As New DataTable @@ -376,7 +472,7 @@ Partial Class RH_RepChecadorPreAsistencia Resultados.Columns.Add("TipoCorto") Resultados.Columns.Add("Sancion") - If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then + If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlPeriodo.SelectedValue.ToEntero > 0 Then Dim FiltroSubProyecto As String = "" Dim filtroturno = If(DdlTurno.SelectedValue = "-1", "", $"AND CveTurno = { DdlTurno.SelectedValue}") @@ -388,7 +484,7 @@ Partial Class RH_RepChecadorPreAsistencia 'DtPersonal = GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto) - Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero) + Dim DtTempPeriodo As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero) Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros(FiltroSubProyecto).AsEnumerable() @@ -439,8 +535,12 @@ Partial Class RH_RepChecadorPreAsistencia DtVacaciones = objRH.DtResultados End If - If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then - DTAsistenciasInasistencias = objRH.DtResultados + 'If objRH.GetPersonalAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then + ' DTAsistenciasInasistencias = objRH.DtResultados + 'End If + + If objRH.GetPersonalPreAsistenciaRegistros(FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa) Then + DTPreAsistenciasInasistencias = objRH.DtResultados End If 'If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then @@ -536,122 +636,166 @@ Partial Class RH_RepChecadorPreAsistencia Dim tabladelDia As DataTable = registrosPersonal.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND FechaRegistro >= '" & tempDatetime1.ToShortDateString & "' AND FechaRegistro <= '" & tempDatetime2.ToString() & "'") - If DTAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND Fecha >= '" & Fecha & "'").Rows.Count > 0 Then - ReRow("CveAsistenciasInasistencias") = DTAsistenciasInasistencias(0)("CveAsistenciasInasistencias").ToString() + + + + If DTPreAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND Fecha = '" & Fecha & "'").Rows.Count > 0 Then + ReRow("CveAsistenciasInasistencias") = DTPreAsistenciasInasistencias.FiltraParametros(" CvePersonal = " & dRow(0).ToString() & " AND Fecha = '" & Fecha & "'")(0)("CveAsistenciasInasistencias").ToString() + + If ReRow("CveAsistenciasInasistencias").ToString.ToEntero > 0 Then + + Dim drowAsistenciaInasistencia As DataRow = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltroPrimero($"CveAsistenciasInasistencias={ReRow("CveAsistenciasInasistencias").ToString.ToEntero}") + + ReRow("Asistio") = drowAsistenciaInasistencia("AplicaAsistencia").ToString = "Aplica" + ReRow("PorcentajePago") = DTPreAsistenciasInasistencias(0)("PorcentajePago").ToString.ToDecimal + ReRow("Descanso") = drowAsistenciaInasistencia("AplicaVacacion").ToString = "Aplica" + ReRow("DiaInhabil") = "False" + ReRow("DiaVacacion") = drowAsistenciaInasistencia("AplicaVacacion").ToString = "Aplica" + ReRow("FaltaRetardosAcumulados") = drowAsistenciaInasistencia("AplicaFalta").ToString = "Aplica" + ReRow("Retraso") = drowAsistenciaInasistencia("AplicaRetardo").ToString = "Aplica" + ReRow("FaltaRetraso") = False 'Not drowAsistenciaInasistencia("AplicaAsistencia").ToString = "Aplica" + ReRow("TipoCorto") = drowAsistenciaInasistencia("TipoCorto").ToString + End If End If - Dim CountRegistros As Integer = tabladelDia.Rows.Count + If Not ReRow("CveAsistenciasInasistencias").ToString.ToEntero > 0 Then - Dim Inconsistencia As Boolean = False + 'If tabladelDia.Rows.Count > 0 AndAlso tabladelDia.Rows.Count <> 4 And DiaLaboral = False Then + If tabladelDia.Rows.Count > 0 AndAlso tabladelDia.Rows.Count <> 4 Then + 'Dim drowAsistenciaInasistencia As DataRow = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltroPrimero($"CveAsistenciasInasistencias={ReRow("CveAsistenciasInasistencias").ToString.ToEntero}") - If Not DiaLaboral Then - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso - ReRow("PorcentajePago") = "100" - ReRow("Descanso") = "True" - End If + ReRow("Asistio") = False + ReRow("PorcentajePago") = 0 + ReRow("Descanso") = False + ReRow("DiaInhabil") = False + ReRow("DiaVacacion") = False + ReRow("FaltaRetardosAcumulados") = False + ReRow("Retraso") = False + ReRow("FaltaRetraso") = False + ReRow("TipoCorto") = "_ND" - Dim TempDTValidaciones As DataTable = DTDiasInhabiles.FiltraParametros(" FechaInhabil = '" & Fecha.ToString() & "'") - If TempDTValidaciones.Rows.Count > 0 Then - ReRow("PorcentajePago") = "100" - ReRow("DiaInhabil") = "True" - ReRow("DiaInhabilStr") = TempDTValidaciones(0)("DiaInhabil").ToString() - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso - ReRow("PorcentajePago") = "100" - Else - ReRow("DiaInhabil") = "False" - ReRow("DiaInhabilStr") = "" - End If + Else + Dim CountRegistros As Integer = tabladelDia.Rows.Count + Dim Inconsistencia As Boolean = False - TempDTValidaciones = DtVacaciones.FiltraParametros(" Fecha = '" & Fecha.ToString() & "' AND CvePersonal = " & dRow(0).ToString()) + If Not DiaLaboral Then + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso + ReRow("PorcentajePago") = "100" + ReRow("Descanso") = "True" + End If - If TempDTValidaciones.Rows.Count > 0 Then - ReRow("DiaVacacion") = "True" - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso - ReRow("PorcentajePago") = "100" + Dim TempDTValidaciones As DataTable = DTDiasInhabiles.FiltraParametros(" FechaInhabil = '" & Fecha.ToString() & "'") + If TempDTValidaciones.Rows.Count > 0 Then + ReRow("PorcentajePago") = "100" + ReRow("DiaInhabil") = "True" + ReRow("DiaInhabilStr") = TempDTValidaciones(0)("DiaInhabil").ToString() + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso + ReRow("PorcentajePago") = "100" + Else + ReRow("DiaInhabil") = "False" + ReRow("DiaInhabilStr") = "" + End If - Else - ReRow("DiaVacacion") = "False" - End If + TempDTValidaciones = DtVacaciones.FiltraParametros(" Fecha = '" & Fecha.ToString() & "' AND CvePersonal = " & dRow(0).ToString()) - - If Fecha >= NowADS() Then - ReRow("Asistio") = "True" - ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio - ReRow("PorcentajePago") = "100" - Else - - If ReRow("DiaVacacion").ToString() <> "True" And ReRow("Descanso").ToString() <> "True" Then - - If CountRegistros > 0 Then - - FechaHoraRegistroEntrada = DateTime.Parse(tabladelDia(0)("FechaRegistro").ToString()) - FechaHoraRegistroSalida = DateTime.Parse(tabladelDia(tabladelDia.Rows.Count - 1)("FechaRegistro").ToString()) - - If Not (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolFalEntradaMin Then - If (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolRetEntradaMin Then - - Retardos = Retardos + 1 - ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retardo" - - If Retardos >= TolRetAcumulados Then - ReRow("Asistio") = "False" - ReRow("FaltaRetardosAcumulados") = "True" - ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & " Falta por " & TolRetAcumulados & " acumulados. " - Retardos = 0 - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta - ReRow("PorcentajePago") = "0" - Else - ReRow("Asistio") = "True" - ReRow("Retraso") = "True" - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo - ReRow("PorcentajePago") = "100" - End If - Else - ReRow("Asistio") = "True" - ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio - ReRow("PorcentajePago") = "100" - End If - Else - Asistencia = False - ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Falta por retardo." - ReRow("FaltaRetraso") = "True" - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta - ReRow("PorcentajePago") = "0" - End If - - If FechahoraSalida > FechaHoraRegistroSalida Then - - Dim diferenciasalidaMinutos As Integer = (FechahoraSalida - FechaHoraRegistroSalida).TotalMinutes.ToString().ToEntero - - If RetSalidaAntes Then - If diferenciasalidaMinutos > TolSalidaAntesMin Then - - ReRow("Asistio") = "True" - ReRow("Retraso") = "True" - ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retraso por salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)." - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo - ReRow("PorcentajePago") = "100" - Else - ReRow("Asistio") = "True" - ReRow("Retraso") = "False" - ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)." - ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio - ReRow("PorcentajePago") = "100" - - End If - End If - End If + If TempDTValidaciones.Rows.Count > 0 Then + ReRow("DiaVacacion") = "True" + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaDescanso + ReRow("PorcentajePago") = "100" Else - ReRow("Asistio") = "False" - ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta - ReRow("PorcentajePago") = "0" + ReRow("DiaVacacion") = "False" End If + + + If Fecha >= NowADS() Then + ReRow("Asistio") = "True" + ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio + ReRow("PorcentajePago") = "100" + Else + + If ReRow("DiaVacacion").ToString() <> "True" And ReRow("Descanso").ToString() <> "True" Then + + If CountRegistros > 0 Then + + FechaHoraRegistroEntrada = DateTime.Parse(tabladelDia(0)("FechaRegistro").ToString()) + FechaHoraRegistroSalida = DateTime.Parse(tabladelDia(tabladelDia.Rows.Count - 1)("FechaRegistro").ToString()) + + If Not (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolFalEntradaMin Then + If (FechaHoraRegistroEntrada - FechaHoraEntrada).TotalMinutes > TolRetEntradaMin Then + + Retardos = Retardos + 1 + ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retardo" + + If Retardos >= TolRetAcumulados Then + ReRow("Asistio") = "False" + ReRow("FaltaRetardosAcumulados") = "True" + ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & " Falta por " & TolRetAcumulados & " acumulados. " + Retardos = 0 + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta + ReRow("PorcentajePago") = "0" + Else + ReRow("Asistio") = "True" + ReRow("Retraso") = "True" + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo + ReRow("PorcentajePago") = "100" + End If + Else + ReRow("Asistio") = "True" + ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio + ReRow("PorcentajePago") = "100" + End If + Else + Asistencia = False + ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Falta por retardo." + ReRow("FaltaRetraso") = "True" + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta + ReRow("PorcentajePago") = "0" + End If + + If FechahoraSalida > FechaHoraRegistroSalida Then + + Dim diferenciasalidaMinutos As Integer = (FechahoraSalida - FechaHoraRegistroSalida).TotalMinutes.ToString().ToEntero + + If RetSalidaAntes Then + If diferenciasalidaMinutos > TolSalidaAntesMin Then + + ReRow("Asistio") = "True" + ReRow("Retraso") = "True" + ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Retraso por salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)." + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaRetardo + ReRow("PorcentajePago") = "100" + Else + ReRow("Asistio") = "True" + ReRow("Retraso") = "False" + ReRow("Mensaje") = ReRow("Mensaje").ToString() & vbLf & "Salida antes de tiempo (" & diferenciasalidaMinutos & " minutos)." + ReRow("CveAsistenciasInasistencias") = CveASistenciaInasistenciaAsistio + ReRow("PorcentajePago") = "100" + + End If + End If + End If + + Else + ReRow("Asistio") = "False" + ReRow("CveAsistenciasInasistencias") = CveAsistenciaInasistenciaFalta + ReRow("PorcentajePago") = "0" + End If + End If + + End If + + If ReRow("Asistio").ToString() = "True" Then ReRow("PorcentajePago") = "100" Else ReRow("PorcentajePago") = "0" End If + + + End If - If ReRow("Asistio").ToString() = "True" Then ReRow("PorcentajePago") = "100" Else ReRow("PorcentajePago") = "0" + + + 'adasdasd Resultados.Rows.Add(ReRow) @@ -899,7 +1043,7 @@ Partial Class RH_RepChecadorPreAsistencia Dim ColumN As Integer = (dt.Columns.Count) - 2 - For x As Integer = 3 To dt.Columns.Count-1 + For x As Integer = 3 To dt.Columns.Count - 1 GVRegDatos.Columns(x).HeaderText = "" GVRegDatos.Columns(x).Visible = False Next @@ -940,36 +1084,48 @@ Partial Class RH_RepChecadorPreAsistencia RRow(ColumN) = "-" - If ResumenDia(0)("Asistio").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "A" Then - RRow(ColumN) = "A|" & filtro - End If + If ResumenDia(0)("TipoCorto").ToString().Length > 0 Then - If ResumenDia(0)("DiaVacacion").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "V" Then - RRow(ColumN) = "V|" & filtro - End If + RRow(ColumN) = $"{ResumenDia(0)("TipoCorto").ToString()}|" & filtro - If ResumenDia(0)("Asistio").ToString() = "False" Or ResumenDia(0)("TipoCorto").ToString() = "F" Then - RRow(ColumN) = "F|" & filtro - End If + Else - If ResumenDia(0)("Retraso").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "R" Then - RRow(ColumN) = "R|" & filtro - End If - - If ResumenDia(0)("FaltaRetraso").ToString() = "True" Or TipoCorto = "FR" Then - RRow(ColumN) = "FR|" & filtro - End If - - If ResumenDia(0)("Descanso").ToString() = "True" Or ResumenDia(0)("DiaInhabil").ToString() = "True" Then - RRow(ColumN) = "D|" & filtro - End If - - If ResumenDia(0)("Inconsistencia").ToString() = "True" Then - RRow(ColumN) = "IN|" & filtro - If ResumenDia(0)("Descanso").ToString() = "True" Then - RRow(ColumN) = "IND|" & filtro + If ResumenDia(0)("Asistio").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "A" Then + RRow(ColumN) = "A|" & filtro End If + + + If ResumenDia(0)("DiaVacacion").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "V" Then + RRow(ColumN) = "V|" & filtro + End If + + If ResumenDia(0)("Asistio").ToString() = "False" Or ResumenDia(0)("TipoCorto").ToString() = "F" Then + RRow(ColumN) = "F|" & filtro + End If + + If ResumenDia(0)("Retraso").ToString() = "True" Or ResumenDia(0)("TipoCorto").ToString() = "R" Then + RRow(ColumN) = "R|" & filtro + End If + + If ResumenDia(0)("FaltaRetraso").ToString() = "True" Or TipoCorto = "FR" Then + RRow(ColumN) = "FR|" & filtro + End If + + If ResumenDia(0)("Descanso").ToString() = "True" Or ResumenDia(0)("DiaInhabil").ToString() = "True" Then + RRow(ColumN) = "D|" & filtro + End If + + If ResumenDia(0)("Inconsistencia").ToString() = "True" Then + RRow(ColumN) = "IN|" & filtro + If ResumenDia(0)("Descanso").ToString() = "True" Then + RRow(ColumN) = "IND|" & filtro + End If + End If + + End If + + Else DTTempAsistencias = DTAsistenciasInasistenciasReg.FiltraParametros(filtro) @@ -1027,7 +1183,7 @@ Partial Class RH_RepChecadorPreAsistencia - If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlRango.SelectedValue.ToEntero > 0 Then + If DdlTipoPeriodo.SelectedValue.ToEntero > 0 And DdlPeriodo.SelectedValue.ToEntero > 0 Then Dim dt As New DataTable Dim DtPersonal As New DataTable @@ -1039,7 +1195,7 @@ Partial Class RH_RepChecadorPreAsistencia DTAsistenciasInasistencias = objRH.DtResultados End If - Dim DtTempPeriodo As DataTable = DTPeridos.FiltraParametros("CvePeriodo = " & DdlRango.SelectedValue.ToEntero) + Dim DtTempPeriodo As DataTable = DTPeriodos.FiltraParametros("CvePeriodo = " & DdlPeriodo.SelectedValue.ToEntero) Dim FechaInicioPeriodoFiltro = DtTempPeriodo(0)("FechaInicio").ToString().ToDate Dim FilasFiltradas = From fila In GlobalDTRHPersonal(UsuarioActual.Empresa.CveEmpresa).FiltraParametros($" CveTipoPeriodo = { DdlTipoPeriodo.SelectedValue} AND CveEstado = 1 " & If(DdlTurno.SelectedValue = "-1", "", $" AND CveTurno = {DdlTurno.SelectedValue}")).AsEnumerable() @@ -1496,9 +1652,9 @@ Partial Class RH_RepChecadorPreAsistencia DTRespuesta = DtRespuestaView.ToTable - DdlRango.DataSource = DTRespuesta - DdlRango.DataBind() - DdlRango.Items.Insert(0, New ListItem("Seleccionar uno", "-1")) + DdlPeriodo.DataSource = DTRespuesta + DdlPeriodo.DataBind() + DdlPeriodo.Items.Insert(0, New ListItem("Seleccionar uno", "-1")) 'DdlRango.Visible = True 'LblPeriodo.Visible = True UPFiltros.Update() @@ -1536,6 +1692,14 @@ Partial Class RH_RepChecadorPreAsistencia lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}" + If Instruccion = "_ND" Then + lnkLink.Text = "" + lnkLink.ForeColor = Drawing.Color.DarkOrange + lnkLink.ToolTip = "Inconsistencia" + lnkLink.Font.Bold = True + End If + + If Instruccion = "-" Then lnkLink.Text = "" lnkLink.ForeColor = Drawing.Color.Green @@ -1565,6 +1729,12 @@ Partial Class RH_RepChecadorPreAsistencia ContadorFaltas = ContadorFaltas + 1 End If + If Instruccion = "DDV" Then + lnkLink.Text = "" + lnkLink.ToolTip = "Dia de descanso." + lnkLink.ForeColor = Drawing.Color.Green + End If + If Instruccion = "D" Or Instruccion = "V" Then lnkLink.Text = "" lnkLink.ToolTip = "Dia de descanso/no laboral/Vacación" @@ -1639,6 +1809,13 @@ Partial Class RH_RepChecadorPreAsistencia lnkLink.Font.Bold = True End If + If Instruccion = "P" Then + lnkLink.Text = "" + lnkLink.ToolTip = "Permiso." + lnkLink.ForeColor = Drawing.Color.DarkOrange + lnkLink.Font.Bold = True + End If + If Filtro.Length > 0 Then AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click End If @@ -1707,6 +1884,14 @@ Partial Class RH_RepChecadorPreAsistencia lnkModalImg.Text = "" + If Instruccion = "_ND" Then + lnkModalImg.Text = "" + lnkModalImg.ForeColor = Drawing.Color.DarkOrange + lnkModalImg.ToolTip = "Inconsistencia" + lnkModalImg.Font.Bold = True + lblModalMensaje.Text = "Inconsistencia" + End If + If Instruccion = "-" Or Instruccion = "A" Then lnkModalImg.Text = "" lnkModalImg.ForeColor = Drawing.Color.Green @@ -1741,6 +1926,15 @@ Partial Class RH_RepChecadorPreAsistencia 'CveEstado = CveDescanso End If + + If Instruccion = "DDV" Then + lnkModalImg.Text = "" + lnkModalImg.ToolTip = "Dia de descanso." + lnkModalImg.ForeColor = Drawing.Color.Green + lblModalMensaje.Text = "Dia de descanso." + 'CveEstado = CveDescanso + End If + If Instruccion = "DI" Or Instruccion = "V" Then lnkModalImg.Text = "" lnkModalImg.ToolTip = "Dia de descanso/no laboral/Vacación" @@ -1828,39 +2022,39 @@ Partial Class RH_RepChecadorPreAsistencia End Function - Private Sub BtnEstusAsistenciaModal_Click(sender As Object, e As EventArgs) Handles BtnEstusAsistenciaModal.Click + 'Private Sub BtnEstusAsistenciaModal_Click(sender As Object, e As EventArgs) Handles BtnEstusAsistenciaModal.Click - Dim myRow As DataRow() ' = DtResultados.NewRow - Dim temtDt As New DataTable - temtDt = DtResultados.FiltraParametros(FiltroAplicado) + ' Dim myRow As DataRow() ' = DtResultados.NewRow + ' Dim temtDt As New DataTable + ' temtDt = DtResultados.FiltraParametros(FiltroAplicado) - Dim fecha As String = temtDt(0)("Fecha").ToString() - Dim CvePersonal As Integer = temtDt(0)("CvePersonal").ToString().ToEntero - Dim filtro As String = String.Format(" CvePersonal = '{0}' AND Fecha = '{1}'", CvePersonal, fecha) + ' Dim fecha As String = temtDt(0)("Fecha").ToString() + ' Dim CvePersonal As Integer = temtDt(0)("CvePersonal").ToString().ToEntero + ' Dim filtro As String = String.Format(" CvePersonal = '{0}' AND Fecha = '{1}'", CvePersonal, fecha) - Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias = {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString() + ' Dim AplicaFalta As String = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias = {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("AplicaFalta").ToString() - myRow = DtResultados.Select(filtro) + ' myRow = DtResultados.Select(filtro) - If AplicaFalta = "Aplica" Then - myRow(0)("Asistio") = "False" - myRow(0)("SalarioDiario") = "0" - Else - myRow(0)("Asistio") = "True" - myRow(0)("SalarioDiario") = "100" - End If + ' If AplicaFalta = "Aplica" Then + ' myRow(0)("Asistio") = "False" + ' myRow(0)("SalarioDiario") = "0" + ' Else + ' myRow(0)("Asistio") = "True" + ' myRow(0)("SalarioDiario") = "100" + ' End If - myRow(0)("CveAsistenciasInasistencias") = DdlAsistenciaInacistencia.SelectedValue + ' myRow(0)("CveAsistenciasInasistencias") = DdlAsistenciaInacistencia.SelectedValue - myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias = {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString() + ' myRow(0)("TipoCorto") = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveAsistenciasInasistencias = {0} ", DdlAsistenciaInacistencia.SelectedValue))(0)("TipoCorto").ToString() - RegistraScript("$('#divDetallesDia').modal('hide');") - Alert("Actualizado correctamente.") - ReprocesarTabla() - GvBind() + ' RegistraScript("$('#divDetallesDia').modal('hide');") + ' Alert("Actualizado correctamente.") + ' ReprocesarTabla() + ' GvBind() - End Sub + 'End Sub Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click @@ -1997,12 +2191,18 @@ Partial Class RH_RepChecadorPreAsistencia Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) If DdlAsistenciaInacistencia.SelectedValue.ToEntero > 0 Then Dim ObjPersonal As New ClsRH - If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, - DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then + 'If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then + + If ObjPersonal.AddPreAsistencia(CvePersonalSeleccionado, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then Alert("Registro Actualizado Correctamente.") + RegistraScript("$('#divDetallesDia').modal('hide');") + CargaDatos() End If + ObjPersonal.Dispose() End If End Sub + + End Class \ No newline at end of file From 83f7bd944fa1e25b2a46d0fd1f0953dba1f91359 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Apr 2024 09:41:41 -0700 Subject: [PATCH 06/13] Reloj Checador 2024.04.15 --- RH/RepChecadorPreAsistencia.aspx.vb | 184 +++++++++++++++++++++++++--- 1 file changed, 169 insertions(+), 15 deletions(-) diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 4fab6f22b..05177136f 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -1,8 +1,12 @@ Option Strict On + Imports Extensiones +Imports System Imports System.Data + + Partial Class RH_RepChecadorPreAsistencia Inherits ClsPaginas #Region "Propiedades" @@ -543,20 +547,20 @@ Partial Class RH_RepChecadorPreAsistencia DTPreAsistenciasInasistencias = objRH.DtResultados End If - 'If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then - ' DTAsistenciasInasistenciasReg = objRH.DtResultados + If objRH.ChecadorPreAsistenciaRegistrosAsistenciasGet(CveTipoPeriodo, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.Empresa.CveEmpresa) Then + DTAsistenciasInasistenciasReg = objRH.DtResultados - ' If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then - ' BtnAgregar.Visible = False - ' BtnEstusAsistenciaModal.Visible = False - ' 'DdlAsistenciaInacistencia.Enabled = False - ' Else - ' BtnAgregar.Visible = True - ' BtnEstusAsistenciaModal.Visible = True - ' 'DdlAsistenciaInacistencia.Enabled = True - ' End If - ' UpAgregar.Update() - 'End If + 'If DTAsistenciasInasistenciasReg.Rows.Count > 0 Then + ' 'BtnAgregar.Visible = False + ' 'BtnEstusAsistenciaModal.Visible = False + ' 'DdlAsistenciaInacistencia.Enabled = False + 'Else + ' 'BtnAgregar.Visible = True + ' 'BtnEstusAsistenciaModal.Visible = True + ' 'DdlAsistenciaInacistencia.Enabled = True + 'End If + 'UpAcciones.Update() + End If objRH.Dispose() @@ -1165,10 +1169,12 @@ Partial Class RH_RepChecadorPreAsistencia End Sub Private Sub GvBind() - + LnkEnviarAsistencia.Visible = False If DtDatosTabla.Rows.Count > 0 Then 'BtnAgregar.Visible = True GVRegDatos.DataSource = DtDatosTabla + LnkEnviarAsistencia.Visible = True + Else 'BtnAgregar.Visible = False GVRegDatos.DataSource = Nothing @@ -1176,6 +1182,7 @@ Partial Class RH_RepChecadorPreAsistencia GVRegDatos.DataBind() UpDatos.Update() + UpAcciones.Update() End Sub @@ -2100,7 +2107,7 @@ Partial Class RH_RepChecadorPreAsistencia Else objRh.Commit() BtnAgregar.Visible = False - UpAgregar.Update() + UpAcciones.Update() Alert("Proceso realizado correctamente.") End If objRh.Dispose() @@ -2191,6 +2198,7 @@ Partial Class RH_RepChecadorPreAsistencia Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) If DdlAsistenciaInacistencia.SelectedValue.ToEntero > 0 Then Dim ObjPersonal As New ClsRH + 'If ObjPersonal.AddAsistencia(CvePersonalSeleccionado, -1, DdlSubProyecto.SelectedValue.ToEntero, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then If ObjPersonal.AddPreAsistencia(CvePersonalSeleccionado, FechaSeleccionada, DdlAsistenciaInacistencia.SelectedValue.ToEntero, 100, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -2198,11 +2206,157 @@ Partial Class RH_RepChecadorPreAsistencia RegistraScript("$('#divDetallesDia').modal('hide');") CargaDatos() + End If ObjPersonal.Dispose() End If End Sub + Protected Sub LnkEnviarAsistencia_Click(sender As Object, e As EventArgs) + + 'ValidaEnvioAsistencia + 'EnviarAsistencia + + End Sub + + + Private Sub ValidaEnvioAsistencia() + + 'Dim DTChecadorRegistros As New DataTable + + Dim ObjPersonal As New ClsRH + + 'If ObjPersonal.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + ' DTChecadorRegistros = ObjPersonal.DtResultados + 'End If + + ObjPersonal.IniciaTransacSQL() + Dim TieneError As Boolean = False + + Dim separador() As Char = {"|"c} + + Try + For Each GvRow As GridViewRow In GVRegDatos.Rows + + Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero + Dim NombreCompleto As String = GvRow.DataKey("NombreCompleto") + + Dim Fecha As Date = FechaInicioPeriodo + For x = 3 To GVRegDatos.Columns.Count - 1 + + If GVRegDatos.Columns(x).Visible Then + + Dim lnkLinkSender As LinkButton = TryCast(GvRow.Cells(x).Controls(1), LinkButton) + + If lnkLinkSender IsNot Nothing Then + Dim arrayComands As String() = lnkLinkSender.CommandArgument.Split(separador) + Dim TipoCorto = arrayComands(0) + Dim Filtro = arrayComands(1) + + If TipoCorto.Contiene("_ND", "") Then + TieneError = True + Exit For + Else + 'ok + End If + End If + End If + Fecha = Fecha.AddDays(1) + Next + If TieneError Then + Exit For + End If + Next + Catch ex As Exception + TieneError = True + End Try + + + If TieneError Then + ObjPersonal.RollBack() + Alert("Se presento un error al enviar asistencia.", TipoMensaje.MsgAdvertencia) + Else + ObjPersonal.Commit() + Alert("Asistencia enviada correctamente.") + End If + + ObjPersonal.Dispose() + + End Sub + Private Sub EnviarAsistencia() + 'Dim DTChecadorRegistros As New DataTable + + Dim ObjPersonal As New ClsRH + + 'If ObjPersonal.PreAsistenciaRegistrosGet(FechaInicioPeriodo, FechaFinPeriodo, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + ' DTChecadorRegistros = ObjPersonal.DtResultados + 'End If + + ObjPersonal.IniciaTransacSQL() + Dim TieneError As Boolean = False + + Dim separador() As Char = {"|"c} + + Try + For Each GvRow As GridViewRow In GVRegDatos.Rows + + Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero + Dim NombreCompleto As String = GvRow.DataKey("NombreCompleto") + + Dim Fecha As Date = FechaInicioPeriodo + For x = 3 To GVRegDatos.Columns.Count - 1 + + If GVRegDatos.Columns(x).Visible Then + + Dim lnkLinkSender As LinkButton = TryCast(GvRow.Cells(x).Controls(1), LinkButton) + + If lnkLinkSender IsNot Nothing Then + Dim arrayComands As String() = lnkLinkSender.CommandArgument.Split(separador) + Dim TipoCorto = arrayComands(0) + Dim Filtro = arrayComands(1) + + If TipoCorto.Contiene("_ND", "") Then + TieneError = True + Exit For + Else + Dim DTTipoAsistenciaInasistencia As DataTable = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa).FiltraParametros(" TipoCorto = '" & TipoCorto & "' ") + + Dim CveAsistenciasInasistencias As Integer = DTTipoAsistenciaInasistencia(0)("CveAsistenciasInasistencias").ToString.ToEntero + Dim PorcentajePago As Integer = If(DTTipoAsistenciaInasistencia(0)("AplicaPago").ToString = "Aplica", 100, 0) + + 'If CveAsistenciasInasistencias > 0 Then + ' If Not ObjPersonal.AddAsistencia(CvePersonal, -1, DdlSubProyecto.SelectedValue.ToEntero, Fecha, CveAsistenciasInasistencias, PorcentajePago, 0, 0, -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "C") Then + ' TieneError = True + ' Exit For + ' End If + 'Else + ' TieneError = True + ' Exit For + 'End If + End If + End If + End If + Fecha = Fecha.AddDays(1) + Next + If TieneError Then + Exit For + End If + Next + Catch ex As Exception + TieneError = True + End Try + + + If TieneError Then + ObjPersonal.RollBack() + Alert("Se presento un error al enviar asistencia.", TipoMensaje.MsgAdvertencia) + Else + ObjPersonal.Commit() + Alert("Asistencia enviada correctamente.") + End If + + ObjPersonal.Dispose() + End Sub End Class \ No newline at end of file From 38f922f0cad0847b34997ec8004aa7a58201f4be Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 17 Apr 2024 10:09:18 -0700 Subject: [PATCH 07/13] --FIX anticipo puntual en ventas --FIX seleccionar usocfdi al refacturar --- Ventas/Ventas.aspx.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 930a4be63..486b8be33 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6862,6 +6862,10 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then DdlUsoCFDI.Enabled = True End If + + If NuevaFactura = 1 Then + DdlUsoCFDI.Enabled = True + End If End If End If @@ -16553,9 +16557,12 @@ Partial Class Ventas DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex 'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES - If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then - e.Row.FCCheckBox("Chk").Enabled = False + If GVAnticipos.DataSource IsNot Nothing Then + If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then + e.Row.FCCheckBox("Chk").Enabled = False + End If End If + End If End Sub Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound From 0172e5711ce2dffb9b423efac66275676ea64f7c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Apr 2024 10:56:43 -0700 Subject: [PATCH 08/13] =?UTF-8?q?Compras=20c=C3=B3digos=20no=20se=20ve=20a?= =?UTF-8?q?l=20asignar=20alias?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 2 +- RH/RepChecadorPreAsistencia.aspx.vb | 7 +++++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0b165f698..2effb9bda 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9897,7 +9897,7 @@ Partial Class Compras_Compras e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar") End If - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo") + 'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo") 'EQUIVALENCIA If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 05177136f..321280968 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -1686,6 +1686,8 @@ Partial Class RH_RepChecadorPreAsistencia Dim separador As Char() Dim arrayComands As String() + Dim Fecha As Date = FechaInicioPeriodo + For x As Integer = 3 To 33 NombreLink = "LnkFecha" & CountFecha @@ -1695,6 +1697,10 @@ Partial Class RH_RepChecadorPreAsistencia arrayComands = lnkLink.Text.Split(separador) Instruccion = arrayComands(0) + If Fecha >= NowADS() Then + lnkLink.Visible = False + End If + If arrayComands.Length > 1 Then Filtro = arrayComands(1) Else Filtro = "" lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}" @@ -1827,6 +1833,7 @@ Partial Class RH_RepChecadorPreAsistencia AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click End If CountFecha = CountFecha + 1 + Fecha = Fecha.AddDays(1) Next If ContadorFaltas > 0 Then From 565d5cb48344a63ebcd3032da04d23c6182726f5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 17 Apr 2024 11:19:57 -0700 Subject: [PATCH 09/13] --Descargar de excel --- Ventas/CatMedicos.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 63fe20e5c..f66cc0647 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %> +<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" EnableEventValidation="false" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> <%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %> From 4ec868dd2d74ee3e29a2e9fc03179948af127e83 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 17 Apr 2024 16:01:59 -0700 Subject: [PATCH 10/13] --FIX reporte de ventas detalle --- Ventas/RepVentaDetalle.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 2fbaa3077..87debcbce 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -558,14 +558,14 @@ Partial Class RepVentaDetalle Dim Ruta As String = UsuarioActual.Empresa.Ruta If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then - e.Row.FCLiteral("LtlXML").Text = String.Format("
      XML
      ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) + e.Row.FCLiteral("LtlXML").Text = String.Format("
      XML
      ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) Else e.Row.FCLiteral("LtlXML").Text = "
      " End If If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
      PDF
      ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) + e.Row.FCLiteral("LtlPDF").Text = String.Format("
      PDF
      ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio")) Else e.Row.FCLiteral("LtlPDF").Text = "
      " End If From a5eb5266af8c9589caefeade9ea9d96d9779f1df Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Apr 2024 17:30:38 -0700 Subject: [PATCH 11/13] IE impresion facturas, agregar prepoliza de IE --- App_Code/ClsInventarios.vb | 15 +++----------- Compras/PopUpVerFactura.aspx.vb | 23 +++++++++++++++++++-- Inventarios/KardexAlmacen.aspx.vb | 6 +----- Inventarios/KardexAlmacenHorizontal.aspx.vb | 8 ++----- Inventarios/RepEntradasSalidas.aspx.vb | 5 +---- 5 files changed, 28 insertions(+), 29 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 78d02e430..2baabb88f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1514,8 +1514,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, - Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean + Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenGet") @@ -1528,8 +1527,6 @@ Public Class ClsInventarios .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio - .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin End With Try @@ -1549,7 +1546,7 @@ Public Class ClsInventarios Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1", - Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean + Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1573,10 +1570,6 @@ Public Class ClsInventarios .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes .Add("@GPO", SqlDbType.Int).Value = GPO .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS - .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio - .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin - - End With Try @@ -1839,7 +1832,7 @@ Public Class ClsInventarios Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String, CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1, - Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean + Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ReporteMovimientos") @@ -1862,8 +1855,6 @@ Public Class ClsInventarios .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen .Add("@Modalidad", SqlDbType.Int).Value = Modalidad - .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio - .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin End With Try diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a915f096b..427b1e733 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura If ObjIE.DtResultados.Rows.Count > 0 Then Dim reportDataSetsList As New List(Of ReportDataSource) - + Dim CvePrePoliza As Integer = 0 Dim dtMovs As New DataTable If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )") + CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES @@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura .Add(New ReportParameter("LogoPath", RutaImagenLogo)) End With dtMovs.Dispose() - ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") + + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + + Dim ObjContabilidad As New ClsContabilidad + + ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) + Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + ObjContabilidad.Dispose() + + Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza) + reportDataSetsList.Add(rdsPrePoliza) + + ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") + Else + ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") + End If + + + End If End If End If diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index db9026bd0..f95e5c3b4 100644 --- a/Inventarios/KardexAlmacen.aspx.vb +++ b/Inventarios/KardexAlmacen.aspx.vb @@ -1,5 +1,4 @@ Imports System.Data -Imports ADSNetLibrary.SIGAPI.Models.CGame Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero - Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim) - Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim) - - If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then + If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then dt = ObjMovimientos.DtResultados GvDatos.DataSource = ObjMovimientos.DtResultados End If diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 27bbfe0af..75a3dd999 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -159,14 +159,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero - - Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim) - Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero, - Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text, - CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then + Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then + If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 2d6816414..586d6d878 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas CveMarca = DdlMarca.SelectedValue.ToEntero End If - Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim) - Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim) - If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen, - Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then + Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then dt = Reporte.DtResultados From cea36490b8e5cdc232d5b05cfeac834322064772 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 17 Apr 2024 17:32:02 -0700 Subject: [PATCH 12/13] Formato IE impresion facturas, agregar prepoliza de IE --- .../Grales/Formatos/rptChequeMovimientos.rdlc | 1980 +++++++++++++++++ 1 file changed, 1980 insertions(+) create mode 100644 Empresas/Grales/Formatos/rptChequeMovimientos.rdlc diff --git a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc new file mode 100644 index 000000000..22ac7bbe0 --- /dev/null +++ b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc @@ -0,0 +1,1980 @@ + + + + + + true + true + + + + + =Parameters!Cuenta.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Paguese.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.57974cm + + + 6.32386cm + + + 2.08353cm + + + 2.00257cm + + + 2.29951cm + + + 1.79499cm + + + 2.18122cm + + + + + 0.4677cm + + + + + true + true + + + + + Factura + + + + + + + Textbox19 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox21 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + F. Factura + + + + + + + Textbox23 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Original + + + + + + + Textbox25 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox27 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + N.C + + + + + + + Textbox2 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox3 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descripcion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FechaCompra.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total + + + + : + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00) + + + + + + + Importe2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteNC.Value) + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!Saldo.Value) + + + + + + + Textbox6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + After + + + + + =Fields!SerieFolio.Value + =Fields!Descripcion.Value + =Fields!FechaCompra.Value + =Fields!Total.Value + =Fields!Importe.Value + =Fields!Saldo.Value + + + + + Before + + + + true + DataSet1 + 2.18687cm + 0.25413cm + 1.6677cm + 19.26542cm + 4 + + + + + + true + true + + + + + Cuenta: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Paguese: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obs: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 2.03432cm + 19.51955cm + 0cm + -19.47588cm + 8 + + + + + + true + true + + + + + ="<b> Folio: </b>" & Parameters!Folio.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.5cm + + + 2.95074cm + + + 2.5cm + + + + + 0.52063cm + + + + + true + true + + + + + Resumen Notas de Crédito + + + + + + + Textbox7 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox4 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nota de Crédito + + + + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox10 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SerieFolioNC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Total: + + + + + + + Textbox13 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =SUM(Fields!Importe.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + After + + + + + + =Fields!SerieFolio.Value + + + + + + + + Before + + + + true + DataSet2 + 4.20735cm + 0.25413cm + 2.32063cm + 7.95074cm + 10 + + =iif(Sum(Fields!Importe.Value)>0,false, true) + + + + + + + 6.70437cm + 19.51955cm + 0cm + -19.51955cm + 11 + + + + + + true + true + + + + + Fecha: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Cuenta + 0.0635cm + 6.22945in + 0.23622in + 1.40532in + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + 7.24235cm + + + + + + + Textbox1 + 0.3175cm + 2.52765cm + 0.6cm + 14.40301cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE DE PAGO DE MOVIMIENTOS + + + + + + + + + + + + + + + + Textbox2 + 0.95278cm + 2.52765cm + 0.55591cm + 14.40301cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.15522cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.52063cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox41 + 0.01764cm + 16.41607cm + 0.48535cm + 2.97625cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 1cm + 1cm + 1.5cm + 1.5cm + 0.13cm +