-- mejoras para vinculación de OC, se ocultó a la clasif en gvOC, solo se muestra para E119

Compras/Compras.aspx.vb

@@ -1,4 +1,4 @@
-'{Option Explicit On
+Option Explicit On
 Option Strict On
 
 Imports System.Data
@@ -12,7 +12,6 @@ Imports Extensiones
 Imports MoreLinq
 Imports System.Data.SqlClient
 Imports ClsPaginas
-Imports Microsoft.Owin.Security.Provider
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_Compras
@@ -1612,7 +1611,6 @@ Partial Class Compras_Compras
             CargarCentrosDeCosto(DdlProyecto, Nothing, Nothing, Nothing)
             divproyecto.Visible = DdlProyecto.Visible
 
-            CargaGvPersonal()
             CargaDdlPersonal()
 
             InicializaDevolucionAlmacen()
@@ -12040,7 +12038,6 @@ Partial Class Compras_Compras
 
         'Afecta GVINV
         CargaGvInv()
-
         CargaGvPersonal()
     End Sub
     Protected Sub BtnVinculaAFEdit_Click(sender As Object, e As EventArgs)
@@ -15188,7 +15185,7 @@ Partial Class Compras_Compras
 
         CargaTipoCentroCostoOC()
 
-        GvOC1.DataSource = DTOCGV
+        GvOC1.DataSource = DTOCGV.FiltraParametros("", "CodigoPS")
         GvOC1.DataBind()
 
 
@@ -15212,7 +15209,7 @@ Partial Class Compras_Compras
             For Each Gvr As GridViewRow In GvOC1.Rows
                 Dim Change As Boolean = False
                 For Each Dr2 As DataRow In TmpDT.Rows
-                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
+                    If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
                         Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
                         Change = True
                     End If
@@ -15234,9 +15231,11 @@ Partial Class Compras_Compras
             If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra<br/>" & strMsg.ToString, TipoMensaje.MsgAdvertencia)
 
             'condicion temporal rmf
-            GvOC1.Columns(6).Visible = False
+            GvOC1.Columns(5).Visible = False 'proyecto
+            GvOC1.Columns(6).Visible = False 'codigoSAT
             GvOC2.Columns(4).Visible = False
             GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
+
         Else
             GvOC2.DataSource = TmpDT
         End If
@@ -15281,6 +15280,10 @@ Partial Class Compras_Compras
                 e.Row.FCLabel("LbEstatusInv").Text = "NA"
             End If
 
+            If UsuarioActual.CveEmpresa = 119 Then 'visualizar clasificación en vinculación OC
+                e.Row.FindControl("spanclasif").Visible = False
+            End If
+
             If Version = "3.3" Or Version = "4.0" Then
                 CargaPSSAT(e.Row.FCDropDownLost("DdlSATPS"))
                 If e.Row.DBCampo("CveSATPS").ToEntero > 0 Then
@@ -15292,6 +15295,14 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+    Protected Sub GvOC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC2.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If UsuarioActual.CveEmpresa = 119 Then 'visualizar clasificación en vinculación OC
+                e.Row.FindControl("spanclasif").Visible = True
+            End If
+        End If
+    End Sub
+
     Private Sub CargaPSSAT(Objeto As ADServerControl.Dropdownlost)
         Objeto.setEsWebService(True)
         Objeto.ddlWS.Attributes.Add("data-metodo", "getpssat")
@@ -15735,7 +15746,7 @@ Partial Class Compras_Compras
         CargaGVsAF()
 
         CargaTipoCentroCostoOC()
-        GvOC1.DataSource = DTOCGV
+        GvOC1.DataSource = DTOCGV.FiltraParametros("", "CodigoPS")
         GvOC1.DataBind()
 
         Dim DTCVEOCS As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
@@ -15775,10 +15786,7 @@ Partial Class Compras_Compras
         If UsuarioActual.Empresa.UsaAC Then
             CompruebaAgregar()
         End If
-
         CargaGvPersonal()
-
-
         'ANTICIPO OC
         If DivOCSolicitudAnticipo.Visible Then
 
@@ -15858,7 +15866,7 @@ Partial Class Compras_Compras
         CargaGVsAF()
 
         CargaTipoCentroCostoOC()
-        GvOC1.DataSource = DTOCGV
+        GvOC1.DataSource = DTOCGV.FiltraParametros("", "CodigoPS")
         GvOC1.DataBind()
 
         Dim DTCVEOCS As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
@@ -15897,9 +15905,7 @@ Partial Class Compras_Compras
         If UsuarioActual.Empresa.UsaAC Then
             CompruebaAgregar()
         End If
-
         CargaGvPersonal()
-
         'ANTICIPO OC
         If DivOCSolicitudAnticipo.Visible Then
             RegistraScript("MuestraAnticipos();", "MuestaAnticiposOC")
@@ -19746,7 +19752,6 @@ Partial Class Compras_Compras
                 TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero
                 TrOtrosImpuestos.Visible = False
             End If
-
             CargaGvPersonal()
             UpPS.Update()
             RegistraScript("$('#ModalIEPS').modal('hide');")