General/SaldosIniciales.aspx.vb

@@ -2371,6 +2371,10 @@ Partial Class General_SaldosIniciales
 
                 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
                 Dim CveSATRegimenContratacion As Integer = 1
@@ -2429,10 +2433,13 @@ Partial Class General_SaldosIniciales
                                   -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,
                                  ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
-                        ErrorRH = True
-                        Exit For
+                        If (ObjRH.noguardoXcurpb) Then
+                        Else
+                            ErrorRH = True
+                            Exit For
+                        End If
                     Else
-                        ContadorAgregados = ContadorAgregados + 1
+                            ContadorAgregados = ContadorAgregados + 1
                     End If
                 End If