From 46dd87f79d23f1e14efe51a52867d24c54f12c60 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:06:50 -0700 Subject: [PATCH] =?UTF-8?q?-=20se=20agreg=C3=B3=20parametro=20en=20empresa?= =?UTF-8?q?,=20al=20actualizar=20estatus?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/eFacturas.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 92b66a211..390e3115e 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -91,7 +91,7 @@ Partial Class Ventas_eFacturas Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -108,7 +108,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -124,7 +124,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -297,7 +297,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 BtnConsultar_Click(sender, e) End If @@ -323,7 +323,7 @@ Partial Class Ventas_eFacturas Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting Dim Fact As New ClsCompras - If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero) Then + If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) CargaDatos()