Formatos de Factura 4.0

RH/RepAsistencias.aspx.vb

@@ -10,6 +10,7 @@ Partial Class RH_RepAsistencias
         If Not IsPostBack Then
             'CargaClientes()
             'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+            CargaSuperioresOrganigrama()
             CargaClientes()
             CargaProyecto()
             CargaTurnos()
@@ -23,6 +24,25 @@ Partial Class RH_RepAsistencias
 
 #Region "CargaCombos"
 
+    Private Sub CargaSuperioresOrganigrama()
+        'Dim ObjRH As New ClsRH
+
+        'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+        '    DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
+        'Else
+        '    DdlSupervisorOrganigrama.DataSource = Nothing
+        '    Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        'End If
+        'ObjRH.Dispose()
+        Using objbase As New ClsRH()
+            If (objbase.SupervisorOrganigramaGet(UsuarioActual.CveEmpresa)) Then
+                DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
+                DdlSupervisorOrganigrama.DataBind()
+            End If
+        End Using
+
+
+    End Sub
 
     Private Sub CargaClientes()
         Dim ObjClientes As New ClsClientes