-- mejora para SMS

Ventas/Ventas.aspx.vb

@@ -13691,14 +13691,14 @@ Partial Class Ventas
                     Else
                         CveAlmacenTraspasoDestino = drr("CveAlmacenAsignado").ToString.ToEntero '' cuando Fuera de Línea
                     End If
+                End If
             End If
-        End If
 
-        If Not CveAlmacenTraspasoDestino > 0 Then
+            If Not CveAlmacenTraspasoDestino > 0 Then ' para consignación es salida directa
                 CveAlmacenTraspasoDestino = CveAlmacenAsignado
             End If
 
-            If RBLTipoVenta.SelectedValue.ToEntero = 2 Then
+            If RBLTipoVenta.SelectedValue = "2" Then
                 If Not ChkRequiereTecnico.Checked Then
                     CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
                 End If
@@ -13712,6 +13712,7 @@ Partial Class Ventas
                     ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
                 End If
             End If
+
         End If
 
         Dim TotalImpuestoLocal As Double = 0