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

Funcionalidad 6% ret servicios CveFuncionalidad 577

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-01-02 13:30:40 -07:00
parent 3df42e716b
commit 3d2af25cb3
1 changed files with 9 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Compras/Compras.aspx.vb
View File

@@ -2235,25 +2235,19 @@ Partial Class Compras_Compras
'ASIGNA VALORES ORIGINALES PARA GUARDAR 'ASIGNA VALORES ORIGINALES PARA GUARDAR
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total) AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
If RetencionIVA = 0 And IVAOriginal > 0 Then
If RetencionIVA = 0 And IVAOriginal > 0 Then For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
For Each dRow As DataRow In TmpDT.Rows tdIVA6.Visible = True
Exit For
If dRow("CveTipoPS").ToString.ToEntero = 1 Then End If
tdIVA6.Visible = True Next
Exit For End If
End If
Next
End If End If
End Sub End Sub
''' <summary> ''' <summary>
@@ -19226,12 +19220,6 @@ Partial Class Compras_Compras
TotalOriginal = TxtTotal.Text.ToDecimal TotalOriginal = TxtTotal.Text.ToDecimal
'For Each dRow As DataRow In TmpDT.Rows
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
' tdIVA6.Visible = True
' Exit For
' End If
'Next
For Each dRow As DataRow In TmpDT.Rows For Each dRow As DataRow In TmpDT.Rows