From 64221a063800234df1277cb43f7f311540daeb94 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 May 2024 06:18:29 -0700 Subject: [PATCH] - trim --- General/SaldosIniciales.aspx.vb | 108 +++++++++++++++++--------------- 1 file changed, 58 insertions(+), 50 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 78e133442..494091251 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -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