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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-06 19:58:14 -07:00
parent 98f93dff92 7d34b60194
commit 40b5d63e56
8 changed files with 329 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
OC/CatEstatus.aspx.vb
View File

@@ -165,16 +165,27 @@ Partial Class OC_CatEstatus
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim TieneError = False
Dim ObjEstatus As New ClsOC
Dim ObjEstatus As New ClsOC
'No quitar transacción la transacción es por que el update puede generar recursividad en la vista Vw_OC_Estatus error 530
ObjEstatus.IniciaTransacSQL()
If HdnModalidad.Value = "I" Then
If Not ObjEstatus.AddEstatus(TxtEstatus.Text.Trim, DdlTipo.SelectedValue.ToString, DdlEstatusSiguiente.SelectedValue.ToEntero, DdlTipoTermino.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TieneError = True
End If
Else
If Not ObjEstatus.UpdateEstatus(TxtEstatus.Text.Trim, DdlTipo.SelectedValue.ToString, DdlEstatusSiguiente.SelectedValue.ToEntero, DdlTipoTermino.SelectedValue.ToEntero, ChkEstatus.Checked, ChkCancelable.Checked, CveEstatus) Then
If Not ObjEstatus.UpdateEstatus(TxtEstatus.Text.Trim, DdlTipo.SelectedValue.ToString, DdlEstatusSiguiente.SelectedValue.ToEntero, DdlTipoTermino.SelectedValue.ToEntero, ChkEstatus.Checked, ChkCancelable.Checked, CveEstatus, DdlEstatusSiguiente.SelectedItem.Text) Then
TieneError = True
End If
End If
If TieneError Then
ObjEstatus.RollBack()
Else
ObjEstatus.Commit()
End If
ObjEstatus.Dispose()
If Not TieneError Then
@@ -189,7 +200,7 @@ Partial Class OC_CatEstatus
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarEstatus"))
CargaDatos()
Else
Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
End If
End Sub