-
-
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")