diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index f25ecfa5d..90b1948f5 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -689,6 +689,7 @@
| ¿No Deducible? |
@@ -792,53 +793,62 @@
- <%-- 9 --%>
-
+ <%-- 9 --%>
+
+
+
+
+
+
+
<%-- 10 --%>
+
+
+ <%-- 11 --%>
- <%-- 11 --%>
+ <%-- 12 --%>
- <%-- 12 --%>
+ <%-- 13 --%>
- <%-- 13 --%>
+ <%-- 14 --%>
- <%-- 14 --%>
+ <%-- 15 --%>
- <%-- 15 --%>
+ <%-- 16 --%>
- <%-- 16 --%>
+ <%-- 17 --%>
- <%-- 17 --%>
+ <%-- 18 --%>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f0e41fc77..6b1c3d08d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11022,11 +11022,12 @@ Partial Class Compras_Compras
'e.Row.Cells(11).Width = Unit.Pixel(43)
If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0)
- e.Row.Cells(12).Width = Unit.Pixel(150)
e.Row.Cells(13).Width = Unit.Pixel(150)
e.Row.Cells(14).Width = Unit.Pixel(150)
e.Row.Cells(15).Width = Unit.Pixel(150)
- e.Row.Cells(16).Width = Unit.Pixel(100)
+ e.Row.Cells(16).Width = Unit.Pixel(150)
+ e.Row.Cells(17).Width = Unit.Pixel(150)
+ e.Row.Cells(18).Width = Unit.Pixel(100)
End If
End If
@@ -11127,11 +11128,11 @@ Partial Class Compras_Compras
'CargaPresupuestosEgresos
If UsuarioActual.Empresa.UsaAC Then
- e.Row.Cells(13).Visible = True
e.Row.Cells(14).Visible = True
e.Row.Cells(15).Visible = True
e.Row.Cells(16).Visible = True
e.Row.Cells(17).Visible = True
+ e.Row.Cells(18).Visible = True
e.Row.FCDropDownList("DdlAC1").Items.Clear()
e.Row.FCDropDownList("DdlAC1").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
@@ -11162,19 +11163,19 @@ Partial Class Compras_Compras
'SI EL PRESUPUESTO DE EGRESOS VIENE DESDE LA OC, SE BLOQUEA PE
If e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero > 0 AndAlso e.Row.DBCampo("CvePresupuestoEgreso").ToEntero > 0 Then
- e.Row.Cells(13).Enabled = False
e.Row.Cells(14).Enabled = False
e.Row.Cells(15).Enabled = False
e.Row.Cells(16).Enabled = False
e.Row.Cells(17).Enabled = False
+ e.Row.Cells(18).Enabled = False
End If
Else
- e.Row.Cells(13).Visible = False
e.Row.Cells(14).Visible = False
e.Row.Cells(15).Visible = False
e.Row.Cells(16).Visible = False
e.Row.Cells(17).Visible = False
+ e.Row.Cells(18).Visible = False
End If
End If
@@ -13291,11 +13292,11 @@ Partial Class Compras_Compras
'Seccion Grid
GvPS.Width = 1760
- GvPS.Columns(12).Visible = True
GvPS.Columns(13).Visible = True
GvPS.Columns(14).Visible = True
GvPS.Columns(15).Visible = True
GvPS.Columns(16).Visible = True
+ GvPS.Columns(17).Visible = True
'Panel General
UpPresupuestosAC.Visible = True
@@ -17506,7 +17507,7 @@ Partial Class Compras_Compras
CargaRetISRConcepto()
Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
- If NumNoDed > 0 Then GvPS.Columns(10).Visible = True 'visualiza columnas de nodeducibles
+ If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
InicializaAplicaNCFact()
@@ -20506,12 +20507,12 @@ Partial Class Compras_Compras
If ChkEsNoDeducible.Checked Then
EsNoDeducible = True
dvNoDeducible.Visible = True
- GvPS.Columns(10).Visible = True
+ GvPS.Columns(11).Visible = True
UpEsNoDeduciblePS.Visible = True
Else
EsNoDeducible = False
dvNoDeducible.Visible = False
- GvPS.Columns(10).Visible = False
+ GvPS.Columns(11).Visible = False
UpEsNoDeduciblePS.Visible = False
End If
'DivEsNoDeducible.Visible = False