This commit is contained in:
2022-04-04 11:37:36 -07:00
64 changed files with 7092 additions and 1386 deletions

View File

@@ -86,7 +86,7 @@
<div class="row">
<div class="col-md-12">
<h3>Arraste o haga click para subir el archivo Excel</h3>
<h3>Arrastre o haga click para subir el archivo Excel</h3>
</div>
</div>
<div class="row">

View File

@@ -2049,11 +2049,92 @@ Partial Class General_SaldosIniciales
Alert("El nombre de la veintenueveava columna debe ser 'Tipo Contrato'. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(29).ColumnName = "Departamento" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(30).ColumnName = "Tipo Periodo" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(31).ColumnName = "Escolaridad" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(32).ColumnName = "Salario Diario" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(33).ColumnName = "Tipo Salario" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(34).ColumnName = "Salario variable" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(35).ColumnName = "Sindicalizado" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(36).ColumnName = "SubProyecto" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(37).ColumnName = "RegimenContratacion" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(38).ColumnName = "Area Geografica" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(39).ColumnName = "Prima vacacional" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(40).ColumnName = "Dias aguinaldo" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(41).ColumnName = "Metodo Pago" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(42).ColumnName = "SDI" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(43).ColumnName = "Nominista" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
If Not dt.Columns(44).ColumnName = "Registro Patronal" Then
Alert("El nombre de la veintenueveava columna debe ser ''. Favor de corregirlo", TipoMensaje.MsgError)
Return False
End If
End Function
Protected Sub UpPersonal(dt As DataTable)
Dim NumRows As Integer = 0
Dim dtregistrospatronales As New DataTable
Dim dTSubProyectos As New DataTable
Dim dTDepartamentos As New DataTable
Dim dTTurno As New DataTable
Dim ObjRH As New ClsRH
Dim dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
dtpuestos.CaseSensitive = False
If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
dtregistrospatronales = ObjRH.DtResultados
dtregistrospatronales.CaseSensitive = False
dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
dTDepartamentos = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
dTTurno = GlobalDTTurno().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
dTSubProyectos.CaseSensitive = False
dTDepartamentos.CaseSensitive = False
dTTurno.CaseSensitive = False
End If
Try
ObjRH.IniciaTransacSQL()
Dim ErrorRH As Boolean = False
@@ -2063,6 +2144,7 @@ Partial Class General_SaldosIniciales
For Each Row As DataRow In dt.Rows
Dim myarraystr As String()
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper()
Dim Codigo As String = Row("Código").ToString
Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString
Dim ApellidoMaterno As String = Row("Apellido Materno").ToString
@@ -2086,7 +2168,7 @@ Partial Class General_SaldosIniciales
Dim CURP As String = Row("CURP").ToString
Dim ClabeInterbancaria As String = Row("CLABE").ToString
Dim EstatusPersonal As String = Row("Estatus Personal").ToString.ToUpper
Dim SubProyecto As String = Row("SubProyecto").ToString.ToUpper
'Nuevas
Dim Estado As String = Row("Estado").ToString
Dim NombrePadre As String = Row("Nombre Padre").ToString
@@ -2112,6 +2194,7 @@ Partial Class General_SaldosIniciales
Dim CveEstadoCivil As Integer = 0
Dim CveEstatusPersonal As Integer = 0
' Dim CveSucursal As Integer = GlobalDTSucursales(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSucursal").ToString.ToEntero
Dim CveRegistroPatronal As Integer
Dim CvePuesto As Integer
Dim CveTurno As Integer
Dim CveDepartamento As Integer
@@ -2121,43 +2204,67 @@ Partial Class General_SaldosIniciales
Dim CveEscolaridad As Integer
Dim CveMetodoPago As Integer
Dim CveUsuarioNomina As Integer
Dim CveSubProyecto As Integer
myarraystr = Puesto.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CvePuesto = myarraystr(0).ToEntero()
CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(CvePuesto) = ({CvePuesto})").ToString.ToEntero
Else
CvePuesto = GlobalDTRHPuestos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePuesto", $"UPPER(Puesto) = ('{Puesto}')").ToString.ToEntero
CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString.ToEntero
End If
CveRegistroPatronal = dtregistrospatronales.FiltroPrimeroValor("CveRegistroPatronal", $"(RegistroPatronal) = ('{RegistroPatronal}')").ToString.ToEntero
If CvePuesto = 0 Then
CvePuesto = -1
End If
myarraystr = Turno.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveTurno = myarraystr(0).ToEntero()
CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"CveTurno = {CveTurno}").ToString.ToEntero
Else
CveTurno = GlobalDTTurno().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString.ToEntero
CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString.ToEntero
End If
If CveTurno = 0 Then
CveTurno = -1
End If
myarraystr = SubProyecto.Split(":"c)
If (myarraystr.Length > 1) Then
CveSubProyecto = myarraystr(0).ToEntero()
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToString().ToEntero()
Else
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
End If
If CveSubProyecto = 0 Then
CveSubProyecto = -1
End If
myarraystr = Departamento.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveDepartamento = myarraystr(0).ToEntero()
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"CveDepartamento = {CveDepartamento}").ToString.ToEntero
Else
CveDepartamento = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString.ToEntero
CveDepartamento = DTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString.ToEntero
End If
If CveDepartamento <= 0 Then
CveDepartamento = -1
End If
myarraystr = Estado.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveEstado = myarraystr(0).ToEntero()
CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"CveEstado = {CveEstado}").ToString.ToEntero
Else
CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"Clave = '{Estado}'").ToString.ToEntero
CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado}'").ToString.ToEntero
End If
If CveEstado = 0 Then
CveEstado = -1
@@ -2166,16 +2273,27 @@ Partial Class General_SaldosIniciales
myarraystr = TipoContrato.Split(":"c)
If (myarraystr.Length > 1) Then
CveTipoContrato = myarraystr(0).ToEntero()
CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"CveTipoContrato = {CveTipoContrato}").ToString.ToEntero
Else
CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString.ToEntero
End If
If CveTipoContrato = 0 Then
CveTipoContrato = -1
myarraystr = TipoContrato.Split("-"c)
If (myarraystr.Length > 1) Then
CveTipoContrato = myarraystr(0).Trim().ToEntero()
End If
If CveTipoContrato = 0 Then
CveTipoContrato = -1
End If
End If
myarraystr = TipoPeriodo.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveTipoPeriodo = myarraystr(0).ToEntero()
CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"CveTipoPeriodo = {CveTipoPeriodo}").ToString.ToEntero
Else
CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"TipoPeriodo = '{TipoPeriodo}'").ToString.ToEntero
End If
@@ -2184,14 +2302,15 @@ Partial Class General_SaldosIniciales
End If
myarraystr = Escolaridad.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveEscolaridad = myarraystr(0).ToEntero()
CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"CveEscolaridad = {CveEscolaridad}").ToString.ToEntero
Else
CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"Escolaridad = '{Escolaridad}'").ToString.ToEntero
End If
If CveEscolaridad = 0 Then
CveEscolaridad = -1
End If
'If CveEscolaridad = 0 Then
' CveEscolaridad = -1
'End If
@@ -2199,8 +2318,9 @@ Partial Class General_SaldosIniciales
myarraystr = MetodoPago.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveMetodoPago = myarraystr(0).ToEntero()
CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString.ToEntero
Else
CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString.ToEntero
End If
@@ -2209,8 +2329,9 @@ Partial Class General_SaldosIniciales
End If
myarraystr = Nominista.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveUsuarioNomina = myarraystr(0).ToEntero()
CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString.ToEntero
Else
CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString.ToEntero
End If
@@ -2233,12 +2354,13 @@ Partial Class General_SaldosIniciales
Exit For
End If
If Not CveRegistroPatronal > 0 Then Alert($"No se encontró el Registropatronal: {RegistroPatronal} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CvePuesto > 0 Then Alert($"No se encontró el Puesto: {Puesto} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveTurno > 0 Then Alert($"No se encontró el turno: {Turno} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveEstado > 0 Then Alert($"No se encontró el Estado: {Estado} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveTipoContrato > 0 Then Alert($"No se encontró el Tipo Contrato: {TipoContrato} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveTipoPeriodo > 0 Then Alert($"No se encontró el Tipo Periodo: {TipoPeriodo} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveEscolaridad > 0 Then Alert($"No se encontró el Escolaridad: {Escolaridad} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
'If Not CveEscolaridad > 0 Then Alert($"No se encontró el Escolaridad: {Escolaridad} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveMetodoPago > 0 Then Alert($"No se encontró el Método de Pago: {MetodoPago} Renglón: {NumRow}: ", TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
If Not CveUsuarioNomina > 0 Then CveUsuarioNomina = -1 'Alert("No se encontró el Nominista: " + Nominista + " Renglón: " + NumRow, TipoMensaje.MsgAdvertencia) : ErrorRH = True : Exit For
@@ -2255,9 +2377,12 @@ Partial Class General_SaldosIniciales
If Sexo.ToUpper.Contains("Masculino") Then CveGenero = 1 Else CveGenero = 2
If AltaIMSS.ToUpper.Contiene("SI", "1") Then AltaIMSS = "True" Else AltaIMSS = "False"
myarraystr = EstadoCivil.Split(":"c)
If (myarraystr.Length > 0) Then
If (myarraystr.Length > 1) Then
CveEstadoCivil = myarraystr(0).ToEntero()
End If
If CveEstadoCivil = 0 Then
CveEstadoCivil = 1
End If
'Select Case EstadoCivil
' Case "SOLTERO"
' CveEstadoCivil = 1
@@ -2277,6 +2402,9 @@ Partial Class General_SaldosIniciales
If (myarraystr.Length > 0) Then
CveEstatusPersonal = myarraystr(0).ToEntero()
End If
If CveEstatusPersonal = 0 Then
CveEstatusPersonal = 1
End If
'Select Case EstatusPersonal
' Case "ACTIVO"
' CveEstatusPersonal = 1
@@ -2296,8 +2424,8 @@ Partial Class General_SaldosIniciales
End If
If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
-1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, Celular, RFC, CURP, NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, -1, "", -1,
ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina) Then
LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, Celular, RFC, CURP, NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
ErrorRH = True
Exit For
Else
@@ -2614,7 +2742,7 @@ Partial Class General_SaldosIniciales
libro.Cell(crow, ccol).Value = "Tipo Salario" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colTipoSalario, rowTipoSalario, colTipoSalario), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Salario variable" : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Sindicalizado" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsindicalizado, rowsindicalizado, colsindicalizado), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "SubProyecto " : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsubproyecto, rowsubproyecto, colsubproyecto), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "SubProyecto" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colsubproyecto, rowsubproyecto, colsubproyecto), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "RegimenContratacion" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colRegimenContratacion, rowRegimenContratacion, colRegimenContratacion), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Area Geografica" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colAreaGeografica, rowAreaGeografica, colAreaGeografica), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Prima vacacional" : ccol = ccol + 1
@@ -2622,6 +2750,7 @@ Partial Class General_SaldosIniciales
libro.Cell(crow, ccol).Value = "Metodo Pago" : libro.Range(crow + 1, ccol, 50000, ccol).SetDataValidation().List(Catalogos.Range(2, colmetodopago, rowmetodopago, colmetodopago), True) : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "SDI" : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Nominista" : ccol = ccol + 1
libro.Cell(crow, ccol).Value = "Registro Patronal" : ccol = ccol + 1
libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))