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

App_Code/ClsPaginas.vb

@@ -1457,14 +1457,14 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
             'sino existe, recarga los datos
-            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
-                Dim ObjBancos As New ClsBancos
+                Using ObjBancos As New ClsBancos
-                If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
+                    If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
-                    Application(AppNombre) = ObjBancos.DtResultados
+                        Application(AppNombre) = ObjBancos.DtResultados
-                Else
+                    Else
-                    Application(AppNombre) = Nothing
+                        Application(AppNombre) = Nothing
-                End If
+                    End If
-                ObjBancos.Dispose()
+                End Using
             End If
 
             Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)

Bancos/IE.aspx.vb

@@ -3800,6 +3800,9 @@ Partial Class Bancos_IE
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgAdvertencia)
+            If Opcion = "INGPC" Then
+                CveIE = -1
+            End If
         End If
 
         If Msg.ToString <> "" Then

Contratos/PopUpBuscarContrato.aspx

@@ -70,11 +70,11 @@
                                     
                                 </tr>
                                 <tr style="text-align:left">
-                                    <td class="text-right" style="height:25px!important"><b>Proyecto:</b></td>                                      
+                                    <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>                                      
                                     <td style="height:25px!important">   
                                           <asp:DropDownList  ID="DdlProyecto"  Height="30px"  AutoPostBack="true"  Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>                                                                           
                                     </td>
-                                    <td class="text-right"  style="height:25px!important"><b>SubProyecto:</b></td>
+                                    <td class="text-right"  style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto:"/></td>
                                     <td style="height:25px!important">  
                                         <asp:DropDownList  ID="DdlSubProtecto"  Height="30px"    Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto"  runat="server" CssClass="select2me"></asp:DropDownList>                                 
                                     </td>

Contratos/PopUpBuscarContrato.aspx.vb

@@ -41,14 +41,15 @@ Partial Class Contratos_PopUpBuscarContrato
 
 
     Private Sub CargaProyecto()
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProtecto, LblProyecto, LblSubProyecto)
-            CargaSubProyectoContrato(-1)
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
-        Else
+        '    CargaSubProyectoContrato(-1)
-            DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
+        'Else
-            DdlProyecto.DataBind()
+        '    DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
-        End If
+        '    DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
-        DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)

Empresas/119/Formatos/Polizas.rdlc

@@ -1630,7 +1630,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>="Página: " &amp; Code.GetGroupPageNumber(ReportItems!NewPage.Value,Globals!PageNumber)</Value>
+                      <Value>="Página: " &amp; Globals!PageNumber</Value>
                       <Style>
                         <FontFamily>Calibri</FontFamily>
                       </Style>

Empresas/72/Formatos/Traslado.rdlc

@@ -489,7 +489,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!SeccionAlmacen.Value</Value>
+                              <Value />
                               <Style>
                                 <FontSize>9pt</FontSize>
                               </Style>

Inventarios/EntradasSalidas.aspx.vb

@@ -827,7 +827,7 @@ Partial Class Inventarios_EntradasSalidas
             'cargar también los movimentos detalle
             If Mov.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
 
-                DtMovimientos = Mov.DtResultados.FiltraParametros("", "CveMovimientoDetalle")
+                DtMovimientos = Mov.DtResultados
 
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1

RH/ActualizacionMasiva.aspx.vb

@@ -195,6 +195,7 @@ Partial Class RH_ActualizacionMasiva
         Dim OcurrioError As Boolean = False
 
         Using ObjPersonal As ClsRH = New ClsRH()
+            ObjPersonal.IniciaTransacSQL()
             For Each Row As GridViewRow In GvDatos.Rows
                 If Row.DataKey("CvePersonal") <> "" Then
                     'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
@@ -217,7 +218,7 @@ Partial Class RH_ActualizacionMasiva
 
             Next
             If Not OcurrioError Then
-                'ObjPersonal.Commit()
+                ObjPersonal.Commit()
                 Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
@@ -352,6 +353,8 @@ Partial Class RH_ActualizacionMasiva
             Dim OcurrioError As Boolean = False
             Dim contador As Integer = 0
             Using ObjPersonal As ClsRH = New ClsRH()
+                ObjPersonal.IniciaTransacSQL()
+
                 For Each Row As DataRow In DTEXcel.Rows
                     If Row("Codigo").ToString() <> "" Then
                         Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))