From caac344bcfec6128e0716a8dda8218360fcfb6d4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sun, 22 Dec 2024 09:15:36 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejoras=20para=20vinculaci=C3=B3n=20de=20O?= =?UTF-8?q?C,=20se=20ocult=C3=B3=20a=20la=20clasif=20en=20gvOC,=20solo=20s?= =?UTF-8?q?e=20muestra=20para=20E119?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 40 +++++++++++++++++----------------------- Compras/Compras.aspx.vb | 35 ++++++++++++++++++++--------------- 2 files changed, 37 insertions(+), 38 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index f8818fa03..e0236af06 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -12,7 +12,7 @@
  • -
    • + g
  • Agregar Concepto
    • @@ -753,7 +753,7 @@ - + <%-- 0 --%> @@ -1716,33 +1716,32 @@ + DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS,NumeroParte,CvePS"> - + - + - + - - + + - - - -
    + + +     @@ -1792,9 +1791,7 @@ - - - Importes Vinculados + Importes Calculados <%-- --%> @@ -1960,19 +1957,16 @@ - + - + - - - -
    + + +     - Clasificación -
    Producto/Servicio     diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4e9a130d1..70e4cba07 100644 --- a/Compras/Compras.aspx.vb +++ b/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
    " & 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');")