Eliinar movimiento Bitacora, rh actualizar altas bajas

App_Code/ClsBancos.vb

@@ -1926,7 +1926,7 @@ Public Class ClsBancos
 
         Return Retorno
     End Function
-    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer, Optional Opcion As Integer = -1) As Boolean
+    Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IngresoEgresosDiariosGet")
 
@@ -1934,7 +1934,7 @@ Public Class ClsBancos
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso
-            .Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
+            '.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica
         End With
 
         Try

Ashx/SIGWeb.ashx

@@ -1677,8 +1677,18 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
         '    TieneError = True
         'End If
+        Dim CveUsuarioEliminoMovimiento As Integer = 100
 
-        If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then
+        Try
+            Dim usuario As Usuario = UsuarioActual(context)
+            CveUsuarioEliminoMovimiento = If(usuario.CveUsuario > 0, usuario.CveUsuario, 100)
+        Catch ex As Exception
+
+        End Try
+
+
+
+        If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa, CveUsuarioEliminoMovimiento) Then
 
             TieneError = True
         End If

Bancos/FlujoDiario.aspx.vb

@@ -50,50 +50,38 @@ Partial Class Bancos_FlujoDiario
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
         Dim params As New List(Of ReportParameter)
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Fecha", TxtFecha.Text.ToDate.ToLongDateString))
 
-        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+         If Imagen.Exists Then
-
-        If Imagen.Exists Then
             params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
+           
+        
 
         'SE LLENA TmpDTSaldosIniciales
         Dim Ban As New ClsBancos
 
-        Dim TmpDTIngresosDelDiaCajaChica As New DataTable
-        Dim TmpDTGastosDelDiaCajaChica As New DataTable
-
         If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             TmpDTSaldosIniciales = Ban.DtResultados
         End If
 
         'Se Llena TmpDTIngresosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 1) Then
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then
-            TmpDTIngresosDelDia = Ban.DtResultados
+            TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8")
-            TmpDTIngresosDelDia = Ban.DtResultados
-        End If
-
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 2) Then
-            TmpDTIngresosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
         End If
 
         'Se Llena TmpDTGastosDelDia
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 1) Then
+        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then
-            TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
+            TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2")
-        End If
-
-        If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 2) Then
-            TmpDTGastosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
         End If
 
         'Se Llena TmpDTSaldosActuales
@@ -110,15 +98,10 @@ Partial Class Bancos_FlujoDiario
         Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(TmpDTGastosDelDia IsNot Nothing, TmpDTGastosDelDia, New DataTable)}
         Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(TmpDTSaldosActuales IsNot Nothing, TmpDTSaldosActuales, New DataTable)}
 
-        Dim rds6 As New ReportDataSource With {.Name = "DataSet6", .Value = If(TmpDTIngresosDelDiaCajaChica IsNot Nothing, TmpDTIngresosDelDiaCajaChica, New DataTable)}
-        Dim rds7 As New ReportDataSource With {.Name = "DataSet7", .Value = If(TmpDTGastosDelDiaCajaChica IsNot Nothing, TmpDTGastosDelDiaCajaChica, New DataTable)}
-
         lrds.Add(rds)
         lrds.Add(rds2)
         lrds.Add(rds3)
         lrds.Add(rds4)
-        lrds.Add(rds6)
-        lrds.Add(rds7)
         'lrds.Add(rds5)-
 
 

Inventarios/EntradasSalidas.aspx.vb

@@ -1371,7 +1371,7 @@ Partial Class Inventarios_EntradasSalidas
                 TieneError = True
             End If
 
-            If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
+            If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 If HdnIdPoliza.Value.ToEntero > 0 Then
                     If Not ObjConta.RemovePoliza(HdnIdPoliza.Value.ToEntero) Then
                         TieneError = True

Inventarios/RecepcionUsados.aspx.vb

@@ -862,7 +862,7 @@ Partial Class Inventarios_RecepcionUsados
         End If
 
 
-        If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
+        If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If HdnIdPoliza.Value.ToEntero > 0 Then
                 If Not ObjConta.RemovePoliza(HdnIdPoliza.Value.ToEntero) Then
                     TieneError = True

RH/Personal.aspx

@@ -798,7 +798,7 @@
                                                             <div class="modal-dialog">
                                                                 <div class="modal-content">
                                                                     <div class="modal-header ">
-                                                                        <button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">Actualiazar alta</h4>
+                                                                        <button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">Actualizar alta</h4>
                                                                     </div>
                                                                     <div class="modal-body">
                                                                         <asp:UpdatePanel runat="server" ID="UpAltasUpdate" UpdateMode="Conditional">

RH/Personal.aspx.vb

@@ -7062,7 +7062,7 @@ Partial Class RH_Personal
 
         End If
         Using objrh As New ClsRH()
-            If (objrh.PersonalAltasUpFechas(CvePersonalAltas, TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd"), strfin, CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
+            If (objrh.PersonalAltasUpFechas(CvePersonalAltas, TxtFechaInicioUA.Text.ToDateTime().ToString("yyyy-MM-dd"), TxtFechaFinUA.Text.ToDateTime().ToString("yyyy-MM-dd"), CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) Then
                 If objrh.GetPersonalAltas(CvePersonal) Then
                     GvPersonalAltas.DataSource = objrh.DtResultados
                     GvPersonalAltas.DataBind()

asmx/WSApp.asmx

@@ -422,7 +422,7 @@ Public Class WSApp
         ObjInv.IniciaTransacSQL()
         Dim TieneError = False
 
-        If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa) Then
+        If Not ObjInv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             TieneError = True
         End If