<%@ WebHandler Language="VB" Class="SIGWeb" %>
Option Strict Off
Imports System.Data
Imports System.IO
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json

Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
    'TEMPORAL, DEBE SER REEMPLAZADO POR EL MODELO DE LA LIBRERIA
    Public Class MResponseModel(Of T)
        Public Property IsSuccess As Boolean
        Public Property Message As String
        Public Property Result As T
    End Class

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        If context.Request("metodo") IsNot Nothing AndAlso context.Request("metodo").ToString() = "GetTokenAngular" Then
            'context.Response.ContentType = "application/json; charset=utf-8"

            context.Response.ContentType = "text/json"
            If context.Request IsNot Nothing AndAlso context.Request.UrlReferrer IsNot Nothing Then
                Dim origin As String = context.Request.UrlReferrer.ToString()
                context.Response.AddHeader("Access-Control-Allow-Origin", origin.Substring(0, origin.Length - 1))
            End If
            'context.Response.AddHeader("Access-Control-Allow-Origin", "http://localhost:4200")
            'context.Response.AddHeader("Access-Control-Allow-Methods", "GET, POST")
            context.Response.AddHeader("Access-Control-Allow-Headers", "Content-Type, Accept")
            context.Response.AddHeader("Access-Control-Allow-Credentials", "true")
            context.Response.StatusCode = 200
            Dim key As String = ""
            Try
                key = GetTokenAngular(context)
            Catch ex As Exception
                GuardaLog(ex.ToString())
            End Try
            Dim json As String = JsonConvert.SerializeObject(key)
            context.Response.Write(json)
            context.Response.Flush()
            context.Response.Close()
            context.Response.End()
        Else
            If context.Request("metodo").Contiene("Contabilizapoliza", "RevisaConexion") Then
                context.Response.ContentType = "text/json"
            Else
                context.Response.ContentType = "text/plain"

            End If
        End If

        Try
            Select Case context.Request("metodo")
                Case "Contabilizapoliza"
                    Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString().ToEntero()
                    Dim CveUsuario As Integer = context.Request("CveUsuario").ToString().ToEntero()
                    Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString().ToEntero()
                    GuardaLog(String.Format("?metodo=Contabilizapoliza&CvePrePoliza={0}&CveUsuario={1}&CveEmpresa ={2}", CvePrePoliza, CveUsuario, CveEmpresa))
                    ActualizaPrePoliza(context)

                    Dim obj As New MResponseModel(Of Object)()
                    obj.Result = ClsPaginas.NowADS().ToString()
                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
                    context.Response.Write(retorno)
                    context.Response.StatusCode = 200
                Case "RevisaConexion"
                    Dim obj As New MResponseModel(Of Object)()
                    obj.Result = ClsPaginas.NowADS().ToString()
                    Dim retorno = JsonConvert.SerializeObject(obj).ToString()
                    context.Response.Write(retorno)
                    context.Response.StatusCode = 200
                Case "getps"
                    GETPS(context)
                Case "getps2"
                    GETPS(context, "PSCodigoClasificacion")
                Case "getpsalmacen"
                    getpsalmacen(context)
                Case "Uploadfile"
                    uploadfile(context)
                Case "Downfile"
                    Downfile(context)
                Case "GetImg"
                    GetImg(context)
                Case "getpssat"
                    GETPSSAT(context)
                Case "getpsusados"
                    GETPSUSADOS(context)
                Case "getumsat"
                    GETUMSAT(context)
                Case "getsatmatpeligroso"
                    GETSATMaterialPeligroso(context)
                Case "getsatembalajes"
                    GETSATEmbalajes(context)
                Case "getcliente"
                    GetClientes(context)
                Case "getproveedores"
                    GetProveedores(context)
                Case "getfraccionarancelaria"
                    GetFraccionArancelaria(context)
                Case "GetUser"
                    GetUser(context)
                Case "ActualizaPreP"
                    ActualizaPrePoliza(context)
                Case "getpersonal"
                    getpersonal(context)
                Case "getcontratos"
                    GetContratos(context)
                Case "GettingCURP"
                    context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero()))
                Case "ValidaCURP"
                    context.Response.Write(ValidaCURP(context.Request("Curp").ToString()))
                Case "sendMail"
                    context.Response.Write(sendMail(context))
                Case "sendMailEMD"
                    context.Response.Write(sendMailEMD(context))
                Case "sendMailLPM"
                    context.Response.Write(sendMailLPM(context))
                Case "getSATColomias"
                    getSatColonias(context)
                Case "GetFilesDirectory"
                    GetFilesDirectory(context)
                Case "Getetiquetas"
                    Getetiquetas(context)
                Case "cancelarRemision"
                    cancelarRemision(context)
                Case "RemoveMovimiento"
                    RemoveMovimiento(context)
                Case "GetContaCuentas"
                    GetContaCuentas(context)
            End Select
        Catch ex As Exception
            ex.GuardaLog(ex.Message)
        End Try
    End Sub


    Public Sub ImprimirPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing, Optional Content_Disposition As String = "attachment")
        'limpio ReportViwer   
        ImprimirbytesPDF(StreamPDF(RutaReporte, DataSource, Parametros, NombreArchivo, Formato, MR), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
    End Sub

    Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte()
        'limpio ReportViwer   
        Dim sw As New System.Diagnostics.Stopwatch()
        sw.Start()
        Dim Bytes As Byte() = Nothing

        Dim CveUsuario As Integer = 0
        Dim CveEmpresa As Integer = 0
        Dim RutaEmpresa As String = ""


        Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)

        'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
        If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") Then
            bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "")
        End If

        RutaReporte.Replace("/", "\")

        If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
            RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
        End If

        If False Then

            Dim wsreport As New WSRDLC.WebServiceSoapClient
            Dim params As New List(Of WSRDLC.ReportParameter)
            Dim ds As New DataSet
            For Each rpds As ReportDataSource In DataSource
                Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable)
                If dt Is Nothing Then
                    dt = New DataTable()
                Else
                    dt = dt.Copy()
                End If
                dt.TableName = rpds.Name
                ds.Tables.Add(dt)
            Next
            For Each rpds As ReportParameter In Parametros
                Dim param As New WSRDLC.ReportParameter
                param.Name = rpds.Name
                param.Values = {rpds.Values(0)}
                params.Add(param)
            Next
            Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
            wsreport = Nothing
            params = Nothing
            ds.Dispose() : ds = Nothing
        Else
            If IsNothing(MR) Then MR = New ReportViewer
            Try
                ' MasterReporteador.LocalReport.DataSources.Clear()
                For Each RDS As ReportDataSource In DataSource
                    MR.LocalReport.DataSources.Add(RDS)
                Next

                MR.LocalReport.ReportPath = RutaReporte
                MR.ProcessingMode = ProcessingMode.Local
                MR.LocalReport.EnableExternalImages = True
                MR.LocalReport.SetParameters(Parametros)
                MR.LocalReport.Refresh()
                Dim Warnings As Warning() = Nothing
                Dim StreamIds As String() = Nothing
                Dim MimeType As String = Nothing
                Dim Encoding As String = Nothing
                Dim Extension As String = Nothing
                Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
            Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
                GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
                'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
                'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
            Catch ex As Exception
                GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
                'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
                'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
            End Try
            MR.Dispose()
            MR = Nothing

        End If
        sw.Stop()

        If sw.Elapsed.TotalSeconds > 5 Then
            GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds}   ")
        End If

        Return Bytes
    End Function

    Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment")
        'limpio ReportViwer   
        Dim mimeType As String = Nothing
        Dim extension As String = Nothing

        'If Descarga Then
        '    Try
        '        bytes = bytes
        '        File.WriteAllBytes(String.Format("{0}PDF/whatever.gif", UsuarioActual.Empresa.Ruta), img)
        '    Catch ex As Exception
        '        If UsuarioActual.CveRol = 1 Then
        '            Alert(ex.Message, TipoMensaje.MsgAdvertencia)
        '        Else
        '            Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
        '        End If
        '    End Try
        'End If

        Try
            bytes = bytes
            Response.Buffer = True
            Response.Clear()
            Response.ContentType = mimeType
            Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
            Response.BinaryWrite(bytes) ' create the file
            Response.Flush() ' send it to the client to download
            HttpContext.Current.Response.SuppressContent = True
            HttpContext.Current.ApplicationInstance.CompleteRequest()
            HttpContext.Current.Response.End()
            bytes = Nothing
        Catch ex As Exception

            Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia)

        End Try
    End Sub
    Dim Response As HttpResponse
    Private Function Getetiquetas(context As HttpContext) As String
        Dim retorno As String = ""
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("Envase", "1 1/9"))
        params.Add(New ReportParameter("Tamano", "Small"))
        params.Add(New ReportParameter("Cultivo", "Tomate"))
        params.Add(New ReportParameter("noPallet", "000001"))
        Response = context.Response
        Dim tablaReporte As New DataTable
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
        ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
        Return retorno
    End Function
    Private Function GetTokenAngular(context As HttpContext) As String
        Dim usuario As Usuario = UsuarioActual(context)
        Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
        .Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
        New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
        New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", ClsPaginas.NowADS().ToLongDateString())}),
        .Expires = Date.UtcNow.AddHours(3),
        .SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
        New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
        Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)}
        Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler()
        Dim newtoken = tokenHandler.CreateToken(tokenDescriptor)
        Dim stokenn As String = tokenHandler.WriteToken(newtoken)
        Return stokenn

    End Function
    Private Function sendMailLPM(context As HttpContext) As String
        Dim retorno As String = "true"
        Dim nombre As String = ""
        Dim correo As String = ""
        Dim asunto As String = ""
        Dim cuerpo As String = ""
        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
        If Not IsNothing(obj) Then
            nombre = obj.ToString()
        End If
        obj = context.Request("Correo").Trim()
        If Not IsNothing(obj) Then
            correo = obj.ToString()
        End If
        obj = context.Request("Asunto").Trim()
        If Not IsNothing(obj) Then
            asunto = obj.ToString()
        End If
        obj = context.Request("Cuerpo").Trim()
        If Not IsNothing(obj) Then
            cuerpo = obj.ToString().Replace("< ", "<").Trim()
        End If
        Dim Body As String = String.Format("Prospecto : {0}<br/>Correo : {1}<br/>Asunto : {2}<br/><br/>{3}", nombre, correo, asunto, cuerpo)
        Dim para As String = "contacto@localizacionprecisa.com;caudillo.90d@gmail.com;"
        'para = ""
        Dim Mail As New ClsSisMail()
        If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "Notificación prospecto", Body) Then
            retorno = "true"
        Else
            retorno = "false"
        End If
        Return retorno
    End Function

    Private Function sendMailEMD(context As HttpContext) As String
        Dim retorno As String = "true"
        Dim nombre As String = ""
        Dim correo As String = ""
        Dim Phone As String = ""
        Dim cuerpo As String = ""
        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
        If Not IsNothing(obj) Then
            nombre = obj.ToString().Trim()
        End If
        obj = context.Request("Correo")
        If Not IsNothing(obj) Then
            correo = obj.ToString().Trim()
        End If
        obj = context.Request("Phone")
        If Not IsNothing(obj) Then
            Phone = obj.ToString().Trim()
        End If
        obj = context.Request("Cuerpo")
        If Not IsNothing(obj) Then
            cuerpo = obj.ToString().Replace("< ", "<").Trim()
        End If
        Dim Body As String = String.Format("Solicitó : {0}<br/>Correo : {1}<br/>Telefono : {2}<br/><br/>{3}", nombre, correo, Phone, cuerpo)
        Dim para As String = "paola@adssistemas.mx;caudillo.90d@gmail.com;"
        'para = ""
        Dim Mail As New ClsSisMail()
        If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "Notificación contacto pagina", Body) Then
            retorno = "true"
        Else
            retorno = "false"
        End If
        Return retorno
    End Function

    Private Function sendMail(context As HttpContext) As String
        Dim retorno As String = "true"
        Dim nombre As String = ""
        Dim correo As String = ""
        Dim sitio As String = ""
        Dim cuerpo As String = ""
        Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() +
        If Not IsNothing(obj) Then
            nombre = obj.ToString().Trim()
        End If
        obj = context.Request("Correo").Trim()
        If Not IsNothing(obj) Then
            correo = obj.ToString()
        End If
        obj = context.Request("Sitio").Trim()
        If Not IsNothing(obj) Then
            sitio = obj.ToString()
        End If
        obj = context.Request("Cuerpo").Trim()
        If Not IsNothing(obj) Then
            cuerpo = obj.ToString().Replace("< ", "<").Trim()
        End If
        Dim Body As String = String.Format("Prospecto : {0}<br/>Correo : {1}<br/>Sitio : {2}<br/><br/>{3}", nombre, correo, sitio, cuerpo)
        Dim para As String = "rene.molina@adssistemas.mx,sig.buzon@gmail.com,julian@adssistemas.mx;paola@adssistemas.mx;caudillo.90d@gmail.com;"
        'para = ""
        Dim Mail As New ClsSisMail()
        If (nombre.Length > 0 Or correo.Length > 0) AndAlso Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then
            retorno = "true"
        Else
            retorno = "false"
        End If
        Return retorno
    End Function

    Private Sub GetUser(ByVal context As HttpContext)
        Dim usuario As String = context.Request("usuario").ToString()
        Dim CveUsuario As Integer = -1
        Dim objs As New ClsSisUsuarios
        objs.GetWSusuarios(usuario)
        If objs.DtResultados.Rows.Count > 0 Then
            CveUsuario = objs.DtResultados.Rows(0)("CveUsuario").ToString().ToEntero()
        End If
        objs.Dispose()
        If CveUsuario > 0 Then
            CveUsuario = 1
        End If

        context.Response.Write(CveUsuario.ToString())
        context.Response.StatusCode = 200
    End Sub

    Private Sub ActualizaPrePoliza(ByVal context As HttpContext)
        Dim CvePrePoliza As Integer = context.Request("CvePrePoliza").ToString.ToEntero
        Dim CveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
        Dim CveUsuario As Integer = context.Request("CveUsuario").ToString.ToEntero
        Dim Empresa As New Empresa

        Dim Retorno As Integer = 0

        Dim ObjEmpresa As New ClsSisEmpresas()
        If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
            Empresa = ObjEmpresa.Empresa
        End If
        ObjEmpresa.Dispose()
        Dim IdPoliza As Integer = -1

        Dim ObjConta As New ClsContabilidad
        Try
            ObjConta.GetPrePoliza(CvePrePoliza, CveEmpresa)
            IdPoliza = ObjConta.DtResultados.FiltroPrimeroValor("IdPoliza", "").ToEntero
            If IdPoliza > 0 Then
                ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
            End If

            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, CveUsuario, Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then
                Retorno = 200
            End If
        Catch ex As Exception
            GuardaLogAD(ex.ToString())
        End Try
        ObjConta.Dispose()

        Empresa = Nothing
        'context.Response.Write(CveUsuario.ToString())
        context.Response.StatusCode = Retorno
    End Sub

    Private Sub GetImg(ByVal context As HttpContext)
        Dim Url As String = Decripta(context.Request("r").ToString)

        Dim usuario As Usuario = UsuarioActual(context)
        If Not IsNothing(usuario) Then
            Url = String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, usuario.CveEmpresa, Url)
            Dim FileInfo As FileInfo = New FileInfo(Url)
            If FileInfo.Exists Then
                context.Response.ContentType = "image/png"
                context.Response.Flush()
                context.Response.WriteFile(FileInfo.FullName)
                context.Response.End()
            End If
            FileInfo = Nothing
            Url = ""
        End If
    End Sub

#Region "File"

    Private Sub Downfile(ByVal context As HttpContext)
        Dim savepath As String = ""
        Dim tempPath As String = ""
        tempPath = String.Format("{0}{1}", System.Configuration.ConfigurationManager.AppSettings("FolderPath"), "/Temp")
        savepath = context.Server.MapPath(tempPath)
        Dim nombre As String = String.Format("{0}\{1}", savepath, context.Request("nombre"))
        File.Delete(nombre)
        tempPath = ""
        savepath = ""
        context.Response.StatusCode = 200
    End Sub

    Private Sub uploadfile(ByVal context As HttpContext)
        Dim postedFile As HttpPostedFile
        Dim savepath As String = ""
        Dim tempPath As String = ""
        tempPath = String.Format("{0}{1}", System.Configuration.ConfigurationManager.AppSettings("FolderPath"), "/Temp")
        savepath = context.Server.MapPath(tempPath)
        Dim filename As String
        Dim tick As String
        tick = (ClsPaginas.NowADS().Ticks + 1).ToString()
        If Not Directory.Exists(savepath) Then
            Directory.CreateDirectory(savepath)
        End If
        If context.Request.Files.Count = 0 Then
            Dim copyFile As String = context.Request("File")
            Dim Cve As String = context.Request("Cve")

            If copyFile <> "" Then
                Dim ext As Integer = copyFile.IndexOf(","c) + 1

                Dim extension As String = copyFile.Substring(5, ext - 5)
                If extension.Contains("image/") Then extension = extension.Replace("image/", "").Replace(";base64,", "")
                'Dim extncion As String =
                filename = String.Format("{0}-{1}.{2}", tick, Cve, extension)

                Dim msf As New MemoryStream(Convert.FromBase64String(copyFile.Substring(ext)))
                Dim stem As Stream = New FileStream(String.Format("{0}\{1}", savepath, filename), FileMode.Create)
                msf.WriteTo(stem)
                msf.Close()
                stem.Close()
                msf.Dispose()
                stem.Dispose()

            End If
        Else

            postedFile = context.Request.Files(0)
            filename = String.Format("{0}-{1}", tick, postedFile.FileName)

            postedFile.SaveAs(String.Format("{0}\{1}", savepath, filename))
        End If
        context.Response.Write(tick)
        context.Response.StatusCode = 200
        savepath = ""
        tempPath = "" : filename = ""
        postedFile = Nothing
    End Sub
#End Region


    Private Shared Function sendURL(ByVal URL As String, Optional Methodo As String = "POST", Optional Cookie As String = "", Optional maxTimeMilliseconds As Integer = 120000) As String
        Dim resultado As String = ""

        Try
            Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
            request.Timeout = maxTimeMilliseconds
            request.Method = Methodo
            request.ContentType = "text/html; charset=utf-8" '"text/xml; charset=utf-8"

            If Not String.IsNullOrEmpty(Cookie) Then
                request.Headers.Add("Cookie", Cookie)
            End If

            'Using stream As IO.Stream = request.GetRequestStream()

            '    Using stmw As IO.StreamWriter = New IO.StreamWriter(stream)
            '        stmw.Write("")
            '    End Using
            'End Using

            Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
            Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
            resultado = sr.ReadToEnd()
            sr.Close()
        Catch ex As Exception
            ex.ToString().GuardaLog()
        End Try

        Return resultado
    End Function

    Public Shared Function GettingCURP(ByVal Curp As String, year As Integer) As String
        Dim abc As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        Dim numeric01 As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
        Dim rule1 As String() = If(year < 2000, numeric01, abc)
        Dim curpresult As String = ""
        Dim i As Integer = 0
        While curpresult.Length = 0 AndAlso i < rule1.Length
            Dim z As Integer = 0
            While curpresult.Length = 0 AndAlso z < numeric01.Length
                curpresult = String.Format("{0}{1}{2}", Curp, rule1(i), numeric01(z))
                Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", curpresult), "GET")

                Dim trlines As New List(Of String)
                Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)

                Dim indexttr As Integer = 0
                Dim indexttrB As Integer = 0
                Dim indexttd As Integer = 0
                Dim indextdiv As Integer = 0
                Dim indexinittext As Integer = 0
                While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
                    indexttr = respuesta.IndexOf("<tr")
                    If indexttr >= 0 Then
                        indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
                        If indexttrB >= 0 Then
                            trlines.Add(respuesta.Substring(indexttr, indexttrB))
                        Else
                            trlines.Add(respuesta.Substring(indexttr))

                        End If
                        respuesta = respuesta.Substring(indexttr + 3)
                    Else
                        respuesta = ""
                    End If

                End While

                Dim key As String = ""
                Dim keyvalue As String = ""
                For Each item As String In trlines
                    key = ""
                    keyvalue = ""
                    indexttd = item.IndexOf("<td")
                    indextdiv = item.IndexOf("<div")
                    If indextdiv >= 0 Then
                        indexttr = indextdiv
                        indexttrB = item.IndexOf("</div")
                    Else
                        indexttr = indexttd
                        indexttrB = item.IndexOf("</td")
                    End If
                    If indexttr >= 0 Then
                        indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                        key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                        item = item.Substring(indexttrB + 3)
                    Else
                        item = ""
                    End If

                    If item.Length > 0 Then

                        indexttd = item.IndexOf("<td")
                        indextdiv = item.IndexOf("<div")
                        If indextdiv >= 0 Then
                            indexttr = indextdiv
                            indexttrB = item.IndexOf("</div")
                        Else
                            indexttr = indexttd
                            indexttrB = item.IndexOf("</td")
                        End If
                        If indexttr >= 0 Then
                            indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                            keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                            item = item.Substring(indexttr + 3)
                        Else
                            item = ""
                        End If

                    End If
                    If key.Length > 0 Then
                        keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
                    End If
                Next
                Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
                Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
                Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
                If Nombres Is Nothing OrElse Nombres.Length = 0 Then
                    curpresult = ""
                End If
                System.Threading.Thread.Sleep(100)
                z = z + 1
            End While
            i = i + 1
        End While
        Return curpresult
    End Function


    Public Shared Function ValidaCURP(ByVal Curp As String) As String

        Dim respuesta As String = sendURL(String.Format("http://www.renapo.sep.gob.mx/wsrenapo/MainControllerParam?curp={0}", Curp), "GET")

        Dim trlines As New List(Of String)
        Dim keydict As New System.Collections.Concurrent.ConcurrentDictionary(Of String, String)

        Dim indexttr As Integer = 0
        Dim indexttrB As Integer = 0
        Dim indexttd As Integer = 0
        Dim indextdiv As Integer = 0
        Dim indexinittext As Integer = 0
        While Not IsNothing(respuesta) AndAlso respuesta.Length > 0
            indexttr = respuesta.IndexOf("<tr")
            If indexttr >= 0 Then
                indexttrB = respuesta.Substring(indexttr + 3).IndexOf("<tr")
                If indexttrB >= 0 Then
                    trlines.Add(respuesta.Substring(indexttr, indexttrB))
                Else
                    trlines.Add(respuesta.Substring(indexttr))

                End If
                respuesta = respuesta.Substring(indexttr + 3)
            Else
                respuesta = ""
            End If

        End While

        Dim key As String = ""
        Dim keyvalue As String = ""
        For Each item As String In trlines
            key = ""
            keyvalue = ""
            indexttd = item.IndexOf("<td")
            indextdiv = item.IndexOf("<div")
            If indextdiv >= 0 Then
                indexttr = indextdiv
                indexttrB = item.IndexOf("</div")
            Else
                indexttr = indexttd
                indexttrB = item.IndexOf("</td")
            End If
            If indexttr >= 0 Then
                indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                key = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                item = item.Substring(indexttrB + 3)
            Else
                item = ""
            End If

            If item.Length > 0 Then

                indexttd = item.IndexOf("<td")
                indextdiv = item.IndexOf("<div")
                If indextdiv >= 0 Then
                    indexttr = indextdiv
                    indexttrB = item.IndexOf("</div")
                Else
                    indexttr = indexttd
                    indexttrB = item.IndexOf("</td")
                End If
                If indexttr >= 0 Then
                    indexinittext = item.Substring(indexttr + 3).IndexOf(">")
                    keyvalue = item.Substring(indexinittext + indexttr + 4, (indexttrB - (indexinittext + indexttr + 4)))

                    item = item.Substring(indexttr + 3)
                Else
                    item = ""
                End If

            End If
            If key.Length > 0 Then
                keydict.TryAdd(key.Replace(":", "").Trim(), keyvalue.Trim().ToLower())
            End If
        Next
        Dim Apellido1 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
        Dim Apellido2 As String = "" : keydict.TryGetValue("Apellido1", Apellido1)
        Dim Nombres As String = "" : keydict.TryGetValue("Nombres", Nombres)
        If Nombres Is Nothing OrElse Nombres.Length = 0 Then
            Curp = ""
        End If

        Return Curp
    End Function
#Region "Get Cliente"
    Private Function GetClientes(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtRetorno As DataTable = Nothing
        Dim ColumnaNombre As String = "NombreComercial"
        'Abreviaturas. N. Nombre, NC. NombreComercial,...
        If context.Request("ColTexto") IsNot Nothing AndAlso context.Request("ColTexto").Contiene("N", "CodigoNombre") Then
            ColumnaNombre = If(context.Request("ColTexto") = "N", "Nombre", context.Request("ColTexto"))
        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
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim Name = IfNull(context.Request("Name"), "-1").ToString

            Dim dt As DataTable = ClsPaginas.GlobalDTCliente(CveEmpresa)
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                If EsDistribuidor <> -1 Then
                    dt = dt.FiltraParametros(String.Format("EsDistribuidor = {0} ", CBool(EsDistribuidor)))
                End If

                DtRetorno = dt.FiltraParametros(String.Format("NombreComercial like '%{0}%' OR Nombre like  '%{0}%'  ", Name))
                dt.Dispose()
            End If

        End If

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            Dim i As Integer = 0 'limpieza de columnas
            While i < DtRetorno.Columns.Count
                If Not DtRetorno.Columns(i).ColumnName.Contiene("CveCliente", ColumnaNombre) Then
                    DtRetorno.Columns.RemoveAt(i)
                Else
                    i = i + 1
                End If
            End While

            DtRetorno.Columns("CveCliente").ColumnName = "id"
            DtRetorno.Columns(ColumnaNombre).ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If
        DtRetorno.Dispose()
        DtRetorno = Nothing

        Return retorno
    End Function
#End Region

#Region "Get Proveedor"
    Private Function GetProveedores(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtRetorno As DataTable = Nothing

        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim Name = IfNull(context.Request("Name"), "-1").ToString

            Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa)
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                DtRetorno = dt.FiltraParametros(String.Format("NombreCortoProveedor like  '%{0}%'", Name))
            End If
            dt.Dispose()
        End If

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            Dim i As Integer = 0 'limpieza de columnas
            While i < DtRetorno.Columns.Count
                If Not DtRetorno.Columns(i).ColumnName.Contiene("CveProveedor", "NombreCortoProveedor") Then
                    DtRetorno.Columns.RemoveAt(i)
                Else
                    i = i + 1
                End If
            End While

            DtRetorno.Columns("CveProveedor").ColumnName = "id"
            DtRetorno.Columns("NombreCortoProveedor").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            context.Response.Write(retorno)
            DtRetorno.Dispose()
            DtRetorno = Nothing
        Else
            context.Response.Write("[]")
        End If

        Return retorno
    End Function
#End Region


#Region "  GET PS  "
    Private Function getpsalmacen(ByVal context As HttpContext) As String

        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        Dim retorno As String = ""
        Dim DtPSRetorno As DataTable = Nothing

        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa

            DtPSRetorno = New DataTable
            DtPSRetorno.Columns.Add(New DataColumn("id", System.Type.GetType("System.Int32")))
            DtPSRetorno.Columns.Add(New DataColumn("existencia", System.Type.GetType("System.Int32")))
            DtPSRetorno.Columns.Add(New DataColumn("almacen", System.Type.GetType("System.String")))

            Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero
            Dim objInv As New ClsInventarios
            If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then

                ' limpio los almacenes donde no tiene ningun producto existencia
                For i As Integer = objInv.DtResultados.Columns.Count - 1 To 1 Step -1

                    If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CveAlmacen", "Almacen", "Existencia") Then
                        objInv.DtResultados.Columns.RemoveAt(i)
                    End If
                Next

                DtPSRetorno = objInv.DtResultados.FiltraParametros("CveAlmacen > 0 and Existencia > 0")
            End If

            objInv.Dispose()

        End If

        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
            DtPSRetorno.Columns("CveAlmacen").ColumnName = "id"
            DtPSRetorno.Columns("Almacen").ColumnName = "almacen"
            DtPSRetorno.Columns("Existencia").ColumnName = "existencia"
            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If
        DtPSRetorno.Dispose()

        Return retorno
    End Function

    Private Function GETPS(ByVal context As HttpContext, Optional PSCodigoDescripcion As String = "PSCodigo") As String
        Dim retorno As String = ""
        Dim DtPSRetorno As DataTable = Nothing

        'NOTA:
        '       EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO', 
        '       EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS
        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim FuePorXml = IfNull(context.Request("FuePorXml"), "-1").ToString.ToEntero
            Dim Name = IfNull(context.Request("Name"), "-1").ToString
            Dim CveClasificacion = IfNull(context.Request("CveClasificacion"), "-1").ToString.ToEntero
            Dim CveSubFamilia = IfNull(context.Request("CveSubFamilia"), "-1").ToString.ToEntero
            Dim CveClasificacionPresupuesto = IfNull(context.Request("CveClasificacionPresupuesto"), "-1").ToString.ToEntero
            Dim Pagina = IfNull(context.Request("Pagina"), "-1").ToString
            Dim Estatus = IfNull(context.Request("Estatus"), "1").ToString
            Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
            Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
            Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
            Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "1").ToString.ToEntero
            Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero

            Dim UsaGlobal As Boolean = True

            'verifica existencias
            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then
                UsaGlobal = False

                'If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then
                '    AplicaParaVenta = 1
                'End If

                Dim objInv As New ClsInventarios
                If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then

                    ' limpio los almacenes donde no tiene ningun producto existencia

                    Dim i As Integer = 0
                    While i < objInv.DtResultados.Columns.Count

                        If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
                            objInv.DtResultados.Columns.RemoveAt(i)
                        Else
                            i = i + 1
                        End If
                    End While

                    DtPSRetorno = objInv.DtResultados

                End If

                objInv.Dispose()

            End If

            If usuario.Empresa.Funcionalidad(558) = "1" AndAlso DtPSRetorno IsNot Nothing Then
                Try
                    Dim NombreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName
                    DtPSRetorno = DtPSRetorno.FiltraParametros("", String.Format("{0} DESC,PSCodigo", NombreFiltroColumna))
                Catch ex As Exception
                End Try

            End If

            If UsaGlobal Then
                'se recarga el global, y el clspaginas, son los unicos 2 lugares
                'Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
                'If context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)) Is Nothing Then
                '    Dim ObjPS As New ClsProductosServicios
                '    If ObjPS.GetPSSimplificado(CveEmpresa) Then context.Application(AppNombre) = ObjPS.DtResultados.AsEnumerable()
                '    ObjPS.Dispose()

                'End If


                'Dim DTPS = DirectCast(context.Application(AppNombre), EnumerableRowCollection(Of DataRow))
                Dim DTPS = ClsPaginas.GlobalDTPSSimplificado(CveEmpresa).AsEnumerable

                If DTPS IsNot Nothing Then


                    'APLICACION DE FILTROS
                    DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
                    If Estatus = "1" Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
                    ElseIf Estatus = "-1" Then

                    End If

                    'If FuePorXml >= 0 Then
                    '    DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!FuePorXML) = FuePorXml))
                    'End If
                    Name = Name.REPLACE(" ", "*")
                    If Name <> "-1" Then
                        If PSCodigoDescripcion = "PSCodigo" Then
                            DTPS = DTPS.Where((Function(a) a!PSCodigo.ToString.ToLower Like ("*" + Name.ToLower + "*")))
                        Else
                            DTPS = DTPS.Where((Function(a) a!PSCodigoClasificacion.ToString.ToLower Like ("*" + Name.ToLower + "*")))
                        End If
                    End If

                    If CveClasificacion > 0 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
                    ElseIf CveClasificacion = -1 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacion) >= 0))
                    End If

                    If AplicaParaVenta > 0 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = 1))
                    End If

                    'If CveSubFamilia > 0 Then
                    '    DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveSubFamilia) = CveSubFamilia))
                    '    'ElseIf CveSubFamilia = -1 Then
                    '    'DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveSubFamilia) > 0))
                    'End If

                    If CveClasificacionPresupuesto > 0 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacionPresupuesto) = CveClasificacionPresupuesto))
                    End If

                    If UsoClasificacion > 0 Then DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!UsoClasificacion) = UsoClasificacion))

                    If Pagina <> "-1" Then
                        If Pagina = "Compras" Then
                            DTPS = DTPS.Where((Function(a) a!CveTipoPS = 1 AndAlso a!CveEstado = 1))
                        ElseIf Pagina = "Compras2" Then
                            DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = 1 AndAlso (Convert.ToInt32(a!CveEstado) = 1 OrElse Convert.ToInt32(a!CveEstado) = 2)))
                        ElseIf Pagina = "Inventarios" Then
                            DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = 2))
                        End If
                    End If

                    'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable 
                    Try
                        DtPSRetorno = New DataView(DTPS.OrderBy(Function(a) a!PSCodigo).CopyToDataTable).ToTable(True, {"CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion"})
                    Catch ex As Exception
                        DtPSRetorno = Nothing
                    End Try

                End If
                DTPS = Nothing
            End If

            If (usuario.TienePermisoProceso(300) Or usuario.TienePermisoProceso(301)) And (DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0) Then

                Dim ObjClasificaciones As New ClsClasificaciones()
                Dim DTClasificacionesComprobaciones As DataTable

                Dim DTTmp As DataTable = DtPSRetorno.Clone


                If ObjClasificaciones.GetClasificacionesComprobaciones(usuario.CveEmpresa) Then

                    If usuario.TienePermisoProceso(300) And usuario.TienePermisoProceso(301) Then
                        DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados
                    ElseIf usuario.TienePermisoProceso(300) Then  'TipoComprobacion 1 Viaticos
                        DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 1")
                    Else 'TipoComprobacion 2 caja chica
                        DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 2")
                    End If

                    For Each pRow As DataRow In DtPSRetorno.Rows

                        For Each drow As DataRow In DTClasificacionesComprobaciones.Rows
                            If pRow("CveClasificacion").ToString.ToEntero = drow("CveClasificacion").ToString.ToEntero Then

                                Dim nRow As DataRow = DTTmp.NewRow
                                nRow("CvePS") = pRow("CvePS")
                                nRow("PSCodigo") = pRow("PSCodigo")
                                nRow("PSCodigoClasificacion") = pRow("PSCodigoClasificacion")
                                nRow("CveClasificacion") = pRow("CveClasificacion")
                                DTTmp.Rows.Add(nRow)


                            End If
                        Next

                    Next

                    DtPSRetorno = DTTmp.Copy

                Else
                    'no regresar datos error al consultar
                    DtPSRetorno.Clear()
                End If
                DTTmp.Dispose()
                ObjClasificaciones.Dispose()

            End If

            If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then

                DtPSRetorno.Columns("CvePS").ColumnName = "id"
                DtPSRetorno.Columns(PSCodigoDescripcion).ColumnName = "text"
                If PSCodigoDescripcion = "PSCodigo" Then
                    DtPSRetorno.Columns().Remove("PSCodigoClasificacion")
                Else
                    DtPSRetorno.Columns().Remove("PSCodigo")
                End If

                retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
                context.Response.Write(retorno)
                DtPSRetorno.Dispose()
                DtPSRetorno = Nothing
            Else
                context.Response.Write("[]")
            End If

        End If

        Return retorno
    End Function
#End Region

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

#Region "Funciones"
    Public Function GetJson(ByVal dt As DataTable) As String
        Dim Retorno As String = ""
        Dim serializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer()
        Dim rows As New List(Of Dictionary(Of String, Object))
        Dim row As Dictionary(Of String, Object)

        For Each dr As DataRow In dt.Rows
            row = New Dictionary(Of String, Object)
            For Each col As DataColumn In dt.Columns
                row.Add(col.ColumnName, dr(col))
            Next
            rows.Add(row)
        Next
        If dt IsNot Nothing Then dt.Dispose()
        Retorno = serializer.Serialize(rows)
        rows = Nothing
        serializer = Nothing
        Return Retorno
    End Function
    ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
        Get
            UsuarioActual = DirectCast(context.Session("UsuarioSIG"), Usuario)
        End Get
    End Property
#End Region


#Region "  GET PS SAT  "
    Private Function GETPSSAT(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim DtPSRetorno As DataTable

        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        'DtPSRetorno = New DataView(DTPS.OrderBy(Function(a) a!SATClavePS).CopyToDataTable).ToTable(True, {"CveSATPS", "SATClaveProductoServicio"})
        DtPSRetorno = ClsPaginas.GlobalDTPSATPS(Name.ToLower)
        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
            DtPSRetorno.Columns("CveSATPS").ColumnName = "id"
            DtPSRetorno.Columns("SATClaveProductoServicio").ColumnName = "text"
            'limpia las columnas
            For Each dc As DataColumn In DtPSRetorno.Clone.Columns
                If Not dc.ColumnName.Contiene("id", "text") Then DtPSRetorno.Columns.Remove(dc.ColumnName)
            Next

            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If
        DtPSRetorno.Dispose()
        Return retorno
    End Function
#End Region


#Region "  GET UM SAT  "
    Private Function GETUMSAT(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim DTUM = ClsPaginas.GlobalDTPSATUM
        Dim DtPSRetorno As DataTable

        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        If Name <> "-1" Then
            DTUM = DTUM.Where((Function(a) a!ClaveNombre.ToString.ToLower Like ("*" + Name.ToLower + "*")))
        End If

        If DTUM.Count > 0 Then
            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!Nombre).CopyToDataTable).ToTable(True, {"CveUnidadMedidaSAT", "ClaveNombre"})
        Else
            DtPSRetorno = Nothing
        End If

        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
            DtPSRetorno.Columns("CveUnidadMedidaSAT").ColumnName = "id"
            DtPSRetorno.Columns("ClaveNombre").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
            context.Response.Write(retorno)
            DtPSRetorno.Dispose()
        Else
            context.Response.Write("[]")
        End If
        Return retorno
    End Function
#End Region

#Region "  GET SAT  CARTA PORTE "
    Private Function GETSATMaterialPeligroso(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim DTUM = DirectCast(ClsPaginas.GlobalDTMaterialPeligroso, DataTable).AsEnumerable
        Dim DtPSRetorno As DataTable

        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        If Name <> "-1" Then
            DTUM = DTUM.Where((Function(a) a!ClaveMaterialPeligrosoDescripcion.ToString.ToLower Like ("*" + Name.ToLower + "*")))
        End If

        If DTUM.Count > 0 Then
            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!ClaveMaterialPeligrosoDescripcion).CopyToDataTable).ToTable(True, {"CveMaterialPeligroso", "ClaveMaterialPeligrosoDescripcion"})
        Else
            DtPSRetorno = Nothing
        End If

        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
            DtPSRetorno.Columns("CveMaterialPeligroso").ColumnName = "id"
            DtPSRetorno.Columns("ClaveMaterialPeligrosoDescripcion").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
            context.Response.Write(retorno)
            DtPSRetorno.Dispose()
        Else
            context.Response.Write("[]")
        End If
        Return retorno
    End Function

    Private Function GETSATEmbalajes(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim DTUM = DirectCast(ClsPaginas.GlobalDTEmbalajes, DataTable).AsEnumerable
        Dim DtPSRetorno As DataTable

        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        If Name <> "-1" Then
            DTUM = DTUM.Where((Function(a) a!ClaveEmbalajeDescripcion.ToString.ToLower Like ("*" + Name.ToLower + "*")))
        End If

        If DTUM.Count > 0 Then
            DtPSRetorno = New DataView(DTUM.OrderBy(Function(a) a!ClaveEmbalajeDescripcion).CopyToDataTable).ToTable(True, {"CveEmbalaje", "ClaveEmbalajeDescripcion"})
        Else
            DtPSRetorno = Nothing
        End If

        If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
            DtPSRetorno.Columns("CveEmbalaje").ColumnName = "id"
            DtPSRetorno.Columns("ClaveEmbalajeDescripcion").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
            context.Response.Write(retorno)
            DtPSRetorno.Dispose()
        Else
            context.Response.Write("[]")
        End If
        Return retorno
    End Function


#End Region

#Region "  GET FRACCION ARANCELARIA  "
    Private Function GetFraccionArancelaria(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim DT = ClsPaginas.GlobalDTFraccionArancelaria
        Dim DtRetorno As DataTable

        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        If Name <> "-1" Then
            DT = DT.Where((Function(a) a!ClaveSATFraccionArancelariaDescripcion.ToString.ToLower Like ($"*{Name.ToLower}*")))
        End If

        DtRetorno = New DataView(DT.OrderBy(Function(a) a!ClaveSATFraccionArancelaria).CopyToDataTable).ToTable(True, {"CveFraccionArancelaria", "ClaveSATFraccionArancelariaDescripcion"})

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            DtRetorno.Columns("CveFraccionArancelaria").ColumnName = "id"
            DtRetorno.Columns("ClaveSATFraccionArancelariaDescripcion").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If
        DtRetorno.Dispose()
        Return retorno
    End Function
#End Region


#Region "USADOS"

    Private Function GETPSUSADOS(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtPSRetorno As DataTable = Nothing

        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim FuePorXml = IfNull(context.Request("FuePorXml"), "-1").ToString.ToEntero
            Dim Name = IfNull(context.Request("Name"), "-1").ToString
            Dim CveClasificacion = IfNull(context.Request("CveClasificacion"), "-1").ToString.ToEntero
            Dim CveSubFamilia = IfNull(context.Request("CveSubFamilia"), "-1").ToString.ToEntero
            Dim CveClasificacionPresupuesto = IfNull(context.Request("CveClasificacionPresupuesto"), "-1").ToString.ToEntero
            Dim Pagina = IfNull(context.Request("Pagina"), "-1").ToString
            Dim Estatus = IfNull(context.Request("Estatus"), "1").ToString
            Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
            Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
            Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
            Dim UsaGlobal As Boolean = True


            If UsaGlobal Then

                Dim DTPS = DirectCast(context.Application(String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)), EnumerableRowCollection(Of DataRow))

                If DTPS IsNot Nothing Then

                    'APLICACION DE FILTROS
                    DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa))
                    If Estatus = "1" Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveEstado) = 1))
                    ElseIf Estatus = "-1" Then

                    End If

                    If Name <> "-1" Then
                        DTPS = DTPS.Where((Function(a) a!PSCodigo.ToString.ToLower Like ("*" + Name.ToLower + "*")))
                    End If

                    If CveClasificacion > 0 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion))
                    ElseIf CveClasificacion = -1 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacion) >= 0))
                    End If

                    If CveClasificacionPresupuesto > 0 Then
                        DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveClasificacionPresupuesto) = CveClasificacionPresupuesto))
                    End If

                    If UsoClasificacion > 0 Then DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!UsoClasificacion) = UsoClasificacion))

                    If Pagina <> "-1" Then
                        If Pagina = "Compras" Then
                            DTPS = DTPS.Where((Function(a) a!CveTipoPS = 1 AndAlso a!CveEstado = 1))
                        ElseIf Pagina = "Compras2" Then
                            DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = 1 AndAlso (Convert.ToInt32(a!CveEstado) = 1 OrElse Convert.ToInt32(a!CveEstado) = 2)))
                        ElseIf Pagina = "Inventarios" Then
                            DTPS = DTPS.Where((Function(a) Convert.ToInt32(a!CveTipoPS) = 2))
                        End If
                    End If

                    Try
                        DtPSRetorno = New DataView(DTPS.OrderBy(Function(a) a!PSCodigo).CopyToDataTable).ToTable(True, {"CvePS", "PSCodigo", "CveTamaño"})
                        DtPSRetorno = DtPSRetorno.FiltraParametros("CveTamaño > 0")
                    Catch ex As Exception
                        DtPSRetorno = Nothing
                    End Try
                    DTPS = Nothing

                End If

            End If
            If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
                DtPSRetorno.Columns("CvePS").ColumnName = "id"
                DtPSRetorno.Columns("PSCodigo").ColumnName = "text"
                retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
                DtPSRetorno.Dispose()
                context.Response.Write(retorno)
            Else
                context.Response.Write("[]")
            End If
        End If

        Return retorno
    End Function


#End Region


#Region "Get Personal"
    Private Function getpersonal(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtRetorno As DataTable = Nothing

        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim Name = IfNull(context.Request("Name"), "-1").ToString

            Dim dt As DataTable = ClsPaginas.GlobalDTRHPersonal(CveEmpresa)
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                DtRetorno = dt.FiltraParametros($"NombreCompleto like '%{Name}%'")
            End If
        End If

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            DtRetorno.Columns("CvePersonal").ColumnName = "id"
            DtRetorno.Columns("NombreCompleto").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            DtRetorno.Dispose()
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If

        Return retorno
    End Function
#End Region

    Private Function GetContaCuentas(ByVal context As HttpContext, Optional PSCodigoDescripcion As String = "PSCodigo") As String
        Dim retorno As String = ""
        Dim DtPSRetorno As DataTable = Nothing

        'NOTA:
        '       EN EL WHERE DE LINQ NO SE DEBE USAS EL OPERADOR 'AND' SABE PORQUE FUNCIONA DIFERENTE SE DEBE USAR 'ANDALSO', 
        '       EJEMPLO UNA CONDICION AND DE DOS CAMPOS ARROJA CERO RESULTADOS PERO SI SE PONE ESTAS DOS CONDICIONES POR SEPARADO ARROJA DATOS
        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim Afectable = IfNull(context.Request("Afectable"), "-1").ToString.ToEntero
            Dim Name = IfNull(context.Request("Name"), "-1").ToString.Replace(" ", "%")
            'Dim CveClasificacion = IfNull(context.Request("CveClasificacion"), "-1").ToString.ToEntero
            'Dim CveSubFamilia = IfNull(context.Request("CveSubFamilia"), "-1").ToString.ToEntero
            'Dim CveClasificacionPresupuesto = IfNull(context.Request("CveClasificacionPresupuesto"), "-1").ToString.ToEntero
            'Dim Pagina = IfNull(context.Request("Pagina"), "-1").ToString
            'Dim Estatus = IfNull(context.Request("Estatus"), "1").ToString
            'Dim CveSucursal = IfNull(context.Request("cvesucursal"), "-1").ToString.ToEntero
            'Dim CveSubProyecto = IfNull(context.Request("cvesubproyecto"), "-1").ToString.ToEntero
            'Dim UsoClasificacion = IfNull(context.Request("usoclasificacion"), "-1").ToString.ToEntero
            'Dim AplicaParaVenta = IfNull(context.Request("aplicaparaventa"), "1").ToString.ToEntero
            'Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero

            DtPSRetorno = ClsPaginas.GlobalDTContaCuentasContables(CveEmpresa, "-1", Afectable).FiltraParametros($"CuentaFormatoNombre like '%{Name}%'")




            If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then

                DtPSRetorno.Columns("CvePS").ColumnName = "id"
                DtPSRetorno.Columns(PSCodigoDescripcion).ColumnName = "text"
                If PSCodigoDescripcion = "PSCodigo" Then
                    DtPSRetorno.Columns().Remove("PSCodigoClasificacion")
                Else
                    DtPSRetorno.Columns().Remove("PSCodigo")
                End If

                retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
                context.Response.Write(retorno)
                DtPSRetorno.Dispose()
                DtPSRetorno = Nothing
            Else
                context.Response.Write("[]")
            End If

        End If

        Return retorno
    End Function

    Private Function GetFilesDirectory(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim urlhost As String = context.Request.Url.Host.ToUpper()
        If (urlhost = "LOCALHOST") Then
            Dim directorio As String = IfNull(context.Request("directorio"), "").ToString()

            Dim xmlarchivos As System.Xml.Linq.XDocument = New System.Xml.Linq.XDocument()
            Dim xfolder As XElement = New XElement("folder")
            For Each urfile As String In System.IO.Directory.GetFiles(directorio)
                Dim xfile As New XElement("archivo", "")
                xfile.SetAttributeValue("EXT", Path.GetExtension(urfile))
                xfile.SetAttributeValue("urlfile", urfile)
                xfolder.Add(xfile)
                Dim fecha As String = ""
                Dim uuid As String = ""
                If Path.GetExtension(urfile).ToUpper() = ".XML" Then
                    fecha = ""
                    uuid = ""
                    Dim settings As System.Xml.XmlReaderSettings = New System.Xml.XmlReaderSettings()
                    settings.ConformanceLevel = System.Xml.ConformanceLevel.Fragment
                    settings.IgnoreWhitespace = True
                    settings.IgnoreComments = True
                    Using xtr As System.Xml.XmlReader = System.Xml.XmlReader.Create(urfile, settings)
                        Dim canread As Boolean = True
                        Dim keyComprobante As String = "cfdi:Comprobante"
                        Dim keyCfdiRelacionados As String = "cfdi:CfdiRelacionados"
                        Dim keyEmisor As String = "cfdi:Emisor"
                        Dim keyReceptor As String = "cfdi:Receptor"
                        Dim keyConceptos As String = "cfdi:Conceptos"
                        Dim keyImpuestos As String = "cfdi:Impuestos"
                        Dim keyComplemento As String = "cfdi:Complemento"
                        xtr.Read()

                        While xtr.Read()
                            If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.Name = keyComprobante Then

                                Dim Nivel As Integer = xtr.Depth
                                Dim cont As Boolean = xtr.MoveToFirstAttribute()
                                While cont

                                    Select Case xtr.Name.ToUpper()
                                        Case "XMLNS:CFDI"
                                        'xmlCFDI.comprobante.xmlns_cfdi = xtr.Value
                                        Case "XMLNS:XSI"
                                        'xmlCFDI.comprobante.xmlns_xsi = xtr.Value
                                        Case "FECHA"
                                            fecha = xtr.Value

                                    End Select

                                    cont = xtr.MoveToNextAttribute()
                                End While

                                cont = xtr.MoveToFirstAttribute()
                                While xtr.Read() AndAlso xtr.NodeType <> System.Xml.XmlNodeType.Element
                                End While
                            End If



                            If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.Name = keyComplemento Then
                                Dim cDepth As Integer = xtr.Depth
                                While xtr.Read() AndAlso xtr.NodeType <> System.Xml.XmlNodeType.Element
                                End While

                                While xtr.Read() AndAlso xtr.Depth > cDepth

                                    If xtr.NodeType = System.Xml.XmlNodeType.Element AndAlso xtr.LocalName = "TimbreFiscalDigital" Then
                                        'xmlCFDI.complemento.xmlns_tfd = xtr.GetAttribute("xmlns:tfd")
                                        'xmlCFDI.complemento.xsi_schemaLocation = xtr.GetAttribute("xsi:schemaLocation")
                                        'xmlCFDI.complemento.Version = xtr.GetAttribute("Version")
                                        uuid = xtr.GetAttribute("UUID")
                                        'xmlCFDI.complemento.FechaTimbrado = xtr.GetAttribute("FechaTimbrado")
                                        'xmlCFDI.complemento.RfcProvCertif = xtr.GetAttribute("RfcProvCertif")
                                        'xmlCFDI.complemento.SelloCFD = If((xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0"), xtr.GetAttribute("SelloCFD"), xtr.GetAttribute("selloCFD"))
                                        'xmlCFDI.complemento.NoCertificadoSAT = If(xmlCFDI.comprobante.Version = "3.3", xtr.GetAttribute("NoCertificadoSAT"), xtr.GetAttribute("noCertificadoSAT"))
                                        'xmlCFDI.complemento.SelloSAT = If((xmlCFDI.comprobante.Version = "3.3" OrElse xmlCFDI.comprobante.Version = "4.0"), xtr.GetAttribute("SelloSAT"), xtr.GetAttribute("selloSAT"))
                                    End If


                                End While
                            End If
                        End While
                        xtr.Close()

                    End Using
                    If (System.IO.File.Exists(urfile)) Then
                        Dim fechita As DateTime = fecha.ToDateTime()

                        Dim direct As String = $"C:\Users\caudi\Desktop\Nueva carpeta\APH20210302\{fechita:yyyyMMdd}\"

                        If Not System.IO.Directory.Exists(direct) Then
                            System.IO.Directory.CreateDirectory(direct)
                        End If
                        Dim fileurl As String = $"{direct}{Path.GetFileName(urfile)}"
                        If uuid.Length > 0 Then
                            fileurl = $"{direct}{uuid}{Path.GetExtension(urfile)}"
                        End If
                        System.IO.File.Move(urfile, fileurl)
                        Dim x = ""

                    End If

                End If

            Next
            xmlarchivos.Add(xfolder)
            retorno = xmlarchivos.ToString()
            context.Response.ContentType = "application/xml"
            context.Response.Write(retorno)
            context.Response.StatusCode = 200
        Else
            context.Response.StatusCode = 500
        End If
        Return retorno
    End Function

#Region "Get SAT Colonmias"
    Private Function getSATColonias(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtRetorno As DataTable = Nothing
        Dim Name = IfNull(context.Request("Name"), "-1").ToString

        Dim dt As DataTable = ClsPaginas.GlobalDTGralColonias("-1", "-1", "-1")
        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
            DtRetorno = dt.FiltraParametros($"ClaveSATColoniaCP like '%{Name}%'")
        End If

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            DtRetorno.Columns("CveColonia").ColumnName = "id"
            DtRetorno.Columns("ClaveSATColoniaCP").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            DtRetorno.Dispose()
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If

        Return retorno
    End Function
#End Region

#Region "Get Contratos"
    Private Function GetContratos(ByVal context As HttpContext) As String
        Dim retorno As String = ""
        Dim DtRetorno As DataTable = Nothing

        Dim usuario As Usuario = UsuarioActual(context)
        Dim CveEmpresa As Integer
        If IsNothing(usuario) Then
            context.Response.Write("")
        Else
            CveEmpresa = usuario.CveEmpresa
            Dim Name = IfNull(context.Request("Name"), "-1").ToString

            Dim dt As DataTable = ClsPaginas.GlobalDTContratos(CveEmpresa)
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                DtRetorno = dt.FiltraParametros(String.Format("NumeroContrato like '%{0}%'", Name))
            End If
            dt.Dispose()
        End If

        If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
            DtRetorno.Columns("CveContrato").ColumnName = "id"
            DtRetorno.Columns("NumeroContrato").ColumnName = "text"
            retorno = JsonConvert.SerializeObject(DtRetorno).ToString
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If

        DtRetorno.Dispose()
        Return retorno
    End Function
#End Region

#Region "C A N C E L A R  -  R E M I S I O N"
    Private Function cancelarRemision(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim CveVenta As Integer = IfNull(context.Request("CveVenta"), "-1").ToString().ToEntero()

        If CveVenta > 0 Then
            Dim usuario As Usuario = UsuarioActual(context)
            If usuario IsNot Nothing AndAlso usuario.CveEmpresa > 0 Then
                Dim CveAlmacenDevolucion As Integer = 0

                Using ObjInv As New ClsInventarios
                    If ObjInv.GetInv_Mov(CveVenta, usuario.CveEmpresa) Then
                        If ObjInv.DtResultados.Rows.Count > 0 Then
                            CveAlmacenDevolucion = ObjInv.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveConcepto IN (3,40)").ToEntero()
                        End If
                    End If
                End Using

                Dim ObjFacturaCancelacion As New Modelos.Factura(usuario, CveVenta, usuario.CveEmpresa, EsCancelacion:=True)
                ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion

                If ObjFacturaCancelacion.TipoDocto = "Rem" Then
                    Dim respuesta = ObjFacturaCancelacion.CancelarFactura(True, New List(Of Integer))
                    If respuesta IsNot Nothing Then
                        retorno = JsonConvert.SerializeObject(respuesta)
                    End If
                End If

            End If

        End If

        If Not String.IsNullOrEmpty(retorno) Then
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If

        Return retorno
    End Function
#End Region
    Private Function RemoveMovimiento(ByVal context As HttpContext) As String
        Dim retorno As String = ""

        Dim Borrar As Boolean = False
        Dim Inv As New ClsInventarios
        Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
        Dim ObjGral As New ClsGenerales(Inv.IniciaTransacSQL())

        Dim CveMovimiento As Integer = IfNull(context.Request("CveMovimiento"), "-1").ToString().ToEntero()
        Dim CveEmpresa As Integer = IfNull(context.Request("CveEmpresa"), "-1").ToString().ToEntero()

        Dim TieneError = False

        CveMovimiento.ToString.GuardaLog
        'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
        '    TieneError = True
        'End If
        Dim CveUsuarioEliminoMovimiento As Integer = 100

        Try
            Dim usuario As Usuario = UsuarioActual(context)
            CveUsuarioEliminoMovimiento = If(usuario.CveUsuario > 0, usuario.CveUsuario, 100)
        Catch ex As Exception

        End Try



        If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa, CveUsuarioEliminoMovimiento) Then

            TieneError = True
        End If

        'If Not TieneError Then
        '    If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
        '        TieneError = True
        '    End If
        'End If

        If Not TieneError Then
            'If ObjConta IsNot Nothing Then ObjConta.Commit()
            Inv.Commit()


        Else
            Inv.RollBack()

            Alert("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If
        CveMovimiento = 0

        Inv.Dispose()
        ObjGral.Dispose()
        Conta.Dispose()
        If Not String.IsNullOrEmpty(retorno) Then
            context.Response.Write(retorno)
        Else
            context.Response.Write("[]")
        End If

        Return retorno
    End Function



End Class