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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-01-03 13:17:17 -07:00
parent 82bda79bfd 64348ce135
commit 599edfc367
5 changed files with 102 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
OC/OC.aspx.vb
View File

@@ -3148,7 +3148,10 @@ Partial Class OC_OC
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, SerieFolio), "")
If CveOrdenCompra > 0 Then
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Orden de Compra</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
Dim ImprimirOC As String = String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> ", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)), If(TipoOC = "OC", "Orden de Compra", "Requisición"))
Dim Msg As New StringBuilder
'Cuando Estatus = "Autorizada"
@@ -3164,11 +3167,24 @@ Partial Class OC_OC
End If
If LigaOCs = "" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
If TipoOC.ToUpper = "REQ" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, ImprimirOC)
Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente <br/> {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
End If
Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
If TipoOC.ToUpper = "REQ" Then
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, ImprimirOC)
Else
Msg.AppendFormat("La {0} No. <b><font size=""3"" >{1}</font></b>.<br/> Ha sido guardada correctamente<br><br>Orden de Compra:{2} <br/> {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
End If
End If
'IMPRIME LIGA A POLIZAS
If IDPolizasGeneradas.Count > 0 Then
Msg.Append("<br/><br/> <b>Polizas generadas:</b>")