--Sincronizar cambios con productivo 11/02/2025

Acumuladores/EntradasUsadosResumenRep.aspx.vb

@@ -169,15 +169,24 @@ Partial Class Acumuladores_RepEntradasUsados
         ObjAcum.Dispose()
         RegistraScript("$('#DModalEditarFecha').modal('hide')")
 
+
+
+
     End Sub
 
     Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
             If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then
+
                 e.Row.CssClass = "Totales"
+
             End If
+
+
         End If
+
     End Sub
 
 End Class

Ashx/CargaEventos2.ashx

@@ -0,0 +1,663 @@
+<%@ WebHandler Language="VB" Class="CargaEventos" %>
+Option Explicit Off
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+
+Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
+
+    Public Property events As List(Of CalendarEvent)
+
+    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
+        context.Response.ContentType = "text/plain"
+
+        Dim CveUsuario As Integer = -1
+        Dim CveEmpresa As Integer = -1
+        Dim FI As Date
+        Dim FF As Date
+        If UsuarioActual(context) Is Nothing Then Exit Sub
+
+        If context.Request("METODO") IsNot Nothing Then
+
+            Select Case context.Request("METODO")
+                Case "servicio_domicilio"
+
+                    If context.Request("U").ToEntero > 0 Then
+
+                        CveUsuario = context.Request("U").ToEntero
+                        CveEmpresa = context.Request("E").ToEntero
+
+                        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
+                        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
+
+
+                        FI = context.Request("start").ToDate
+                        FF = context.Request("end").ToDate
+
+                        If Not GetEventos(CveUsuario, CveEmpresa, FI, FF, CveOS:=-2, CveUsuarioPara:=CveUsuarioPara, CveSubProyecto:=CveSubProyecto, context:=context) Then
+                            'Convierte el objeto de Eventos en JSON
+                            'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
+                            Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
+
+                            context.Response.Write(sJSON)
+                        End If
+                    End If
+
+                    Exit Select
+                Case "servicio_medicos"
+
+                    If context.Request("U").ToEntero > 0 Then
+
+                        CveUsuario = context.Request("U").ToEntero
+                        CveEmpresa = context.Request("E").ToEntero
+
+                        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
+                        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
+                        Dim FechaI As Date = context.Request("start").ToDate
+                        Dim FechaF As Date = context.Request("end").ToDate
+                        Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente()
+                        Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal()
+                        Dim CveVendedor As Integer = -1
+                        Dim CveEstatus As Integer = -1
+                        Dim ObjOS As New ClsOS
+
+                        If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, CveVendedor, CveEstatus, CveUsuarioPara, -1, CveEmpresa,
+                                                                    CveMedico:=-1, CveProcedimiento:=-1, CveEspecialidad:=-1,
+                                                                    CveClienteSucursal:=CveClienteSucursal, CveUsuario:=CveUsuario) Then
+
+                            If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then
+                                events = New List(Of CalendarEvent)
+                                For Each dr As DataRow In ObjOS.DtResultados.Rows
+                                    Dim cevent As CalendarEvent = New CalendarEvent()
+                                    cevent.id = dr("CveOS").ToString.ToEntero
+                                    cevent.title = $"  {dr("Tecnico")}-{dr("NombreCliente")}"
+                                    cevent.description = $" {dr("Tecnico")} -{dr("NombreCliente")} OS# <a href ='/OS/OrdenesServicio.aspx?CveOS={dr("CveOS")}'>{dr("Folio")}</a>"
+                                    cevent.start = String.Format("{0:s}", dr("FechaCita").ToString.ToDateTime)
+                                    cevent.end = String.Format("{0:s}", dr("FechaCita").ToString.ToDateTime.AddHours(1))
+                                    cevent.CveOS = dr("CveOS").ToString.ToEntero
+                                    cevent.allDay = False
+                                    If dr("EstatusOSGral").ToString.Contiene("Levantamiento") Then
+                                        cevent.backgroundColor = "#3598dc"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Surtido") Then
+                                        cevent.backgroundColor = "#002699"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Asignado") Then
+                                        cevent.backgroundColor = "#8E44AD"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Finalizado") Then
+                                        cevent.backgroundColor = "#26C281"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Facturado") Then
+                                        cevent.backgroundColor = "#4B77BE"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Cobrado") Then
+                                        cevent.backgroundColor = "#29b4b6"
+                                    ElseIf dr("EstatusOSGral").ToString.Contiene("Cancelado") Then
+                                        cevent.backgroundColor = "#e43a45"
+                                    End If
+                                    events.Add(cevent)
+                                Next
+
+                                context.Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject(events))
+                            End If
+                        End If
+                        ObjOS.Dispose()
+
+                    End If
+                    Exit Select
+                Case "contrato_transportes"
+
+                    If context.Request("U").ToEntero > 0 Then
+
+                        CveUsuario = context.Request("U").ToEntero
+                        CveEmpresa = context.Request("E").ToEntero
+
+                        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
+                        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
+
+
+                        FI = context.Request("start").ToDate
+                        FF = context.Request("end").ToDate
+
+                        If Not GetContratos(context:=context) Then
+                            'Convierte el objeto de Eventos en JSON
+                            'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
+                            Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
+
+                            context.Response.Write(sJSON)
+                        End If
+                    End If
+                    Exit Select
+                Case Else
+                    Exit Select
+            End Select
+
+        Else
+            If context.Request("U").ToEntero > 0 Then
+                CveUsuario = context.Request("U").ToEntero
+                CveEmpresa = context.Request("E").ToEntero
+                FI = context.Request("start").ToDate
+
+                FF = context.Request("end").ToDate
+                If Not GetEventos(CveUsuario, CveEmpresa, FI, FF, context:=context) Then
+                    'Convierte el objeto de Eventos en JSON
+                    'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
+                    Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
+
+                    context.Response.Write(sJSON)
+                End If
+
+            End If
+        End If
+    End Sub
+
+    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
+        Get
+            Return False
+        End Get
+    End Property
+
+
+    Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date, Optional CveOS As Integer = -1, Optional CveUsuarioPara As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional context As HttpContext = Nothing) As Boolean
+
+        Dim ErrorEventos As Boolean = False
+        Dim CveEmpresaCRM As Integer = 0
+        Dim DT_SubProyectos As New System.Data.DataTable
+        DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
+        DT_SubProyectos.Columns.Add("backgroundColor")
+        Dim DT_EstatusOS As New DataTable
+        DT_EstatusOS.Columns.Add("", GetType(Integer))
+        Dim ObjEventos As New ClsOIEventos
+
+        'son 26
+        Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"}
+
+        If CveOS = -2 Then
+
+            Dim objSub As New ClsSubProyectos
+            Dim DtTempSubproyectos As New DataTable
+
+            If objSub.GetSubProyectos(CveEmpresa) Then
+                DtTempSubproyectos = objSub.DtResultados.FiltraParametros("", "CveSubProyecto")
+            End If
+
+            objSub.Dispose()
+
+            Dim ColorIndex As Integer = 0
+
+            If DtTempSubproyectos.Rows.Count > 0 Then
+                For Each drow As DataRow In DtTempSubproyectos.Rows
+
+                    Dim Subrow As DataRow = DT_SubProyectos.NewRow
+                    Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero
+                    Subrow("backgroundColor") = Colores(ColorIndex)
+
+                    DT_SubProyectos.Rows.Add(Subrow)
+
+                    ColorIndex = ColorIndex + 1
+                    If ColorIndex >= 25 Then
+                        ColorIndex = 0
+                    End If
+
+                Next
+            End If
+
+        End If
+
+        Dim EsCoordinador As Boolean = False
+        Dim usuarioActual_ As Usuario = UsuarioActual(context)
+        If context IsNot Nothing AndAlso CveOS = -2 Then
+            If usuarioActual_.TienePermisoProceso(348) Then
+                EsCoordinador = True
+            End If
+        End If
+
+        If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuarioPara, -1, -1, -1, "-1", -1, -1, -1, -1, CveOS, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF, CveSubProyecto:=CveSubProyecto, EsCoordinador:=EsCoordinador) Then
+
+            If ObjEventos.DtResultados.Rows.Count > 0 Then
+                events = New List(Of CalendarEvent)
+
+                Try
+                    For Each dr As DataRow In ObjEventos.DtResultados.Rows
+
+                        If dr("CveEventoEstatus").ToString.ToEntero <> 5 Then
+
+                            Dim cevent As CalendarEvent = New CalendarEvent()
+                            cevent.id = dr("CveEvento").ToString.ToEntero
+                            cevent.title = dr("Asunto").ToString
+                            cevent.description = dr("Descripcion").ToString
+                            cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
+                            cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
+                            cevent.allDay = False
+                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                            cevent.backgroundColor = dr("BackGroundColor").ToString
+                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                            cevent.diassemana = dr("DiasSemana").ToString
+                            cevent.dia = dr("Dia").ToString.ToEntero
+                            cevent.mes = dr("Mes").ToString.ToEntero
+                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                            cevent.Prospecto = dr("Prospecto").ToString
+                            cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                            cevent.EmpresaCRM = dr("EmpresaCRM").ToString
+                            cevent.SubProyecto = dr("SubProyecto").ToString
+                            cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+                            cevent.Direccion = dr("Direccion").ToString
+
+                            cevent.CveEmpresaCRM = dr("CveEmpresaCRM").ToString
+                            cevent.CveContactoCRM = dr("CveContactoCRM").ToString
+                            cevent.CveAcercamientoCRM = dr("CveAcercamientoCRM").ToString
+
+                            cevent.CvePersonal = dr("CvePersonal").ToString.ToEntero
+                            cevent.CveCliente = dr("CveCliente").ToString.ToEntero
+                            cevent.CveProveedor = dr("CveProveedor").ToString.ToEntero
+                            cevent.NombreCliente = dr("NombreCliente").ToString
+                            cevent.NombreProveedor = dr("NombreProveedor").ToString
+                            cevent.NomprePersonal = dr("NomprePersonal").ToString
+
+                            cevent.CveCompra = dr("CveCompra").ToString.ToEntero
+                            cevent.SerieFolioCompra = dr("SerieFolioCompra").ToString
+
+                            cevent.CveVenta = dr("CveVenta").ToString.ToEntero
+                            cevent.SerieFolioVenta = dr("SerieFolioVenta").ToString
+
+                            cevent.CveOS = dr("CveOS").ToString.ToEntero
+                            cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
+                            cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero
+                            cevent.CveSubProyectoUsuarioAtendio = dr("CveSubProyectoUsuarioAtendio").ToString.ToEntero
+
+                            cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString
+
+                            cevent.CveActivoFijo = dr("CveActivoFijo").ToString.ToEntero
+                            cevent.AFCodigo = dr("AFCodigo").ToString
+
+                            cevent.CveMovimiento = dr("CveMovimientoAlmacen").ToString.ToEntero
+                            cevent.MovimientoFolio = dr("MovimientoFolio").ToString
+
+                            cevent.CveIE = dr("CveIE").ToString.ToEntero
+                            cevent.FolioIE = dr("FolioIE").ToString
+
+
+                            '11/05/2018 - Evento Gasto Recurrente
+                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                            If cevent.CveTipoEvento = 10 Then
+                                cevent.Importe = dr("Importe").ToString.ToDouble
+                            End If
+
+                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                cevent.backgroundColor = "#1BBC9B"
+                            End If
+
+                            If CveOS = -2 Then
+                                cevent.backgroundColor = DT_SubProyectos.FiltroPrimeroValor("backgroundColor", $" CveSubProyecto = {cevent.CveSubProyectoUsuarioAtendio } ")
+                                cevent.backgroundColor = If(cevent.backgroundColor.Trim = "", "#1BBC9B", cevent.backgroundColor.Trim)
+                            End If
+
+
+                            If usuarioActual_.Empresa.Funcionalidad(578) = "1" Then
+
+                                Dim colorString As String = dr("BackgroundColorOS").ToString.Trim
+
+                                If colorString.Length > 0 AndAlso IsValidHtmlColor(colorString) Then
+                                    cevent.backgroundColor = $"#{colorString}"
+                                Else
+                                    If dr("TipoEstatusOS").ToString.ToEntero.Contiene(1, 2, 3) Then
+                                        cevent.backgroundColor = "#006699"
+                                    ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(4) Then
+                                        cevent.backgroundColor = "#025716"
+                                    ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(5) Then
+                                        cevent.backgroundColor = "#730505"
+                                    Else
+                                        cevent.backgroundColor = "#006699"
+                                    End If
+                                End If
+
+
+
+                            End If
+
+                            'VERIFICAMOS SI TIENE O NO RECURRENCIA
+                            If Not cevent.recurrenciatipo > 0 Then
+
+                                'AGREGAMOS CUANDO NO ES RECURRENTE
+                                Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
+                                'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                                If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
+                                    events.Add(cevent)
+                                End If
+                            Else
+
+                                'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
+
+                                Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero
+                                Dim FI As DateTime, FF As DateTime, FT As DateTime
+                                Dim DiasSemana As String() = cevent.diassemana.Split(","c)
+                                FI = cevent.start.ToDateTime
+                                FF = cevent.end.ToDateTime
+
+                                'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                                Select Case FinRecurrencia
+                                    Case -1
+                                        FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
+                                    Case 0
+                                        FT = dr("RecurrenciaFin").ToString.ToDate
+                                    Case Is > 0
+                                        FinRecurrencia -= 1
+                                        Select Case cevent.recurrenciatipo
+                                            Case 1
+                                                FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 2
+                                                FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 3
+                                                FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                                FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
+                                            Case 4
+                                                FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 5
+                                                FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                        End Select
+                                End Select
+
+                                'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                                Do
+                                    If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
+                                        For Each drDias As String In DiasSemana
+                                            Dim FIT As Date = FI, FFT As Date = FF
+
+                                            FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                            FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+
+                                            cevent = New CalendarEvent()
+                                            cevent.id = dr("CveEvento").ToString.ToEntero
+                                            cevent.title = dr("Asunto").ToString
+                                            cevent.description = dr("Descripcion").ToString
+                                            cevent.start = String.Format("{0:s}", FIT)
+                                            cevent.end = String.Format("{0:s}", FFT)
+                                            cevent.allDay = False
+                                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                                            cevent.backgroundColor = dr("BackGroundColor").ToString
+
+                                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                                            cevent.diassemana = dr("DiasSemana").ToString
+                                            cevent.dia = dr("Dia").ToString.ToEntero
+                                            cevent.mes = dr("Mes").ToString.ToEntero
+                                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                                            cevent.Prospecto = dr("Prospecto").ToString
+
+
+
+                                            '11/05/2018 - Evento Gasto Recurrente
+                                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                                            If cevent.CveTipoEvento = 10 Then
+                                                cevent.Importe = dr("Importe").ToString.ToDouble
+                                            End If
+
+                                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                                cevent.backgroundColor = "#1BBC9B"
+                                            End If
+
+                                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                            If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                                events.Add(cevent)
+                                            End If
+                                        Next
+                                    Else
+                                        cevent = New CalendarEvent()
+                                        cevent.id = dr("CveEvento").ToString.ToEntero
+                                        cevent.title = dr("Asunto").ToString
+                                        cevent.description = dr("Descripcion").ToString
+                                        cevent.start = String.Format("{0:s}", FI)
+                                        cevent.end = String.Format("{0:s}", FF)
+                                        cevent.allDay = False
+                                        cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                                        cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                                        cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                                        cevent.backgroundColor = dr("BackGroundColor").ToString
+
+                                        cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                                        cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                                        cevent.diassemana = dr("DiasSemana").ToString
+                                        cevent.dia = dr("Dia").ToString.ToEntero
+                                        cevent.mes = dr("Mes").ToString.ToEntero
+                                        cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                                        cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                                        cevent.Prospecto = dr("Prospecto").ToString
+
+                                        '11/05/2018 - Evento Gasto Recurrente
+                                        cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                                        If cevent.CveTipoEvento = 10 Then
+                                            cevent.Importe = dr("Importe").ToString.ToDouble
+                                        End If
+
+                                        If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                            cevent.backgroundColor = "#1BBC9B"
+                                        End If
+
+                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                                        If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
+                                            events.Add(cevent)
+                                        End If
+                                    End If
+
+                                    Select Case cevent.recurrenciatipo
+                                        Case 1
+                                            FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
+                                        Case 2
+                                            FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
+                                        Case 3
+                                            FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
+                                        Case 4
+                                            FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
+                                        Case 5
+                                            FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
+                                    End Select
+
+                                Loop Until FI > FT
+                            End If
+                        End If
+                    Next
+                Catch ex As Exception
+                    GuardaLog(ex.ToString())
+                End Try
+            End If
+
+        End If
+        ObjEventos.Dispose()
+        Return ErrorEventos
+    End Function
+
+    Private Function GetContratos(Optional context As HttpContext = Nothing) As Boolean
+        Dim ObjContratos As New ClsContratos
+
+        events = New List(Of CalendarEvent)
+
+        Dim DT_SubProyectos As New DataTable
+        Dim DT_EstatusOS As New DataTable
+        Dim usuarioActual_ As Usuario = UsuarioActual(context)
+        Dim ErrorEventos As Boolean = False
+        Dim tipoVista As String = context.Request("tipoVista")
+        DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
+        DT_SubProyectos.Columns.Add("backgroundColor")
+        DT_EstatusOS.Columns.Add("", GetType(Integer))
+
+        If ObjContratos.GetContratos(-1, usuarioActual_.CveEmpresa, TipoContrato:=34) Then
+
+            If ObjContratos.DtResultados.Rows.Count > 0 Then
+
+                Try
+                    For Each dr As DataRow In ObjContratos.DtResultados.Rows
+                        Dim cevent As CalendarEvent = New CalendarEvent()
+
+                        cevent.id = dr("CveContrato").ToString.ToEntero
+                        cevent.title = dr("DescripcionContrato").ToString
+                        cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
+                        cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
+                        cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)
+                        cevent.allDay = False
+                        cevent.NombreAcercamiento = dr("Ubicacion").ToString
+                        cevent.CveCliente = dr("CveCliente").ToString.ToEntero
+                        cevent.NombreComercial = dr("NombreComercial").ToString
+                        cevent.CvePersonal = dr("CveChofer").ToString.ToEntero
+                        cevent.CvePersonal2 = dr("CveChofer2").ToString.ToEntero
+                        cevent.CveEventoEstatus = dr("CveContratosEstatus").ToString.ToEntero
+                        cevent.Dolares = dr("Importe").ToString.ToDecimal
+                        cevent.Pesos = dr("ImporteMax").ToString.ToDecimal
+                        cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal
+                        cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero
+                        cevent.backgroundColor = dr("BackgroundColor").ToString
+                        cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString
+                        cevent.NumeroContrato = dr("NumeroContrato").ToString
+
+                        If Not cevent.recurrenciatipo > 0 Then
+
+                            'AGREGAMOS CUANDO NO ES RECURRENTE
+                            Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
+                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                            If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicial").ToString.ToDateTime > tFecha Then
+                                events.Add(cevent)
+                            End If
+                        Else
+
+                            'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
+
+                            Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero
+                            Dim FI As DateTime, FF As DateTime, FT As DateTime
+                            Dim DiasSemana As String() = cevent.diassemana.Split(","c)
+                            FI = cevent.start.ToDateTime
+                            FF = cevent.end.ToDateTime
+
+                            'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                            Select Case FinRecurrencia
+                                Case -1
+                                    FT = DateAdd(DateInterval.Year, 2, dr("FechaInicial").ToString.ToDateTime)
+                                Case Is > 0
+                                    FinRecurrencia -= 1
+                                    Select Case cevent.recurrenciatipo
+                                        Case 1
+                                            FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime)
+                                        Case 2
+                                            FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime)
+                                        Case 3
+                                            FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime)
+                                            FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
+                                        Case 4
+                                            FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime)
+                                        Case 5
+                                            FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime)
+                                    End Select
+                            End Select
+
+                            'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                            Do
+                                If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
+                                    For Each drDias As String In DiasSemana
+                                        Dim FIT As Date = FI, FFT As Date = FF
+
+                                        FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                        FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+
+                                        cevent = New CalendarEvent()
+                                        cevent.id = dr("CveContrato").ToString.ToEntero
+                                        cevent.description = dr("DescripcionContrato").ToString
+                                        cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
+                                        cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
+                                        cevent.allDay = False
+                                        cevent.CveCliente = dr("CveCliente").ToString.ToEntero
+                                        cevent.NombreComercial = dr("NombreComercial").ToString
+                                        cevent.NombreAcercamiento = dr("Ubicacion").ToString
+                                        cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero
+                                        cevent.CvePersonal = dr("CveChofer").ToString.ToEntero
+
+
+                                        '11/05/2018 - Evento Gasto Recurrente
+                                        cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                                        If cevent.CveTipoEvento = 10 Then
+                                            cevent.Importe = dr("Importe").ToString.ToDouble
+                                        End If
+
+                                        If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                            cevent.backgroundColor = "#1BBC9B"
+                                        End If
+
+                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                        If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicial").ToString.ToDateTime Then
+                                            events.Add(cevent)
+                                        End If
+                                    Next
+                                Else
+                                    cevent = New CalendarEvent()
+                                    cevent.id = dr("CveContrato").ToString.ToEntero
+                                    cevent.description = dr("DescripcionContrato").ToString
+                                    cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
+                                    cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
+                                    cevent.NombreAcercamiento = dr("Ubicacion").ToString
+                                    cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero
+                                    cevent.allDay = False
+
+
+
+                                    'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                                    If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
+                                        events.Add(cevent)
+                                    End If
+                                End If
+
+                                Select Case cevent.recurrenciatipo
+                                    Case 1
+                                        FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
+                                        FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
+                                    Case 2
+                                        FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
+                                        FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
+                                    Case 3
+                                        FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
+                                        FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
+                                    Case 4
+                                        FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
+                                        FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
+                                    Case 5
+                                        FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
+                                        FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
+                                End Select
+
+                            Loop Until FI > FT
+                        End If
+                    Next
+                Catch ex As Exception
+                    GuardaLog(ex.ToString())
+                End Try
+            End If
+
+        End If
+        ObjContratos.Dispose()
+        Return ErrorEventos
+    End Function
+
+    ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
+        Get
+            UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario)
+        End Get
+    End Property
+
+    Private Function IsValidHtmlColor(colorString As String) As Boolean
+        Try
+            Dim color As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(colorString)
+            ' Si no se produce una excepción, el color es válido
+            Return True
+        Catch ex As Exception
+            ' Se produce una excepción, el color no es válido
+            Return False
+        End Try
+    End Function
+
+
+End Class

Ashx/GenerarPDFFactura.ashx

@@ -161,8 +161,8 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
 
         Dim rutaReporte As String = "Empresas\Grales\Formatos\FacturaSALI.rdlc"
 
-        Dim cQr As Byte() = ClsPaginas.GeneraQRSAT(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
+        Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-
+        Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
         Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
         parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
         parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))

Ashx/SIGWeb.ashx

@@ -759,7 +759,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         End If
 
         Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero
+
         Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero
+
         Dim usuario As Usuario = UsuarioActual(context)
         Dim CveEmpresa As Integer
         If IsNothing(usuario) Then
@@ -797,7 +799,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             context.Response.Write("[]")
         End If
-        If DtRetorno IsNot Nothing Then DtRetorno.Dispose()
+        DtRetorno.Dispose()
         DtRetorno = Nothing
 
         Return retorno
@@ -995,12 +997,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 End Try
 
             End If
-
+			If usuario.Empresa.Funcionalidad(578) = "10" AndAlso DtPSRetorno IsNot Nothing Then
-            If usuario.Empresa.Funcionalidad(578) = "1" AndAlso DtPSRetorno IsNot Nothing Then
 				'solo muestar productos con existencia.
 				DtPSRetorno = DtPSRetorno.FiltraParametros("ExistenciaTotal > 0")
 			End If
-            If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Columns("ExistenciaTotal") IsNot Nothing Then DtPSRetorno.Columns.Remove("ExistenciaTotal")
+			If DtPSRetorno IsNot Nothing ANDALSO DtPSRetorno.Columns("ExistenciaTotal") IsNot Nothing Then DtPSRetorno.Columns.Remove("ExistenciaTotal")
 
             If UsaGlobal Then
                 'se recarga el global, y el clspaginas, son los unicos 2 lugares

Bancos/CuentasBancariasDetalle.aspx

@@ -396,7 +396,7 @@
                                                 </tr>
                                                 <tr>
                                                     <td colspan="3" style="vertical-align: top;">
-                                                        <asp:GridView ID="GVU" runat="server" Width="400px" DataKeyNames="CveCuenta,CveUsuario" AutoGenerateColumns="False" GridLines="None" CssClass="mysmallbtn">
+                                                        <asp:GridView ID="GVU" runat="server" Width="500px" DataKeyNames="CveCuenta,CveUsuario" AutoGenerateColumns="False" GridLines="None" CssClass="mysmallbtn">
                                                             <Columns>
                                                                 
                                                                 <asp:TemplateField  HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" >

Bancos/IE.aspx

@@ -26,7 +26,9 @@
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
-    
+    <li>
+        <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> Póliza</asp:HyperLink>
+    </li>
     <asp:UpdatePanel ID="UppEliminarIE" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
@@ -60,12 +62,7 @@
     <li>
         <asp:HyperLink ID="LnkEnviarMailPago" runat="server" Style="color: #686868;" Visible="false"><i class="fa fa-envelope" style="color: #686868;"></i> Envíar Comprobante Mail</asp:HyperLink>
     </li>
-    <li>
+
-        <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i>Ver Póliza</asp:HyperLink>
-    </li>
-    <li>
-        <asp:HyperLink ID="LnkDescargaPoliza" Target="_blank" runat="server" Visible="false" Style="color: #686868;"> <i class="fa fa-print" style="color: #686868;"></i> Imprimir Póliza</asp:HyperLink>
-    </li>
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>

Bancos/IE.aspx.vb

@@ -863,8 +863,6 @@ Partial Class Bancos_IE
                 ViewState("CvePrePoliza") = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
                 HpLPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", ViewState("CvePrePoliza"))
                 HpLPrePoliza.Visible = True
-                LnkDescargaPoliza.Visible = True
-                LnkDescargaPoliza.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", ViewState("CvePrePoliza")))}"
                 TxtFechaDocumento.Text = ObjIE.FechaDocumento.ToShortDateString
                 TxtFolio.Text = ObjIE.Folio
                 LblBeneficiario.Text = ObjIE.PagueseA

Bancos/PopIECompras.aspx

@@ -707,7 +707,7 @@
             if ($("#" + Chk.id).is(":checked")) {
                 $('#' + Obj).attr('disabled', false);
                 if (ToDouble($get('TxtImporte').value) != total) {
-                   
+                    debugger;
                     if ((ToDouble($get('TxtImporte').value) + saldo) > total) {
                         $('#' + Obj).val(saldo - (ToDouble($get('TxtImporte').value) + saldo - total));
                         $get('TxtImporte').value = (total / TC).toFixed(2)

Bancos/PopIECompras.aspx.vb

@@ -351,14 +351,6 @@ Partial Class Bancos_PopIECompras
                 TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
             End If
             UpDatos.Update()
-
-            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                If Not UsuarioActual.TienePermisoProceso(404) Then
-                    TxtFechaDocumento.Enabled = False
-                    ImgCalendario.Visible = False
-                End If
-            End If
-
         End If
     End Sub
 

Bancos/RepCortes.aspx

@@ -80,7 +80,7 @@
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1">
-                            F.Inicio.:
+                            F.I.:
                        
                         </div>
                         <div class="col-md-2">
@@ -98,7 +98,7 @@
                             </div>
                         </div>
                         <div class="col-md-1 ">
-                            F.Fin.:
+                            F.F.:
                        
                         </div>
                         <div class="col-md-2">

Bancos/RepSaldosDetalle.aspx

@@ -55,6 +55,7 @@
 
     <asp:GridView ID="GvS" runat="server" AutoGenerateColumns="False" ShowFooter="True" EmptyDataText="No se encontraron Cuentas X Pagar Pendientes" CssClass="table table-striped table-hover Widthall" GridLines="None">
         <Columns>
+
             <asp:BoundField ItemStyle-Width="5%" ItemStyle-CssClass="Texto" DataField="NumCuenta" HeaderText="Cuenta" Visible="false"></asp:BoundField>
             <asp:HyperLinkField ItemStyle-Width="5%" ItemStyle-CssClass="Texto" DataTextField="Folio" HeaderText="Folio" DataNavigateUrlFormatString="IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE"></asp:HyperLinkField>
             <asp:BoundField ItemStyle-Width="15%" ItemStyle-CssClass="Texto" DataField="TipoTransaccion" HeaderText="Tipo" ></asp:BoundField>            

Compras/Compras.aspx

@@ -1496,22 +1496,8 @@
                                         </div>
 
                                         <div class="tools">
-                                            <table width="525px">
+                                            <table width="325px">
                                                 <tr>
-                                                    <td>
-                                                        <div id="DivAlmacenDev" runat="server" visible="false" class="row">
-                                                            <div class="col-md-12">
-                                                                <table width="175px">
-                                                                    <tr>
-                                                                        <td width="50px">Almacen:</td>
-                                                                        <td width="125px">
-                                                                            <asp:DropDownList ID="DdlAlmacenDevolucion" Style="width: 100%" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me " DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
-                                                                        </td>
-                                                                    </tr>
-                                                                </table>
-                                                            </div>
-                                                        </div>
-                                                    </td>
                                                     <td width="50px">Compra:</td>
                                                     <td width="250px">
                                                         <asp:DropDownList ID="DDLDevolucion" Style="width: 100%" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me " DataTextField="Compra" DataValueField="CveCompra"></asp:DropDownList>
@@ -1524,16 +1510,30 @@
                                         </div>
                                     </div>
                                     <div class="portlet-body">
-                                        <asp:GridView ID="GVDevolucion" runat="server" DataKeyNames="CveMovimientoDetalle,CveAlmacen,Total,PU,Cantidad,CvePS,CveUM,UM,CveClasificacion,Clasificacion,CodigoPS,CveTipoPS,PUExtranjero" ShowFooter="true" GridLines="None" AutoGenerateColumns="false" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" CssClass="table table-striped table-hover  Widthall">
+                                        <div id="DivAlmacenDev" runat="server" visible="false" class="row">
+                                            <div class="col-md-12">
+                                                <table width="325px">
+                                                    <tr>
+                                                        <td width="50px">Almacen:</td>
+                                                        <td width="250px">
+                                                            <asp:DropDownList ID="DdlAlmacenDevolucion" Style="width: 100%" AutoPostBack="true" runat="server" CssClass="form-control input-sm select2me " DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                                        </td>
+                                                    </tr>
+                                                </table>
+                                            </div>
+                                        </div>
+
+                                        <br />
+                                        <asp:GridView ID="GVDevolucion" runat="server" DataKeyNames="CveMovimientoDetalle,CveAlmacen,Total,PU,Cantidad,CvePS,CveUM,UM,CveClasificacion,Clasificacion,PS,CveTipoPS,PUExtranjero" ShowFooter="true" GridLines="None" AutoGenerateColumns="false" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" CssClass="table table-striped table-hover  Widthall">
                                             <Columns>
                                                 <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="60px" ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Label runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.####}")%>'></asp:Label>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="70px"   />
+                                                <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="80px"   />
-                                                <asp:BoundField HeaderText="Producto" DataField="CodigoPS"   />
+                                                <asp:BoundField ItemStyle-Width="400px" HeaderText="Producto o Servicio" DataField="CodigoPS"   />
-                                                <asp:TemplateField ItemStyle-Width="85px" HeaderText="P.U." ItemStyle-HorizontalAlign="Right">
+                                                <asp:TemplateField ItemStyle-Width="80px" HeaderText="P.U." ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Label Text='<%# Eval("PU", "{0:#,##0.####}")%>' runat="server"></asp:Label>
                                                     </ItemTemplate>
@@ -1541,7 +1541,7 @@
                                                         <label>Total</label>
                                                     </FooterTemplate>
                                                 </asp:TemplateField>
-                                                <asp:TemplateField ItemStyle-Width="85px" HeaderText="Devolución">
+                                                <asp:TemplateField ItemStyle-Width="80px" HeaderText="Devolución">
                                                     <ItemTemplate>
                                                         <asp:TextBox ID="TxtCantidad" Width="50" Mask="999,999.99" min="0" data-max='<%# Eval("Cantidad")%>' data-pu='<%# Eval("PU")%>' type="number" step="any" data-Devolucion="devrow" runat="server"></asp:TextBox>
                                                     </ItemTemplate>
@@ -1549,7 +1549,7 @@
                                                         <asp:TextBox ID="TxtTotal" Width="50" runat="server" Mask="999,999.99" data-Devolucion="devtotal" disabled></asp:TextBox>
                                                     </FooterTemplate>
                                                 </asp:TemplateField>
-                                                <asp:TemplateField ItemStyle-Width="85px" HeaderText="">
+                                                <asp:TemplateField ItemStyle-Width="80px" HeaderText="">
                                                     <ItemTemplate>
                                                         <asp:TextBox ID="TxtTotalDevolucion" CssClass="devTotal TextBoxAsLabel" runat="server" Text=""  disabled></asp:TextBox>
                                                     </ItemTemplate>

Compras/Compras.aspx.vb

@@ -1689,7 +1689,9 @@ Partial Class Compras_Compras
         End If
 
         'SE OCUPAN AFUERA DEL POSTBACK ??
+        cargaddlVinculacionServcios()
         If UsuarioActual.TienePermisoProceso(117) Then
+
             HplAddClasificacion.Visible = False
             ImgClasificacion.Visible = False
         End If
@@ -2009,8 +2011,6 @@ Partial Class Compras_Compras
                             SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
 
                             If Not TmpDT.Columns.Contains("Amortizacion") Then TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
-
-                            If Not TmpDT.Columns.Contains("AplicaSerie") Then TmpDT.Columns.Add(New DataColumn("AplicaSerie", GetType(Boolean)) With {.DefaultValue = False})
                             If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add(New DataColumn("AplicaLote", GetType(Boolean)) With {.DefaultValue = False})
                             If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add(New DataColumn("AplicaCaducidad", GetType(Boolean)) With {.DefaultValue = False})
                             If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
@@ -2121,10 +2121,7 @@ Partial Class Compras_Compras
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
                             DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
-                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
-                                DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
-                                DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
-                            End If
                         Case "E"
                             DdlTipoComprobante.SelectedValue = "NC"
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
@@ -2811,9 +2808,6 @@ Partial Class Compras_Compras
                 ViewState("CveProveedor") = CveProveedor
                 ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", CveProveedor, DdlTipoComprobante.SelectedValue)
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                    If dr("TipoDocto").ToString = "Fac" Then DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
-                End If
 
                 Dim ObjBancos As New ClsBancos()
 
@@ -2823,11 +2817,13 @@ Partial Class Compras_Compras
                     GvCreditosRelacionados.DataBind()
                     GvCreditos.Visible = False
                     GvCreditosRelacionados.Visible = True
+
                     PnlContadoCreditos.Visible = True
                 Else
                     GvCreditosRelacionados.DataSource = Nothing
                     GvCreditosRelacionados.Visible = False
                     GvCreditosRelacionados.DataBind()
+
                 End If
                 UpGvCreditos.Update()
                 LblImporteCreditos.Visible = True
@@ -2851,6 +2847,7 @@ Partial Class Compras_Compras
                 If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
                 LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
                 CveConceptoContableAlmacen = dr("CveConceptoContableAlmacen").ToString.ToEntero
+
                 If UsuarioActual.Empresa.UsaAC Then
                     CambiaEjercicioAC(False)
                 End If
@@ -3084,15 +3081,19 @@ Partial Class Compras_Compras
                     If Not TmpDT.Columns.Contains("ImporteSinImpuestos") Then
                         TmpDT.Columns.Add("ImporteSinImpuestos", GetType(Decimal))
                     End If
-                    If Not TmpDT.Columns.Contains("AplicaSerie") Then TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
+                    If Not TmpDT.Columns.Contains("AplicaLote") Then
+                        TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+                    End If
+                    If Not TmpDT.Columns.Contains("AplicaCaducidad") Then
+                        TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+                    End If
 
-                    If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+                    If Not TmpDT.Columns.Contains("Lote") Then
-
+                        TmpDT.Columns.Add("Lote", GetType(String))
-                    If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+                    End If
-
+                    If Not TmpDT.Columns.Contains("FechaCaducidad") Then
-                    If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
+                        TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
-
+                    End If
-                    If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
 
                     GvPS.DataSource = TmpDT
                     GvPS.DataBind()
@@ -4271,8 +4272,22 @@ Partial Class Compras_Compras
 
 #End Region
 
-#Region "Vinculacion De Servicios"
+#Region "Vinculacion De Servcios"
-
+    Private Function isAdminObraGluyas() As Boolean
+        Return (UsuarioActual.CveRol = 1047 And UsuarioActual.CveEmpresa = 66)
+    End Function
+    Private Sub cargaddlVinculacionServcios()
+        If isAdminObraGluyas() Then
+            TabVinculacionServicios.Visible = True
+            'Dim productos As New ClsProductosServicios
+            'If productos.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then
+            '    PSDTRemplazo = productos.DtResultados.FiltraParametros("CveTipoPS=2", "PS")
+            'End If
+            'productos.Dispose()
+            GVVinculacionServicios.DataSource = TmpDT
+            GVVinculacionServicios.DataBind()
+        End If
+    End Sub
     Protected Sub GVVinculacionServicios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVVinculacionServicios.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim dt As DataTable = Nothing
@@ -4432,7 +4447,7 @@ Partial Class Compras_Compras
                 Dim CapitalMiltiple As Decimal = GvRow.FCTextBox("TxtCapital").Text.ToDecimal
                 Dim InteresMiltiple As Decimal = GvRow.FCTextBox("TxtInteres").Text.ToDecimal
 
-                Dim AmbosMultiple As Decimal = GvRow.FCTextBox("TxtAmbos").Text.ToDecimal
+                Dim AmbosMiltiple As Decimal = GvRow.FCTextBox("TxtAmbos").Text.ToDecimal
                 Dim MensualidadMultiple As Decimal = GvRow.DataKey("Mensualidad").ToDecimal
 
                 If CapitalMiltiple > 0 Or InteresMiltiple > 0 Then
@@ -4441,9 +4456,9 @@ Partial Class Compras_Compras
                     MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
                     'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
 
-                ElseIf AmbosMultiple > 0 Then
+                ElseIf AmbosMiltiple > 0 Then
 
-                    TotalCreditos = TotalCreditos + AmbosMultiple
+                    TotalCreditos = TotalCreditos + AmbosMiltiple
                     MensualidadMultipleTotal = MensualidadMultipleTotal + MensualidadMultiple
                     'CveUltimoCreditoDetalleInterno = GvRow.DataKey("CveCreditoDetalle").ToEntero
                     EstatusCredito = GvRow.DataKey("Estatus").ToEntero
@@ -5608,8 +5623,6 @@ Partial Class Compras_Compras
                                             ' If DdlMoneda.SelectedValue.ToEntero = 1 Or (DdlMoneda.SelectedValue.ToEntero > 1 AndAlso GlobalTipoCambio(TxtFecha.Text.ToDate) > 0) Then
 
                                             ''ALMACEN CONSIGNACION
-                                            If DdlTipoComprobante.SelectedValue = "Fac" Then
-
                                             If CveConsignacion > 0 AndAlso CveCompraRefacturacion <= 0 Then
 
                                                 'actualizamos cvecompraconsignacion
@@ -5889,7 +5902,6 @@ Partial Class Compras_Compras
                                             End If
 
                                         End If
-                                        End If
 
                                         '***************************************************    P R I M E R A    P A R T E   C O M P R A S   **************************************************************************************************************************************************************************************************************************************************************************************************
                                         'P R E  P O L I Z A S
@@ -6813,7 +6825,7 @@ Partial Class Compras_Compras
                                                             Dim RegistroCuentaPuente As Boolean = False
                                                             'NC CON PRODUCTOS - CUENTA PUENTE
 
-                                                            If DdlTipoComprobante.SelectedValue = "NC" AndAlso DdlTipoCompra.SelectedValue.Contiene("9", "12") Then
+                                                            If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then
                                                                 RegistraConcepto225 = True
                                                             End If
 
@@ -6832,14 +6844,15 @@ Partial Class Compras_Compras
                                                                 If Devolucion IsNot Nothing AndAlso Devolucion.DebeRealizarDevolucion AndAlso Devolucion.CveMovimiento > 0 Then
                                                                     ConceptoContabilizacionNC = 68
                                                                     CveMovimientoDevolucion = Devolucion.CveMovimiento
-                                                                    importeMovimiento = TmpDT.SUM("Total")
-                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                                 End If
                                                                 'cuando es garantía. 
-                                                                If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then ConceptoContabilizacionNC = 259
+                                                                If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then
+                                                                    ConceptoContabilizacionNC = 259
+                                                                End If
 
                                                                 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
+
                                                                 If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
                                                                     RegistroCuentaPuente = True
                                                                     Dim ImporteTransito As Decimal = 0
@@ -6857,6 +6870,8 @@ Partial Class Compras_Compras
                                                                                 End If
                                                                             End If
                                                                         Next
+
+
                                                                         Dim importeMNTemp As Decimal = 0
                                                                         Dim CveCompraAmortizacion As Integer = -1
 
@@ -6875,15 +6890,19 @@ Partial Class Compras_Compras
                                                                                 ImporteTransito += importeMNTemp
                                                                                 CveCompraAmortizacion = Gvr.DataKey("CveCompra").ToEntero
                                                                                 'se registra por cada compra relacionada
+
                                                                             End If
                                                                         Next
 
                                                                         If importeMNTemp > 0 Then
+                                                                            'importeMNTemp = importeMNTemp - TxtDescuento.Text.ToDecimal
+
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=CveCompraAmortizacion, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
                                                                         End If
 
+
                                                                         'si se marca que no se va a recibir, falta validación
                                                                         If Not ErrorMovInv AndAlso Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 1, UsuarioActual.CveUsuario) Then
                                                                             ErrorMovInv = True
@@ -6904,6 +6923,8 @@ Partial Class Compras_Compras
                                                                             End If
                                                                         End If
                                                                     Else
+
+
                                                                         Dim DiferenciaDevolucion As Decimal = If(DdlMoneda.SelectedValue.ToEntero <> 1, (importeMovimiento * TxtTC.Text.ToDecimal), importeMovimiento) - TotalRealDevolucion
 
                                                                         If TotalRealDevolucion <> 0 Then
@@ -10902,13 +10923,12 @@ Partial Class Compras_Compras
         TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
         TmpDT.Columns.Add("TemporadaCuadro", GetType(String))
 
-        TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
         TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
         TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
-        TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("Lote", GetType(String))
         TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
 
+
         TmpDTOriginal = New DataTable
         TmpDTOriginal.Columns.Add("Consec", GetType(Integer))
         TmpDTOriginal.Columns.Add("Cantidad", GetType(Decimal))
@@ -11018,10 +11038,8 @@ Partial Class Compras_Compras
         TmpDTOriginal.Columns.Add("CveCultivoCuadroDetalle", GetType(Double))
         TmpDTOriginal.Columns.Add("TemporadaCuadro", GetType(String))
 
-        TmpDTOriginal.Columns.Add("AplicaSerie", GetType(Boolean))
         TmpDTOriginal.Columns.Add("AplicaLote", GetType(Boolean))
         TmpDTOriginal.Columns.Add("AplicaCaducidad", GetType(Boolean))
-        TmpDTOriginal.Columns.Add("Serie", GetType(String))
         TmpDTOriginal.Columns.Add("Lote", GetType(String))
         TmpDTOriginal.Columns.Add("FechaCaducidad", GetType(Date))
 
@@ -12173,6 +12191,8 @@ Partial Class Compras_Compras
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
 
+
+
         If ImporteAjuste = 0 Then Exit Sub
 
         Dim Amortizacion As Decimal = 0
@@ -13856,14 +13876,8 @@ Partial Class Compras_Compras
         'si no esta vinculado a nc simplemente me lo brinco
         If realizadevolucion Then
 
-            'si el subtotal es igual a la nc lo guardo si no marco error
+            'si el subtotal es iwal a la nc lo guardo si no marco error
-            Dim tTolerancia As Decimal = 0
+            If subtotal > subtotaldevolucion - 1 AndAlso subtotal < subtotaldevolucion + 1 Then
-            Dim tAjustaUltimo As Boolean = True
-            If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
-                tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion)
-                tAjustaUltimo = False
-            End If
-            If Math.Abs(subtotal - subtotaldevolucion) <= tTolerancia Then
 
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 13, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G1")
                 If CveMovimientoEntrada <= 0 Then
@@ -13880,17 +13894,17 @@ Partial Class Compras_Compras
                             PU = Dr.DataKey("PU").ToString.ToDecimal
                             PUExtranjero = Dr.DataKey("PUExtranjero").ToString.ToDecimal
                             ii += 1
-                            If CantidadRenglones = ii AndAlso tAjustaUltimo Then
+                            If CantidadRenglones = ii Then
                                 Dim dif As Decimal = subtotal - Acumulado
-                                PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal
+                                PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal
                             End If
-                            Dim tFechaExistencia As DateTime = TxtFecha.Text.ToDateTime.AddHours(NowADS().Hour).AddMinutes(NowADS().Minute).AddSeconds(NowADS().Second)
+                            If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToString.ToEntero, Dr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
-                            If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToEntero, Dr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
+                                                                    FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(NowADS().Hour).AddMinutes(NowADS().Minute).AddSeconds(NowADS().Second).ToString("yyyy/MM/dd HH:mm")) Then
-                                                                    FechaMovto:=tFechaExistencia.ToString("yyyy/MM/dd HH:mm")) Then
 
                                 Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
+
                                 If Dr.FCTextBox("TxtCantidad").Text.ToDouble > Existencia Then
-                                    Alert($"No hay existencia suficiente del producto: <br/> - {Dr.DataKey("CodigoPS")} en la fecha: {tFechaExistencia.ToString("yyyy/MM/dd HH:mm")}", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay existencia suficiente del producto {Dr.DataKey("PS").ToString} en la fecha:{TxtFecha.Text}", TipoMensaje.MsgAdvertencia)
                                     ErrorMovInv = True
                                     Exit For
                                 End If
@@ -13988,6 +14002,8 @@ Partial Class Compras_Compras
         Try
             Dim subtotaldevolucion As Decimal = 0
             Dim realizadevolucion As Boolean = False
+
+
             'Calculo los subtotales para comparar con la NC
             Dim cantidad As Decimal = 0D
 
@@ -14002,13 +14018,11 @@ Partial Class Compras_Compras
 
             'si no esta vinculado a nc simplemente me lo brinco
             If realizadevolucion Then
-                'si el subtotal es igual a la nc lo guardo si no marco error
+                'si el subtotal es iwal a la nc lo guardo si no marco error
-                'si tiene FNC574, se ajustará la diferencia a un concepto como RNC
+                If TxtSubTotal2.Text.ToDouble > subtotaldevolucion - 1 AndAlso TxtSubTotal2.Text.ToDouble < subtotaldevolucion + 1 Then
-                Dim tTolerancia As Decimal = 1
+
-                'si tiene la funcionalidad ajustará en un producto la diferencia
-                If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion)
-                If Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) <= tTolerancia Then
                     VinculaDevolucion()
+
                 Else
                     Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
                 End If
@@ -14033,42 +14047,48 @@ Partial Class Compras_Compras
         Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal()
         Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal()
         Dim Acumulado As Decimal = 0
+
+        'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra
+
         Dim IVAPorcentajeCompra As Decimal = Math.Round((IVACompra / SubTotalCompra), 2)
         Dim Contador As Integer = 0
         Dim Consec As Integer = 0
-        Dim tAjusteUltimo As Boolean = True
 
         For Each gvr As GridViewRow In GVDevolucion.Rows
             If gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
                 Contador += 1
             End If
         Next
-        Dim Total As Decimal = 0
+        Dim CveSubProyectoContrato As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDevolucion.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto")
-        Dim CveSubProyectoDev As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDevolucion.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto")
+        Dim SubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoContrato.ToEntero).FiltroPrimeroValor("SubProyecto")
-        Dim SubProyecto As String = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyectoDev.ToEntero).FiltroPrimeroValor("SubProyecto")
         'Iteramos el GridView de la OC
-        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then tAjusteUltimo = False
         For Each gvr As GridViewRow In GVDevolucion.Rows
             If gvr.FCTextBox("TxtCantidad").Text.ToDecimal > 0 Then
+
                 Dim CvePS As Integer = gvr.DataKey("CvePS").ToString.ToEntero
+                'Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+
                 Dim Cantidad As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal
                 Dim CveUM As Integer = gvr.DataKey("CveUM").ToString.ToEntero
                 Dim UM As String = gvr.DataKey("UM").ToString
                 Dim CveClasificacion As Integer = gvr.DataKey("CveClasificacion").ToString.ToEntero
                 Dim Clasificacion As String = gvr.DataKey("Clasificacion").ToString
-                Dim PS As String = gvr.DataKey("CodigoPS").ToString
+                Dim PS As String = gvr.DataKey("PS").ToString
                 Dim CveTipoPS As Integer = gvr.DataKey("CveTipoPS").ToString.ToEntero
+
                 Dim CveProyecto As String = "-1"
+
                 Dim Proyecto As String = "Seleccione"
                 Dim Obs As String = ""
                 Dim PU As Decimal = gvr.DataKey("PU").ToString.ToDecimal
-                Total = gvr.FCTextBox("TxtTotalDevolucion").Text.ToDecimal
+                Dim Total As Decimal = gvr.FCTextBox("TxtTotalDevolucion").Text.ToDecimal
+                Dim IVA As Decimal = IVAPorcentajeCompra 'Math.Round(Total * IVAPorcentajeCompra, 2)
                 Dim Descuento As Decimal = 0
 
                 Acumulado += (PU * Cantidad)
                 Consec += 1
 
-                If Consec = Contador AndAlso tAjusteUltimo Then  'SubTotalCompra < Acumulado  Then
+                If Consec = Contador Then  'SubTotalCompra < Acumulado  Then
                     'ajusta el valor 
                     Dim dif As Decimal = SubTotalCompra - Acumulado
                     If dif <> 0 Then
@@ -14076,25 +14096,10 @@ Partial Class Compras_Compras
                         Total = Cantidad * PU
                     End If
                 End If
-                AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoDev, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVAPorcentajeCompra, 0, 0, 0, 0, Descuento, -1, False, CveAlmacen:=DdlAlmacenDevolucion.SelectedValue.ToEntero)
+                AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, 0, 0, 0, 0, Descuento, -1, False)
             End If
         Next
 
-        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
-            Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
-            If CvePS_RNC = 0 Then
-                Alert("producto utilizado para diferencia no definido.")
-                Exit Sub
-            End If
-            Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
-            Dim PS As String = PSRow("PSCodigo").ToString
-            Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - Total
-
-            AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString,
-                     PSRow("CveClasificacion").ToString.ToEntero, PSRow("Clasificacion").ToString, CvePS_RNC, PS, 1, CveSubProyectoDev.ToString, SubProyecto, "", "-1", "", tDif, tDif, IVAPorcentajeCompra, 0, 0, 0, 0, 0)
-
-        End If
-
         AddPS2()
 
         BtnGuardar.Enabled = True
@@ -14110,7 +14115,7 @@ Partial Class Compras_Compras
 
         ImgClasificacion.Visible = False
         LbAgregar.Visible = False
-
+        UpPSS.Update()
 
         'CargaGvInv()
 
@@ -14132,6 +14137,7 @@ Partial Class Compras_Compras
         End If
         GvOC1.DataBind()
 
+        ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
         GvOC2.DataSource = TmpDT
         GvOC2.DataBind()
 
@@ -14485,13 +14491,19 @@ Partial Class Compras_Compras
                     End If
                 End If
 
-                If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+                If Not TmpDT.Columns.Contains("AplicaLote") Then
+                    TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
+                End If
+                If Not TmpDT.Columns.Contains("AplicaCaducidad") Then
+                    TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
+                End If
+                If Not TmpDT.Columns.Contains("Lote") Then
+                    TmpDT.Columns.Add("Lote", GetType(String))
+                End If
+                If Not TmpDT.Columns.Contains("FechaCaducidad") Then
+                    TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
+                End If
 
-                If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
-
-                If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
-
-                If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date))
 
                 If ObjInventario.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
@@ -18157,7 +18169,7 @@ Partial Class Compras_Compras
             Case "A" 'ADD
 
                 Dim SATClavePS As Integer = -1
-                Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
                 If PSRow IsNot Nothing Then
                     SATClavePS = PSRow("SATClavePS").ToString.ToEntero
                 End If
@@ -18246,10 +18258,13 @@ Partial Class Compras_Compras
                       Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Decimal = 0,
                       Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Decimal = 0,
                       Optional PorcentajeIEPS As Decimal = 0, Optional PorcentajeRetIVA As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1,
-                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "", Optional CodigoPS As String = "", Optional CveAlmacen As Integer = -1) As Integer
+                      Optional CveSATPSActualizado As Boolean = False, Optional TemporadaCuadro As String = "", Optional CodigoPS As String = "") As Integer
 
         Dim Row As DataRow = Nothing
-        If Not TmpDT.Columns.Contains("CodigoPS") Then TmpDT.Columns.Add("CodigoPS")
+
+        If Not TmpDT.Columns.Contains("CodigoPS") Then
+            TmpDT.Columns.Add("CodigoPS")
+        End If
 
         Row = TmpDT.NewRow()
         Dim Retorno As Integer = 0
@@ -18407,14 +18422,11 @@ Partial Class Compras_Compras
 
         Row("CveTipoGasto") = CveTipoGasto
         Row("TipoGasto") = If(CveTipoGasto > 0, TipoGasto, "")
+
         Row("CveContratoDetalle") = CveContratoDetalle
-        Row("AplicaSerie") = DrPS("AplicaSerie")
-        Row("AplicaLote") = DrPS("AplicaLote")
-        Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
 
         Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
         Row("TemporadaCuadro") = TemporadaCuadro
-        If CveAlmacen > 0 Then Row("CveAlmacen") = CveAlmacen
 
         If UsuarioActual.Empresa.UsaAC Then
             Row("CveProgramaOperativo") = DdlACGeneral1.SelectedValue.ToEntero
@@ -18424,6 +18436,7 @@ Partial Class Compras_Compras
             Row("CveClasificacionOG") = DdlACGeneral5.SelectedValue.ToEntero
         End If
 
+
         'Esta parte es para validar  cuando la factura tenga ieps en  o se asignara el ieps como una partida  ya no se  considere
         If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then
             Row("IEPSPS") = 0
@@ -20736,8 +20749,6 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then 'cuando es emp DIAZ
-
         If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito
 
             If DdlTipoComprobante.SelectedValue = "NC" Then
@@ -20748,14 +20759,7 @@ Partial Class Compras_Compras
                 'DdlRemisionNotaCredito.SelectedValueExist(-1)
                 DdlTipoCompra.SelectedValueExist(-1)
             End If
-            Else
-                'SE ACTIVA DE NUEVO PARA LA SELECCIÓN
-                HLAplicaNCFact.Visible = True
-                InicializaAplicaNCFact()
-                If CveFactura > 0 Then NCSeleccionFacturasRelacionadas(UUIDSList)
         End If
-        End If
-
 
     End Sub
 
@@ -22846,7 +22850,7 @@ Public Class ClsCompraManagerCompras
 
     Public Property CveMetodoPago As Integer
     Public Property MetodoPago As String
-    Public Property DocumentosRelacionadosUUIDSList As HashSet(Of String) = New HashSet(Of String)
+    Public Property DocumentosRelacionadosUUIDSList As List(Of String) = New List(Of String)
     Public ReadOnly Property DocumentosRelacionadosUUIDSString As String
         Get
             Return GeneraStringDoctosRelacionados()
@@ -23065,7 +23069,7 @@ Public Class ClsCompraManagerCompras
         If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
             Dim UUIDS As String = ""
 
-            Dim UUIDSLista As New HashSet(Of String)
+            Dim UUIDSLista As New List(Of String)
             Dim nodeCFDIRelacionados As XmlNode
             nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
 
@@ -23217,7 +23221,6 @@ Public Class ClsCompraManagerCompras
             If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
 
             If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
-            If Not TmpDT.Columns.Contains("AplicaSerie") Then TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
 
             If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String))
 
@@ -23468,7 +23471,7 @@ Public Class ClsCompraManagerCompras
         TmpDT.Columns.Add("TemporadaCuadro", GetType(String))
 
         TmpDT.Columns.Add("NoIdentificacion", GetType(String))
-        TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
+
         TmpDT.Columns.Add("AplicaLote", GetType(Boolean))
         TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean))
 

Compras/PopUpVerFactura.aspx.vb

@@ -3163,7 +3163,7 @@ Partial Class PopUpVerFactura
                     If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
                         params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                     End If
-                    If UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then
 
                         params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3181,7 +3181,7 @@ Partial Class PopUpVerFactura
                     If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
 
                     'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
@@ -3273,6 +3273,8 @@ Partial Class PopUpVerFactura
                         ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                     Else
 
+
+
                         params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
                         params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
                         params.Add(New ReportParameter("Folio", Folio.ToString))
@@ -3392,7 +3394,7 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
 
                         'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186, 199, 201) Then
                             Dim CiudadSucursal As String = ""
                             Dim DomicilioSucursal As String = ""
                             Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
@@ -4199,7 +4201,7 @@ Partial Class PopUpVerFactura
                     Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                     Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
                     Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
-                    params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
+
                     params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
                     params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
                     'params.Add(New ReportParameter("Folio", Folio.ToString))
@@ -4220,9 +4222,33 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
                     params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDecimal.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
 
-                    params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
                     params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
 
+                    If UsuarioActual.CveEmpresa.Contiene(189) Then
+
+                        params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN A PROVEEDOR"))
+
+                        params.Add(New ReportParameter("Observaciones", Observaciones))
+
+                        params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
+                        params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
+                        params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), "")))
+                        params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
+                        params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, "")))
+                        params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, "")))
+                        params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), "")))
+                        params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCSerieFolioVinculada").ToString, "")))
+                        Dim Fecha2 As String = String.Format("{0} {1}", FechaHora.ToDate.ToString("dd/MM/yyyy"), FechaHora.ToDateTime.ToString("HH:mm:ss"))
+                        params.Add(New ReportParameter("Fecha", Fecha2))
+                        params.Add(New ReportParameter("NombreCapturo", dr("NombreCapturo").ToString))
+
+                    Else
+                        params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
+                        params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
+                    End If
+
+
+
                 Else
                     params.Add(New ReportParameter("Fecha", Fecha))
                     params.Add(New ReportParameter("Observaciones", Observaciones))
@@ -5995,6 +6021,7 @@ Partial Class PopUpVerFactura
                     Dim reportDataSetsList As New List(Of ReportDataSource)
                     Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
                     Dim dtMovs As New DataTable
+                    Dim TC As Decimal = ObjIE.TipoCambio
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
@@ -6042,6 +6069,8 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("Folio", ObjIE.Folio, True))
                         .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
+                        .Add(New ReportParameter("TC", TC.ToString))
+
                     End With
                     dtMovs.Dispose()
 

Compras/Proveedores.aspx

@@ -2093,17 +2093,20 @@
                                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload' ></i>" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" Visible="false">
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px" Visible="false" >
                                     <ItemTemplate>
                                         <asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+
 				<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
     <ItemTemplate>
         <asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="LnkDownLoadDoc_Click" runat="server"
             Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" Visible="false" />
     </ItemTemplate>
-                                </asp:TemplateField>
+</asp:TemplateField>
+
+
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px" Visible="false">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkGVEliminar" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="LnkGVEliminar_Click"

Compras/ReembolsosComprobaciones.aspx.vb

@@ -680,6 +680,11 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.TCPago = TipoCambioPago
                             Pago.CvePersonal =CvePersonal
                             ImportePagoTotal = ImportePagoTotal + ImporteMovto
+
+                            If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                                Pago.AplicaAcreditable = False
+                            End If
+
                             'Otros Ingresos
                             If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                 Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal
@@ -756,6 +761,10 @@ Partial Class Compras_ReembolsosComprobaciones
                                 MsgError = "no se pudo insertar el detalle de la poliza"
                             End If
 
+                            If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                                Pago.AplicaAcreditable = False
+                            End If
+
                             If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
                                 MsgError = "Detalle"
                             End If

Compras/RepCompras.aspx

@@ -174,55 +174,6 @@
                             </asp:DropDownList>--%>
                             <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
-                        
-                        <div class="col-md-1">Moneda:</div>
-                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlMonedas" runat="server" CssClass=" select2me" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1">Tipo de Prov:</div>
-                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlTipoProveedor" runat="server" CssClass=" select2me" AppendDataBoundItems="true" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
-                                <asp:ListItem Text="Ambos" Value="3"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1">Tipo Docto:</div>
-                        <div class="col-md-1">
-                            <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
-                                <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
-                                <asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
-                                <asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                    </div>
-                    <div class="row">                       
-                        <div class="col-md-1">Responsable:</div>
-                        <div class="col-md-2">
-                            <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1">Tipo Gasto:</div>
-                        <div class="col-md-2">
-                            <%--<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoGasto" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
-                            <asp:ListBox ID="DdlTipoGasto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
-                        </div>                        
-                    </div>
-                    <div class="row">
-                         <div class="col-md-1 ">Capturó:</div>
-                         <div class="col-md-2 ">
-                             <asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
-                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                             </asp:DropDownList>
-                         </div>
                         <div class="col-md-1" title="Fecha Inicio de Captura">F. I. Captura</div>
                         <div class="col-md-1" style="min-width: 115px">
                             <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
@@ -253,6 +204,52 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        <div class="col-md-1">Moneda:</div>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlMonedas" runat="server" CssClass=" select2me" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1">Tipo de Proveedor:</div>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlTipoProveedor" runat="server" CssClass=" select2me" AppendDataBoundItems="true" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Ambos" Value="3"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-1 ">Capturó:</div>
+                        <div class="col-md-2 ">
+                            <asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1">Responsable:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1">Tipo Gasto:</div>
+                        <div class="col-md-2">
+                            <%--<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoGasto" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>--%>
+                            <asp:ListBox ID="DdlTipoGasto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                        </div>
+                        <div class="col-md-1">Tipo Docto:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
+                                <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
+                                <asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
+                                <asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Compras/RepCxPDetalle.aspx.vb

@@ -242,8 +242,7 @@ Partial Class RepCxPDetalle
 
     'Private ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-
+        AgregarChecksRangos()
-        AgregarChecksRangos() 'Esto requiere generarse en cada postaback
         If Not IsPostBack Then
 
             SePersonalizo = 0

Compras/RepNotasCredito.aspx.vb

@@ -58,7 +58,7 @@ Partial Class Compras_RepNotasCredito
         If Tab.ActiveTabIndex = 0 Then
             CargaDatos()
         Else
-            CargaDatosRNC()
+            CargaDatosRemisiones()
         End If
 
     End Sub
@@ -142,7 +142,7 @@ Partial Class Compras_RepNotasCredito
 
 
 #Region "REMISIONES"
-    Private Sub CargaDatosRNC()
+    Private Sub CargaDatosRemisiones()
         DtDatosRemisiones = New DataTable
         GvRemisiones.DataSource = Nothing
         Dim ObjCompras As New ClsCompras

Compras/RepProductosServiciosDetalle.aspx

@@ -262,18 +262,18 @@
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"  CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None">
                 <Columns>
+                    <asp:BoundField HeaderText="Fecha" DataField="FechaCompra" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Producto o Servicio" DataField="PS" ItemStyle-HorizontalAlign="Left" />
+                     <asp:BoundField HeaderText="AF" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" />
                      <asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
                      <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                      <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                      <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                      <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Fecha" DataField="FechaCompra" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                     <asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Left"  DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
-                    <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto"  ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField HeaderText="Proveedor" DataField="RazonSocial"  ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField HeaderText="AF" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto"  ItemStyle-HorizontalAlign="Left" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -118,7 +118,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         If CveCultivo.Length > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
             txtFechaI.Text = "01/01/1900"
         End If
-
         If Fecha <> "-1" Then
             txtFechaI.Text = Fecha
             txtFechaF.Text = Fecha

Compras/eFacturas.aspx

@@ -319,6 +319,7 @@
 
 
                                                 </div>
+                                        <br />
                                           <div class="row">
 
                                                   <div class="col-md-4">

Compras/eFacturas.aspx.vb

@@ -744,12 +744,26 @@ Partial Class Compras_eFacturas
             ViewState("DTTraslados") = value
         End Set
     End Property
+    Private Property EsGrupoDiaz As Boolean
+        Get
+            If ViewState("EsGrupoDiaz") Is Nothing Then
+                ViewState("EsGrupoDiaz") = False
+            End If
+            Return CType(ViewState("EsGrupoDiaz"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("EsGrupoDiaz") = value
+        End Set
+    End Property
 
 
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+            'EsGrupoDiaz = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
+
             ChecandoCorreo = False
 
             ViewState("Orden") = String.Empty
@@ -784,7 +798,8 @@ Partial Class Compras_eFacturas
             End If
             If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(13).Visible = False
             If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(7).Visible = True
-            If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1 Then
+
+            If (UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1) Or EsGrupoDiaz Then
                 LnkRegistarFactura.Visible = True
             End If
 
@@ -793,14 +808,16 @@ Partial Class Compras_eFacturas
             MostrarSolcitudesSAT()
 
             'CARGA REGISTRO DE FACTURA 
+            If EsGrupoDiaz Then
+                CargaClasificacionesComprobaciones()
+                CargaClasificaciones()
+                CargaPS(-1)
+                CargaPersoanlCajaChica()
+                CargaPersonalViaticos()
+                CargaDdlRetIVA()
+                CargaDdlRetISR()
+            End If
 
-            'CargaClasificacionesComprobaciones()
-            'CargaClasificaciones()
-            'CargaPS(-1)
-            'CargaPersoanlCajaChica()
-            'CargaPersonalViaticos()
-            'CargaDdlRetIVA()
-            'CargaDdlRetISR()
 
             Dim LblSubProyectoTemp As New Label
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
@@ -6864,8 +6881,15 @@ Public Class ClsCompraManager
 
             Dim DrTipoGasto As DataRow = Me.DTTiposGastos.FiltroPrimero("")
 
+            If DrTipoGasto Is Nothing Then
+                DrPS("CveTipoGasto") = -1
+                DrPS("TipoGasto") = ""
+            Else
                 DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
                 DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
+            End If
+
+
 
             If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then
                 DrPS("AplicaCostoIndirecto") = "0"

Contabilidad/ContabilidadElectronica.aspx.vb

@@ -178,16 +178,16 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, 1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
 
             If DtCuentas IsNot Nothing Then
-                Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD", "Id is null")
+                Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD")
-                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA", "Id is null")
+                Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA")
                 If Deudor <> Acreedor Then
-                    Alert("los Saldos Actuales no cuadran. " & Deudor - Acreedor, TipoMensaje.MsgError)
+                    Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError)
                     Exit Sub
                 End If
             End If

Contabilidad/DiarioPagos.aspx.vb

@@ -711,7 +711,7 @@ Partial Class Contabilidad_DiarioPagos
                                             'cuando el anticipo no paga toda la factura y no esta contabilizada
                                             If AbonoAnticipo < CompraTotal AndAlso Not EsContabilizada Then AbonoProveedor = CompraTotal - AbonoAnticipo
                                             'ejecuta la instruccion para contabilizar la prepoliza de amortizacion cuando es unica, es decir se hace al final del cheque, luego otra prepoliza con la compra y tercera la amortizacion
-                                            If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
+                                            If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
 
                                         Case 2, 1
                                             TotalProveedores = TotalBancos
@@ -721,7 +721,7 @@ Partial Class Contabilidad_DiarioPagos
                                             IdCuentaProveedor = gvrc.FCHiddenField("HdnIdCtaContProveedores").Value.ToEntero
                                         Case 20
                                             'contabilizo la prepoliza
-                                            If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
+                                            If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero, CvePlantillaPoliza) Then MsgError = "Error al actualizar compra" : Exit For Else PolizaActualizada = True
                                         Case 8 'FyE
 
                                             AbonoFuncionario = CompraPagadoTotal
@@ -803,7 +803,7 @@ Partial Class Contabilidad_DiarioPagos
 
                                             Next
                                             'debe de actualizar
-                                            If Not Bancos.UpdateCompraPrePoliza(Fecha, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then
+                                            If Not Bancos.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, NumPoliza, IDPoliza, gvrc.FCHiddenField("HdnCveCompra").Value.ToEntero) Then
                                                 'ya esta corriendo un proceso que  actualiza la 
                                                 'If Not PolizaActualizada Then MsgError = "Error al actualizar compra" : Exit For
                                             End If

Contabilidad/FiltraPolizas.aspx

@@ -183,7 +183,7 @@
 
                         <asp:TemplateField HeaderText="PrePoliza" ItemStyle-HorizontalAlign="Center">
                             <ItemTemplate>
-                                <asp:HyperLink ID="HplPrepoliza" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>' runat="server" ToolTip="Ir PrePoliza"><i class="fa fa-arrow-right" style="color:#686868;"></i></asp:HyperLink>
+                                <asp:HyperLink ID="HplPrepoliza" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>' runat="server" ToolTip="Ir PrePoliza"><i class="fa fa-arrow-right" style="color:#686868;"></i></asp:HyperLink>
 
                             </ItemTemplate>
                             <ItemStyle Width="100px"></ItemStyle>

Contabilidad/LibroDiario.aspx

@@ -0,0 +1,114 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroDiario.aspx.vb" Inherits="Contabilidad_LibroDiario" %>
+
+<asp:Content ContentPlaceHolderID="Css" runat="server">
+    <style>
+        .truncate {
+            width: 300px; 
+            white-space: nowrap;
+            overflow: hidden;
+            text-overflow: ellipsis;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="ImgExcel" Visible="false" runat="server"><i class="fa fa-ad-excel"></i> Generar EXCEL</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="Imprimir" Visible="false" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="Imprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
+    Libro Diario
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" CssClass="btn btn-primary" Text="Consultar" Width="100px" OnClick="BtnConsultar_Click" Enabled="false"/>
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                            <label class="col-md-1" style="width: 90px; padding-right: 2px;">Fecha Inicio:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaDel" runat="server" ControlToValidate="TxtFechaDel" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Del" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDel" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                            <label class="col-md-1" style="width: 80px; padding-right: 2px;">Fecha Fin:</label>
+                            <div class="col-md-2" style="width: 140px;">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80px !important; padding: 0px;">
+                                    <asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                    <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                    <asp:CompareValidator ID="CVFechaAl" runat="server" ControlToValidate="TxtFechaAl" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2Al" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAl" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+  <%--  <br />
+    <div class="text-right">Buscar :
+        <input type="text" id="Buscar" style="margin-right: 30px;" />
+    </div>--%>
+
+
+    <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
+        <ContentTemplate>
+
+            <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
+                <Columns>
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
+                    <asp:BoundField HeaderText="Poliza" DataField="Folio" />
+                    <asp:BoundField HeaderText="Concepto" DataField="Concepto" />
+                    <asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
+                    <asp:BoundField HeaderText="Nombre" DataField="Nombre" />
+                    <asp:BoundField HeaderText="Descripción" DataField="Descripcion" />
+                    <asp:BoundField HeaderText="Cargos" DataField="Cargos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
+                    <asp:BoundField HeaderText="Abonos" DataField="Abonos" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.00}" />
+                </Columns>
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+</asp:Content>
+
+<asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+
+

Contabilidad/LibroDiario.aspx.vb

@@ -0,0 +1,261 @@
+Option Explicit On
+Option Strict On
+Imports System.Collections.Generic
+Imports System.Data
+Imports Extensiones
+Imports System.Activities.Statements
+Imports Microsoft.Reporting.WebForms
+Imports System
+
+Partial Class Contabilidad_LibroDiario
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property FechaInicio As Date
+        Get
+            FechaInicio = ViewState("FechaInicio").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaInicio") = value
+        End Set
+    End Property
+    Private Property FechaFin As Date
+        Get
+            FechaFin = ViewState("FechaFin").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaFin") = value
+        End Set
+    End Property
+    Private Property IdCuenta As Integer
+        Get
+            IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuenta") = value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            InicializaValores()
+
+            BtnConsultar.Enabled = True
+            'If UsuarioActual.Empresa.UsaAC Then
+            '    BtnConsultar.Enabled = True
+            'Else
+            '    Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
+            'End If
+
+        End If
+    End Sub
+
+    Private Sub InicializaValores()
+
+        TxtFechaDel.Text = $"01/01/{NowADS().Year}"
+        TxtFechaAl.Text = NowADS().ToShortDateString
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+#Region "C A R G A - D A T O S"
+    Private Sub CargaDatos()
+
+        FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha)
+        FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha)
+
+        'FechaInicio = New Date(2016, 1, 1)
+        'FechaFin = New Date(2016, 1, 31)
+
+
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetLibroDiarioSIG(FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
+                DtDatos = ObjConta.DtResultados
+            Else
+                DtDatos = Nothing
+            End If
+            ObjConta.Dispose()
+
+        Else
+            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+            If ObjConta.GetLibroDiario(FechaInicio, FechaFin) Then
+                DtDatos = ObjConta.DtResultados
+            Else
+                DtDatos = Nothing
+            End If
+            ObjConta.Dispose()
+        End If
+
+
+
+
+        If DtDatos IsNot Nothing Then
+            ImgExcel.Visible = True
+            Imprimir.Visible = True
+            CargaGrid()
+        Else
+            ImgExcel.Visible = False
+            Imprimir.Visible = False
+        End If
+
+    End Sub
+#End Region
+
+
+#Region "G R I D - GV DATOS"
+    Private Sub CargaGrid()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+            ''CABECERA
+            'If e.Row.DBCampo("Concepto").ToString <> "" And e.Row.DBCampo("Id").ToString = "" Then
+            '    e.Row.Font.Bold = True
+            '    e.Row.Cells(4).Text = ""
+            '    e.Row.Cells(5).Text = ""
+            '    e.Row.Cells(6).Text = ""
+            '    e.Row.Cells(7).Text = ""
+            '    e.Row.Cells(8).Text = ""
+            '    e.Row.CssClass = "SubTotales" ' 
+            'End If
+
+            ''DETALLE
+            'If e.Row.DBCampo("Codigo").ToString <> "" Then
+            '    e.Row.Cells(0).Text = ""
+            '    e.Row.Cells(1).Text = ""
+            '    e.Row.Cells(2).Text = ""
+            '    e.Row.Cells(3).Text = ""
+            'End If
+
+            ''SUBTOTAL
+            'If e.Row.DBCampo("Fecha").ToString <> "" And e.Row.DBCampo("Concepto").ToString = "" Then
+            '    e.Row.Font.Bold = True
+            '    e.Row.Cells(0).Text = ""
+            '    e.Row.Cells(1).Text = ""
+            '    e.Row.Cells(2).Text = ""
+            '    e.Row.Cells(3).Text = ""
+            '    e.Row.Cells(4).Text = ""
+            '    e.Row.Cells(5).Text = ""
+            '    e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+            '    e.Row.Cells(6).Text = "Total:"
+            '    e.Row.CssClass = "SubTotales"
+            'End If
+
+            ''TOTAL
+            'If e.Row.DBCampo("Fecha").ToString = "" Then
+            '    e.Row.Font.Bold = True
+            '    e.Row.Cells(0).Text = ""
+            '    e.Row.Cells(1).Text = ""
+            '    e.Row.Cells(2).Text = ""
+            '    e.Row.Cells(3).Text = ""
+            '    e.Row.Cells(4).Text = ""
+            '    e.Row.Cells(5).Text = ""
+            '    e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+            '    e.Row.Cells(6).Text = "Total:"
+            '    e.Row.CssClass = "Totales"
+            'End If
+
+            'CABECERA
+            If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
+                e.Row.Font.Bold = True
+                e.Row.Cells(4).Text = ""
+                e.Row.Cells(5).Text = ""
+                e.Row.Cells(6).Text = ""
+                e.Row.Cells(7).Text = ""
+                e.Row.Cells(8).Text = ""
+                e.Row.CssClass = "SubTotales" ' 
+            End If
+
+            'DETALLE
+            If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+            End If
+
+            'SUBTOTAL
+            If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then
+                e.Row.Font.Bold = True
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+                e.Row.Cells(4).Text = ""
+                e.Row.Cells(5).Text = ""
+                e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+                e.Row.Cells(6).Text = "Total:"
+                e.Row.CssClass = "SubTotales"
+            End If
+
+            'TOTAL
+            If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 4 Then
+                e.Row.Font.Bold = True
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+                e.Row.Cells(3).Text = ""
+                e.Row.Cells(4).Text = ""
+                e.Row.Cells(5).Text = ""
+                e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+                e.Row.Cells(6).Text = "Total:"
+                e.Row.CssClass = "Totales"
+            End If
+
+        End If
+    End Sub
+
+#End Region
+
+
+#Region "  IMPRIMIR  "
+
+    Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
+        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+        'DtDatos = DtDatos
+        ImprimirReporte()
+    End Sub
+
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+        'DtDatos = DtDatos
+        ImprimirReporte("EXCEL")
+    End Sub
+
+    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim lista = New List(Of CrystalParametro)
+        lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
+        lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
+        lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
+        lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
+        lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+
+        ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
+    End Sub
+#End Region
+
+End Class

Contabilidad/RegPrePoliza.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrepoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza"  EnableEventValidation="false"  %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza"  EnableEventValidation="false"  %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>

Contabilidad/RepIVA.aspx

@@ -390,7 +390,7 @@
                                 <asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />
-                                <asp:HyperLinkField DataTextField="FolioPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
+                                <asp:HyperLinkField DataTextField="FolioPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
                                 <asp:HyperLinkField DataTextField="FolioIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />
                                 <asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
                             </Columns>

Contabilidad/RepIVA.aspx.cs

@@ -255,14 +255,14 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                 Ruta = string.Format("{0}Formatos\\{1}", UsuarioActual.Empresa.Ruta, Formato);
                 //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
 
-                if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1 && !Ruta.Contains( "RepIVAAcreditable.rpt"))
+                if (UsuarioActual.Empresa.Funcionalidad(713).ToEntero() == 1)
                 {
                     ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, DtIEPSA, DtIVAA, "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
                 }
                 else
                 {
-                    ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+                    //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
-                    //ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+                    ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta, Dt, para, new DataTable(), new DataTable(), "RepIEPSPorcentaje.rpt", "RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
                 }
 
             }else

Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc

@@ -6,28 +6,34 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.28424cm</Width>
+              <Width>1.86091cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.28292cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.5475cm</Width>
+              <Width>1.49458cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>5.78365cm</Width>
+              <Width>4.81952cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.99729cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.10377cm</Width>
+              <Width>2.54cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.10378cm</Width>
+              <Width>2.3148cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>3.26728cm</Width>
+              <Width>1.78563cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.20896cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.60583cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -151,6 +157,82 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox8">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox8</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox16">
@@ -268,7 +350,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.86458cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -460,6 +542,82 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox40">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Referencia Movto</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox40</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox2">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Subproyecto</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox2</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox17">
@@ -682,7 +840,7 @@
                 </TablixCell>
                 <TablixCell>
                   <CellContents>
-                    <Textbox Name="Textbox15">
+                    <Textbox Name="Textbox26">
                       <CanGrow>true</CanGrow>
                       <KeepTogether>true</KeepTogether>
                       <Paragraphs>
@@ -699,7 +857,71 @@
                           <Style />
                         </Paragraph>
                       </Paragraphs>
-                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <rd:DefaultName>Textbox26</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox27</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox28">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox28</rd:DefaultName>
                       <Style>
                         <Border>
                           <Style>None</Style>
@@ -947,6 +1169,70 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ReferenciaAdmin">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!ReferenciaAdmin.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ReferenciaAdmin</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="SubProyecto">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!SubProyecto.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>SubProyecto</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="CargosMovto">
@@ -1156,6 +1442,74 @@
                 </TablixCell>
                 <TablixCell />
                 <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox42">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox42</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox12">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox12</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Cargos">
@@ -1275,6 +1629,8 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1311,51 +1667,70 @@
         </TablixRowHierarchy>
         <KeepTogether>true</KeepTogether>
         <DataSetName>DataSet1</DataSetName>
-        <Top>2.24896cm</Top>
+        <Top>0.06345cm</Top>
-        <Height>3cm</Height>
+        <Height>3.26458cm</Height>
-        <Width>20.37043cm</Width>
+        <Width>22.91044cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
           </Border>
         </Style>
       </Tablix>
+    </ReportItems>
+    <Height>1.31025in</Height>
+    <Style />
+  </Body>
+  <Width>9.01986in</Width>
+  <Page>
+    <PageHeader>
+      <Height>1.14931in</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
         <Image Name="Image1">
           <Source>External</Source>
           <Value>=Parameters!pImg.Value</Value>
           <Sizing>FitProportional</Sizing>
           <Height>2.07257cm</Height>
-        <Width>3.56716cm</Width>
+          <Width>3.14383cm</Width>
-        <ZIndex>1</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
             </Border>
           </Style>
         </Image>
-      <Textbox Name="Textbox2">
+        <Textbox Name="Textbox9">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                <Value>=Parameters!pEmp.Value</Value>
+                  <Value>Fecha Impresión</Value>
                   <Style>
-                  <FontSize>13pt</FontSize>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+                <TextRun>
+                  <Value>="" &amp; vbCrLf &amp; DateTime.Now.ToString("dd-MM-yyyy")</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
                   </Style>
                 </TextRun>
               </TextRuns>
               <Style>
-              <TextAlign>Center</TextAlign>
+                <TextAlign>Right</TextAlign>
               </Style>
             </Paragraph>
           </Paragraphs>
-        <rd:DefaultName>Textbox1</rd:DefaultName>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
-        <Top>0.25646cm</Top>
+          <Top>1.21179cm</Top>
-        <Height>0.81167cm</Height>
+          <Left>20.30461cm</Left>
-        <Width>20.37043cm</Width>
+          <Height>0.92251cm</Height>
-        <ZIndex>2</ZIndex>
+          <Width>2.60583cm</Width>
+          <ZIndex>1</ZIndex>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1373,7 +1748,20 @@
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                <Value>="Auxiliar de Movimientos: " &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
+                  <Value>=Parameters!pEmp.Value</Value>
+                  <Style>
+                    <FontSize>12pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Auxiliar de Movimientos del " &amp;Parameters!pFechaInicio.Value  &amp;" al " &amp;Parameters!pFechaFin.Value</Value>
                   <Style>
                     <FontSize>11pt</FontSize>
                   </Style>
@@ -1384,12 +1772,11 @@
               </Style>
             </Paragraph>
           </Paragraphs>
-        <rd:DefaultName>Textbox5</rd:DefaultName>
+          <rd:DefaultName>Textbox6</rd:DefaultName>
-        <Top>1.12429cm</Top>
+          <Left>1.23773in</Left>
-        <Height>0.94828cm</Height>
+          <Height>0.40764in</Height>
-        <Width>20.37043cm</Width>
+          <Width>7.78213in</Width>
-        <ZIndex>3</ZIndex>
+          <ZIndex>2</ZIndex>
-        <ToolTip>="Moviemtos, Auxiliares del Catalogo" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</ToolTip>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1400,77 +1787,39 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-      <Textbox Name="Textbox9">
+        <Textbox Name="Cuenta">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
           <Paragraphs>
             <Paragraph>
               <TextRuns>
                 <TextRun>
-                <Value>="Fecha Impresión:" &amp; vbCrLf &amp; DateTime.Now.ToString("dd-MM-yyyy")</Value>
+                  <Value>Cuenta: </Value>
                   <Style>
-                  <FontStyle>Italic</FontStyle>
+                    <FontFamily>Verdana</FontFamily>
                     <FontSize>8pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Right</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox8</rd:DefaultName>
-        <Top>0.25646cm</Top>
-        <Left>14.99937cm</Left>
-        <Height>0.81167cm</Height>
-        <Width>5.37106cm</Width>
-        <ZIndex>4</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
-    </ReportItems>
-    <Height>2.2819in</Height>
-    <Style />
-  </Body>
-  <Width>8.01986in</Width>
-  <Page>
-    <PageHeader>
-      <Height>0.89958cm</Height>
-      <PrintOnFirstPage>true</PrintOnFirstPage>
-      <PrintOnLastPage>true</PrintOnLastPage>
-      <ReportItems>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
                 <TextRun>
-                  <Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
+                  <Value>=Parameters!Cuenta.Value</Value>
                   <Style>
-                    <FontSize>11pt</FontSize>
+                    <FontFamily>Verdana</FontFamily>
+                    <FontSize>8pt</FontSize>
                     <FontWeight>Bold</FontWeight>
                   </Style>
                 </TextRun>
               </TextRuns>
               <Style>
-                <TextAlign>Center</TextAlign>
+                <TextAlign>Left</TextAlign>
               </Style>
             </Paragraph>
           </Paragraphs>
-          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <rd:DefaultName>Cuenta</rd:DefaultName>
-          <Height>0.89958cm</Height>
+          <Top>0.84375in</Top>
-          <Width>20.37043cm</Width>
+          <Height>0.25in</Height>
-          <Visibility>
+          <Width>5.50993in</Width>
-            <Hidden>= (Globals.PageNumber=1)</Hidden>
+          <ZIndex>3</ZIndex>
-          </Visibility>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1481,42 +1830,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox12">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>="Fecha Impresión:" &amp; vbCrLf &amp; DateTime.Now.ToString("dd-MM-yyyy")</Value>
-                  <Style>
-                    <FontStyle>Italic</FontStyle>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Right</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.02088cm</Top>
-          <Left>14.99937cm</Left>
-          <Height>0.8787cm</Height>
-          <Width>5.37106cm</Width>
-          <ZIndex>1</ZIndex>
-          <Visibility>
-            <Hidden>= (Globals.PageNumber=1)</Hidden>
-          </Visibility>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-          </Style>
-        </Textbox>
       </ReportItems>
       <Style>
         <Border>
@@ -1525,7 +1838,7 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>0.74083cm</Height>
+      <Height>0.2639in</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -1549,10 +1862,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.0703cm</Top>
+          <Top>0.03528cm</Top>
-          <Left>14.99937cm</Left>
+          <Left>16.31002cm</Left>
           <Height>0.6cm</Height>
-          <Width>5.37107cm</Width>
+          <Width>3.99459cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1570,13 +1883,13 @@
         </Border>
       </Style>
     </PageFooter>
-    <PageHeight>29.7cm</PageHeight>
+    <PageHeight>11.69in</PageHeight>
-    <PageWidth>21cm</PageWidth>
+    <PageWidth>8.27in</PageWidth>
-    <LeftMargin>0.25cm</LeftMargin>
+    <LeftMargin>0.09843in</LeftMargin>
-    <RightMargin>0.25cm</RightMargin>
+    <RightMargin>0.09843in</RightMargin>
-    <TopMargin>1cm</TopMargin>
+    <TopMargin>0.3937in</TopMargin>
-    <BottomMargin>1cm</BottomMargin>
+    <BottomMargin>0.3937in</BottomMargin>
-    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <ColumnSpacing>0.05118in</ColumnSpacing>
     <Style />
   </Page>
   <AutoRefresh>0</AutoRefresh>
@@ -1652,6 +1965,14 @@
           <DataField>Saldo</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="ReferenciaAdmin">
+          <DataField>ReferenciaAdmin</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>
@@ -1680,6 +2001,18 @@
       <DataType>Integer</DataType>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="pFechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cuenta">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Code>Dim myVal As boolean
 Public Function SetMyVal(ByVal temp As String) As boolean
@@ -1698,6 +2031,6 @@ If temp ="" Then
 
 End Function 
 </Code>
-  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportUnitType>Inch</rd:ReportUnitType>
   <rd:ReportID>5e0d6974-973d-457c-853b-d0cbe22fc16c</rd:ReportID>
 </Report>

Contratos/FacturacionMasiva.aspx.vb

@@ -539,13 +539,13 @@ Partial Class Contratos_FacturacionMasiva
         'Dim ObjCliente As New ClsClientes()
         'If ObjCliente.GetClientes(DR("CveCliente").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
         '    If ObjCliente.DtResultados.Rows.Count > 0 Then
-        '        ObjFactura.CveFormaPago = ObjCliente.CveFormaPago
+        '        ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
-        '        ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago}")
+        '        ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
-        '        ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago}")
+        '        ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjCliente.CveFormaPago33}")
 
-        '        ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
+        '        ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
-        '        ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago}")
+        '        ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
-        '        ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago}")
+        '        ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjCliente.CveMetodoPago33}")
 
         '        ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
         '        ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")

Contratos/ModificarPresupuesto.aspx.vb

@@ -334,8 +334,6 @@ Partial Class Contratos_ModificarPresupuesto
         Dim CvePresupuesto = DdlPresupuesto.SelectedValue.ToEntero
         Dim CveClasificacion As Integer = DdlModalClasificacion.SelectedValue.ToEntero
 
-        Dim dt As DataTable = GlobalDTTiposGastos(UsuarioActual.CveEmpresa, 1)
-
         If CveClasificacion > 0 Then
 
             Dim ObjCont As New ClsContratos

Contratos/RepPresupuestosDetalleCompras.aspx

@@ -219,7 +219,7 @@
                 <div class="portlet-body" style="display: none;" id="idnecesaria2">
                     <div class="row">
 
-                        <div class="col-md-1" style="max-width: 120px">Clasificación:</div>
+                        <div class="col-md-1" style="max-width: 120px">Clasificacion:</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClasificacion" DataTextField="Agrupador" AppendDataBoundItems="true" DataValueField="CveAgrupador" Width="200px" runat="server" CssClass="form-control input-sm select2me">
                             </asp:DropDownList>

CxC/RepCxC.aspx

@@ -780,7 +780,7 @@
                                             <div class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtRObjetivo" CssClass="form-control" runat="server"></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RfvTxtRObjetivo" runat="server" ControlToValidate="TxtRObjetivo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Objetivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRangoEditar"></asp:RequiredFieldValidator>
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtRObjetivo"></ajax:ValidatorCalloutExtender>
+                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVRI"></ajax:ValidatorCalloutExtender>
                                                 <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtRObjetivo" FilterType="Custom, Numbers" ValidChars="." />
                                                 <label for="<%= TxtRObjetivo.ClientID.ToString()%>">Objetivo:</label>
                                             </div>

CxC/RepCxC.aspx.vb

@@ -862,17 +862,12 @@ Partial Class RepCxC
         TxtRI.Text = gvRow.DataKey("RangoInicial")
         TxtRF.Text = gvRow.DataKey("RangoFinal")
         TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00")
-
         If Not TxtRF.Text.ToDouble > 0 Then
             ChkMayor.Checked = True
             TxtRF.Enabled = False
-            CambioChecked()
         Else
             ChkMayor.Checked = False
-            TxtRF.Enabled = True
         End If
-
-
         RegistraScript("$('#DivPersonalizarRangoEditar').modal()")
         UpPersonalizarRangoEditar.Update()
     End Sub

General/TimbraRetencion.aspx

@@ -25,12 +25,7 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     
     ddd
-    <asp:GridView ID="GvLista" runat="server" DataKeyNames="CveTimbre">
+    <asp:GridView ID="GvLista" runat="server"></asp:GridView>
-         <Columns>
-         <asp:BoundField DataField="SerieFolio" HeaderText="TipoImpuesto" />
-         <asp:BoundField DataField="Fecha" HeaderText="BaseRetencion" /> 
-     </Columns>
-    </asp:GridView>
 
     <div id="DModalRetencion" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModal" UpdateMode="Conditional">

Inventarios/CartaPorteManual.aspx.vb

@@ -195,7 +195,9 @@ Partial Class Inventarios_CartaPorteManual
             TxtFecha.Text = NowADS().ToShortDateString
             CEFecha.EndDate = NowADS().AddDays(-1)
             RVFecha.MaximumValue = NowADS().ToShortDateString
+
             Folio = 0
+
             CargaCombos()
             CreaDT()
 
@@ -220,6 +222,7 @@ Partial Class Inventarios_CartaPorteManual
 
             End If
 
+
             'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
 
             '    TxtFecha.Enabled = False
@@ -230,6 +233,7 @@ Partial Class Inventarios_CartaPorteManual
     End Sub
 
 #Region "CARGA DATOS"
+
     Protected Sub CreaDT()
         Dim dt As New DataTable
 
@@ -243,6 +247,8 @@ Partial Class Inventarios_CartaPorteManual
 
         dt.Columns.Add(column)
 
+
+
         dt.Columns.Add("Cantidad", Type.GetType("System.Double"))
         dt.Columns.Add("CveUM", Type.GetType("System.Int32"))
         dt.Columns.Add("UnidadMedida")
@@ -259,6 +265,8 @@ Partial Class Inventarios_CartaPorteManual
         dt.Columns.Add("Lote")
         dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
 
+
+
         dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32"))
         dt.Columns.Add("EstatusExistencia")
 
@@ -277,10 +285,14 @@ Partial Class Inventarios_CartaPorteManual
         dt.Columns.Add("Embalaje")
         dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
 
+
         DtMovimientos = dt
+
         CargaGvDatos()
 
     End Sub
+
+
     Private Sub CargaCombos()
         'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
 
@@ -295,12 +307,17 @@ Partial Class Inventarios_CartaPorteManual
         ' TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
+
+
         CargaPS()
+
+
         CargarCamiones()
     End Sub
 
     Private Sub CargaPS()
 
+
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         DdlProducto2.setEsWebService(EsWS)
 

Inventarios/EntradasSalidas.aspx.vb

@@ -2306,6 +2306,15 @@ Partial Class Inventarios_EntradasSalidas
                                 End If
                             End If
 
+                            'REPLICAR MOVTO EN EMPRESA
+                            If Not ErrorMovInv Then
+                                If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
+                                    If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
+                                        ErrorMovInv = True
+                                    End If
+                                End If
+                            End If
+
                             If Not ErrorAC And Not ErrorMovInv Then
 
                                 Dim Msg As New StringBuilder

Inventarios/EntregaAlmacen.aspx.vb

@@ -3380,6 +3380,15 @@ Partial Class Inventarios_EntregaAlmacen
             End If
         End If
 
+        If Not ErrorMovInv Then
+            'REPLICAR MOVTO GENERADO
+            If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
+                If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
+                    ErrorMovInv = True
+                End If
+            End If
+        End If
+
         If Not ErrorMovInv Then
 
             ObjInventario.Commit()

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1028,8 +1028,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
                 ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
                     CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra)
-                ElseIf CveTipoCompra = 16 Then ' apoyo sin virtual y virtual aparte
-                    CargaAlmacenes(-1, "1", CveTipoCompra)
                 Else
                     CargaAlmacenes(-1)
                 End If
@@ -1078,9 +1076,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             If TipoMovimiento = 3 Then
                                 CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra)
                             Else
-                                Dim tTipoAlm As String = "22"
+                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                                If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo"
-                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra)
                             End If
 
                         Else

Inventarios/RepAlmacenCompras.aspx.vb

@@ -33,7 +33,6 @@ Partial Class Inventarios_RepAlmacenCompras
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
 			CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
             CargaDatos()
             CargaPermisos()

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -1039,17 +1039,21 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
     public void EditDireccionOrigen_Click(object sender, EventArgs e)
     {
-        this.CveDireccionEditar = this.CveDireccionOrigen;
+         //GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-
+        //int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
-        LblTitulodireccion.Text = "Actualizar dirección 'origen'";
+        CveDireccionEditar = CveDireccionOrigen;
+        //CveCliente = GvRow.DataKey("CveCliente").ToEntero();
+        LblTitulodireccion.Text = "Actualizar dirección origen";
         CargaDatosDireccion(CveDireccionOrigen);
     }
 
     public void EditDireccionDestino_Click(object sender, EventArgs e)
     {
-        this.CveDireccionEditar = this.CveDireccionDestino;
+        //GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
-
+        //LblTitulodireccion.Text = "Actualizar dirección destino";
-        LblTitulodireccion.Text = "Actualizar dirección 'destino'";
+        //int CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero();
+        CveDireccionEditar = CveDireccionDestino;
+        LblTitulodireccion.Text = "Actualizar dirección Destino";
         CargaDatosDireccion(CveDireccionDestino);
     }
 
@@ -1078,19 +1082,15 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             CveCliente = DT.Rows[0]["CveCliente"].ToString().ToEntero();
 
             DdlDirClientePais.SelectedValueExist(DT.Rows[0]["CvePais"].ToString());
-
             CargaDirClienteEstado();
-            DdlDirClienteEstado.SelectedValueExistInsert(DT.Rows[0]["CveEstado"].ToString(), DT.Rows[0]["NombreEstado"].ToString());
+            DdlDirClienteEstado.SelectedValueExist(DT.Rows[0]["CveEstado"].ToString());
-
             CargaDirClienteMunicipio();
-            DdlDirClienteMunicipio.SelectedValueExistInsert(DT.Rows[0]["CveMunicipio"].ToString(), DT.Rows[0]["NombreMunicipio"].ToString());
+            DdlDirClienteMunicipio.SelectedValueExist(DT.Rows[0]["CveMunicipio"].ToString());
-
             CargaDirClienteColonia();
-            DdlDirClienteColonia.SelectedValueExist(DT.Rows[0]["CveColonia"].ToString());
+            DdlDirClienteLocalidad.SelectedValueExist(DT.Rows[0]["CveLocalidad"].ToString());
-
             CargaDirClienteLocalidad();
-            DdlDirClienteLocalidad.SelectedValueExistInsert(DT.Rows[0]["CveLocalidad"].ToString(),DT.Rows[0]["NombreLocalidad"].ToString());
 
+            DdlDirClienteColonia.SelectedValueExist(DT.Rows[0]["CveColonia"].ToString());
         }
 
         UpModalDVDireccionEnvio.Update();
@@ -1118,7 +1118,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
         {
             Alert("Dirección actualizada correctamente.");
             RegistraScript("$('#divAddDireccionEnvio').modal('hide');");
-            this.CveDireccionEditar = -1;
             CargaDatos();
         }
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -229,7 +229,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim PermisoEspecialCambioFecha As Boolean = False
             If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False
                 TxtFechaRecepcion.Enabled = False
@@ -908,9 +908,11 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
         Dim RealizarMovimientoVirtual As Boolean = False
-
 		If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
 			RealizarMovimientoVirtual = True
+			If DdlAlmacenOrigen.SelectedValue.ToEntero = 1427 Then    'Apoyo Entrega Foranea
+				RealizarMovimientoVirtual = False
+			End If
 		End If
 
         'SI VA PASAR POR EL ALMACEN TRANSITORIO, DEBE TRASPASAR LOS VIRTUALES AHI PRIMERO
@@ -3196,7 +3198,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If ChkTransitorio.Checked Then
                 DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoAlmacen IN (21,22,2) AND Estatus = 'Activo'  ")
             Else
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22,2)  ")
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveTipoAlmacen IN (21,22,2) OR ( CveTipoAlmacen IN (1) AND CveSubProyecto = {DrAlmO("CveSubProyecto")}) ")
             End If
 
             DdlAlmacenDestino.DataBind()

Nomina/Aguinaldo.aspx.cs

@@ -775,7 +775,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
         string xml = xmlregistros.ToString();
         using (ClsNominas objnom = new ClsNominas())
         {
-            objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml, ejercicioActual);
+            objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml);
         }
         BtnCalcular_Click(null, null);
 
@@ -787,7 +787,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
         string xml = "<registros></registros>";
         using (ClsNominas objnom = new ClsNominas())
         {
-            objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml, ejercicioActual);
+            objnom.GuardarAguinaldo(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xml);
         }
         BtnCalcular_Click(null, null);
     }

Nomina/CalculoISRAnual.aspx.cs

@@ -186,7 +186,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
         CvePersonal = gvrow.DataKey("CvePersonal").ToString().ToEntero();
         using (ClsNominas onom = new ClsNominas())
         {
-            if (onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Ejercicio, CvePersonal, 1, ""))
+            if (onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CvePersonal, 1, ""))
             {
                 Alert("El empleado sera incluido al calculo anual");
                 CargaCalculoISRAnual();
@@ -205,7 +205,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
     {
         using (ClsNominas onom = new ClsNominas())
         {
-            if (onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Ejercicio, CvePersonal, 0, TxtMotivo.Text))
+            if (onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CvePersonal, 0, TxtMotivo.Text))
             {
                 Alert("El empleado sera omitido del calculo anual");
                 RegistraScript("$('#DModalcancelarEmpleado').modal('hide');");
@@ -313,8 +313,6 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
                     Choja.Cell(248, 9).Value = string.Format("'{0}",UsuarioActual.Empresa.RFC);
                     Choja.Cell(250, 9).Value = string.Format("'{0}", UsuarioActual.Empresa.Empresa);
 
-
-
                     Choja.Cell(37, 15).Value = droi["IngresosTotales"];
                     Choja.Cell(48, 15).Value = droi["BaseExcenta"];
                     Choja.Cell(60, 15).Value = droi["BaseGravada"];

Nomina/Finiquito.aspx.cs

@@ -1700,7 +1700,7 @@ public partial class Nomina_Finiquito : ClsPaginas
             string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.Empresa.Ruta));
             if (!System.IO.File.Exists(urlfile))
             {
-                parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("EmpresaDireccion", string.Format("{0} No. {1},Colonia {2} ", UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.NoExt , UsuarioActual.Empresa.Colonia).ToLower()));
+                parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("EmpresaDireccion", string.Format("{0} No. {1},Colonia {2} ", UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.NoExt , UsuarioActual.Empresa.Colonia).ToLower() ));
                 urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc");
             }
 

Nomina/Nomina.aspx.cs

@@ -415,7 +415,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
             DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
             //LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
-            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa == 119);
+            LnkVerCalculoISR.Visible = true;//(UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa == 119);
             TxtPeriodo.Text = $"{NowADS():yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
             CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);

Nomina/ReporteVacaciones.aspx

@@ -1,5 +1,6 @@
 <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ReporteVacaciones.aspx.cs" Inherits="Nomina_ReporteVacaciones" %>
 
+<%@ Import Namespace="Extensiones" %>
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -7,9 +8,161 @@
         /*.text-right {
             text-align:right
         }*/
-        td.borderleft,th.borderleft{
+        td.borderleft, th.borderleft {
-            border-left:1px solid black !important;
+            border-left: 1px solid black !important;
         }
+
+        .hiddentth, .hiddentth th {
+            background-color: #fff !important;
+        }
+
+        .showMesDia {
+            display: none;
+        }
+
+        table tr th.diac {
+            font-size: 4px;
+            padding-left: 1px !important;
+            padding-right: 1px !important;
+        }
+
+        table tr th.mesc {
+            font-size: 12px;
+        }
+
+        .mes1 {
+            background-color: #ffcccc;
+            border-color: #ffcccc;
+        }
+        /* Enero - Rojo claro */
+        .mes2 {
+            background-color: #ffebcc;
+            border-color: #ffcccc;
+        }
+        /* Febrero - Naranja claro */
+        .mes3 {
+            background-color: #ffffcc;
+            border-color: #ffcccc;
+        }
+        /* Marzo - Amarillo claro */
+        .mes4 {
+            background-color: #ccffcc;
+            border-color: #ffcccc;
+        }
+        /* Abril - Verde claro */
+        .mes5 {
+            background-color: #ccffff;
+            border-color: #ffcccc;
+        }
+        /* Mayo - Azul cielo */
+        .mes6 {
+            background-color: #ccccff;
+            border-color: #ffcccc;
+        }
+        /* Junio - Azul suave */
+        .mes7 {
+            background-color: #e6ccff;
+            border-color: #ffcccc;
+        }
+        /* Julio - Morado claro */
+        .mes8 {
+            background-color: #ffccff;
+            border-color: #ffcccc;
+        }
+        /* Agosto - Rosa claro */
+        .mes9 {
+            background-color: #ffb3b3;
+            border-color: #ffcccc;
+        }
+        /* Septiembre - Rojo pastel */
+        .mes10 {
+            background-color: #ff9966;
+            border-color: #ffcccc;
+        }
+        /* Octubre - Naranja pastel */
+        .mes11 {
+            background-color: #cccc99;
+            border-color: #ffcccc;
+        }
+        /* Noviembre - Verde oliva */
+        .mes12 {
+            background-color: #e6e6e6;
+            border-color: #ffcccc;
+        }
+        /* Diciembre - Gris claro */
+
+        .TContainer {
+            width: 100%;
+            height: calc(100vh - 200px);
+            overflow: scroll;
+        }
+
+        .VacClass {
+            background-color: darkslateblue;
+        }
+
+        .borderyear {
+            border-left: 1px solid #FFF !important;
+        }
+
+        .yearclass {
+            background-color: #444;
+            color: #FFF;
+            text-align: center;
+            font-size: 6px;
+        }
+
+        .yearclassB {
+            background-color: #999;
+            color: #FFF;
+            text-align: center;
+            font-size: 6px;
+        }
+
+        tr.aniorow td {
+            height: 8px;
+        }
+
+        tr.rowsticky {
+            position: sticky;
+            top: 0; /* Se mantiene pegado en la parte superior */
+            background-color: white; /* Para que no se superponga con otros elementos */
+            z-index: 1000; /* Asegura que esté sobre otros elementos */
+        }
+        tr.rowsticky:nth-child(2) {
+            top: 26.14px;
+        }
+        tr.rowsticky:nth-child(3) {
+            top: 52.14px;
+        }
+.table-sticky tr td:nth-child(1),.table-sticky tr th:nth-child(1),
+.table-sticky tr td:nth-child(2),.table-sticky tr th:nth-child(2),
+.table-sticky tr td:nth-child(3),.table-sticky tr th:nth-child(3) {
+    position: sticky;
+    left: 0;
+    z-index: 3;
+}
+.table-sticky tr td:nth-child(1),.table-sticky tr td:nth-child(2),.table-sticky tr td:nth-child(3) {
+    background-color: #fff; 
+}
+.table-sticky tr td:nth-child(1) div, .table-sticky tr th:nth-child(1) div{
+    width:72px;
+}
+.table-sticky tr td:nth-child(1),.table-sticky tr th:nth-child(1){
+    width:80px;
+}
+.table-sticky tr td:nth-child(2),.table-sticky tr th:nth-child(2){
+    width:250px;
+    left: 80px;
+
+}
+.table-sticky tr td:nth-child(2) div, .table-sticky tr th:nth-child(2) div{
+    width:242px;
+}
+.table-sticky tr td:nth-child(3),.table-sticky tr th:nth-child(3){
+    left: 330px;
+
+}
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -85,8 +238,96 @@
                 </div>
             </div>
 
+            <div class="TContainer">
+                <table id="gvReporteVacacionesCalendar" class="table table-hover table-sticky  ScrollADig Widthall gvReporteVacacionesCalendar" data-rows="4" data-cols="3" data-heighterror="360">
+                    <tbody>
 
-            <div>
+                   <%--     <tr class="hiddentth">
+                            <th class="showMesDia"></th>
+                            <th class="showMesDia"></th>
+                            <th class="showMesDia"></th>
+
+                            <asp:Repeater ID="rptx" runat="server">
+                                <ItemTemplate>
+                                    <th class="showMesDia"></th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>--%>
+
+                        <tr class="rowsticky">
+                            <th></th>
+                            <th></th>
+                            <th></th>
+                            <%-- Encabezados dinámicos para los ejercicios --%>
+
+                            <asp:Repeater ID="rptanio" runat="server">
+                                <ItemTemplate>
+                                    <th class="borderleft"  colspan='<%# Eval("DiasEjercicioA") %>'><%# Eval("Anio") %></th>
+                                    <th  colspan='<%# Eval("DiasEjercicioA") %>'><%# Eval("Anio") %></th>
+                                    <th  colspan='<%# Eval("DiasEjercicioA") %>'><%# Eval("Anio") %></th>
+                                    <th  colspan='<%# Eval("DiasEjercicioB") %>'><%# Eval("Anio") %></th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>
+                        <tr class="rowsticky">
+                            <th></th>
+                            <th></th>
+                            <th></th>
+                            <%-- Encabezados dinámicos para los ejercicios --%>
+                            <%-- data-toggle="tooltip"
+                                        title='<%# new System.Globalization.CultureInfo("es-ES").DateTimeFormat.GetMonthName(Eval("Mes").ToString().ToEntero()).ToUpper() %>'--%>
+                            <asp:Repeater ID="rptMeses" runat="server">
+                                <ItemTemplate>
+                                    <th class='<%# string.Format("{0} diac mes{1} mesc","borderleft",Eval("Mes")) %>' colspan='<%# Eval("DiasMes") %>'>
+                                        <%# new System.Globalization.CultureInfo("es-ES").DateTimeFormat.GetMonthName(Eval("Mes").ToString().ToEntero()).ToUpper() %></th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>
+
+                        <tr class="rowsticky">
+                            <th>Código</th>
+                            <th>Nombre Completo</th>
+                            <th>Fecha Inicio</th>
+                            <%-- Encabezados dinámicos para los ejercicios --%>
+
+                            <asp:Repeater ID="RepetDias" runat="server">
+                                <ItemTemplate>
+                                    <th class='<%# string.Format("{0} diac mes{1}",(Eval("MinMes").ToString().ToUpper()=="1"?"borderleft":""),Eval("Mes")) %>'><%# Eval("Dia") %></th>
+                                </ItemTemplate>
+                            </asp:Repeater>
+                        </tr>
+
+                        <asp:Repeater ID="RepeaterPrincipalCalendar" runat="server">
+                            <HeaderTemplate>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <tr class="aniorow">
+                                    <%--<td><%# Eval("CvePersonal") %></td>--%>
+                                    <td rowspan="1"><div>
+                                        <div><asp:HyperLink runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CvePersonal",  "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink></div></td>
+                                    <td rowspan="1"><div>
+                                        <asp:HyperLink runat="server" Text='<%# Eval("NombreCompleto") %>' NavigateUrl='<%# Eval("CvePersonal",  "~/RH/Personal.aspx?CvePersonal={0}") %>'></asp:HyperLink></div></td>
+                                    <td rowspan="1"><div><%# Eval("FechaInicio", "{0:yyyy-MM-dd}") %></div></td>
+                                    <%-- Subrepeater para los ejercicios --%>
+                                    <asp:Literal Text='<%# Eval("ColumnasinicioFin" ) %>' runat="server"></asp:Literal>
+                                    <%--</tr>
+                                <tr>--%>
+                                    <asp:Literal Text='<%# Eval("ColumnasVacaciones" ) %>' runat="server"></asp:Literal>
+                                    <%-- <asp:Repeater ID="RepeaterEjercicios" runat="server" DataSource='<%# tabladias %>'>
+                                    <ItemTemplate>
+                                        <asp:Literal Text='<%# columnapersonal((int)Eval("FechaNum" ),(System.Data.DataTable )Eval("TDiaspersonal")) %>' runat="server"></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:Repeater>--%>
+                                </tr>
+                            </ItemTemplate>
+                            <FooterTemplate>
+                            </FooterTemplate>
+                        </asp:Repeater>
+
+                    </tbody>
+                </table>
+            </div>
+            <div class="hidden">
                 <table id="gvReporteVacaciones" class="table table-striped table-advance table-hover  ScrollAD Widthall gvReporteVacaciones" data-rows="2" data-heighterror="360">
                     <%-- <thead>
                             </thead>--%>

Nomina/ReporteVacaciones.aspx.cs

@@ -1,8 +1,11 @@
-using ADSNetLibrary.Helpers;
+using Extensiones;
+using iText.Html2pdf.Attach.Impl.Layout.Form.Element;
+using Microsoft.Extensions.Primitives;
 using System;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
+using System.Text;
 using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
@@ -34,8 +37,8 @@ public partial class Nomina_ReporteVacaciones : ClsPaginas
     {
         get
         {
-            string fecha = $"{DateTime.Now.Year - 3}-01-01";
+            string fecha = $"{DateTime.Now.Year - 1}-01-01";
-            if (ViewState["FiltFechaInicio"] == null) { return fecha ; }
+            if (ViewState["FiltFechaInicio"] == null) { return fecha; }
             else { return ViewState["FiltFechaInicio"].ToString(); }
         }
 
@@ -52,6 +55,18 @@ public partial class Nomina_ReporteVacaciones : ClsPaginas
 
         set { ViewState["FiltFechaFin"] = value; }
     }
+
+
+    protected DataTable tabladias
+    {
+        get
+        {
+            if (ViewState["tabladias"] == null) { return new DataTable(); }
+            else { return (DataTable)ViewState["tabladias"]; }
+        }
+
+        set { ViewState["tabladias"] = value; }
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -68,17 +83,44 @@ public partial class Nomina_ReporteVacaciones : ClsPaginas
     {
         using (ClsNominas objnom = new ClsNominas())
         {
-            if (objnom.ReporteVacaciones(FiltCveProyecto, FiltCveSubProyecto, UsuarioActual.CveEmpresa, FiltFechaInicio, FiltFechaFin))
+            if (objnom.ReporteVacacionesCalendario(FiltCveProyecto, FiltCveSubProyecto, UsuarioActual.CveEmpresa, FiltFechaInicio, FiltFechaFin))
             {
-                DataTable tabla1 = objnom.DTSetResultados.Tables[0]; // Simula tu tabla 1
+                DataTable tabla1 = objnom.DTSetResultados.Tables[0]; // 
-                DataTable tabla2 = objnom.DTSetResultados.Tables[1]; // Simula tu tabla 2
+                DataTable tabla2 = objnom.DTSetResultados.Tables[1]; // 
-                DataTable tabla3 = objnom.DTSetResultados.Tables[2]; // Simula tu tabla 3
+                DataTable tabla3 = objnom.DTSetResultados.Tables[2]; // 
-                RepeaterEjerciciosH1.DataSource= tabla3;
+                tabladias = objnom.DTSetResultados.Tables[3];
-                RepeaterEjerciciosH2.DataSource= tabla3;
+                DataTable tabladiasPersonal = objnom.DTSetResultados.Tables[4];
+                RepeaterEjerciciosH1.DataSource = tabla3;
+                RepeaterEjerciciosH2.DataSource = tabla3;
                 RepeaterEjerciciosH1.DataBind();
                 RepeaterEjerciciosH2.DataBind();
                 // Convertir Tabla 1 a Enumerable con un campo extra
-                List<Registro> resultado = tabla1.AsEnumerable().Select(row1 => new Registro()
+                List<Registro> resultado = tabla1.AsEnumerable().Select(row1 =>
+                {
+                    int cvePersonal = Convert.ToInt32(row1["CvePersonal"]);
+                    DataRow[] filasFiltradas = tabladiasPersonal.Select($"CvePersonal = {cvePersonal}");
+
+                    // Crear un nuevo DataTable con la misma estructura
+                    DataTable TDiaspersonal = tabladiasPersonal.Clone();
+
+                    // Importar las filas filtradas
+                    foreach (DataRow fila in filasFiltradas)
+                    {
+                        TDiaspersonal.ImportRow(fila);
+                        //DataRow nuevaFila = TDiaspersonal.NewRow();
+
+                        //// Copiar manualmente cada columna
+                        //foreach (DataColumn columna in tabladiasPersonal.Columns)
+                        //{
+                        //    nuevaFila[columna.ColumnName] = fila[columna.ColumnName];
+                        //}
+
+                        //TDiaspersonal.Rows.Add(nuevaFila);
+                    }
+                    TDiaspersonal.AcceptChanges();
+                    //DataTable TDiaspersonal = tabladiasPersonal.FiltraParametros(string.Format("CvePersonal = '{0}'", row1["CvePersonal"]));
+                    int contador = tabladiasPersonal.Rows.Count;
+                    return new Registro()
                     {
                         CvePersonal = row1.Field<int>("CvePersonal"),
                         Codigo = row1.Field<string>("Codigo"),
@@ -88,6 +130,8 @@ public partial class Nomina_ReporteVacaciones : ClsPaginas
                         FechaAntiguedad = row1.Field<DateTime>("FechaAntiguedad"),
                         Antiguedad = row1.Field<int>("Antiguedad"),
 
+                        //ColumnasinicioFin = strColumnasinicioFin(tabladias, tabla2.FiltraParametros(string.Format("CvePersonal = {0}", row1["CvePersonal"])), row1["anio"].ToString().ToEntero(), row1["Mes"].ToString(), row1["Dia"].ToString()),
+                        ColumnasVacaciones = strColumnasVacaciones(tabladias, TDiaspersonal),
                         // Campo extra: Enumerable para cada Ejercicio de Tabla 3
                         Ejercicios = tabla3.AsEnumerable().Select(row3 =>
                         {
@@ -125,19 +169,129 @@ public partial class Nomina_ReporteVacaciones : ClsPaginas
                                 };
                             }
                         }).ToList()
-                }).ToList();
+                    };
+                }
+                ).ToList();
 
 
 
                 RepeaterPrincipal.DataSource = resultado;
                 RepeaterPrincipal.DataBind();
 
-            }
+                RepeaterPrincipalCalendar.DataSource = resultado;
+                RepeaterPrincipalCalendar.DataBind();
+
+
+                rptanio.DataSource = tabladias.FiltraParametros("MinEjercicio = 1");
+                rptanio.DataBind();
+                rptMeses.DataSource = tabladias.FiltraParametros("MinMes = 1");
+                rptMeses.DataBind();
+                RepetDias.DataSource = tabladias;
+                RepetDias.DataBind();
+                //rptx.DataSource = tabladias;
+                //rptx.DataBind();
 
             }
 
         }
 
+    }
+    public string rightstr(string str,int cantidad)
+    {
+        return str.Length >= cantidad ? str.Substring(str.Length - cantidad) : str;
+    }
+    public string strColumnasinicioFin(DataTable tabladias, DataTable TEjercicio, int anio, string Mes, string Dia)
+    {
+        StringBuilder stringBuilder = new StringBuilder();
+        StringBuilder strbuilderB = new StringBuilder();
+        strbuilderB.AppendFormat(" </tr><tr>");
+        int FechaNum =string.Format("{0}{1}{2}", anio, Mes, Dia).ToEntero();
+        int Mesdia =string.Format("{0}{1}", Mes, Dia).ToEntero();
+        foreach (DataRow dr in tabladias.Rows)
+        {
+            int colspan = dr["DiasMes"].ToString().ToEntero();
+            int mesidias = rightstr(dr["FechaNum"].ToString(),4).ToEntero();
+            int mesa = dr["Mes"].ToString().ToEntero();
+            int ania = dr["Anio"].ToString().ToEntero()-(mesidias >= Mesdia?0:1);
+            DataRow hdrow = TEjercicio.FiltroPrimero(string.Format("Ejercicio = {0}", ania));
+            int drFechaNum = dr["FechaNum"].ToString().ToEntero();
+            string classtd = drFechaNum < FechaNum ? "": ((ania % 2) > 0 ? "yearclass" : "yearclassB");
+            string antiguedad = "";
+            string classvac = "borderleft";
+            string vacacionestomadas = "";
+            if(hdrow != null)
+            {
+                antiguedad = string.Format("({0})", hdrow["Antiguedad"]);
+                //DiasVacaciones	EJercicio	EJercicioVac	DiasPagados	DiasDisfrutados
+                int DiasVacaciones = hdrow["DiasVacaciones"].ToString().ToEntero();
+                int DiasPagados = hdrow["DiasPagados"].ToString().ToEntero();
+                int DiasDisfrutados = hdrow["DiasDisfrutados"].ToString().ToEntero();
+                int mitadDiasVacaciones = DiasVacaciones / 2;
+                classvac = DiasDisfrutados > 0 ? (DiasDisfrutados > mitadDiasVacaciones ? (DiasDisfrutados >= DiasVacaciones ? "success" : "info") : "warning") : "danger";
+                vacacionestomadas = string.Format("{0}/{1}",DiasDisfrutados, DiasVacaciones);
+            }
+            if (dr["MinMes"].ToString() == "1" && Mesdia != mesidias)
+            {
+                if(mesa == Mes.ToEntero())
+                {
+                    colspan = Dia.ToEntero() - 1;
+                }
+            string canio = drFechaNum >= FechaNum && colspan>5 ? (ania.ToString()) :"";
+                stringBuilder.AppendFormat("<td class='{2}' colspan='{0}'>{1} {3}</td>", colspan, canio, classtd, antiguedad);
+                strbuilderB.AppendFormat("<td class='{1}' colspan='{0}'>{2}</td>", colspan, classvac, vacacionestomadas);
+            }
+            if (mesidias == Mesdia)
+            {
+                string canio = drFechaNum >= FechaNum && colspan > 5 ? (ania.ToString()) : "";
+                if (mesa == Mes.ToEntero())
+                {
+                    colspan = colspan-(Dia.ToEntero() - 1);
+                }
+                stringBuilder.AppendFormat("<td class='{2} borderyear' colspan='{0}'>{1} {3}</td>", colspan, canio, classtd, antiguedad);
+                strbuilderB.AppendFormat("<td class='{1}'  colspan='{0}'>{2}</td>", colspan, classvac, vacacionestomadas);
+            }
+        }
+        stringBuilder.AppendFormat("{0}", strbuilderB.ToString());
+        return stringBuilder.ToString();
+    }
+    public string strColumnasVacaciones(DataTable tabladias, DataTable TDiaspersonal)
+    {
+        StringBuilder stringBuilder = new StringBuilder();
+        foreach (DataRow dr in tabladias.Rows)
+        {
+
+            DataRow hdr = TDiaspersonal.FiltroPrimero(string.Format("FechaNum={0}", dr["FechaNum"]));
+            if (hdr != null)
+            {
+                if (hdr["InicioVac"].ToString() == "1")
+                {
+                    stringBuilder.AppendFormat("<td class='info{1} text-center' colspan='{0}'>{0}</td>", hdr["diasvac"], (dr["MinMes"].ToString() == "1" ? " borderleft " : ""));
+                }
+            }
+            else
+            {
+                if (TDiaspersonal.FiltroPrimero(string.Format("Anio={0} AND Mes ={1}", dr["Anio"], dr["Mes"])) != null)
+                {
+                    stringBuilder.AppendFormat("<td class='{0}'></td>", (dr["MinMes"].ToString() == "1" ? " borderleft " : ""));
+                }
+                else
+                {
+                    if (dr["MinMes"].ToString() == "1")
+                    {
+
+                        stringBuilder.AppendFormat("<td class='borderleft' colspan='{0}'></td>", dr["DiasMes"]);
+                    }
+
+                }
+            }
+        }
+        return stringBuilder.ToString();
+    }
+    public string columnapersonal(int dia, DataTable TDiaspersonal)
+    {
+        return string.Format("<td></td>");
+    }
+
 
 
     protected void LnkConsultar_Click(object sender, EventArgs e)
@@ -158,6 +312,9 @@ public class Registro
     public DateTime FechaAntiguedad { get; set; }
     public int Antiguedad { get; set; }
     public List<EjercicioInfo> Ejercicios { get; set; }
+    //public DataTable TDiaspersonal { get; set; }
+    public string ColumnasinicioFin { get; set; }
+    public string ColumnasVacaciones { get; set; }
 }
 
 public class EjercicioInfo

OC/OC2.aspx.vb

@@ -795,7 +795,7 @@ Partial Class OC
     End Sub
     Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
         DdlSP.Items.Clear()
-        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
+        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
         DdlSP.DataBind()
         DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub

OI/Proyecto.aspx

@@ -437,7 +437,6 @@
             }
             gantt.render();
         }
-
         var datosGant = [];
         function loadGant() {
             gantt.config.date_format = "%Y-%m-%d %H:%i";

OI/TareaDetalle.aspx

@@ -655,7 +655,6 @@
             </asp:UpdatePanel>
         </div>
     </div>
-
     <div id='<%= iddivAgregarTema %>' class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpdatePanel1" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">

Planeacion/CatFolios.aspx.vb

@@ -72,7 +72,6 @@ Partial Class CatFolios
             DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS"))
             DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC"))
             DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra"))
-            DdlTipoDocto.Items.Insert(35, New ListItem("Retenciones", "Ret"))
         ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then
             DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing"))
             DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs"))

Planeacion/CatSubProyectos.aspx

@@ -50,6 +50,7 @@
 
             <div class="portlet-body">
 			
+			
 			<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
   <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
   <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
@@ -68,11 +69,6 @@
                             <asp:BoundField DataField="UsuarioNomina" HeaderText="UsuarioNomina" />
                             <asp:BoundField DataField="Proyecto" HeaderText="Proyecto" />
                             <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
-                            <asp:TemplateField HeaderText="Es Sucursal" ItemStyle-Width="40px" ItemStyle-HorizontalAlign="Center">
-                                <ItemTemplate>
-                                    <asp:Label ID="LblEsSucursal" runat="server" Text='<%# IIf(Eval("EsSucursal").ToString = "1", "Si", "No") %>' />
-                                </ItemTemplate>
-                            </asp:TemplateField>                             
                             <asp:BoundField DataField="FechaIng" DataFormatString="{0:d}" HeaderText="Fecha" />
                             <asp:BoundField DataField="Usuario" HeaderText="Usuario" />
                               

Planeacion/CatSubProyectos.aspx.vb

@@ -88,6 +88,8 @@ Partial Class CatSubProyectos
             CargaPrecioLista()
 
             CargaDatos()
+			
+			
             If UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 GvDatos.Columns(1).Visible = True
                 DivSegmentoNegocio.Visible = True

RH/CalculoSBC.aspx.cs

@@ -521,7 +521,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                             SalarioCotizacion = Salariovariable + SDI;
                             if (objpersonal.UpdateSalarios(CvePersonal, txtfechacargamasiva.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                 Salariodiario.ToString().ToDouble(), SDI.ToString().ToDouble(), SalarioCotizacion.ToString().ToDouble(), Salariodiario.ToString().ToDouble(),
-                                false,true,"C"))
+                                false,true,"True"))
                             {
 
                                 {
@@ -755,7 +755,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                 double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
                 if (continuar && (item.FCCheckBox("chkUpdate").Checked) &&//SalarioDiarioSSNuevo != SalarioDiarioSS &&
                     (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario,
-                    false,true,"D"
+                    false,true,"True"
                     )))
                 {
 

RH/CatAsistenciasInasistencias.aspx

@@ -16,9 +16,6 @@
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Asistencia/Inacistencia"></asp:LinkButton>
             </li>
-            <li>
-                <asp:LinkButton runat="server" ID="LnkCargapredefinidos" OnClick="LnkCargapredefinidos_Click" Text="<i class='fa fa-plus'></i>Agregar Predefinidos" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"></asp:LinkButton>
-            </li>
 
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -34,7 +31,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAsistenciasInasistencias,Tipo,TipoCorto,AplicaAsistencia,AplicaFalta,AplicaVacacion,AplicaIncapacidad,AplicaRetardo,AplicaAguinaldo,AplicaUtilidades,AplicaPago,AplicaPagoDoble,AplicaPrimaVac,Estatus,AplicaPrimaDominical" EmptyDataText="No se encontraron AsistenciasInasistenciass Registrados" ToolTip="Listado de AsistenciasInasistenciass" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveAsistenciasInasistencias,Tipo,TipoCorto,AplicaAsistencia,AplicaFalta,AplicaVacacion,AplicaIncapacidad,AplicaRetardo,AplicaAguinaldo,AplicaUtilidades,AplicaPago,AplicaPagoDoble,AplicaPrimaVac,Estatus" EmptyDataText="No se encontraron AsistenciasInasistenciass Registrados" ToolTip="Listado de AsistenciasInasistenciass" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="Tipo" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
@@ -98,11 +95,6 @@
                             <asp:Literal ID="LtlAplicapagoDoble" runat="server" Text='<%# Eval("AplicaPagoDoble") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField> 
-                    <asp:TemplateField HeaderText="Aplica Prima Dominical" ItemStyle-Width="10%">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlAplicaPrimaDominical" runat="server" Text='<%# Eval("AplicaPrimaDominical") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField> 
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="10%">
                         <ItemTemplate>
                             <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("Estatus") %>'>a</asp:Literal>
@@ -208,7 +200,7 @@
                                         <label for="AplicaUtilidades">Aplica Utilidades:</label><br />
                                         <asp:CheckBox ID="AplicaUtilidades" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
-                                    <div id="CheckActiveSection" runat="server" class="col-md-4">
+                                    <div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
                                         <label for="ChkEstatus">Activo:</label><br />
                                         <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
@@ -219,12 +211,8 @@
                                         <asp:CheckBox ID="ChkAplicaPago" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
                                     </div>
                                     <div class="col-md-4">
-                                        <label for="ChkAplicaPagoDoble">Aplica Pago Doble:</label><br />
+                                        <label for="ChkAplicaPagoDoble">Aplica Pago doble:</label><br />
-                                        <asp:CheckBox ID="ChkAplicaPagoDoble" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="false" />
+                                        <asp:CheckBox ID="ChkAplicaPagoDoble" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="true" />
-                                    </div>
-                                    <div class="col-md-4">
-                                        <label for="ChkAplicaPrimaDominical">Aplica Prima Dominical:</label><br />
-                                        <asp:CheckBox ID="ChkAplicaPrimaDominical" runat="server" CssClass="chksino" data-size="small" Text=" " Checked="false" />
                                     </div>
                                 </div>
                                 <div class="row">

RH/CatAsistenciasInasistencias.aspx.vb

@@ -48,7 +48,6 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim ObjAsistenciasInasistencias As New ClsRH
         If ObjAsistenciasInasistencias.GetAsistenciasInasistencias(UsuarioActual.CveEmpresa) Then
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados
-            LnkCargapredefinidos.Visible = ObjAsistenciasInasistencias.DtResultados.Rows.Count = 0
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -70,9 +69,6 @@ Partial Class RH_CatAsistenciasInasistencias
         AplicaRetardo.Checked = False
         AplicaAguinaldo.Checked = False
         AplicaUtilidades.Checked = False
-        ChkAplicaPagoDoble.Checked = False
-        ChkAplicaPrimaDominical.Checked = False
-
         TipoTxt.Text = ""
         TxtTipoCorto.Text = ""
         UpModalTiposD.Update()
@@ -92,11 +88,10 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0)
         Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
         Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
-        Dim AplicaPrimaDominical As Integer = If(ChkAplicaPrimaDominical.Checked, 1, 0)
 
 
         If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                                   chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac, TxtTipoCorto.Text, AplicaPrimaDominical) Then
+                                                                   chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac, TxtTipoCorto.Text) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
@@ -141,7 +136,7 @@ Partial Class RH_CatAsistenciasInasistencias
         ChkAplicaPago.Checked = If(GvRow.DataKey("AplicaPago") = "Aplica", True, False)
         ChkAplicaPagoDoble.Checked = If(GvRow.DataKey("AplicaPagoDoble") = "Aplica", True, False)
         ChkAplicaPrimaVac.Checked = If(GvRow.DataKey("AplicaPrimaVac") = "Aplica", True, False)
-        ChkAplicaPrimaDominical.Checked = If(GvRow.DataKey("AplicaPrimaDominical") = "Aplica", True, False)
+
 
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
         CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
@@ -175,13 +170,12 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
         Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
 
-        Dim AplicaPrimaDominical As Integer = If(ChkAplicaPrimaDominical.Checked, 1, 0)
 
 
 
         If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
                     chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble,
-                    aplicaPrimaVac, TxtTipoCorto.Text, AplicaPrimaDominical) Then
+                    aplicaPrimaVac, TxtTipoCorto.Text) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing
@@ -259,17 +253,4 @@ Partial Class RH_CatAsistenciasInasistencias
 #End Region
 
 
-
-    Protected Sub LnkCargapredefinidos_Click(sender As Object, e As EventArgs)
-
-        Using objrh As New ClsRH()
-            'objrh.IniciaTransacSQL()
-            If objrh.CargaInicialAsistenciaInasistencia(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
-                'objrh.Commit()
-            Else
-                'objrh.RollBack()
-            End If
-        End Using
-        CargaDatos()
-    End Sub
 End Class

RH/CatTurno.aspx.vb

@@ -41,26 +41,14 @@ Partial Class RH_CatTurno
     End Sub
 
     Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click
+        Using ObjRH As New ClsRH
+            Dim Estatus As Boolean = False
+            Dim comida As Integer = If(chkComida.Checked, 1, 0)
 
             Dim ComidaDe As String = If(TxtComidade.Text.Trim = "", "00:00:00", TxtComidade.Text.Trim)
             Dim ComidaA As String = If(TxtComidaA.Text.Trim = "", "00:00:00", TxtComidaA.Text.Trim)
 
 
-        Dim horaInicios As String = If(TxtHorarioDe.Text.Trim = "", "00:00:00", TxtHorarioDe.Text.Trim)
-        Dim horaSalidaS As String = If(TxtHorarioA.Text.Trim = "", "00:00:00", TxtHorarioA.Text.Trim)
-
-        Dim horaInicio As TimeSpan = TimeSpan.Parse(horaInicios)
-        Dim horaSalida As TimeSpan = TimeSpan.Parse(horaSalidaS)
-
-        If Not validaHorasTurno(horaInicio, horaSalida) Then
-            Exit Sub
-        End If
-        Exit Sub
-
-        Using ObjRH As New ClsRH
-            Dim Estatus As Boolean = False
-            Dim comida As Integer = If(chkComida.Checked, 1, 0)
-
             If ChkEstatus.Checked Then Estatus = True
             If HdnModalidad.Value = "A" Then
                 If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
@@ -84,25 +72,6 @@ Partial Class RH_CatTurno
 
     End Sub
 
-    Private Function validaHorasTurno(horaInicio As TimeSpan, horaSalida As TimeSpan) As Boolean
-
-        If horaInicio > horaSalida Then
-            horaSalida = horaSalida.Add(TimeSpan.FromDays(1))
-        End If
-
-
-        Dim diferencia As TimeSpan = horaSalida - horaInicio
-
-        If diferencia.TotalHours > 13 Then
-            Alert("Las horas de entrada y salida no son validas. El rango de horas supera las 13 horas.", TipoMensaje.MsgAdvertencia)
-            Return False
-        End If
-
-
-        Return True
-
-    End Function
-
     Public Sub Edit_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

RH/PopUpBuscarPersonal.aspx

@@ -34,7 +34,7 @@
                             <asp:TextBox ID="TxtCodigo" runat="server" MaxLength="12" Width="100px"></asp:TextBox></td>
                         <td class="text-right"><b>Nombre:</b></td>
                         <td colspan="3">
-                            <asp:TextBox ID="TxtNombre" runat="server" MaxLength="100" Width="362px" autofocus="autofocus"></asp:TextBox></td>
+                            <asp:TextBox ID="TxtNombre" runat="server" MaxLength="100" Width="362px" autofocus></asp:TextBox></td>
                     </tr>
                     <tr align="left">
                         <td class="text-right"><b>NSS:</b></td>
@@ -43,7 +43,7 @@
                         <td class="text-right"><b>Puesto:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlPuestos" runat="server" AppendDataBoundItems="true" DataTextField="Puesto" DataValueField="CvePuesto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>RFC:</b></td>
@@ -54,19 +54,19 @@
                         <td class="text-right"><b>Tipo de Período:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Tipo de Contrato:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlTipoContrato" runat="server" AppendDataBoundItems="true" DataTextField="TipoContrato" DataValueField="CveTipoContrato" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Departamento:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlDepartamentos" runat="server" AppendDataBoundItems="true" DataTextField="Departamento" DataValueField="CveDepartamento" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                     </tr>
@@ -74,19 +74,19 @@
                         <td class="text-right"><b>Género:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlGenero" runat="server" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Estado Civil:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlEstadoCivil" runat="server" AppendDataBoundItems="true" DataTextField="EstadoCivil" DataValueField="CveEstadoCivil" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Escolaridad:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlEscolaridad" runat="server" AppendDataBoundItems="true" DataTextField="Escolaridad" DataValueField="CveEscolaridad" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                     </tr>
@@ -101,13 +101,13 @@
                         <td class="text-right"><b>Turno:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlTurnos" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Cliente:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlClienteAsignado" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                     </tr>
@@ -115,19 +115,19 @@
                         <td class="text-right"><b>Proyecto:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Sub Proyecto:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>Ruta:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlRuta" runat="server" AppendDataBoundItems="true" DataTextField="Ruta" DataValueField="CveRuta" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                     </tr>
@@ -135,7 +135,7 @@
                         <td class="text-right"><b>Estatus:</b></td>
                         <td>
                             <asp:DropDownList ID="DdlEstatus" runat="server" AppendDataBoundItems="true" DataTextField="EstatusPersonal" DataValueField="CveEstatusPersonal" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;">
-                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </td>
                         <td class="text-right"><b>clasificación:</b></td>
@@ -175,6 +175,8 @@
                                     </asp:TemplateField>
                                 </Columns>
                             </asp:GridView>
+
+
                         </td>
                         <td colspan="2">
                             <asp:GridView ID="GvCrt2" runat="server" GridLines="None" BorderWidth="0" CssClass="table table-hover table-advance Widthall" AutoGenerateColumns="False"

Sistemas/CatContrasenia.aspx

@@ -35,11 +35,6 @@
                             <asp:TextBox ID="TxtContrasenia1" runat="server" TextMode="Password"></asp:TextBox>
                             <asp:RequiredFieldValidator ID="RFVContrasenia" runat="server" ErrorMessage="Contraseña Vacía"
                                 ControlToValidate="TxtContrasenia1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                            <br />
-                            <ajaxToolkit:PasswordStrength ID="ps1" runat="server"
-                                TargetControlID="TxtContrasenia1" RequiresUpperAndLowerCaseCharacters="true"
-                                MinimumNumericCharacters="1" MinimumSymbolCharacters="1" 
-                                StrengthIndicatorType="Text"  />
                         </th>
                     </tr>
                     <tr>

Sistemas/Usuarios.aspx

@@ -42,6 +42,15 @@
 
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+            <div  class="row">
+                <div class="col-lg-1">
+                    Empresa:
+                </div>
+                <div class="col-lg-4">
+
+                </div>
+            </div>
+
             <table width="100%" border="0" cellpadding="0" cellspacing="0">
 
                 <tr class="SubTotales">

Ventas/CatAutorizacionLimites.aspx.vb

@@ -240,6 +240,8 @@ Partial Class Ventas_CatAutorizacionLimites
         End If
 
         Dim Importe As Decimal = gvRow.DataKey("Importe").ToDecimal().RoundSQL(2)
+
+        If UsuarioActual.Empresa.Funcionalidad(595).Contiene("1", "2") Then
             'AUTORIZACION DE IMPORTE,
             'el cliente limite de 500, y saldo de 501. autorización que puede autorizar no puede ser mayor a 49 ( limite * 1.% - Saldo)
             If TipoAutorizacion = 1 Then
@@ -286,6 +288,7 @@ Partial Class Ventas_CatAutorizacionLimites
                     End If
                 End If
             End If
+        End If
 
         Dim ObjVentas As New ClsVentas
         If ObjVentas.AutorizacionLimitesUpdate(CveAutorizacion, CveCliente, CveVendedor, Importe, CveEstatusAutorizacion, UsuarioActual.CveUsuario) Then

Ventas/CatMotivosCancelacion.aspx.vb

@@ -90,7 +90,6 @@ Partial Class Ventas_CatMotivosCancelacion
         End If
         ObjVentas.Dispose()
 		GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa) = Nothing
-
         RegistraScript("$('#DivMotivo').modal('hide');")
 
         CargaDatos()

Ventas/CatPreciosLista.aspx

@@ -80,14 +80,12 @@
                                     <label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio de Lista:</label>
                                 </div>
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <div class="col-md-6">
                                     <asp:CheckBox ID="ChkPredeterminada" runat="server" Text="Predeterminada" CausesValidation="true"></asp:CheckBox>
                                 </div>
-                                   <div class="col-md-6" id="dvEstatus" runat="server">
+                                <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
                                     <label>Activo: </label>
                                     <asp:CheckBox ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>
                                 </div>
-                                </div>                                 
                                 <div id="divPermiso" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
                                     <label>Restringida a permiso: </label>
                                     <asp:CheckBox ID="ChkRestringida" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>

Ventas/CatPromociones.aspx.vb

@@ -28,7 +28,7 @@ Partial Class Ventas_CatPromociones
             End If
 
             InicializaControles()
-            OcultarMostrarInactivar(True)
+
             CargaDatos()
         End If
     End Sub

Ventas/PVCobranza.aspx

@@ -427,7 +427,7 @@
                                                 <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="Fecha Solicitud" DataField="FechaCambioEstatus" ItemStyle-Width="15%" />
                                                 <asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" />
-                                                <asp:TemplateField ItemStyle-Width="5%" >
+                                                <asp:TemplateField ItemStyle-Width="5%">
                                                     <ItemTemplate>
                                                         <asp:LinkButton runat="server" ID="BtnValidar" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
                                                     </ItemTemplate>
@@ -585,7 +585,6 @@
                                                 <div class="row">
                                                     <div class="col-md-2">
                                                         <label>Anticipos:</label><asp:LinkButton ID="ImgAntiPend" Visible="false" OnClick="ImgAntiPend_Click" runat="server" Text="  <i class='fa fa-money' style='font-size: 18px !important; color: #3c763d !important;'></i> " AlternateText="Aplicación de anticipos" Style="cursor: pointer;" />
-
                                                     </div>
                                                     <div class="col-md-4 input-icon">
                                                         <i style="margin: 0px;">$</i>
@@ -599,7 +598,7 @@
                                                                     <div class="row">
                                                                         <div class="col-md-6">
                                                                             <asp:Literal ID="LtlTipoAnticipo" runat="server"></asp:Literal></label>
-                                                                                <asp:HiddenField ID="HdnTipoAmortizacion" runat="server" Value="" />
+                                                                                <%--<asp:HiddenField ID="HdnTipoAmortizacion" runat="server" Value="" />--%>
                                                                             <asp:LinkButton ID="LnkCxC" runat="server" CssClass="btn btn-xs btn-success" Text="Cobranza" OnClick="LnkCxC_Click" />
 
                                                                         </div>
@@ -1184,67 +1183,7 @@
                             </h4>
                         </div>
                         <div class="modal-body">
-                            <div class="row" runat="server" id="divAmortizacionTipo" visible="false">
+                            <div style="max-height: 700px; overflow-y: auto;">
-                                <div class="col-md-4">
-                                    Tipo Amortización:   
-                                </div>
-                                <div class="col-md-8">
-                                    <asp:DropDownList ID="DdlTipoAmortizacionAnticipo" runat="server" AutoPostBack="true" Width="250px" CssClass="select2me" CausesValidation="true" OnSelectedIndexChanged="DdlTipoAmortizacionAnticipo_SelectedIndexChanged">
-                                        <asp:ListItem Text="Seleccionar" Value="-1"></asp:ListItem>
-                                        <asp:ListItem Text="Amortización anticipo con nota de crédito" Value="2"></asp:ListItem>
-                                    </asp:DropDownList>
-
-                                </div>
-                                <asp:RequiredFieldValidator ID="RfvDdlTipoAmortizacionAnticipo" runat="server" Display="None" ControlToValidate="DdlTipoAmortizacionAnticipo" InitialValue="-1" ErrorMessage="Debe Seleccionarse un tipo" ValidationGroup="VGAnticiposClientes"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="CEDdlTipoAmortizacionAnticipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoAmortizacionAnticipo" Width="300px"></ajax:ValidatorCalloutExtender>
-                                <div class="row" style="text-align: center;" runat="server" id="divAnticipoMsg" visible="false">
-                                    <asp:Label ID="Label2" runat="server" Text="Se aplicará descuento por el total de las amortizaciones en los productos" CssClass="alert alert-warning" Style="padding: 5px; margin-bottom: 5px; padding-right: 25px;"></asp:Label>
-                                </div>
-                            </div>
-
-                            <div class="row" id="divAmortizacionTipoRelacion" runat="server" visible="false">
-                                <div class="col-md-4">
-                                    Tipo Relación: 
-                                </div>
-
-                                <div class="col-md-8">
-                                    <asp:DropDownList ID="DdlTipoRelacionAnticipo" runat="server" Width="250px" CssClass="select2me">
-                                        <asp:ListItem Text="07 - CFDI por aplicación de anticipo" Value="7"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>
-                            </div>
-
-                            <div class="row" id="DivConceptoNC" runat="server" visible="false">
-                                <div class="col-md-4">
-                                    Concepto:
-                                </div>
-                                <div class="col-md-8">
-                                    <asp:DropDownList ID="DdlNCPSAnt" runat="server" DataTextField="PSCodigo" DataValueField="CvePS" Width="250px" CssClass="select2me"></asp:DropDownList>
-                                    <asp:RequiredFieldValidator ID="RFVNCPSAnt" runat="server" InitialValue="-1" ControlToValidate="DdlNCPSAnt" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." ValidationGroup="VGAnticiposClientes"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCERFVNCPSAnt" runat="server" HighlightCssClass="vco" TargetControlID="RFVNCPSAnt" Width="350px"></ajax:ValidatorCalloutExtender>
-                                </div>
-
-                            </div>
-
-                            <div class="row" id="DivFechaAnticipoCliente" runat="server" visible="false">
-                                <b>
-                                    <label class="col-md-2">Fecha:</label></b>
-                                <div class="col-md-4">
-                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80% !important; padding: 0px;">
-                                        <asp:TextBox ID="TxtFechaAnticipoCliente" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true" MaxLength="10" AutoPostBack="true" OnTextChanged="TxtFechaAnticipoCliente_TextChanged"></asp:TextBox>
-                                        <span class="input-group-btn ">
-                                            <asp:LinkButton ID="ImgFechaAnticipoCliente" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                        </span>
-                                        <ajax:MaskedEditExtender ID="MEEFechaAnticipoCliente" runat="server" TargetControlID="TxtFechaAnticipoCliente" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                        <ajax:CalendarExtender runat="server" ID="CEFechaAnticipoCliente" TargetControlID="TxtFechaAnticipoCliente" PopupButtonID="ImgFechaAnticipoCliente" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                        <asp:CompareValidator ID="CvFechaAnticipoCliente" runat="server" ControlToValidate="TxtFechaAnticipoCliente" Display="None" Operator="DataTypeCheck" Type="Date" ValidationGroup="VGAnticiposClientes" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)."></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VcoFechaAnticipoCliente" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="CvFechaAnticipoCliente" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
-                            </div>
-                            <br />
-
-                            <div style="max-height: 300px; overflow-y: auto;">
                                 <div class="row" style="margin-left: 0px; text-align: right" align="left">
                                     <div class="col-md-2">
                                         <asp:LinkButton ID="LnkRecargaAnticipos" NavigateUrl="#" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-refresh'></i> Actualizar" runat="server" OnClick="LnkRecargaAnticipos_Click" />
@@ -1255,6 +1194,13 @@
                                     </div>
                                 </div>
                                 <br />
+                                <div class="row">
+                                    <div class="col-md-12" style="display:flex; justify-content:end; font-size:16px; font-weight: bold;">
+                                        <span> Total: </span>
+                                        <asp:Label ID="LblTotalAnticipos" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label>
+                                    </div>
+                                </div>
+
                                 <asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
                                     ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" data-height="300" GridLines="None"
                                     DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente,Descuentos">
@@ -1283,6 +1229,12 @@
                                                 <asp:Literal ID="LtlAnticipos" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
                                             </ItemTemplate>
                                         </asp:TemplateField>
+                                        <asp:TemplateField>
+                                            <HeaderTemplate>Tipo</HeaderTemplate>
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlTipo" runat="server" Text='<%# Eval("Tipo") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
                                         <asp:TemplateField Visible="false">
                                             <HeaderTemplate>Moneda Venta</HeaderTemplate>
                                             <ItemTemplate>
@@ -1304,7 +1256,6 @@
                                         <asp:TemplateField>
                                             <HeaderTemplate>Amort. Ant.</HeaderTemplate>
                                             <ItemTemplate>
-                                                <asp:Label ID="LblTotalAnticipos" runat="server" ClientIDMode="Static" Text="0.00" Visible="false"></asp:Label>
                                                 <asp:TextBox ID="TxtAnticipo" CssClass="CSGATxtAnticipo" runat="server" CausesValidation="true" MaxLength="12" Width="76px"></asp:TextBox>
                                                 <asp:CompareValidator ID="CVAmortAnti" runat="server" ControlToValidate="TxtAnticipo" Display="None" ErrorMessage="El campo <b>''Amortización de Anticipos''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="VGAnticiposClientes"></asp:CompareValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCOAmortAnti" runat="server" HighlightCssClass="vco" TargetControlID="CVAmortAnti" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -1340,14 +1291,13 @@
                     <div class="modal-content">
                         <div class="modal-header ">
                             <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">
+                            <h4 class="modal-title">Estados de Cajas
-                                Estados de Cajas
                             </h4>
                         </div>
                         <div class="modal-body">
 
                             <div class="row">
-                                <div class="col-md-12" >
+                                <div class="col-md-12">
 
                                     <asp:GridView ID="GvEstadoCajas" runat="server" AutoGenerateColumns="true" ClientIDMode="Static" EmptyDataText=""
                                         OnRowDataBound="GvEstadoCajas_RowDataBound"
@@ -1466,8 +1416,6 @@
         function chkAnt(t, txt, importe, AmorContrato = 0) {
             let totalAnt = 0;
 
-            let TipoAnticipo = $('#<%=  DdlTipoAmortizacionAnticipo.ClientID  %>').val();
-
             //si es con.nc,es.el.total
             let Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));
 
@@ -1486,8 +1434,12 @@
                     totalAnt = FnSumaValoresAnt();
 
                     if (totalAnt > SaldoCompra) {
-                        txt.value = FormatoNumero(importe - (totalAnt - SaldoCompra), 2);
+                        let valor = FormatoNumero(importe - (totalAnt - SaldoCompra), 2);
-                        //$get('HdnVentaSaldo').value = 0.00;
+                        if (valor == 'NaN') {
+                            txt.value = "0.00";
+                        } else {
+                            txt.value = valor;
+                        }
                         alert("El Importe no debe de exceder a el saldo");
                     }
 
@@ -1508,13 +1460,8 @@
 
             let Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));// ToDouble($get('TxtSubTotal').value);
 
-            let TipoAnticipo = $('#<%=  DdlTipoAmortizacionAnticipo.ClientID  %>').val();
             let importeTxt = parseFloat(txt.value.replace(/,/g, ''));
 
-            if (TipoAnticipo == '4') {
-                Total = ToDouble($get("C_LtlSaldo").value.replace(",", ""));
-            }
-
             if (isNaN(importeTxt)) {
                 importeTxt = 0;
             } else {

Ventas/RepPS.aspx

@@ -87,8 +87,8 @@
                     <div class="titlefiltros  caption">
                         <div class="row">
                             <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
-                            <div runat="server" id="DivSubProyecto" class="col-md-3">
+                            <div runat="server" id="DivSubProyecto" class="col-md-2">
-                                <asp:ListBox ID="DdlSubProyectos" CssClass="form-control ddlFiltros input-sm select2me Widthall" Height="30px" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100%" data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
+                                <asp:ListBox ID="DdlSubProyectos" CssClass="select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100%" data-text="Todos" SelectionMode="Multiple"></asp:ListBox>
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:

Ventas/RepPedidosSTF.aspx.vb

@@ -68,6 +68,8 @@ Partial Class Ventas_RepPedidosSTF
         LnkImprimirPedidos.Visible = False
         LnkImprimirPedidosExcel.Visible = False
 
+
+
         DatosGV = New DataTable
 
         Dim Opcion As Integer = 1

Ventas/RepProductosServiciosDetalle.aspx

@@ -431,13 +431,11 @@
                     <%--19--%>
                     <asp:BoundField HeaderText="Num. Turnos" DataField="NumTurnos" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <%--20--%>
-                    <asp:BoundField HeaderText="O. C." DataField="OC_noOrden" ItemStyle-Width="5%" Visible="false" />
+                    <asp:BoundField HeaderText="O.C." DataField="OC_noOrden" ItemStyle-Width="5%" Visible="false" />
                     <%--21--%>
-                    <asp:BoundField HeaderText="Kilogramos" DataField="OC_Kilogramos"  DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="O.C Kg" DataField="OC_Kilogramos" ItemStyle-Width="5%" Visible="false" />
                     <%--22--%>
-                    <asp:BoundField HeaderText="Cantiadad" DataField="OC_Cantidad"  DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="O.C Cantidad" DataField="OC_Cantidad" ItemStyle-Width="5%" Visible="false" />
-                    <%--23--%>
-                    <asp:BoundField HeaderText="Manifiesto" DataField="NoManifiesto" ItemStyle-Width="5%" Visible="false" />
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -479,15 +477,15 @@
                                             <asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
                                         </td>
                                     </tr>
-                                      <tr  runat="server" id="DivMostrarCgame">
+                                      <tr>
                                         <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkOC_noOrden" runat="server" Text="O. C." />
+                                            <asp:CheckBox ID="ChkOC_noOrden" runat="server" Text="O.C." />
                                         </td>
                                         <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkOC_Kilogramos" runat="server" Text="O. C. Kilogramos" />
+                                            <asp:CheckBox ID="ChkOC_Kilogramos" runat="server" Text="O.C. Kilogramos" />
                                         </td>
                                         <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkOC_Cantidad" runat="server" Text="O. C. Cantiadad" />
+                                            <asp:CheckBox ID="ChkOC_Cantidad" runat="server" Text="O.C. Cantidad" />
                                             
                                         </td>
                                     </tr>
@@ -495,13 +493,12 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
                                         </td>
-                                        <td style="text-align: left;" runat="server" id="DivMostrarCgame2">
-                                            <asp:CheckBox ID="ChkNoManifiesto" runat="server" Text="Manifiesto" />
-                                            
-                                        </td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
                                         </td>
+                                        <td style="text-align: left;">
+                                            
+                                        </td>
                                     </tr>
                                 </tbody>
                             </table>

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -73,8 +73,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            DivMostrarCgame.Visible = (UsuarioActual.CveEmpresa = 172)
+
-            DivMostrarCgame2.Visible = (UsuarioActual.CveEmpresa = 172)
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             SetValues()
             CargaParametrosDetalle()
@@ -559,7 +558,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         GvDatos.Columns(20).Visible = ChkOC_noOrden.Checked
         GvDatos.Columns(21).Visible = ChkOC_Kilogramos.Checked
         GvDatos.Columns(22).Visible = ChkOC_Cantidad.Checked
-        GvDatos.Columns(23).Visible = ChkNoManifiesto.Checked
 
 
 

Ventas/RepVentas.aspx

@@ -109,7 +109,9 @@
             <li>
                 <asp:LinkButton ID="LnkGeneraXLS2" OnClick="LnkGeneraXLS2_Click" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generar XLS 2</asp:LinkButton>
             </li>
-
+            <li id="LiSabana" runat="server" visible="false">
+                <asp:HyperLink ID="HLSabana" NavigateUrl="#" data-toggle="modal" data-target="#DivModalSabana" runat="server"><i class='fa fa-file-excel-o'></i> Ventas por código</asp:HyperLink>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkDescargaCartaPorte" />
@@ -335,8 +337,8 @@
                                 <asp:ListItem Text="Sin parte relacionadas" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate" Visible="false" runat="server" id="DivLblDistr">Distribuidor:</label>
+                        <label title="Distr" data-toggle="tooltip" class="col-md-1 truncate" visible="false" runat="server" id="DivLblDistr">Distribuidor:</label>
-                        <div class="col-md-2" Visible="false" runat="server" id="DivDistr">
+                        <div class="col-md-2" visible="false" runat="server" id="DivDistr">
                             <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Distribuidor" Value="1"></asp:ListItem>
@@ -344,17 +346,17 @@
                             </asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblServicioDomicilioFiltro" class="col-md-1 truncate" Visible="false">Servicio Domicilio:</asp:Label>
-                        <div class="col-md-2" runat="server" id="DVServicioDomicilio" Visible="false">
+                        <div class="col-md-2" runat="server" id="DVServicioDomicilio" visible="false">
-                            <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
+                            <asp:DropDownList ID="DdlServicioDomicilio" CssClass=" form-control input-sm select2me" runat="server" Width="100%">
-                                <asp:ListItem   Value ="-1">Todos</asp:ListItem>
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
                                 <asp:ListItem Value="1">Si</asp:ListItem>
                                 <asp:ListItem Value="0">No</asp:ListItem>
                             </asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblFacturaGlobal" class="col-md-1 truncate" Visible="false">Factura Global:</asp:Label>
-                            <div class="col-md-2" runat="server" id="DivFacturaGlobal" Visible="false">
+                        <div class="col-md-2" runat="server" id="DivFacturaGlobal" visible="false">
-                                <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
+                            <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%">
-                                    <asp:ListItem   Value ="-1">Todos</asp:ListItem>
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
                                 <asp:ListItem Value="1">Solo Globales</asp:ListItem>
                                 <asp:ListItem Value="0">Sin Globales</asp:ListItem>
                             </asp:DropDownList>
@@ -431,14 +433,14 @@
                     <asp:TemplateField HeaderText="Sub. Crédito" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label ID="LblCredito" runat="server" Text='<%# Eval("SubtotalCredito", "{0:N0}") %>'></asp:Label>
-                          <asp:Label ID="LblCreditoPorcentaje" runat="server" Text='<%# String.Format("{0:###,###,###.00}%", Eval("SubTotalCreditoPorcentaje")) %>'  Font-Italic="True" Font-Size="10px" Visible="false" ></asp:Label>                          
+                            <asp:Label ID="LblCreditoPorcentaje" runat="server" Text='<%# String.Format("{0:###,###,###.00}%", Eval("SubTotalCreditoPorcentaje")) %>' Font-Italic="True" Font-Size="10px" Visible="false"></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--20--%>
                     <asp:TemplateField HeaderText="Sub. Contado" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label ID="LblContado" runat="server" Text='<%# Eval("SubTotalContado", "{0:N0}") %>'></asp:Label>
-                          <asp:Label ID="LblContadoPorcentaje" runat="server"  Text='<%# String.Format("{0:###,###,###.00}%", Eval("SubTotalContadoPorcentaje")) %>'   Font-Italic="True" Font-Size="10px" Visible="false" ></asp:Label>                                                    
+                            <asp:Label ID="LblContadoPorcentaje" runat="server" Text='<%# String.Format("{0:###,###,###.00}%", Eval("SubTotalContadoPorcentaje")) %>' Font-Italic="True" Font-Size="10px" Visible="false"></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
@@ -549,9 +551,7 @@
 
                                             <asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS" Visible="false" />
                                         </td>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;"></td>
-
-                                        </td>                                           
                                     </tr>
 
                                 </tbody>
@@ -560,7 +560,7 @@
                         <div class="modal-footer">
 
                             <div class="row">
-                                <div class="col-md-6" style="text-align:left">
+                                <div class="col-md-6" style="text-align: left">
                                     <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
                                 </div>
                                 <div class="col-md-6">
@@ -737,6 +737,108 @@
         </div>
     </div>
 
+    <div id="DivModalSabana" class="modal fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <asp:UpdatePanel runat="server" ID="UpModalSabana" UpdateMode="Conditional" class="modal-content">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label ID="Label5" runat="server" ClientIDMode="Static" Text="Ventas por código"></asp:Label></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="row">
+                                    <div class="col-md-2">Proveedor:</div>
+                                    <div class="col-md-10">
+                                        <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        Código PS Inicio:
+                                    </div>
+                                    <div class="col-md-8">
+                                        <asp:TextBox ID="TxtCodI" runat="server" CssClass="form-control input-sm" Width="85px"></asp:TextBox>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        Código PS Final:
+                                    </div>
+                                    <div class="col-md-8">
+                                        <asp:TextBox ID="TxtCodF" runat="server" CssClass="form-control input-sm" Width="85px"></asp:TextBox>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="row">
+                                    <div class="col-md-4 truncate">
+                                        Fecha Inicio:
+                                    </div>
+                                    <div class="col-md-8" style="min-width: 115px">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                            <asp:TextBox Width="85px" ID="TxtFechaISabana" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkFechaISabana" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                        </div>
+                                        <ajax:MaskedEditExtender ID="MEESabanaI" runat="server" TargetControlID="TxtFechaISabana" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CEFechaISabana" TargetControlID="TxtFechaISabana" PopupButtonID="LnkFechaISabana" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="RFVSabanaI" runat="server" ControlToValidate="TxtFechaISabana" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="RepSabana"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="CVSabanaI" runat="server" ControlToValidate="TxtFechaISabana" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="RepSabana"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RFVSabanaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender6" runat="server" HighlightCssClass="vco" TargetControlID="CVSabanaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="row">
+                                    <div class="col-md-4 truncate">
+                                        Fecha Fin:                           
+                                    </div>
+                                    <div class="col-md-8" style="min-width: 115px">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                            <asp:TextBox Width="85px" ID="TxtFechaFSabana" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkFechaFSabana" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                        </div>
+                                        <ajax:MaskedEditExtender ID="MESabanaF" runat="server" TargetControlID="TxtFechaFSabana" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CEFechaFSabana" TargetControlID="TxtFechaFSabana" PopupButtonID="LnkFechaFSabana" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="RFVSanabaF" runat="server" ControlToValidate="TxtFechaFSabana" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="RepSabana"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="CVSabanaF" runat="server" ControlToValidate="TxtFechaFSabana" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="RepSabana"></asp:CompareValidator>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVSanabaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender8" runat="server" HighlightCssClass="vco" TargetControlID="CVSabanaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGenerarSabana" runat="server" CssClass="btn btn-success" Text="Generar" OnClick="BtnGenerarSabana_Click" ValidationGroup="RepSabana" />
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+                <Triggers>
+                    <asp:PostBackTrigger ControlID="BtnGenerarSabana" />
+                </Triggers>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="https://www.amcharts.com/lib/3/amcharts.js"></script>

Ventas/RepVentas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports System.Xml
+Imports GemBox.Spreadsheet
 
 Partial Class Ventas_RepVentas
     Inherits ClsPaginas
@@ -110,6 +111,16 @@ Partial Class Ventas_RepVentas
                 Opcion = "-1"
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.TienePermisoProceso(386) Then
+                LiSabana.Visible = True
+
+                DdlProveedores.setEsWebService(True)
+                DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+                DdlProveedores.SelectedText = "Todos"
+                DdlProveedores.SelectedValue = "-1"
+
+            End If
+
             If UsuarioActual.CveEmpresa = 72 AndAlso UsuarioActual.CveUsuario.Contiene(100, 1614, 1517) Then
                 liRepHP.Visible = True
             End If
@@ -244,6 +255,9 @@ Partial Class Ventas_RepVentas
         txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
         txtFechaF.Text = NowADS().ToShortDateString
 
+        TxtFechaISabana.Text = NowADS().FirstDayOfMonth.ToShortDateString
+        TxtFechaFSabana.Text = NowADS().ToShortDateString
+
     End Sub
 
 
@@ -1101,4 +1115,52 @@ Partial Class Ventas_RepVentas
 
     End Sub
 
+
+    Protected Sub BtnGenerarSabana_Click(sender As Object, e As EventArgs)
+        Dim DtExcel As DataTable = Nothing
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetSabanaE189(UsuarioActual.CveEmpresa, TxtFechaISabana.Text.ToDate(), TxtFechaFSabana.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), TxtCodI.Text.Trim(), TxtCodF.Text.Trim()) Then
+            DtExcel = ObjVentas.DtResultados.Copy()
+        End If
+        ObjVentas.Dispose()
+
+        If DtExcel IsNot Nothing Then
+
+            'DtExcel.Columns("Codigo").ColumnName = "Código"
+            'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+            'DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
+
+            'If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
+            '    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            '        DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
+            '    End If
+            'Else
+            '    DtExcel.Columns.Remove("Número de parte")
+            'End If
+
+            DtExcel.TableName = "Sabana"
+
+            SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+            Dim FileExcel As New ExcelFile()
+
+            Dim worksheet As ExcelWorksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+            worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+                {
+                    .ColumnHeaders = True,
+                    .StartRow = 0,
+                    .StartColumn = 0
+                })
+            worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+            worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+            Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+            For i As Integer = 0 To columnCount
+                worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+            Next
+
+            FileExcel.Save(Response, "Sabana.xlsx", SaveOptions.XlsxDefault)
+
+        End If
+    End Sub
 End Class

Ventas/RepVentas.aspx.vb2

@@ -113,7 +113,7 @@ Partial Class Ventas_RepVentas
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataSource = GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
 
         'CargaEstatus

Ventas/Ventas.aspx

@@ -1827,7 +1827,6 @@
                                                                     <ContentTemplate>
                                                                         <asp:TextBox ID="TxtTotal" runat="server" CssClass="TextBoxAsLabel" ClientIDMode="Static" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox>
                                                                         <asp:HiddenField ID="HdnVentaSaldo" runat="server" ClientIDMode="Static" Value="0" />
-                                                                        <asp:HiddenField ID="HdnVentaSaldoOriginal" runat="server" ClientIDMode="Static" Value="0" />
                                                                         <asp:HiddenField ID="HdnCveVenta" runat="server" ClientIDMode="Static" Value="0" />
 
                                                                         <asp:HiddenField ID="HdnSubTotalDescuestos" runat="server" ClientIDMode="Static" Value="0" />
@@ -9322,7 +9321,6 @@
     </div>
 	
 	
-
     <div id="ModalDivMailFactura" class="modal ADS fade" role="dialog">
     <div class="modal-dialog">
 
@@ -10916,7 +10914,7 @@
 
                     if (totalAnt > SaldoCompra) {
                         txt.value = FormatoNumero(importe - (totalAnt - SaldoCompra), 2);
-                        //$get('HdnVentaSaldo').value = 0.00;
+                        $get('HdnVentaSaldo').value = 0.00;
                         alert("El Importe no debe de exceder a el saldo");
                     }
 
@@ -10926,7 +10924,7 @@
 
             } else {
 
-                //$get('HdnVentaSaldo').value = parseFloat(SaldoCompra) + parseFloat(txt.value);
+                $get('HdnVentaSaldo').value = parseFloat(SaldoCompra) + parseFloat(txt.value);
                 txt.value = "";
             }
 
@@ -10977,7 +10975,7 @@
             $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
 
 
-            //$get('HdnVentaSaldo').value = Total - FnSumaValoresAnt();
+            $get('HdnVentaSaldo').value = Total - FnSumaValoresAnt();
         }
 
         function FnSumaValoresAnt() {

Ventas/Ventas.aspx.vb

@@ -39479,7 +39479,7 @@ Partial Class Ventas
 
         Dim PuedeAplicarDevolucion As Boolean = False
         'código temporal RMF. para devoluciones de facturas cargadas de saldos iniciales.
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso (TxtFecha.Text.ToDate.Year < 2025 OrElse CveVentaPadre > 0) Then
             SaldoAlmacen = -1
             DevolucionAlmacen = 0
         End If