- trim
This commit is contained in:
@@ -3591,47 +3591,49 @@ 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()
|
||||
Dim Nombre As String = Row("Nombre").ToString()
|
||||
Dim CorreoElectronico As String = Row("Correo Electronico").ToString()
|
||||
Dim FechaIngreso As String = Row("Fecha Ingreso").ToString()
|
||||
Dim FechaBaja As String = Row("Fecha Baja").ToString()
|
||||
Dim NumeroSS As String = Row("Numero SS").ToString()
|
||||
Dim AltaIMSS As String = Row("Alta IMSS").ToString()
|
||||
Dim SalarioDiario As String = Row("Salario Diario").ToString()
|
||||
Dim Direccion As String = Row("Dirección").ToString()
|
||||
Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString()
|
||||
Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString()
|
||||
Dim Sexo As String = Row("Sexo").ToString()
|
||||
Dim CodigoPostal As String = Row("Código Postal").ToString()
|
||||
Dim Ciudad As String = Row("Ciudad").ToString()
|
||||
Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper
|
||||
Dim Telefono As String = Row("Teléfono").ToString()
|
||||
Dim Celular As String = Row("Celular").ToString()
|
||||
Dim RFC As String = Row("RFC").ToString()
|
||||
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
|
||||
Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper().Trim
|
||||
Dim Codigo As String = Row("Código").ToString().Trim
|
||||
Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString().Trim
|
||||
Dim ApellidoMaterno As String = Row("Apellido Materno").ToString().Trim
|
||||
Dim Nombre As String = Row("Nombre").ToString().Trim
|
||||
Dim CorreoElectronico As String = Row("Correo Electronico").ToString().Trim
|
||||
Dim FechaIngreso As String = Row("Fecha Ingreso").ToString().Trim
|
||||
Dim FechaBaja As String = Row("Fecha Baja").ToString().Trim
|
||||
Dim NumeroSS As String = Row("Numero SS").ToString().Trim
|
||||
Dim AltaIMSS As String = Row("Alta IMSS").ToString().Trim
|
||||
Dim SalarioDiario As String = Row("Salario Diario").ToString().Trim
|
||||
Dim Direccion As String = Row("Dirección").ToString().Trim
|
||||
Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString().Trim
|
||||
Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString().Trim
|
||||
Dim Sexo As String = Row("Sexo").ToString().Trim
|
||||
Dim CodigoPostal As String = Row("Código Postal").ToString().Trim
|
||||
Dim Colonia As String = Row("Colonia").ToString().Trim
|
||||
Dim NumExterior As String = Row("NumExterior").ToString().Trim
|
||||
Dim Ciudad As String = Row("Ciudad").ToString().Trim
|
||||
Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper.Trim
|
||||
Dim Telefono As String = Row("Teléfono").ToString().Trim
|
||||
Dim Celular As String = Row("Celular").ToString().Trim
|
||||
Dim RFC As String = Row("RFC").ToString().Trim
|
||||
Dim CURP As String = Row("CURP").ToString().Trim
|
||||
Dim ClabeInterbancaria As String = Row("CLABE").ToString().Trim
|
||||
Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper.Trim
|
||||
Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper.Trim
|
||||
'Nuevas
|
||||
Dim Estado As String = Row("Estado").ToString()
|
||||
Dim NombrePadre As String = Row("Nombre Padre").ToString()
|
||||
Dim NombreMadre As String = Row("Nombre Madre").ToString()
|
||||
Dim Puesto As String = Row("Puesto").ToString()
|
||||
Dim Turno As String = Row("Turno").ToString()
|
||||
Dim TipoContrato As String = Row("Tipo Contrato").ToString()
|
||||
Dim Departamento As String = Row("Departamento").ToString()
|
||||
Dim TipoPeriodo As String = Row("Tipo Periodo").ToString()
|
||||
Dim Escolaridad As String = Row("Escolaridad").ToString()
|
||||
Dim SDI As String = Row("SDI").ToString()
|
||||
Dim MetodoPago As String = Row("Metodo Pago").ToString()
|
||||
Dim Nominista As String = Row("Nominista").ToString()
|
||||
Dim Estado As String = Row("Estado").ToString().Trim
|
||||
Dim NombrePadre As String = Row("Nombre Padre").ToString().Trim
|
||||
Dim NombreMadre As String = Row("Nombre Madre").ToString().Trim
|
||||
Dim Puesto As String = Row("Puesto").ToString().Trim
|
||||
Dim Turno As String = Row("Turno").ToString().Trim
|
||||
Dim TipoContrato As String = Row("Tipo Contrato").ToString().Trim
|
||||
Dim Departamento As String = Row("Departamento").ToString().Trim
|
||||
Dim TipoPeriodo As String = Row("Tipo Periodo").ToString().Trim
|
||||
Dim Escolaridad As String = Row("Escolaridad").ToString().Trim
|
||||
Dim SDI As String = Row("SDI").ToString().Trim
|
||||
Dim MetodoPago As String = Row("Metodo Pago").ToString().Trim
|
||||
Dim Nominista As String = Row("Nominista").ToString().Trim
|
||||
Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
|
||||
Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
|
||||
Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString()
|
||||
Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString().Trim
|
||||
|
||||
Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}"
|
||||
|
||||
@@ -3666,6 +3668,16 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
End If
|
||||
|
||||
If CvePuesto <= 0 Then
|
||||
Dim ObjRH2 As New ClsRH
|
||||
ObjRH2.AddPuesto(Puesto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
ObjRH2.Dispose()
|
||||
|
||||
GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = Nothing
|
||||
dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
|
||||
CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString().ToEntero()
|
||||
End If
|
||||
|
||||
CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero()
|
||||
If CveTipoTrabajador = 0 Then
|
||||
CveTipoTrabajador = -1
|
||||
@@ -3691,17 +3703,14 @@ Partial Class General_SaldosIniciales
|
||||
myarraystr = SubProyecto.Split(":"c)
|
||||
If (myarraystr.Length > 1) Then
|
||||
CveSubProyecto = myarraystr(0).ToEntero()
|
||||
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToString().ToEntero()
|
||||
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"CveSubProyecto = {CveSubProyecto}").ToEntero()
|
||||
Else
|
||||
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
|
||||
CveSubProyecto = dTSubProyectos.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToEntero()
|
||||
End If
|
||||
If CveSubProyecto = 0 Then
|
||||
CveSubProyecto = -1
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
myarraystr = Departamento.Split(":"c)
|
||||
If (myarraystr.Length > 1) Then
|
||||
CveDepartamento = myarraystr(0).ToEntero()
|
||||
@@ -3711,7 +3720,11 @@ Partial Class General_SaldosIniciales
|
||||
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
|
||||
End If
|
||||
If CveDepartamento <= 0 Then
|
||||
CveDepartamento = -1
|
||||
Dim ObjRH2 As New ClsRH
|
||||
ObjRH2.AddDepartamento(Departamento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
ObjRH2.Dispose()
|
||||
CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
|
||||
|
||||
End If
|
||||
|
||||
myarraystr = Estado.Split(":"c)
|
||||
@@ -3814,15 +3827,10 @@ Partial Class General_SaldosIniciales
|
||||
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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero()
|
||||
|
||||
If Not (CvePersonal > 0) Then
|
||||
CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero()
|
||||
|
||||
End If
|
||||
|
||||
'PENDIENTES POR MEJORAR
|
||||
@@ -3880,7 +3888,7 @@ 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, CveSubProyecto, "", -1,
|
||||
LugarNacimiento, Direccion, NumExterior, "", Colonia, CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
|
||||
ClabeInterbancaria, "", CveJornada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, "", CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then
|
||||
If (ObjRH.noguardoXcurpb) Then
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user