- cambios lugarexpedicion

2020-03-29 21:29:28 -07:00
parent f9edbaf403
commit 7ef3ccde65
1 changed files with 9 additions and 5 deletions
--- 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 = ""