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