Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -2939,6 +2939,7 @@ Partial Class Ventas
                             End If
                             ObjInv.Dispose()
 
+
                         End If
                         'regenrea el tipo de cambio
                         CargaNuevaFactura(Nothing)
@@ -3199,15 +3200,6 @@ Partial Class Ventas
             TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()")
             TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()")
 
-            'Permitir Edicion de Iva
-            If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
-                TxtIVA.Enabled = True
-                'TxtTotal.Enabled = True
-                RegistraScript("SetDisabledTxtTotal(false);")
-                TxtSubTotal.Enabled = True
-                TxtSubTotal2.Enabled = True
-            End If
-
             'Cortes de Caja
             If UsuarioActual.TienePermisoProceso(160) Then
                 CargaCorteCaja()
@@ -6031,7 +6023,12 @@ Partial Class Ventas
                         GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
                         GvImpuestosLocales2.DataBind()
 
-                        GvImpuestosLocales2.Enabled = False
+                        If (NuevaFactura = 1) Then
+                            GvImpuestosLocales2.Enabled = True
+                        Else
+                            GvImpuestosLocales2.Enabled = False
+                        End If
+
                         GvImpuestosLocales2.Visible = True
                     End If
                 End If
@@ -24261,14 +24258,6 @@ Partial Class Ventas
                 RegistraScript("SetDisabledTxtTotal(true);")
                 If TxtFolio.Text.Trim = "" Then TxtFolio.Enabled = True
 
-                If UsuarioActual.TienePermisoProceso(112) Then
-                    TxtSubTotal.Enabled = True
-                    TxtSubTotal2.Enabled = True
-                    TxtIVA.Enabled = True
-                    'TxtTotal.Enabled = True
-                    RegistraScript("SetDisabledTxtTotal(false);")
-                End If
-
                 TxtIVA.Text = IVA.FormatoNumero
                 TxtRetIVA.Text = RetencionIVA.FormatoNumero
                 LblDescuentos.Text = Descuentos.FormatoNumero
@@ -29101,7 +29090,11 @@ Partial Class Ventas
                 GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
                 GvImpuestosLocales2.DataBind()
 
-                GvImpuestosLocales2.Enabled = False
+                If (NuevaFactura = 1) Then
+                    GvImpuestosLocales2.Enabled = True
+                Else
+                    GvImpuestosLocales2.Enabled = False
+                End If
                 GvImpuestosLocales2.Visible = True
             End If
         End If