SMS 2024.02.08 y SMS 2024.02.09 Retro

Ventas/Ventas.aspx.vb

@@ -553,6 +553,20 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property CveClienteSucursalOS As Integer
+        Get
+            If ViewState("CveClienteSucursalOS") Is Nothing Then
+                ViewState("CveClienteSucursalOS") = -1
+            End If
+            Return ViewState("CveClienteSucursalOS").ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveClienteSucursalOS") = value
+        End Set
+    End Property
+
+
+
     Private Property CveClienteSucursal As Integer
         Get
             If ViewState("CveClienteSucursal") Is Nothing Then
@@ -36418,17 +36432,17 @@ Partial Class Ventas
             Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
         End If
     End Function
-    Private Function DdlClienteSucursalSucursal() As Integer
 
+    Private Function DdlClienteSucursalSucursal() As Integer
         If DdlClienteSucursal.SelectedValue = "-1" Then
             Return -1
         Else
             Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
             Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
         End If
-
     End Function
 
+
     Private Sub SeleccionarClienteSucursal(CveCliente As Integer)
 
         Dim IndexSeleccion As Integer = 0
@@ -36521,6 +36535,7 @@ Partial Class Ventas
             End If
         End If
 
+        CveClienteSucursalOS = DdlClienteSucursalSucursal()
 
 
         If ChkRequiereTecnicoModal.Checked Then
@@ -36610,7 +36625,17 @@ Partial Class Ventas
 
         CargaCliente(CveCliente)
 
-        DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal)
+
+        ' Si es pago directo no asigna la sucurasl al dll
+        If RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
+            If DdlClienteSucursalSucursal() > 0 Then
+                DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal())
+            Else
+                If DdlSucursalCliente.Items.Count >= 2 Then
+                    DdlSucursalCliente.SelectedIndex = 1
+                End If
+            End If
+        End If
 
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
@@ -36734,8 +36759,10 @@ Partial Class Ventas
 
         Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero
 
+
+
         If ObjOrdenServicio.AddOrdenesServicios(CveClienteOS, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio,
-                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVentaOS, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero,
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVentaOS, -1, -1, CveOSTipo, CveClienteSucursal:=CveClienteSucursalOS,
                                                         Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero,
                                                         CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime,
                                                         Paciente:=TxtPaciente.Text, IdentificadorCliente:=TxtEpisodio.Text) Then