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

OC mensaje guardar, continuar registrando o ir a reporte

Browse Source
This commit is contained in:
rakcsle
2021-10-06 20:08:26 -07:00
parent eb94d07c08
commit fda368849d
1 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
OC/OC.aspx.vb
View File

@@ -2737,7 +2737,15 @@ Partial Class OC
Next Next
End If End If
Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""") ' Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
'ES NUEVO
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
'GeneraPDF(CveOrdenCompra) 'GeneraPDF(CveOrdenCompra)
TxtDescrip.Text = "" TxtDescrip.Text = ""
@@ -3103,7 +3111,13 @@ Partial Class OC
If Conta IsNot Nothing Then Conta.Commit() If Conta IsNot Nothing Then Conta.Commit()
If LigaOCs = "" Then If LigaOCs = "" Then
Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgInformacion) 'Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgInformacion)
'Edicion
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
Else Else
Dim ImprimirOC = "" Dim ImprimirOC = ""
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
@@ -3123,7 +3137,16 @@ Partial Class OC
Next Next
End If End If
Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""") 'Alert(Msg.ToString, TipoMensaje.MsgInformacion, $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}""")
'Edicion
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
End If End If
DrEliminados.Clear() DrEliminados.Clear()