GDiaz 2024.05.21

Bancos/DepositosCaja.aspx.vb

@@ -289,8 +289,13 @@ Partial Class Bancos_DepositosCaja
                 End If
 
             End If
+
             Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero
 
+            If CveTransaccionBanco = -1 Then
+                CveTransaccionBanco = 13
+            End If
+
             If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
                 CveTransaccionBanco = 6
             End If

Bancos/RepCortes.aspx

@@ -364,7 +364,7 @@
                 <div class="row">
                     <div class="col-md-3">
                         <br />
-                        <b>Detalles del pago</b>
+                        <b>Detalles de pago</b>
                         <asp:GridView ID="GvP" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">
                             <Columns>
                                 <asp:BoundField HeaderText="Método Pago" DataField="MetodoPago" />
@@ -385,7 +385,7 @@
                     </div>
                     <div class="col-md-3" id="DivDep" runat="server" visible="false" style="max-height: 440px; overflow: auto">
                         <br />
-                        <b>Depósitos Caja</b>
+                        <b>Depósitos de caja</b>
                         <div class="row">
                             <div class="col-md-12">
                                 <asp:GridView ID="GvDep" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ">
@@ -406,7 +406,7 @@
                     </div>
                     <div class="col-md-4" id="DivAnexo" runat="server" visible="false">
                         <br />
-                        <b>Contabilidad</b>
+                        <b>Estado contable de la caja</b>
                         <div class="row">
                             <div class="col-md-12">
                                 <asp:GridView ID="GvAnexo" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%">

Compras/Compras.aspx.vb

@@ -3645,6 +3645,11 @@ Partial Class Compras_Compras
         Else
             Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
         End If
+        Else
+        Alert("Ocurrió un error al consultar el proveedor.", TipoMensaje.MsgError)
+        End If
+
+
 
 
         If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then

Compras/PopUpVerFactura.aspx.vb

@@ -3380,7 +3380,7 @@ Partial Class PopUpVerFactura
                             If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
                                 ImprimirPDFStimul("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString))
                             Else
-                                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                                ImprimirPDF("Empresas/Grales/Formatos/Salida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                             End If
                         End If
 

OC/OC.aspx.vb

@@ -2642,13 +2642,16 @@ Partial Class OC_OC
         End If
 
 
+        If Not ValidaTotales() Then
+            TieneError = True
+        End If
+
+
         Return TieneError
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
-        If Not ValidaTotales() Then
-            Exit Sub
-        End If
+
 
         'VALIDACIONES PARA GUARDAR
         If ValidaGuardar() Then Exit Sub

Sistemas/UsuarioDetalle.aspx.vb

@@ -1734,8 +1734,15 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub CargaDtSubProyectos()
         Dim ClsUsuarios As New ClsSisUsuarios
 
-        If ClsUsuarios.GetSubProyectos(CveUsuario) Then
-            DtSubProyectos = ClsUsuarios.DtResultados
+        If ClsUsuarios.GetSubProyectos(CveUsuario) Then
+
+            DtSubProyectos = ClsUsuarios.DtResultados
+            If Not CveUsuario > 0 Then
+                DtSubProyectos.Rows.Clear()
+                DtSubProyectos.AcceptChanges()
+            End If
+
+
         Else
             DtSubProyectos = Nothing
             Alert("Ocurrió un Error al cargar los SubProyectos del Usuario. Por favor vuelva a intentar", TipoMensaje.MsgError)
@@ -2256,8 +2263,15 @@ Partial Class Sistemas_UsuarioDetalle
         DdlCuentasBancarias.DataBind()
         DdlCuentasBancarias.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
-    Private Sub CargaDtCuentasBancarias()
+    Private Sub CargaDtCuentasBancarias()
+
         DtCuentasBancarias = GlobalDTBancosCuentas(CveUsuario, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
+
+        If Not CveUsuario > 0 Then
+            DtCuentasBancarias.Rows.Clear()
+            DtCuentasBancarias.AcceptChanges()
+        End If
+
         DtCuentasBancarias.Columns.Add("Accion", GetType(Integer))
 
         CargaGvCuentasBancarias()