diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ac7c5984a..f0fabce52 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8767,12 +8767,16 @@ Partial Class Ventas
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
         Timbre.Comprobante.Total = Obj.Total
 
-        Try
-            Obj.SetSubProyecto(Me)
-            Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-        Catch ex As Exception
+        'Try
+        'Obj.SetSubProyecto(Me)
+        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+            If Timbre.Comprobante.LugarExpedicion = "" Then
+                Dim aa As String = "no se guardo lugar de expedicion"
+                aa.GuardaLog()
+            End If
+        'Catch ex As Exception
 
-        End Try
+        'End Try
 
         Timbre.Comprobante.Confirmacion = ""