diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index a89fb0dbc..e88aa9031 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6117,7 +6117,7 @@ Public Class ClsVentas End Function - Public Function AddMedico(Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, + Public Function AddMedico(Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Integer Dim Retorno As Boolean = False @@ -6126,16 +6126,10 @@ Public Class ClsVentas With SqlAdapter.SelectCommand.Parameters .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@APaterno", SqlDbType.VarChar).Value = APaterno - .Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno - '.Add("@Medico", SqlDbType.VarChar).Value = Medico + .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional - '.Add("@Medico", SqlDbType.VarChar).Value = Medico .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento .Add("@Notas", SqlDbType.VarChar).Value = Notas - '.Add("@DiasAtencion", SqlDbType.VarChar).Value = DiasAtencion - '.Add("@Horario", SqlDbType.VarChar).Value = Horario - '.Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -6143,14 +6137,10 @@ Public Class ClsVentas .Add("@Mail", SqlDbType.VarChar).Value = Mail .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad .Add("@Celular", SqlDbType.VarChar).Value = Celular - '.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor - '.Add("@Torre", SqlDbType.VarChar).Value = Torre .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output - - End With Try SqlAdapter.Fill(Data) @@ -6164,7 +6154,7 @@ Public Class ClsVentas End Function - Public Function UpdateMedico(CveMedico As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, + Public Function UpdateMedico(CveMedico As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -6172,8 +6162,7 @@ Public Class ClsVentas With SqlAdapter.SelectCommand.Parameters .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@Nombre", SqlDbType.VarChar).Value = Nombre - .Add("@APaterno", SqlDbType.VarChar).Value = APaterno - .Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno + .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos '.Add("@Medico", SqlDbType.VarChar).Value = Medico .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index 80bdcd6e0..500ff0a9c 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -34,20 +34,12 @@