diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5c3d28ceb..2c13b4900 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6650,7 +6650,16 @@ Partial Class Compras_Compras
                                                                             Else
 
                                                                                 If Not CveCompraRefacturacion > 0 Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+
+                                                                                    Dim CveSubProyecto240 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
+
+                                                                                    If CveSubProyecto240 <= 0 Then
+                                                                                        Alert("Debe de asignar un sub proyecto o centro de costos", TipoMensaje.MsgAdvertencia)
+                                                                                        ErrorPrepoliza = True
+                                                                                        Exit For
+                                                                                    End If
+
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto240) Then
                                                                                         ErrorPrepoliza = True
                                                                                     End If
                                                                                 End If