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

Pago Electronico Grupos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-06-08 21:42:43 -07:00
parent 5a9bcf1f32
commit 7b0eab0433
6 changed files with 1014 additions and 963 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
Compras/Compras.aspx.vb
View File

@@ -2162,9 +2162,9 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
End If
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
'End If
End If
@@ -2313,23 +2313,23 @@ Partial Class Compras_Compras
'ASIGNA VALORES ORIGINALES PARA GUARDAR
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
If RetencionIVA = 0 And IVAOriginal > 0 Then
For Each dRow As DataRow In TmpDT.Rows
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
' If RetencionIVA = 0 And IVAOriginal > 0 Then
' For Each dRow As DataRow In TmpDT.Rows
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
'comentado para reubicar el boton
'tdIVA6.Visible = True
' 'comentado para reubicar el boton
' 'tdIVA6.Visible = True
Exit For
End If
Next
End If
' Exit For
' End If
' Next
' End If
End If
'End If
End Sub
@@ -6043,7 +6043,12 @@ Partial Class Compras_Compras
End If
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
'Codigo anterior
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
'End If
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
End If
@@ -8853,11 +8858,14 @@ Partial Class Compras_Compras
End If
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
'End If
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
End If
End If
End If
@@ -15254,6 +15262,9 @@ Partial Class Compras_Compras
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False
Vinculacion()
ElseIf Math.Abs(SubTotalGV - SubTotalCompra) > DiferenciaPermitida And LblAmortizacion.Text.ToDecimal > 0 Then '2020-06-08 Oscar Permitir vincular cuando hay amortizacion de NC
LbSubTotalDif.Visible = False
Vinculacion()
ElseIf Math.Abs(SubTotalGV - (SubTotalCompra - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False
Vinculacion()
@@ -17521,23 +17532,23 @@ Partial Class Compras_Compras
GuardaAC()
End If
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 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
'End If
' '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
'Comnetado para reubicar el boton
'tdIVA6.Visible = True
Exit For
End If
Next
End If
' If RetencionIVA = 0 And IVAOriginal > 0 Then
' For Each dRow As DataRow In TmpDT.Rows
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
' 'Comnetado para reubicar el boton
' 'tdIVA6.Visible = True
' Exit For
' End If
' Next
' End If
End If
'End If