AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- GDiaz, ocultar el %de iva, cuando es fronteriza la sucursal

Browse Source
This commit is contained in:
rrene
2024-12-10 11:36:09 -07:00
parent 2fc60e67f6
commit 887dd78aa9
1 changed files with 4 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Ventas/Ventas.aspx.vb
View File

@@ -19233,17 +19233,12 @@ Partial Class Ventas
If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
DdlIVA.Visible = True DdlIVA.Visible = True
End If 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() 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("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 If SerieXML <> "" Then LblSerie.Text = SerieXML
Dim CveSubProyecto As Integer = GetSubProyectoSucursal() Dim CveSubProyecto As Integer = GetSubProyectoSucursal()
If CveSubProyecto > 0 Then CargaSubProyecto(CveSubProyecto) If CveSubProyecto > 0 Then CargaSubProyecto(CveSubProyecto)