Indicadores Medicos, procedimientos

Ventas/Ventas.aspx.vb

@@ -2312,6 +2312,18 @@ Partial Class Ventas
 
 #End Region
 
+    Public Property CveAlmacenAsignado As Integer
+        Get
+            If ViewState("CveAlmacenAsignado") Is Nothing Then
+                ViewState("CveAlmacenAsignado") = -1
+            End If
+            Return ViewState("CveAlmacenAsignado").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacenAsignado") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -6803,6 +6815,10 @@ Partial Class Ventas
             Else
                 Alert("Ocurrió un error al cargar los datos del cliente. Por favor vuelva a intentar.", TipoMensaje.MsgError)
             End If
+
+
+            CveAlmacenAsignado = ObjCliente.CveAlmacenAsignado
+
         End If
         ObjCliente.Dispose()
 
@@ -13092,7 +13108,7 @@ Partial Class Ventas
         End If
 
         'ASIGNA EL VALOR DEL ALMACEN AL PEDIDO
-        If factura.TipoDocto = "Ped" Then
+        If factura.TipoDocto = "Ped" And EsVentaMedica = False Then
             If CveAlmacenTraspasoDestino <= 0 Then
                 CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
             End If
@@ -13103,9 +13119,14 @@ Partial Class Ventas
             End If
         End If
 
-
         If UsuarioActual.CveEmpresa.Contiene(186) AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
-            CveAlmacenTraspasoDestino = 1031 'FIXME OIC 2023-12-12 Por definir almacen  
+
+            If CveAlmacenAsignado <= 0 Then
+                ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
+            Else
+                CveAlmacenTraspasoDestino = CveAlmacenAsignado
+            End If
+
         End If
 
         Dim TotalImpuestoLocal As Double = 0
@@ -34922,6 +34943,8 @@ Partial Class Ventas
 
 
 
+
+
     'Property SucursalOrigenCP As Modelos.SucursalModel
     '    Get
     '        If ViewState("SucursalOrigenCP") Is Nothing Then
@@ -36026,9 +36049,8 @@ Partial Class Ventas
             TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = True
             ChkRequiereTecnico.Enabled = False
-            DdlTipoComprobante.SelectedValueExist("Rem")
+            DdlTipoComprobante.SelectedValueExist("Ped")
         Else
-
             DdlTipoComprobante.SelectedValueExist("Ing")
         End If
         DdlTipoComprobante.Enabled = False