diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4995b7418..be47e9a39 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18260,6 +18260,18 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
+        Dim ObjContratos As New ClsContratos
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        Dim CveContratoDetalle As Integer = -1
+        If CveContrato > 0 Then
+            If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
+                CveContratoDetalle = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString)).ToEntero
+                If CveContratoDetalle = 0 Then
+                    CveContratoDetalle = -1
+                End If
+            End If
+        End If
+        ObjContratos.Dispose()
 
 
         Select Case Modalidad
@@ -18276,10 +18288,11 @@ Partial Class Compras_Compras
                 Else
                     IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
                 End If
+                ObjContratos.Dispose()
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
                                   TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
-                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
+                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -18291,7 +18304,7 @@ Partial Class Compras_Compras
                 End If
 
             Case "U" 'UPDATE
-                UpdatePS()
+                UpdatePS(CveContratoDetalle)
                 Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
         End Select
@@ -18483,7 +18496,7 @@ Partial Class Compras_Compras
         End If
 
     End Sub
-    Private Sub UpdatePS()
+    Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1)
         Dim DrPS As DataRow = Nothing
         Try
             DrPS = TmpDT.Select($"Consec = {Index}")(0)
@@ -18506,6 +18519,7 @@ Partial Class Compras_Compras
         DrPS("CveProyecto") = DdlProyecto.SelectedValue.ToEntero
         DrPS("SubProyecto") = DdlSubProyecto.SelectedItem.Text
         DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToEntero
+        DrPS("CveContratoDetalle") = CveContratoDetalle
 
         'IMPORTES - [CANTIDAD Y PRECIO]
         Dim Cantidad = DrPS("Cantidad").ToString.ToDouble
@@ -21038,12 +21052,14 @@ Partial Class Compras_Compras
         End If
         objContratos.Dispose()
 
-        If MensajeProducto.Length <> 64 Then
+        If MensajeProducto.Length > 64 Then
             Retorno = MensajeProducto
-        ElseIf MensajeCantidad.Length <> 84 Then
+        ElseIf MensajeCantidad.Length > 84 Then
             Retorno = MensajeCantidad
-        ElseIf MensajeImporte.Length <> 86 Then
+        ElseIf MensajeImporte.Length > 86 Then
             Retorno = MensajeImporte
+        Else
+            Retorno = ""
         End If
 
         Return Retorno