-- corrección

This commit is contained in:
2021-12-13 12:33:14 -07:00
parent ebb55ec73b
commit b064169330

View File

@@ -38,7 +38,10 @@ Partial Class OI_Normatividad
If ObjOIEventos.AddEventoNormatividad("PADRE", "PADRE DE TODOS", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "".ToEntero) Then
If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then
IDSelected = 0
If ObjOIEventos.DtResultados.Rows.Count > 0 Then
IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
End If
ObjOIEventos.AddEventoNormatividad("Título 1", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IDSelected)
End If