Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
249
Ashx/TareasProgramadas.ashx
Normal file
249
Ashx/TareasProgramadas.ashx
Normal file
@@ -0,0 +1,249 @@
|
||||
<%@ WebHandler Language="VB" Class="TareasProgramadas" %>
|
||||
|
||||
Imports System
|
||||
Imports System.Web
|
||||
Imports System.Data
|
||||
Imports Newtonsoft.Json
|
||||
Imports Extensiones
|
||||
Imports System.IO
|
||||
|
||||
Public Class TareasProgramadas : Implements IHttpHandler
|
||||
|
||||
Private currentcontext As HttpContext
|
||||
Private URLParametros As New Hashtable
|
||||
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
||||
context.Response.ContentType = "text/plain"
|
||||
currentcontext = context
|
||||
'timbrarNominab()
|
||||
Dim retorno As String = "no se encontro la variable"
|
||||
Try
|
||||
URLParametros = Parametros(context.Request("var"))
|
||||
Dim metodo As String = URLParametros("metodo")
|
||||
Select Case metodo
|
||||
Case "TimbrarNomina"
|
||||
retorno = "Error Timbrado Nomina"
|
||||
retorno = timbrarNomina()
|
||||
retorno = ""
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
ex.GuardaLog(ex.ToString())
|
||||
End Try
|
||||
context.Response.Write(retorno)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub timbrarNominab()
|
||||
Dim cveEmpresa As String = "5"
|
||||
|
||||
|
||||
Dim Dv As New DataView(DirectCast(currentcontext.Application("GlobalDTUsuarios"), DataTable), $"CveUsuario = 100 AND CveEmpresa ={cveEmpresa}", "", DataViewRowState.CurrentRows)
|
||||
Dim GlobalDTUsuarios As DataTable = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
Dim usuario As Usuario = Nothing
|
||||
'Dim UsuarioAsignaciones As Usuario
|
||||
|
||||
|
||||
If GlobalDTUsuarios.Rows.Count > 0 Then
|
||||
Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
|
||||
Dim ObjUsuario As New ClsSisUsuarios
|
||||
usuario = ObjUsuario.ValidaUsuario(dtrow("Usuario"), dtrow("Contraseña"), IMEI, cveEmpresa)
|
||||
ObjUsuario.Dispose()
|
||||
|
||||
Dim ObjEmpresa As New ClsSisEmpresas()
|
||||
If ObjEmpresa.GetEmpresas(cveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
If ObjEmpresa.GetEmpresasFuncionalidades(cveEmpresa) Then
|
||||
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
||||
|
||||
Dim EmpresasFuncionalidades As New HybridDictionary
|
||||
For Each Row As Data.DataRow In dttmp.Rows
|
||||
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
||||
Next
|
||||
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
||||
|
||||
End If
|
||||
|
||||
usuario.Empresa = ObjEmpresa.Empresa
|
||||
usuario.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
|
||||
|
||||
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
|
||||
Else
|
||||
End If
|
||||
ObjEmpresa.Dispose()
|
||||
|
||||
Dim StrErrores As New StringBuilder
|
||||
Dim Msg As String = String.Empty
|
||||
Dim CvePeriodo As Integer
|
||||
Dim CveNomina As Integer
|
||||
Dim CvePersonal As Integer
|
||||
|
||||
Dim SerieFolio As String
|
||||
Dim DtNominas As New DataTable
|
||||
Dim objnom As New ClsNominas
|
||||
objnom.GetNom_porTimbrar(usuario.CveEmpresa)
|
||||
DtNominas = objnom.DtResultados
|
||||
'DtNominas = New DataTable
|
||||
Dim noCiclos As Integer = 0
|
||||
Dim noTotal As Integer = DtNominas.Rows.Count
|
||||
|
||||
Dim lognom As New LogicNominas
|
||||
For Each Row As DataRow In DtNominas.Rows
|
||||
'If noCiclos < 4 Then
|
||||
noCiclos = noCiclos + 1
|
||||
CveNomina = Row("CveNomina").ToString().ToEntero()
|
||||
CvePersonal = Row("CvePersonal").ToString().ToEntero()
|
||||
|
||||
SerieFolio = Row("SerieFolio").ToString()
|
||||
|
||||
CvePeriodo = Row("CvePeriodo").ToString.ToEntero
|
||||
|
||||
If CveNomina > 0 Then
|
||||
|
||||
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, usuario)
|
||||
|
||||
If Msg.Trim <> String.Empty Then StrErrores.Append(Msg & "<br />")
|
||||
End If
|
||||
'Else
|
||||
' Exit For
|
||||
'End If
|
||||
Next
|
||||
GC.Collect()
|
||||
StrErrores.ToString().GuardaLog()
|
||||
|
||||
If StrErrores.ToString().Length > 0 And CvePeriodo > 0 Then
|
||||
Dim ObjPeriodo As New ClsNominas()
|
||||
ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, enumNominasEstatus.Timbrada, usuario.CveUsuario, usuario.CveEmpresa)
|
||||
ObjPeriodo.Dispose()
|
||||
'EnvioMasivoCorreo()
|
||||
'Dim temp As String = DdlPeriodo.SelectedValue
|
||||
'CargaPeriodos()
|
||||
'BtnEmitir.Visible = False
|
||||
'DdlPeriodo.SelectedValue = temp
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Function GetUsuario(CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional username As String = "", Optional pass As String = "") As Usuario
|
||||
Dim usuario As Usuario = Nothing
|
||||
#Region "Valido que los campos usuario contraseña no sean nulos"
|
||||
|
||||
If IsNothing(username) Then
|
||||
username = ""
|
||||
End If
|
||||
If IsNothing(pass) Then
|
||||
pass = ""
|
||||
End If
|
||||
#End Region
|
||||
#Region "Si el CveUsuario es mayor que cero asigno el username y pass la de la CveUsuario"
|
||||
|
||||
If CveUsuario > 0 Then
|
||||
Using Dv As New DataView(DirectCast(currentcontext.Application("GlobalDTUsuarios"), DataTable), $"CveUsuario = 100 AND CveEmpresa ={CveEmpresa}", "", DataViewRowState.CurrentRows)
|
||||
Using GlobalDTUsuarios As DataTable = Dv.ToTable()
|
||||
If GlobalDTUsuarios.Rows.Count > 0 Then
|
||||
Dim dtrow As DataRow = GlobalDTUsuarios.Rows(0)
|
||||
username = dtrow("Usuario")
|
||||
pass = dtrow("Contraseña")
|
||||
End If
|
||||
End Using
|
||||
End Using
|
||||
End If
|
||||
#End Region
|
||||
#Region "obtengo el usuario con el username y la pass"
|
||||
|
||||
Using ObjUsuario As New ClsSisUsuarios()
|
||||
usuario = ObjUsuario.ValidaUsuario(username, pass, IMEI, CveEmpresa)
|
||||
End Using
|
||||
#End Region
|
||||
#Region "Asigno la empresa al usuario"
|
||||
If Not IsNothing(usuario) Then
|
||||
Using ObjEmpresa As New ClsSisEmpresas()
|
||||
|
||||
If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
||||
If ObjEmpresa.GetEmpresasFuncionalidades(CveEmpresa) Then
|
||||
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
||||
|
||||
Dim EmpresasFuncionalidades As New HybridDictionary
|
||||
For Each Row As Data.DataRow In dttmp.Rows
|
||||
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
||||
Next
|
||||
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
||||
|
||||
End If
|
||||
|
||||
usuario.Empresa = ObjEmpresa.Empresa
|
||||
usuario.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
|
||||
Else
|
||||
End If
|
||||
End Using
|
||||
|
||||
End If
|
||||
#End Region
|
||||
Return usuario
|
||||
End Function
|
||||
|
||||
|
||||
Public Function timbrarNomina() As String
|
||||
Dim retorno As String = ""
|
||||
Dim cveEmpresa As String = URLParametros("CveEmpresa").ToString().ToEntero()
|
||||
|
||||
Dim CvePeriodo As Integer = URLParametros("CvePeriodo").ToString().ToEntero()
|
||||
Dim CveNomina As Integer = URLParametros("CveNomina").ToString().ToEntero()
|
||||
Dim CvePersonal As Integer = URLParametros("CvePersonal").ToString().ToEntero()
|
||||
|
||||
Dim usuario As Usuario = GetUsuario(cveEmpresa, 100)
|
||||
If Not IsNothing(usuario) Then
|
||||
|
||||
Dim StrErrores As New StringBuilder
|
||||
Dim Msg As String = String.Empty
|
||||
|
||||
Dim lognom As New LogicNominas
|
||||
If CveNomina > 0 Then
|
||||
Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, usuario)
|
||||
If Msg.Trim() <> String.Empty Then StrErrores.Append(Msg)
|
||||
retorno = Msg.Trim()
|
||||
Else
|
||||
retorno = "Nomina invalida periodo timbrar"
|
||||
End If
|
||||
'Using ObjPeriodo As New ClsNominas()
|
||||
' If StrErrores.ToString().Length > 0 Then
|
||||
' ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, enumNominasEstatus.ErrorEnTimbrado, usuario.CveUsuario, usuario.CveEmpresa)
|
||||
' Else
|
||||
' ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, enumNominasEstatus.Timbrada, usuario.CveUsuario, usuario.CveEmpresa)
|
||||
|
||||
' End If
|
||||
'End Using
|
||||
Else
|
||||
retorno = "No se encontro el usuario"
|
||||
|
||||
Me.GuardaLog(String.Format("Error Timbrado Nomina CveEmpresa:{0} ", usuario.CveEmpresa))
|
||||
End If
|
||||
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Function Parametros(Cadena As String) As Hashtable
|
||||
Cadena = Decripta(Cadena)
|
||||
Dim P1() As String = Cadena.Split("&"c)
|
||||
Dim Tmp As String
|
||||
Dim P2() As String
|
||||
|
||||
Dim URLParametros As New Hashtable
|
||||
|
||||
For Each Tmp In P1
|
||||
P2 = Tmp.Replace("%26%", "&").Split("="c)
|
||||
URLParametros.Add(P2(0).ToString(), P2(1))
|
||||
Next
|
||||
Return URLParametros
|
||||
End Function
|
||||
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
||||
Get
|
||||
Return False
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user