From e7cabe9e8b576feea3c80bd9331fcc482e0fc3d2 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:54:46 -0700 Subject: [PATCH] -- resico E119 --- Compras/Compras.aspx.vb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 55031430c..bdf3f9b2f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2194,6 +2194,9 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Clear() DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) + If UsuarioActual.CveEmpresa = 119 Then + DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + End If End If UpPS.Update() End Sub @@ -6315,7 +6318,10 @@ Partial Class Compras_Compras funcionalidad = 318 ConceptoContable = 244 ConceptoContableContra = 243 - + ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 328 + ConceptoContableContra = 327 End If importeMovimiento = importeRetISRAcreditable @@ -6352,7 +6358,9 @@ Partial Class Compras_Compras ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then funcionalidad = 317 ConceptoContable = 243 - + ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 327 End If importeMovimiento = importeRetISRxAcreditar importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador