Carga masiva de periodos

carga masiva de conceptos
alerta de periodos no cargados en nominas y carga
Correccion  en el catalogo de puestos para que no asigne todas la empresas al global  de la empresa

Nomina/CatPeriodos.aspx.vb

@@ -60,9 +60,11 @@ Partial Class Nomina_CatPeriodos
     Private Sub CargaTipoPeriodo()
         DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
         DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodoCM.DataSource = GlobalDTTipoPeriodo
 
         DdlTipoPeriodo.DataBind()
         DdlTipoPeriodoAdd.DataBind()
+        DdlTipoPeriodoCM.DataBind()
 
 
     End Sub
@@ -71,11 +73,14 @@ Partial Class Nomina_CatPeriodos
         Dim ObjNom_Periodos As New ClsNominas
         If ObjNom_Periodos.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = ObjNom_Periodos.DtResultados
+            DdlEjercicioCM.DataSource = ObjNom_Periodos.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
+            DdlEjercicioCM.DataSource = Nothing
         End If
         ObjNom_Periodos.Dispose()
         DdlEjercicio.DataBind()
+        DdlEjercicioCM.DataBind()
         DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
@@ -368,4 +373,23 @@ Partial Class Nomina_CatPeriodos
         Next
         UpModalPerido.Update()
     End Sub
+
+    Protected Sub LnkCargaMasiva_Click(sender As Object, e As EventArgs)
+        Dim ejercicio As Integer = DdlEjercicioCM.SelectedValue.ToEntero()
+        Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
+        Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
+        Dim numero As Integer = TxtNumeroCM.Text.ToEntero()
+        Dim fechaInicio As String = TxtFechaInicioCM.Text
+
+        Using onom As New ClsNominas
+            If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                Alert("Se cargo satisfactoriamente.")
+            End If
+        End Using
+
+    End Sub
+
+    Protected Sub LnkCargaMasivaModal_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#divCargaMasiva').modal('show');")
+    End Sub
 End Class