diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c5b4ef8d0..58ed3852e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -19233,17 +19233,12 @@ Partial Class Ventas
             If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
                 DdlIVA.Visible = True
             End If
+            'si es GDiaz, bloqueado el cambio de % de IVA
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then DdlIVA.Visible = False
+
             If RecalcularIVA AndAlso TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA()
-            'ViewState("SubProyectoPorcentajeIVA") = dr("IVA")
+
             ViewState("TipoFormato") = dr("TipoFormato")
-            'ViewState("Serie") = dr("Serie")
-
-            'If UsuarioActual.CveEmpresa = 140 AndAlso Me.CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
-            '    LblSerie.Text = SerieVenta
-            'Else
-            '    LblSerie.Text = dr("Serie").ToString()
-            'End If
-
             If SerieXML <> "" Then LblSerie.Text = SerieXML
             Dim CveSubProyecto As Integer = GetSubProyectoSucursal()
             If CveSubProyecto > 0 Then CargaSubProyecto(CveSubProyecto)