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

Sistemas/Empresa.aspx.vb

@@ -147,7 +147,8 @@ Partial Class Sistemas_Empresa
                 End If
 
             End If
-
+            DdlEmpresa.DataSource = GlobalDTEmpresas
+            DdlEmpresa.DataBind()
             CargaDdlPac()
             CargaRegimenFiscal()
             CargaGridIndicadores()
@@ -994,4 +995,28 @@ Partial Class Sistemas_Empresa
 
     End Sub
 
+
+    Protected Sub LnkClonmarCNomModal_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#ModalClonarConceptosNominas').modal();")
+    End Sub
+    Protected Sub LnkClonarConceptosNomina_Click(sender As Object, e As EventArgs)
+        Dim CveEmpresaOrigen = DdlEmpresa.SelectedValue.ToEntero()
+        Dim cveEmpresaDestino = CveEmpresa ' Request("CveEmpresa").ToString().ToEntero()
+        If (CveEmpresaOrigen > 0 AndAlso cveEmpresaDestino > 0) Then
+            Using onom = New ClsNominas
+                If onom.ConceptosGetallnewEmpresa(CveEmpresaOrigen, CveEmpresa) Then
+                    Alert("los conceptos se clonaron satisfactoriamente", TipoMensaje.MsgInformacion)
+
+                End If
+            End Using
+        Else
+            If CveEmpresaOrigen > 0 Then
+                Alert("ya debe estar generado la empresa destino", TipoMensaje.MsgAdvertencia)
+            Else
+                Alert("Debe seleccionar una empresa Origen", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+    End Sub
+
 End Class