From 3072a1642d1737349f6b206beb8e045119875ac0 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 29 Apr 2020 18:07:07 -0700
Subject: [PATCH] .

---
 Ventas/Ventas.aspx.vb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e29bd8d2d..855b5cad7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8777,10 +8777,10 @@ Partial Class Ventas
         '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
+        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
@@ -11083,7 +11083,7 @@ Partial Class Ventas
                         CveConceptoAlmacen = 18
                     End If
 
-                    Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEnteroca
+                    Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero()
                     Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E1")
 
                     If CveMovimientoInventario <= 0 Then