AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- trim

Browse Source
This commit is contained in:
rrene
2024-05-10 06:18:29 -07:00
parent 4cb238f265
commit 64221a0638
1 changed files with 58 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
General/SaldosIniciales.aspx.vb
View File

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