diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 38d20fbab..205201a92 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1551,7 +1551,7 @@ SubTotal 2: - + <%-- --%> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 61376ad6f..7a7c8b88a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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 @@ -24264,14 +24261,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 @@ -29104,7 +29093,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