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