Merge branch 'master' of http://192.168.10.111:8383/SIG

Nomina/Nomina.aspx

@@ -1595,6 +1595,7 @@
                                                                     <asp:BoundField DataField="TipoPago" HeaderText="Tipo pago" />
                                                                     <asp:BoundField DataField="DiasextraAutorizado" HeaderText="Días extra" />
                                                                     <asp:BoundField DataField="diasPago" HeaderText="Días pago" />
+                                                                    <asp:BoundField DataField="DiasPrima" HeaderText="Días Prima" />
                                                                     <asp:TemplateField HeaderText="Aplica prima">
                                                                         <ItemTemplate>
                                                                             <asp:Label runat="server" Text='<%# ((Eval("AplicaPrima").ToString() == "1" || Eval("AplicaPrima").ToString().ToUpper() == "TRUE") ? "Sí": "No") %>'> </asp:Label>

RH/Personal.aspx

@@ -3270,6 +3270,7 @@
                                                                             <asp:BoundField DataField="TipoPago" HeaderText="Tipo pago" />
                                                                             <asp:BoundField DataField="DiasextraAutorizado" HeaderText="Días extra" />
                                                                             <asp:BoundField DataField="diasPago" HeaderText="Días pago" />
+                                                                            <asp:BoundField DataField="DiasPrima" HeaderText="Días Prima" />
                                                                             <asp:TemplateField HeaderText="Aplica prima">
                                                                                 <ItemTemplate>
                                                                                     <asp:Label runat="server" Text='<%# If(Eval("AplicaPrima").ToString() = "1" Or Eval("AplicaPrima").ToString().ToUpper() = "TRUE", "Sí", "No") %>'> </asp:Label>

RH/Personal.aspx.vb

@@ -943,25 +943,22 @@ Partial Class RH_Personal
 
                     divBitacora.Visible = True
                     CargaGvBitacora()
+                    CargaCuentasBancarias()
+                    CarcaConceptosNomina()
+                    CargaFonacot()
                 End If
 
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
                 LoadDefaultValues()
-                'Configuración de Modalidad Insert
 
                 ImgAddObs.Visible = False
                 LblFechaCaptura.Text = Now.ToShortDateString()
                 LblUsuarioCapturo.Text = UsuarioActual.Usuario
                 ViewState("CvePersonal") = -1
                 BtnEliminar.Visible = False
-                CarcaConceptosNomina()
-                CargaFonacot()
-                CargaCuentasBancarias()
 
-                'Inicia Permisos
-                'Fin Permisos
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -1939,9 +1936,10 @@ Partial Class RH_Personal
 
         Dim EnviarCorreoNomina As Boolean = False
         'System.Threading.Thread.Sleep(3000)
-        Dim ObjPersonal As New ClsRH()
+        Using ObjPersonal As New ClsRH()
-        Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
+            Using ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
-        Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
+                Using ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
+
 
                     Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString())
                     Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "")
@@ -2022,7 +2020,7 @@ Partial Class RH_Personal
                             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                                 ProcesaDTFamiliares(ObjPersonal)
                             End If
-                If TempDTCuentasBancos.Rows.Count > 0 Then
+                            If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then
 
                                 For Each row As DataRow In TempDTCuentasBancos.Rows
                                     If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
@@ -2148,9 +2146,9 @@ Partial Class RH_Personal
                     Session("FileUpload") = ""
 
                     ViewState("Archivo") = ""
-        ObjPersonal.Dispose()
+                End Using
-        ObjCuentasDeposito.Dispose()
+            End Using
-        ObjAF.Dispose()
+        End Using
         UpDatos.Update()
         CargaGvBitacora()
 
@@ -3399,7 +3397,7 @@ Partial Class RH_Personal
         End If
 
         LimpiaCuentasBancarias()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
 
         If CvePersonal > 0 Then
             CargaGvBitacora()
@@ -3412,7 +3410,6 @@ Partial Class RH_Personal
     End Sub
     Private Sub CargaCuentasBancarias()
         Dim ObjCuentasBancos As New ClsGenerales
-        ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
@@ -3427,7 +3424,7 @@ Partial Class RH_Personal
         End If
 
         ObjCuentasBancos.Dispose()
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
 
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
@@ -3485,11 +3482,11 @@ Partial Class RH_Personal
 
 
         GvBancosCuentas.EditIndex = e.NewEditIndex
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
     Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
         GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
     End Sub
     Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
         Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
@@ -3582,7 +3579,7 @@ Partial Class RH_Personal
         ObjCuentasBancos.Dispose()
 
         GvBancosCuentas.EditIndex = -1
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
         CargaGvBitacora()
     End Sub
     Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
@@ -3600,7 +3597,7 @@ Partial Class RH_Personal
             TempDTCuentasBancos.Rows.RemoveAt(index)
         End If
 
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        CargaGridCuentasBancos("")
         ObjCuentasBancos.Dispose()
         CargaGvBitacora()
     End Sub