From 39ae963b48a7c71bba1a522949b09ba63991555d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 6 Jan 2024 11:47:47 -0700 Subject: [PATCH] SMS - 2023.01.05 Ventas Modal Ddl Clientes Sucursales --- App_Code/ClsClientes.vb | 18 ++ App_Code/ClsPaginas.vb | 2 +- App_Code/ClsVentas.vb | 4 +- Compras/PopUpVerFactura.aspx.vb | 1 + OS/RepOSMedicas.aspx | 8 +- Ventas/Ventas.aspx | 30 ++-- Ventas/Ventas.aspx.vb | 297 +++++++++++++++++++------------- 7 files changed, 220 insertions(+), 140 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 60f56f1b0..dbc607331 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -954,6 +954,24 @@ Public Class ClsClientes End Try Return Retorno End Function + Public Function GetClienteSucursales(CveCliente As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_ClienteSucursalesGet") + SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 44a04bf0a..b2b9a8172 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5885,7 +5885,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion)) params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) - params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm"))) + params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm"))) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 645ca383a..08e1b50ed 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -406,7 +406,7 @@ Public Class ClsVentas End Function Public Function AddVenta(TipoDocto As String, FolioFact As Integer, CveCliente As Integer, CveClienteSucursal As Integer, SubTotal As Double, Descuento As Double, Amortizacion As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Double, - CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As Date, + CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As DateTime, CveVendedor As Integer, Alfa1 As String, Alfa2 As String, Alfa3 As String, Num1 As Double, Num2 As Double, Num3 As Double, Fech1 As Date, Fech2 As Date, Fech3 As Date, CveCorte As Integer, NumeroPersonas As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional Propina As Double = -1, Optional CveVentaTerminal As Integer = -1, Optional AtencionA As String = "-1", Optional CveContrato As Integer = -1, @@ -448,7 +448,7 @@ Public Class ClsVentas .Add("@Fecha", SqlDbType.DateTime).Value = Fecha .Add("@MotivoDescuento", SqlDbType.VarChar).Value = MotivoDescuento .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones - .Add("@FechaEjecucion", SqlDbType.Date).Value = FechaEjecucion + .Add("@FechaEjecucion", SqlDbType.DateTime).Value = FechaEjecucion .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@Alfa1", SqlDbType.VarChar).Value = Alfa1 .Add("@Alfa2", SqlDbType.VarChar).Value = Alfa2 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3740153c9..868b5c508 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3087,6 +3087,7 @@ Partial Class PopUpVerFactura Vta.Medico = dtVentas(0)("Medico").ToString Vta.Procedimiento = dtVentas(0)("Procedimiento").ToString Vta.Alfa1 = dtVentas(0)("Alfa1").ToString + Vta.FechaEjecucion = dtVentas(0)("FechaEjecucion").ToString.ToDateTime Vta.RefDocto = dtVentas(0)("Ref").ToString Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 4b9799620..9e6ae0e94 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -171,7 +171,7 @@ <%--1--%> <%--2--%> - + <%--3--%> <%--4--%> @@ -196,10 +196,4 @@ - - - - - - diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 303337546..dc0a3826e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8415,19 +8415,35 @@ - <%--Cliente--%> + <%--Cliente Sucursales --%>
+
+
+ + + + + Hospital: +
+
+
+ + + <%--Cliente--%> + <%--
Hospital:
-
+ --%> <%--Sucursales--%> -
+ <%--
@@ -8437,8 +8453,7 @@ Sucursal:
- -
+
--%> <%--Medico Procedimiento--%> @@ -8511,11 +8526,6 @@ - - - - -
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d6a39f5df..5a7f08614 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2553,8 +2553,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then CargaMedicos() CargaProcedimientos() - - CargaDdlClientes() + CargaDdlClientesSucursal() End If @@ -3394,9 +3393,7 @@ Partial Class Ventas CargaTiposVenta() If CveCliente > 0 Then - DdlClientesWS.txtValue.Value = CveCliente.ToString - DdlClientesWS.txtText.Value = NombreCliente - DdlClientesWS.SelectedValue = CveCliente.ToString + SeleccionarClienteSucursal(CveCliente:=CveCliente) End If End If @@ -3425,6 +3422,8 @@ Partial Class Ventas End Sub + + Private Sub CargaListasPrecios() DivPrecioLista.Visible = True @@ -7745,88 +7744,7 @@ Partial Class Ventas DdlClasificacion.DataBind() End Sub - Private Sub CargaTiposVenta() - RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") - RBLTipoVenta.DataBind() - RBLTipoVenta.Items.Add(New ListItem("Otros", "5")) - - TrVentasMedicas1.Visible = True - TrVentasMedicas2.Visible = True - - For Each item As ListItem In RBLTipoVenta.Items - item.Text = $"  {item.Text}" - Next - - RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") - End Sub - - Private Sub CargaProcedimientos() - DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlProcedimiento.DataBind() - - DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlProcedimientoModal.DataBind() - - DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa) - DdlProcedimientoObservaciones.DataBind() - - End Sub - - Private Sub CargaMedicos() - DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlMedico.DataBind() - - DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlMedicoModal.DataBind() - - DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa) - DdlMedicoObservaciones.DataBind() - - End Sub - - Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer) - - DdlSucursalClienteModal.Items.Clear() - DdlSucursalClienteModal.ClearSelection() - DdlSucursalClienteModal.SelectedValue = Nothing - - Dim ObjCliente As New ClsClientes - If ObjCliente.GetSucursales(CveClienteSeleccionado) Then - DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados - If ObjCliente.DtResultados.Rows.Count > 0 Then - DvModalClientesucursal.Visible = True - Else - DvModalClientesucursal.Visible = False - End If - Else - DvModalClientesucursal.Visible = False - DdlSucursalClienteModal.DataSource = Nothing - End If - ObjCliente.Dispose() - - DdlSucursalClienteModal.DataBind() - DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1")) - - UpDvModalTipoVenta.FindDataSourceControl - - End Sub - - - - Private Sub CargaDdlClientes() - If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then - DdlClientesWS.setEsWebService(True) - Else - DdlClientesWS.setEsWebService(False) - If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then - DdlClientesWS.ddl.Items.Clear() - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - End If - End If - End Sub Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True) @@ -10771,11 +10689,7 @@ Partial Class Ventas ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then - ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim - Else - ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim - End If + ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim @@ -10803,6 +10717,13 @@ Partial Class Ventas ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero() ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero() + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then + ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim + ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime + Else + ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim + End If + ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1") ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim @@ -11053,12 +10974,6 @@ Partial Class Ventas ObjFacturaBonificacion.Fech2 = TxtFech2.Text.Trim.ToDate ObjFacturaBonificacion.Fech3 = TxtFech3.Text.Trim.ToDate - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then - ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim - Else - ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim - End If - ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble @@ -11085,6 +11000,13 @@ Partial Class Ventas ObjFacturaBonificacion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero() ObjFacturaBonificacion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero() + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then + ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim + ObjFacturaBonificacion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime + Else + ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim + End If + ObjFacturaBonificacion.AtencionA = If(ObjFacturaBonificacion.TipoDocto = "Cot" Or (ObjFacturaBonificacion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1") ObjFacturaBonificacion.MotivoDescuento = TxtMotivoDescuento.Text.Trim ObjFacturaBonificacion.Observaciones = TxtObsFact.Text.Trim @@ -11541,11 +11463,7 @@ Partial Class Ventas ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then - ObjFactura.Alfa1 = TxtFechaOS.Text.Trim - Else - ObjFactura.Alfa1 = TxtAlfa1.Text.Trim - End If + ObjFactura.Alfa2 = TxtAlfa2.Text.Trim ObjFactura.Alfa3 = TxtAlfa3.Text.Trim @@ -11609,6 +11527,13 @@ Partial Class Ventas ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim ObjFactura.MonedaAbreviatura = "" + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then + ObjFactura.Alfa1 = TxtFechaOS.Text.Trim + ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime + Else + ObjFactura.Alfa1 = TxtAlfa1.Text.Trim + End If + 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal @@ -12205,11 +12130,7 @@ Partial Class Ventas ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then - ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim - Else - ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim - End If + ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim @@ -12247,6 +12168,13 @@ Partial Class Ventas ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim ObjFacturaDevolucion.MonedaAbreviatura = "" + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then + ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim + ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime + Else + ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim + End If + 'Totales, Y se llena TmpDTImpuestos ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal @@ -36018,6 +35946,93 @@ Partial Class Ventas #Region "VENTAS MEDICAS" + + Private Sub CargaTiposVenta() + + RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") + RBLTipoVenta.DataBind() + RBLTipoVenta.Items.Add(New ListItem("Otros", "5")) + + TrVentasMedicas1.Visible = True + TrVentasMedicas2.Visible = True + + For Each item As ListItem In RBLTipoVenta.Items + item.Text = $"  {item.Text}" + Next + + RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") + End Sub + + Private Sub CargaProcedimientos() + DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimiento.DataBind() + + DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimientoModal.DataBind() + + DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa) + DdlProcedimientoObservaciones.DataBind() + + End Sub + + Private Sub CargaMedicos() + DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedico.DataBind() + + DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedicoModal.DataBind() + + DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa) + DdlMedicoObservaciones.DataBind() + + End Sub + + 'Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer) + + ' DdlSucursalClienteModal.Items.Clear() + ' DdlSucursalClienteModal.ClearSelection() + ' DdlSucursalClienteModal.SelectedValue = Nothing + + ' Dim ObjCliente As New ClsClientes + ' If ObjCliente.GetSucursales(CveClienteSeleccionado) Then + ' DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' DvModalClientesucursal.Visible = True + ' Else + ' DvModalClientesucursal.Visible = False + ' End If + ' Else + ' DvModalClientesucursal.Visible = False + ' DdlSucursalClienteModal.DataSource = Nothing + ' End If + ' ObjCliente.Dispose() + + ' DdlSucursalClienteModal.DataBind() + ' DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1")) + + ' UpDvModalTipoVenta.FindDataSourceControl + + 'End Sub + + + + Private Sub CargaDdlClientesSucursal() + + Dim objcliente As New ClsClientes + + If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then + DdlClienteSucursal.DataSource = objcliente.DtResultados + Else + DdlClienteSucursal.DataSource = Nothing + End If + + objcliente.Dispose() + + DdlClienteSucursal.DataBind() + DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End Sub + Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs) TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked UpCliente.Update() @@ -36036,9 +36051,9 @@ Partial Class Ventas ChkRequiereTecnicoModal.Enabled = True DvModalRequiereOSFecha.Visible = True - If CveCliente > 0 Then - CargaSucursalesModal(CveCliente) - End If + 'If CveCliente > 0 Then + ' CargaSucursalesModal(CveCliente) + 'End If TxtFechaModal.Text = NowADS.AddHours(1).ToString("yyyy-MM-dd HH").Replace(" ", "T") + ":00" ' ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") @@ -36076,13 +36091,51 @@ Partial Class Ventas UpDvModalTipoVenta.Update() End Sub - Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs) - CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero) + 'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs) - CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero) + ' CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero) + ' 'CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero) + 'End Sub + + + Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim CveClienteSplit As Integer = -1 + CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) End Sub + Private Function DdlClienteSucursalCliente() As Integer + If DdlClienteSucursal.SelectedValue = "-1" Then + Return -1 + Else + Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c) + Return If(array(0).ToEntero > 0, array(0).ToEntero, -1) + End If + End Function + 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 + For Each item As ListItem In DdlClienteSucursal.Items + Dim array As String() = item.Value.Split("|"c) + If CveCliente = array(0).ToEntero Then + DdlClienteSucursal.SelectedIndex = IndexSeleccion + Exit For + End If + IndexSeleccion = IndexSeleccion + 1 + Next + + End Sub Protected Sub ModalValidaMedicoProcedimiento() @@ -36107,9 +36160,10 @@ Partial Class Ventas ChkRequiereTecnicoModal.Enabled = True - DdlClientesWS.txtText.Value = "" - DdlClientesWS.txtValue.Value = "" - DdlClientesWS.ddl.SelectedValueExist(-1) + 'DdlClientesWS.txtText.Value = "" + 'DdlClientesWS.txtValue.Value = "" + 'DdlClientesWS.ddl.SelectedValueExist(-1) + DdlClienteSucursal.SelectedValueExist(-1) DvModalRequiereOSFecha.Visible = False ChkRequiereTecnicoModal.Checked = False @@ -36130,8 +36184,8 @@ Partial Class Ventas Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs) - If DdlClientesWS.SelectedValue.ToEntero > 0 Then - ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero + If DdlClienteSucursalCliente() > 0 Then + ViewState("CveCliente") = DdlClienteSucursalCliente() Else Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -36177,7 +36231,7 @@ Partial Class Ventas CargaCliente(CveCliente) - DdlSucursalCliente.SelectedValueExist(DdlSucursalClienteModal.SelectedValue) + DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal) DdlTipoComprobante_SelectedIndexChanged(sender, Nothing) @@ -36234,7 +36288,7 @@ Partial Class Ventas End Sub Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero) + CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero) End Sub Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer) @@ -36351,5 +36405,8 @@ Partial Class Ventas Protected Sub BtnCargaAuxiliarConta_Click(sender As Object, e As EventArgs) CargarSaldoAuxiliar(CveCliente) End Sub + + + End Class