SMS - 2024.02.09 Ventas pago Directo agregar agregar cliente, rep cirugias agregar filtros hospitales y especialidades

Ventas/Ventas.aspx

@@ -8430,7 +8430,7 @@
 
 
                         <%--Cliente Sucursales --%>
-                        <div runat="server" visible="False" id="DvModalTipoVentaPasoCliente">
+                        <div runat="server" visible="False" id="DvModalTipoVentaClientesucursal">
                             <div class="row">
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
                                     <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true"
@@ -8445,6 +8445,19 @@
                         </div>
 
 
+                            <%--Cliente Solo se usa para en PAgo Directo --%>
+                            <div runat="server" visible="False" id="DvModalTipoVentaCliente" >
+                                <div class="row">
+                                    <div class="form-group col-md-12 form-md-line-input input-iconright" style="margin-top:-7px!important" >
+                                        <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Cliente:</asp:Label>
+                                        <ADS:Dropdownlost CssClassDdl="form-control select2me" ID="DdlClientesModal" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"
+                                            style="margin-top:-5px!important" IncluyeTodos="false" >
+                                        </ADS:Dropdownlost>
+                                    </div>
+                                </div>
+                            </div>
+
+
                 
 
 

Ventas/Ventas.aspx.vb

@@ -539,6 +539,20 @@ Partial Class Ventas
         End Get
     End Property
 
+
+
+    Private Property CveClienteOS As Integer
+        Get
+            If ViewState("CveClienteOS") Is Nothing Then
+                ViewState("CveClienteOS") = -1
+            End If
+            Return ViewState("CveClienteOS").ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveClienteOS") = value
+        End Set
+    End Property
+
     Private Property CveClienteSucursal As Integer
         Get
             If ViewState("CveClienteSucursal") Is Nothing Then
@@ -36256,6 +36270,17 @@ Partial Class Ventas
         DdlClienteSucursal.DataBind()
         DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
+        Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        If EsWS Then
+            DdlClientesModal.setEsWebService(True)
+
+        Else
+            DdlClientesModal.setEsWebService(False)
+            DdlClientesModal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientesModal.DataBind()
+            DdlClientesModal.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+        End If
+
     End Sub
 
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
@@ -36272,7 +36297,7 @@ Partial Class Ventas
         If RBLTipoVenta.SelectedValue.ToEntero > 0 Then
 
             DvModalTipoVentaPasoTipo.Visible = False
-            DvModalTipoVentaPasoCliente.Visible = True
+            DvModalTipoVentaClientesucursal.Visible = True
             DvModalTipoVentaPasoRequiereOS.Visible = True
             DvModalTipoVentaPasoMedicoProcedimiento.Visible = True
 
@@ -36298,6 +36323,7 @@ Partial Class Ventas
                     ChkRequiereTecnicoModal.Checked = True
                     ChkRequiereTecnicoModal.Enabled = False
                     DvModalRequiereOSFecha.Visible = True
+                    DvModalTipoVentaCliente.Visible = True
                 Case "3" 'A-Vista
                     ChkRequiereTecnicoModal.Checked = False
                     DvModalTipoVentaPasoRequiereOS.Visible = False
@@ -36387,7 +36413,8 @@ Partial Class Ventas
         LnkDvModalTipoVentaAceptar.Visible = False
 
         DvModalTipoVentaPasoTipo.Visible = True
-        DvModalTipoVentaPasoCliente.Visible = False
+        DvModalTipoVentaClientesucursal.Visible = False
+        DvModalTipoVentaCliente.Visible = False
         DvModalTipoVentaPasoRequiereOS.Visible = False
         DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
 
@@ -36420,15 +36447,35 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
+        If RBLTipoVenta.SelectedValue.ToEntero = 2 Then
+
+            If DdlClientesModal.SelectedValue.ToEntero > 0 Then
+                ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
+            Else
+                Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
 
 
-        If DdlClienteSucursalCliente() > 0 Then
-            ViewState("CveCliente") = DdlClienteSucursalCliente()
+            If DdlClienteSucursalCliente() > 0 Then
+                CveClienteOS = DdlClienteSucursalCliente()
+            Else
+                Alert("Debe de seleccionar un hospital.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
         Else
-            Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+            If DdlClienteSucursalCliente() > 0 Then
+                ViewState("CveCliente") = DdlClienteSucursalCliente()
+                CveClienteOS = CveCliente
+            Else
+                Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
         End If
 
+
+
         If ChkRequiereTecnicoModal.Checked Then
             If Not IsDate(TxtFechaModal.Text.Replace(",", "")) Then
                 Alert("El campo fecha no es valido.", TipoMensaje.MsgAdvertencia)
@@ -36640,7 +36687,7 @@ Partial Class Ventas
 
         Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero
 
-        If ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio,
+        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,
                                                         Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero,
                                                         CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime,