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

- acomodo

Browse Source
This commit is contained in:
rrene
2024-11-07 19:08:52 -07:00
parent 6efc0cee0e
commit d2470da7a8
2 changed files with 12 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
OC/OC.aspx.vb
View File

@@ -4049,29 +4049,24 @@ Partial Class OC_OC
'CveAFVinculado
e.Row.FCLiteral("LitMaq").Text = String.Format("<a class='Texto' href='../AF/AF.aspx?CveActivoFijo={0}'>{1}</a>", e.Row.DBCampo("CveActivoFijo"), e.Row.DBCampo("CodigoAF"))
'CveCompraDetalle Vinculada
Dim ObjOC As New ClsOC
If ObjOC.GetOCVinculadasPendientes(e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero) Then
If ObjOC.DtResultados.Rows.Count = 1 Then
e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
If e.Row.DBCampo("CveCompra") <> "" Then
If e.Row.DBCampo("NumComprasVinculadas").ToEntero = 1 Then
e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("FolioCompra"))
LblCompra.Visible = True
GvD.Columns(14).Visible = True
ElseIf ObjOC.DtResultados.Rows.Count > 1 Then
Else
LblCompra.Visible = True
e.Row.FCLiteral("LtlCompra").Visible = False
e.Row.FCLinkButton("LnkCompra").Visible = True
e.Row.FCLinkButton("LnkCompra").Enabled = True
'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;" 'return true;
e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
GvD.Columns(14).Visible = True
Else
e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True
End If
Else
e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True
End If
ObjOC.Dispose()
'CargaPresupuestosEgresos
If UsuarioActual.Empresa.UsaAC Then