AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- se agregó parametro en empresa, al actualizar estatus

Browse Source
This commit is contained in:
rrene
2022-05-12 14:06:50 -07:00
parent 6c9974c04a
commit 46dd87f79d
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/eFacturas.aspx.vb
View File

@@ -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()