From a6575975fff034bcbb5f8164d336cbd2286095f8 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Sep 2024 12:33:57 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejoras=20en=20selecci=C3=B3n=20de=20horar?= =?UTF-8?q?io?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- UserControl/AddMedico.ascx | 71 ++++++++++++----------------------- UserControl/AddMedico.ascx.vb | 67 ++++++++++++--------------------- 2 files changed, 48 insertions(+), 90 deletions(-) diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index 9bfc9480e..33d28be5a 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -46,8 +46,6 @@
- -
@@ -79,14 +77,11 @@
-
-

-
@@ -161,12 +156,8 @@
-
- - - + -
- @@ -186,8 +176,6 @@ - - @@ -237,28 +225,18 @@ - - -
- -
- - -
- -
@@ -273,12 +251,7 @@
- - - -
-
@@ -296,10 +269,9 @@
×

- Agregar Especialidad

+ Agregar Hospital
-
- +
@@ -312,9 +284,7 @@
-
-
@@ -333,20 +303,31 @@       -   - +  
-
- - +
- - + + + + + + + + + + + + + + + + +
-
@@ -364,18 +345,14 @@
-
-
- +
-
- Cancelar - + Cancelar
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index a2ede09ae..899791bfd 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -350,16 +350,11 @@ Partial Class UserControl_AddMedico ProcesoOK = False Exit For End If - Next - ProcesoOK = True - End If End If - - If ProcesoOK Then ObjVentas.Commit() ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.") @@ -425,7 +420,7 @@ Partial Class UserControl_AddMedico IndexSeleccionado = -1 DdlClienteSucursal.SelectedValueExist(-1) 'TxtDiasAtencion.Text = "" - TxtHorario.Text = "" + DdlHorario.ClearSelection() TxtConsultorio.Text = "" TxtTorre.Text = "" TxtAsistenteNombre.Text = "" @@ -446,51 +441,28 @@ Partial Class UserControl_AddMedico Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs) Dim TieneError As Boolean = False - Dim DiasAtencion As String = "" Dim ListaDiasAntencion As New List(Of String) - If ChkLunes.Checked Then - ListaDiasAntencion.Add("L") - End If - - If ChkMartes.Checked Then - ListaDiasAntencion.Add("M") - End If - - If ChkMiercoles.Checked Then - ListaDiasAntencion.Add("MI") - End If - - If ChkJueves.Checked Then - ListaDiasAntencion.Add("J") - End If - - If ChkViernes.Checked Then - ListaDiasAntencion.Add("V") - End If - - If ChkSabado.Checked Then - ListaDiasAntencion.Add("S") - End If - - If ChkDomingo.Checked Then - ListaDiasAntencion.Add("D") - End If - + If ChkLunes.Checked Then ListaDiasAntencion.Add("L") + If ChkMartes.Checked Then ListaDiasAntencion.Add("M") + If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI") + If ChkJueves.Checked Then ListaDiasAntencion.Add("J") + If ChkViernes.Checked Then ListaDiasAntencion.Add("V") + If ChkSabado.Checked Then ListaDiasAntencion.Add("S") + If ChkDomingo.Checked Then ListaDiasAntencion.Add("D") DiasAtencion = String.Join(", ", ListaDiasAntencion) - If CveMedico > 0 Then Dim objVenta As New ClsVentas If CveMedicoClienteSucursal > 0 Then - If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, + If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then TieneError = True End If Else - If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, + If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then TieneError = True End If @@ -508,7 +480,7 @@ Partial Class UserControl_AddMedico DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveClienteSucursal") = DdlClienteSucursalSucursal() DTMedicosClientesSucursales.Rows(IndexSeleccionado)("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("DiasAtencion") = DiasAtencion - DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = TxtHorario.Text + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = DdlHorario.GetSelectedValuesM DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Consultorio") = TxtConsultorio.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text @@ -526,7 +498,7 @@ Partial Class UserControl_AddMedico nRow("CveClienteSucursal") = DdlClienteSucursalSucursal() nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text nRow("DiasAtencion") = DiasAtencion - nRow("Horario") = TxtHorario.Text + nRow("Horario") = DdlHorario.GetSelectedValuesM nRow("Consultorio") = TxtConsultorio.Text nRow("Torre") = TxtTorre.Text nRow("AsistenteNombre") = TxtAsistenteNombre.Text @@ -574,9 +546,7 @@ Partial Class UserControl_AddMedico Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs) LimpiarcontrolesDetalle() - Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero Dim CveClienteSucursal As Integer = GvRow.DataKey("CveClienteSucursal").ToEntero @@ -593,7 +563,18 @@ Partial Class UserControl_AddMedico End If 'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion") - TxtHorario.Text = GvRow.DataKey("Horario") + If GvRow.DataKey("Horario") <> "" Then + + For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c) + DdlHorario.Items.FindByValue(tipoDocto).Selected = True + Next + 'For Each itemTipoDocto As ListItem In DdlHorario.Items + ' For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c) + ' itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper) + ' Next + 'Next + End If + TxtConsultorio.Text = GvRow.DataKey("Consultorio") TxtTorre.Text = GvRow.DataKey("Torre") TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")