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) Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion)
End If 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) BtnConsultar_Click(sender, e)
End If End If
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -108,7 +108,7 @@ Partial Class Ventas_eFacturas
Dim ObjDatos As New ClsCompras 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) BtnConsultar_Click(sender, e)
End If End If
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -124,7 +124,7 @@ Partial Class Ventas_eFacturas
Dim ObjDatos As New ClsCompras 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) BtnConsultar_Click(sender, e)
End If End If
ObjDatos.Dispose() ObjDatos.Dispose()
@@ -297,7 +297,7 @@ Partial Class Ventas_eFacturas
Dim ObjDatos As New ClsCompras Dim ObjDatos As New ClsCompras
Dim FueValidado As Integer = 0 Dim FueValidado As Integer = 0
If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 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 GvD.EditIndex = -1
BtnConsultar_Click(sender, e) BtnConsultar_Click(sender, e)
End If 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 Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting
Dim Fact As New ClsCompras 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 GvD.EditIndex = -1
Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion)
CargaDatos() CargaDatos()