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

App_Code/ClsNominas.vb

@@ -3363,9 +3363,6 @@ Public Class ClsNominas
         Return retorno
     End Function
 
-    Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object)
-        SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor
-    End Sub
     Public Function RunQuery(errormsg As String) As Boolean
         Dim retorno As Boolean = False
         Try
@@ -3684,6 +3681,43 @@ Public Class ClsNominas
         Return retorno
     End Function
 
+    Public Function ConceptosGetallnewEmpresa(CveEmpresaOrigen As Integer, CveEmpresaDestino As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_ConceptosGetallnewEmpresa", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresaOrigen", SqlDbType.Int).Value = CveEmpresaOrigen
+            .Add("@CveEmpresaDestino", SqlDbType.Int).Value = CveEmpresaDestino
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al clonar los conceptos de nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function CargaPeriodosEjercicio(ejercicio As Int32, cveTipoPeriodo As Int32, cveSubTipoPeriodo As Int32, numero As Int32, fechaInicio As String, cveEmpresa As Int32, cveUsuario As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_CargaPeriodosEjercicio", CommandType.StoredProcedure)
+        addParameters("@Ejercicio", SqlDbType.Int, ejercicio)
+        addParameters("@CveTipoPeriodo", SqlDbType.Int, cveTipoPeriodo)
+        addParameters("@CveSubTipoPeriodo", SqlDbType.Int, cveSubTipoPeriodo)
+        addParameters("@Numero", SqlDbType.Int, numero)
+        addParameters("@FechaInicio", SqlDbType.VarChar, fechaInicio)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        retorno = RunQuery("Ocurrió un error al realizar la carga de periodos.")
+        Return retorno
+    End Function
+
+
+
+
+
+    Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object)
+        SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor
+    End Sub
 #Region "IDisposable Support"
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

Nomina/CatPeriodos.aspx

@@ -19,7 +19,10 @@
     <asp:UpdatePanel ID="UppAddAcciones" runat="server">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAddPeriodo" runat="server" Text="Agregar"><i class="fa fa-plus-circle"></i> Agregar</asp:LinkButton>
+                <asp:LinkButton ID="LnkAddPeriodo" runat="server"  ><i class="fa fa-plus-circle"></i> Agregar</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkCargaMasivaModal" runat="server" OnClick="LnkCargaMasivaModal_Click"> Carga Masiva</asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -477,6 +480,72 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+    <div id="divCargaMasiva" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargaMasiva" class="modal-dialog modal" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H1" runat="server">
+                            <asp:Label runat="server" ID="Label1" Text="Agregar Periodo"></asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <br />
+                        <div class="row">
+                            
+                            <div class="col-md-2">Ejercicio:</div>
+                            <div class="col-md-4">
+                                <asp:DropDownList ID="DdlEjercicioCM" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-xs-2" style="text-align: left">Tipo Periodo:</div>
+                            <div class="col-xs-4">
+                                <asp:DropDownList ID="DdlTipoPeriodoCM" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList>
+                            </div>
+                            <div class="col-xs-2" style="text-align: left">Subtipo Periodo:</div>
+                            <div class="col-xs-4">
+                                <asp:TextBox ID="TxtCveSubTipoPeriodoCM" Text="1" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-xs-2" style="text-align: left;">
+                                Numero:
+                            </div>
+                            <div class="col-xs-4">
+                                <asp:TextBox ID="TxtNumeroCM"  Text="1" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
+                            </div>
+                            <div class="col-xs-2" style="text-align: left; padding-top: 10px;">
+                                Fecha Inicio:
+                            </div>
+                            <div class="col-xs-4">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-left: 0px;">
+                                    <asp:TextBox ID="TxtFechaInicioCM" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton runat="server" ID="LnkFechaInicioCM" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                    </span>
+                                </div>
+
+                                <ajax:MaskedEditExtender ID="MEEFechaInicioCM" runat="server" TargetControlID="TxtFechaInicioCM" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender ID="CEEFechaInicioCM" runat="server" TargetControlID="TxtFechaInicioCM" PopupButtonID="LnkFechaInicioCM" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkCargaMasiva" OnClick="LnkCargaMasiva_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="grpno validacion"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script>function ADSBegin() { FiltrarTablaV2('.TxtBusqueda', '.GvDatos') }</script>

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

Nomina/Nomina.aspx

@@ -323,7 +323,7 @@
                         <div class="row">
                             <label class="col-md-1 compoonenlabel" style="max-width: 65px;">Ejercicio: </label>
                             <div class="col-md-1">
-                                <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+                                <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true"  Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
                             </div>
 
                             <label class="col-md-1 compoonenlabel" style="max-width: 100px;">Tipo Período:</label>
@@ -4672,7 +4672,72 @@
     </div>
 
 
+    
+    <div id="divCargaMasiva" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargaMasiva" class="modal-dialog modal" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H1" runat="server">
+                            <asp:Label runat="server" ID="Label3" Text="Agregar Periodo"></asp:Label>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <br />
+                        <div class="row">
+                            
+                            <div class="col-md-2">Ejercicio:</div>
+                            <div class="col-md-4">
+                                <asp:DropDownList ID="DdlEjercicioCM" DataTextField="Ejercicio" DataValueField="Ejercicio" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-xs-2" style="text-align: left">Tipo Periodo:</div>
+                            <div class="col-xs-4">
+                                <asp:DropDownList ID="DdlTipoPeriodoCMB" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList>
+                            </div>
+                            <div class="col-xs-2" style="text-align: left">Subtipo Periodo:</div>
+                            <div class="col-xs-4">
+                                <asp:TextBox ID="TxtCveSubTipoPeriodoCM" Text="1" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-xs-2" style="text-align: left;">
+                                Numero:
+                            </div>
+                            <div class="col-xs-4">
+                                <asp:TextBox ID="TxtNumeroCM"  Text="1" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
+                            </div>
+                            <div class="col-xs-2" style="text-align: left; padding-top: 10px;">
+                                Fecha Inicio:
+                            </div>
+                            <div class="col-xs-4">
+                                <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-left: 0px;">
+                                    <asp:TextBox ID="TxtFechaInicioCM" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton runat="server" ID="LnkFechaInicioCM" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                    </span>
+                                </div>
 
+                                <ajax:MaskedEditExtender ID="MEEFechaInicioCM" runat="server" TargetControlID="TxtFechaInicioCM" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender ID="CEEFechaInicioCM" runat="server" TargetControlID="TxtFechaInicioCM" PopupButtonID="LnkFechaInicioCM" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkCargaMasiva" OnClick="LnkCargaMasiva_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="grpno validacion"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 
 
 

Nomina/Nomina.aspx.cs

@@ -21,7 +21,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
         get { return 5; }
     }
-
+     
     private DateTime FechaInicioPeriodo
     {
         get
@@ -448,8 +448,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         DdlEjercicios.DataSource = dtejercicio;
         DdlEjerciciosCM.DataSource = dtejercicio;
+        DdlEjercicioCM.DataSource = dtejercicio;
         DdlEjercicios.DataBind();
         DdlEjerciciosCM.DataBind();
+        DdlEjercicioCM.DataBind();
         ListItem litem = null;
         if ((dtejercicio != null) && dtejercicio.Rows.Count > 0)
         {
@@ -487,6 +489,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa);
         DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource;
         DdlTipoPeriodoSim.DataSource = DdlTipoPeriodo.DataSource;
+        DdlTipoPeriodoCMB.DataSource = DdlTipoPeriodo.DataSource;
+        DdlTipoPeriodoCMB.DataBind();
         DdlTipoPeriodoSim.DataBind();
         DdlTipoPeriodoCM.DataBind();
         DdlTipoPeriodo.DataBind();
@@ -507,6 +511,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 if (objperiodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1))
                 {
+                    if (objperiodos.DtResultados.Rows.Count == 0)
+                    {
+                        
+                        Alert("No existen periodos registrados en este año y tipo de periodo,¿desea registrarlos masivamente?",TipoMensaje.MsgConfirmacion, "$(\"#divCargaMasiva\").modal(\"show\");",TextoConfirmacion:"Aceptar",TextoSegundoBoton:"No");
+                    }
                     dtPeriodos = objperiodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4,5)");
                 }
             }
@@ -518,14 +527,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }
 
     protected void DdlEjercicios_SelectedIndexChanged(object sender, EventArgs e)
-    {
+    { 
-        cargaPeriodos();
+        cargaPeriodos(); 
     }
 
     protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e)
     {
-        cargaPeriodos();
+        cargaPeriodos();  
-        DdlEjercicios.AutoPostBack = true;
     }
 
     protected void DdlPeriodo_SelectedIndexChanged(object sender, EventArgs e)
@@ -10943,4 +10951,22 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
 
 
+
+    protected void LnkCargaMasiva_Click(object sender, EventArgs e)
+    {
+
+        int ejercicio = DdlEjercicioCM.SelectedValue.ToEntero();
+        int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero();
+        int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero();
+        int numero = TxtNumeroCM.Text.ToEntero();
+        string fechaInicio = TxtFechaInicioCM.Text;
+
+        using (ClsNominas onom = new ClsNominas())
+        {
+            if (onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario))
+            {
+                Alert("Se cargo satisfactoriamente.");
+            }
+        }
+    }
 }

RH/CatPuesto.aspx.vb

@@ -135,7 +135,7 @@ Partial Class RH_CatPuesto
         CargaCatalogoOcupaciones()
 
 
-        If ObjPuestos.GetPuestos(-1) Then
+        If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then
             GvPuestos.DataSource = ObjPuestos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
 
             GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = ObjPuestos.DtResultados
@@ -344,12 +344,12 @@ Partial Class RH_CatPuesto
 
         If CvePuesto = -1 And Actualizar = False Then
             If ObjPuestos.AddPuesto(TxtPuesto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlOcupacion.SelectedValue.ToEntero) Then
-                If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
+                If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
                 Alert("Puesto agregado correctamente.")
             End If
         Else
             If ObjPuestos.UpdatePuesto(CvePuesto, TxtPuesto.Text.Trim, estatus, UsuarioActual.CveUsuario, DdlOcupacion.SelectedValue.ToEntero) Then
-                If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
+                If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
                 Alert("Puesto actualizado correctamente.")
             End If
         End If
@@ -372,7 +372,7 @@ Partial Class RH_CatPuesto
         Dim _CvePuesto As Integer = GvRow.DataKey("CvePuesto").ToEntero
 
         If objRH.RemovePuesto(_CvePuesto) Then
-            If objRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
+            If objRH.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
             CargaDatos()
         Else
             Alert("Ocurrio un error al eliminar el puesto", TipoMensaje.MsgError)

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