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

Iva 6% boton agregar ps se agrego valdia si se muest5ra boton de 6 %

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-05 18:46:55 -07:00
parent 6674b77968
commit 2062dbdb05
1 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Compras/Compras.aspx.vb
View File

@@ -2237,6 +2237,11 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
'If UsuarioActual.CveRol = 1 Then
' Alert("Ok funcionalidad 577")
'End If
If RetencionIVA = 0 And IVAOriginal > 0 Then If RetencionIVA = 0 And IVAOriginal > 0 Then
For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then If dRow("CveTipoPS").ToString.ToEntero = 1 Then
@@ -16988,6 +16993,26 @@ Partial Class Compras_Compras
CompruebaAgregar() CompruebaAgregar()
GuardaAC() GuardaAC()
End If End If
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
'If UsuarioActual.CveRol = 1 Then
' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
'End If
If RetencionIVA = 0 And IVAOriginal > 0 Then
For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
tdIVA6.Visible = True
Exit For
End If
Next
End If
End If
UpPS.Update() UpPS.Update()
CargaGvPersonal() CargaGvPersonal()
End Sub End Sub