Eliinar movimiento Bitacora, rh actualizar altas bajas
This commit is contained in:
Oscar Irigoyen
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -50,16 +50,14 @@ 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
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
@@ -67,35 +65,25 @@ Partial Class Bancos_FlujoDiario
|
||||
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
|
||||
TmpDTIngresosDelDia = Ban.DtResultados
|
||||
TmpDTIngresosDelDia = Ban.DtResultados
|
||||
End If
|
||||
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 2) Then
|
||||
TmpDTIngresosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then
|
||||
TmpDTIngresosDelDia = 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")
|
||||
End If
|
||||
|
||||
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 2) Then
|
||||
TmpDTGastosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
|
||||
End If
|
||||
|
||||
'Se Llena TmpDTSaldosActuales
|
||||
If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TmpDTSaldosActuales = Ban.DtResultados
|
||||
@@ -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)-
|
||||
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -798,7 +798,7 @@
|
||||
<div class="modal-dialog">
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button><h4 class="modal-title">Actualiazar alta</h4>
|
||||
<button type="button" class="close" data-dismiss="modal">×</button><h4 class="modal-title">Actualizar alta</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpAltasUpdate" UpdateMode="Conditional">
|
||||
|
||||
@@ -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()
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user