diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 8234a17ad..90d5cbe6e 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6117,25 +6117,25 @@ Public Class ClsVentas End Function - - - - Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, - Optional Torre As String = "-1") As Integer + 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, + 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 CveMedicoNuevo = -1 DataAdapter("PA_Vta_MedicosAdd") 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("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional - .Add("@Medico", SqlDbType.VarChar).Value = Medico + '.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("@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,9 +6143,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("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad - .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + '.Add("@Torre", SqlDbType.VarChar).Value = Torre .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output @@ -6163,21 +6164,23 @@ Public Class ClsVentas End Function - Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, - CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, - Optional Torre As String = "-1") As Boolean + 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, + 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 DataAdapter("PA_Vta_MedicosUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveMedico", SqlDbType.Int).Value = CveMedico - .Add("@Medico", SqlDbType.VarChar).Value = Medico + .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("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional .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("@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 @@ -6185,9 +6188,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("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad - .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + '.Add("@Torre", SqlDbType.VarChar).Value = Torre End With @@ -6405,6 +6409,111 @@ Public Class ClsVentas #End Region +#Region "MEDICO CLIENTE SUCURALES" + + + + Public Function GetMedicosClientesSucursales(CveMedico As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosClientesSucursalesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los detalles.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function AddMedicosClientesSucursales(CveMedico As Integer, CveCliente As Integer, CveClienteSucursal As Integer, DiasAtencion As String, Horario As String, Consultorio As String, Torre As String, AsistenteNombre As String, + CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_MedicosClientesSucursalesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@DiasAtencion", SqlDbType.VarChar).Value = DiasAtencion + .Add("@Horario", SqlDbType.VarChar).Value = Horario + .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio + .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@AsistenteNombre", SqlDbType.VarChar).Value = AsistenteNombre + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar el detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function UpdateMedicosClientesSucursales(CveMedicoClienteSucursal As Integer, CveMedico As Integer, CveCliente As Integer, CveClienteSucursal As Integer, DiasAtencion As String, Horario As String, Consultorio As String, Torre As String, + AsistenteNombre As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosClientesSucursalesUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoClienteSucursal", SqlDbType.Int).Value = CveMedicoClienteSucursal + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@DiasAtencion", SqlDbType.VarChar).Value = DiasAtencion + .Add("@Horario", SqlDbType.VarChar).Value = Horario + .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio + .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@AsistenteNombre", SqlDbType.VarChar).Value = AsistenteNombre + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el Medico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + Public Function RemoveMedicosClientesSucursales(CveMedicoClienteSucursal As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_MedicosClientesSucursalesRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoClienteSucursal", SqlDbType.Int).Value = CveMedicoClienteSucursal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function + + +#End Region + #Region "PRODEDIMIENTOS" Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 51bc19045..0954bbc05 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1482,7 +1482,7 @@ Partial Class General_SaldosIniciales Dim ErrorCompras As Boolean = False Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL()) Dim CveCompra As Integer - Dim Contador As Integer = 0 + 'Dim Contador As Integer = 0 Dim ExisteCompra As Boolean = False Dim DtProveedores As New DataTable Dim NoEncontrados As Integer = 0 @@ -1681,12 +1681,15 @@ Partial Class General_SaldosIniciales End Try If Not ErrorCompras Then - If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Compras correctamente.
Se Omitieron: {1} Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Se agregaron: {0} Compras correctamente.", NumRows), TipoMensaje.MsgInformacion) - End If - Alert(String.Format("Se agregaron: {0} Compras correctamente. RFC:{1} ", Encontrados, RFC), TipoMensaje.MsgInformacion) + + 'If Encontrados > 0 Then + ' Alert(String.Format("Se agregaron: {0} Compras correctamente.
Se Omitieron: {1} Compras ya que ya se encuentran registradas.", Encontrados, NumRows - 1 - Encontrados), TipoMensaje.MsgInformacion) + 'Else + ' Alert(String.Format("Se agregaron: {0} Compras correctamente.", Encontrados), TipoMensaje.MsgInformacion) + 'End If + Alert(String.Format("Se agregaron: {0} Compras correctamente.", Encontrados), TipoMensaje.MsgInformacion) + 'Alert(String.Format("Se agregaron: {0} Compras correctamente. RFC:{1} ", Encontrados, RFC), TipoMensaje.MsgInformacion) + ObjCompras.Commit() TxtExcel.Text = "" UpDatos.Update() @@ -1756,7 +1759,13 @@ Partial Class General_SaldosIniciales Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "") Dim CveVendedor As Integer = 0 - Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal + Dim IEPS As Decimal = 0 + + If RblFormato.SelectedValue = "17" Then + IEPS = Row("IEPS").ToString().ToDecimal + End If + + Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero() Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "") @@ -1777,6 +1786,11 @@ Partial Class General_SaldosIniciales Dim CantidadDetalle As Decimal = 0 Dim PUDetalle As Decimal = 0 Dim IVADetalle As Decimal = 0 + Dim PorcentajeIEPS As Decimal = 0 + + If IEPS > 0 Then + PorcentajeIEPS = If(dt.Columns.Contains("PorcentajeIEPS"), Round(Row("PorcentajeIEPS").ToString().ToDecimal, 4), 0) + End If If RblFormato.SelectedValue = "17" Then @@ -1895,8 +1909,8 @@ Partial Class General_SaldosIniciales Exit For End If - If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle * CantidadDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, - PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=IEPSDetalle, PorcentajeRetISR:=PorcentajeRetISR) Then + If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PUDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, + PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA, IEPS:=IEPSDetalle, PorcentajeRetISR:=PorcentajeRetISR, PorcentajeIEPS:=PorcentajeIEPS) Then ErrorVentas = True Exit For End If @@ -1935,10 +1949,16 @@ Partial Class General_SaldosIniciales If IVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 13, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For End If - 'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString(), 38, String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For + + If IEPS > 0 Then + 'AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio, 38, String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, IEPS, 38, Folio.ToString, String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For + + End If If RetIVA > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, RetIVA, 8, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeRetIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetISR, RetISR, 8, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeRetISR, Contabilizable:=False) Then ErrorVentas = True : Exit For End If If RetISR > 0 Then diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index 754c018de..fc89acd53 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -1,7 +1,19 @@ <%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> +<%----%> + +
+
@@ -9,182 +21,247 @@

Agregar Médico

-
+
+
+
+
+ + + +
+ +
+
+
+ + + +
+
+
+
+ + + +
+
+
+
+
+ + +
+
+
+ + <%----%> + +
+
+
+
+ + +
+ + + + +
+ + + + <%----%> + + <%----%> + + +
+
+
+
+ + + +
+
+
+ +
+
+
+ +
+
+ +
+ +
+ +
+ + + +
+ +
+
+
+ + + + +
+
+
+ +
+
+
+ + +
+
+
+
+ + +
+
+ +
+
+ + + + +
+
+
+ + +
+ + +
+ + +
+
+ +
+
+
-
- - - -
+ + + + + + + -
-
-
- - <%----%> - -
-
-
-
- + + + + + -
- - - - -
+ + + + + - - - - - - + + + + + -
-
-
- -
-
-
-
- -
- -
-
-
- - - -
-
-
- -
- - - -
- -
-
+ + + + + -
-
-
- - - - -
-
-
- -
-
+ + + + + - -
-
-
- - -
-
-
-
- - -
-
-
- - -
- - -
- - -
-
-
- - -
-
-
-
- - -
-
-
- - - - - -
-
-
- - -
-
-
-
- - -
-
-
-
- - -
-
-
- - - -
- - -
- - -
-
-
- - -
-
-
-
- - -
-
-
+ <%-- + + + + + + + + + + --%> + + + + + + + + +
+ + +
+
+
+
+ + + +
+ + +
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + + +
@@ -195,3 +272,104 @@
+ + + + + \ No newline at end of file diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index 02ba68186..9dc3626fa 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -1,4 +1,6 @@ -Imports Extensiones +Imports System.Data +Imports Extensiones +Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas Partial Class UserControl_AddMedico Inherits System.Web.UI.UserControl @@ -25,14 +27,70 @@ Partial Class UserControl_AddMedico End Set End Property + Public Property CveMedicoClienteSucursal As Integer + Get + If ViewState("CveMedicoClienteSucursal") Is Nothing Then + ViewState("CveMedicoClienteSucursal") = -1 + End If + Return ViewState("CveMedicoClienteSucursal").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMedicoClienteSucursal") = value + End Set + End Property + + Public Property IndexSeleccionado As Integer + Get + If ViewState("IndexSeleccionado") Is Nothing Then + ViewState("IndexSeleccionado") = -1 + End If + Return ViewState("IndexSeleccionado").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IndexSeleccionado") = value + End Set + End Property + + + + Public Property DTMedicosClientesSucursales As DataTable + Get + If ViewState("CveMedico") Is Nothing Then + ViewState("CveMedico") = New DataTable + End If + Return DirectCast(ViewState("CveMedico"), DataTable) + End Get + Set(value As DataTable) + ViewState("CveMedico") = value + End Set + End Property + Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then - CargaEspecialidad() - CargaSubEspecialidad(-1) + CargaCombos() + CargaCombosMedicoClientesucursal() End If End Sub + Sub CargaCombos() + CargaEspecialidad() + CargaSubEspecialidad(-1) + CargaVendedores() + End Sub + + Sub CargaVendedores() + Dim ObjVendedores As New ClsVtaVendedores + If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then + DdlVendedor.DataSource = ObjVendedores.DtResultados.FiltraParametros("VendedorTipo = 1") + Else + DdlVendedor.DataSource = Nothing + End If + ObjVendedores.Dispose() + DdlVendedor.DataBind() + + End Sub + Sub CargaEspecialidad() Dim ObjVentas As New ClsVentas @@ -50,10 +108,11 @@ Partial Class UserControl_AddMedico UpModal.Update() - End Sub + + Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer) Dim ObjVentas As New ClsVentas @@ -79,50 +138,72 @@ Partial Class UserControl_AddMedico Public Sub LimpiarControles() + CveMedico = -1 + CrearDTMedicosClientesSucursales() + CveMedicoClienteSucursal = -1 + LbAgregar.Text = "Agregar" LtlTituloModal.Text = "Agregar Médico" - TxtMedico.Text = "" + TxtNombre.Text = "" + TxtAPaterno.Text = "" + TxtAMaterno.Text = "" TxtCedulaProfecional.Text = "" TxtFechaNacimiento.Text = "" TxtNotas.Text = "" - TxtDiasAtencion.Text = "" - TxtHorario.Text = "" - TxtLugar.Text = "" - TxtConsultorio.Text = "" TxtMail.Text = "" TxtTelefono.Text = "" TxtCelular.Text = "" DdlEspecialidad.SelectedValueExist(-1) DdlSubEspecialidad.SelectedValueExist(-1) - TxtTorre.Text = "" + DVUsuarioFechaIng.Visible = False TxtFechaIng.Text = "" TxtUsuario.Text = "" + DdlVendedor.SelectedValueExist(-1) + CargaGVMedicoClienteSucursal(-1, UsuarioActual.CveEmpresa) + DVEstatus.Visible = False ChkEstatus.Checked = True UpModal.Update() - CveMedico = -1 + End Sub - Public Sub PreparaEdicion(CveMedicoEditar As Integer, Medico As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Consultorio As String, Estatus As Boolean, - Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, Torre As String, FechaIng As DateTime, Usuario As String) + Private Sub CrearDTMedicosClientesSucursales() + DTMedicosClientesSucursales = New DataTable + DTMedicosClientesSucursales.Columns.Add("CveMedicoClienteSucursal", GetType(Integer)) + DTMedicosClientesSucursales.Columns.Add("CveMedico", GetType(Integer)) + DTMedicosClientesSucursales.Columns.Add("CveCliente", GetType(Integer)) + DTMedicosClientesSucursales.Columns.Add("CveClienteSucursal", GetType(Integer)) + DTMedicosClientesSucursales.Columns.Add("ClienteSucursal", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("DiasAtencion", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("Horario", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("Consultorio", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("Torre", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("AsistenteNombre", GetType(String)) + DTMedicosClientesSucursales.Columns.Add("CveUsuario", GetType(Integer)) + DTMedicosClientesSucursales.Columns.Add("FechaIng", GetType(Date)) + DTMedicosClientesSucursales.Columns.Add("Usuario", GetType(String)) + + DTMedicosClientesSucursales.AcceptChanges() + + End Sub + + Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, + Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer) CveMedico = CveMedicoEditar - - TxtMedico.Text = Medico + TxtNombre.Text = Nombre + TxtAPaterno.Text = APaterno + TxtAMaterno.Text = AMaterno TxtCedulaProfecional.Text = CedulaProfecional TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") TxtNotas.Text = Notas - TxtDiasAtencion.Text = DiasAtencion - TxtHorario.Text = Horario - TxtLugar.Text = Lugar - TxtConsultorio.Text = Consultorio ChkEstatus.Checked = Estatus TxtMail.Text = Mail TxtTelefono.Text = Telefono @@ -130,24 +211,28 @@ Partial Class UserControl_AddMedico DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad) CargaSubEspecialidad(CveMedicoEspecialidad) DdlSubEspecialidad.SelectedValueExist(CveMedicoSubEspecialidad) - TxtTorre.Text = Torre DVUsuarioFechaIng.Visible = True TxtFechaIng.Text = FechaIng.ToString("dd/MM/yyyy hh:mm:ss tt") TxtUsuario.Text = Usuario + DdlVendedor.SelectedValueExist(CveVendedor) + DVEstatus.Visible = True LbAgregar.Text = "Actualizar" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}" UpModal.Update() + CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) + End Sub Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ProcesoOK = False Dim ObjVentas As New ClsVentas + ObjVentas.IniciaTransacSQL() Dim CveMedicoNuevo As Integer = -1 @@ -155,33 +240,306 @@ Partial Class UserControl_AddMedico Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) If CveMedico > 0 Then - If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then + If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) Then ProcesoOK = True End If Else - CveMedicoNuevo = ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, - UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) + CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) If CveMedicoNuevo > 0 Then + + + For Each GvRow As GridViewRow In GvMedicosClientesSucursales.Rows + + If Not (ObjVentas.AddMedicosClientesSucursales(CveMedicoNuevo, GvRow.DataKey("CveCliente").ToEntero, GvRow.DataKey("CveClienteSucursal").ToEntero, GvRow.DataKey("DiasAtencion"), GvRow.DataKey("Horario"), GvRow.DataKey("Consultorio"), GvRow.DataKey("Torre"), GvRow.DataKey("AsistenteNombre"), + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then + ProcesoOK = False + Exit For + End If + + Next + ProcesoOK = True + End If End If - ObjVentas.Dispose() + If ProcesoOK Then + ObjVentas.Commit() ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.") Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}" Application(AppNombre) = Nothing RegistraScript($"fncRegargaMedicos({If(CveMedicoNuevo > 0, CveMedicoNuevo, CveMedico) });") RegistraScript("$('#BtnCancelarMedico').click();") + CargaGVMedicoClienteSucursal(If(CveMedicoNuevo > 0, CveMedicoNuevo, CveMedico), UsuarioActual.CveEmpresa) + Else + ObjVentas.RollBack() + End If + ObjVentas.Dispose() + + + End Sub + +#Region "DETALLES" + 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 CargaCombosMedicoClientesucursal() + 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 LnkAgregarMedicoClienteSucursal_Click(sender As Object, e As EventArgs) + LimpiarcontrolesDetalle() + RegistraScript("$('#DVMedicoClienteSucursal').modal({ backdrop: 'static', keyboard: false });") + End Sub + + Protected Sub LimpiarcontrolesDetalle() + + CveMedicoClienteSucursal = -1 + IndexSeleccionado = -1 + DdlClienteSucursal.SelectedValueExist(-1) + 'TxtDiasAtencion.Text = "" + TxtHorario.Text = "" + TxtConsultorio.Text = "" + TxtTorre.Text = "" + TxtAsistenteNombre.Text = "" + + ChkLunes.Checked = False + ChkMartes.Checked = False + ChkMiercoles.Checked = False + ChkJueves.Checked = False + ChkViernes.Checked = False + ChkSabado.Checked = False + ChkDomingo.Checked = False + + UpModalMedicoClienteSucursal.Update() + + End Sub + + + Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs) + + Dim TieneError As Boolean = False + + + Dim SBDiasAtencion As New StringBuilder() + Dim DiasAtencion As String = "" + If ChkLunes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkMartes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkMiercoles.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkJueves.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkViernes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkSabado.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") + If ChkDomingo.Checked Then SBDiasAtencion.AppendFormat("1") Else SBDiasAtencion.AppendFormat("0") + + + DiasAtencion = SBDiasAtencion.ToString() + + 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, + 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, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then + TieneError = True + End If + End If + + objVenta.Dispose() + + Else + + If IndexSeleccionado > -1 Then + + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveMedicoClienteSucursal") = -1 + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveMedico") = CveMedico + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveCliente") = DdlClienteSucursalCliente() + 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)("Consultorio") = TxtConsultorio.Text + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveUsuario") = UsuarioActual.CveUsuario + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("FechaIng") = Now + DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Usuario") = UsuarioActual.Usuario + + Else + + Dim nRow As DataRow = DTMedicosClientesSucursales.NewRow + + nRow("CveMedicoClienteSucursal") = -1 + nRow("CveMedico") = CveMedico + nRow("CveCliente") = DdlClienteSucursalCliente() + nRow("CveClienteSucursal") = DdlClienteSucursalSucursal() + nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text + nRow("DiasAtencion") = DiasAtencion + nRow("Horario") = TxtHorario.Text + nRow("Consultorio") = TxtConsultorio.Text + nRow("Torre") = TxtTorre.Text + nRow("AsistenteNombre") = TxtAsistenteNombre.Text + nRow("CveUsuario") = UsuarioActual.CveUsuario + nRow("FechaIng") = Now + nRow("Usuario") = UsuarioActual.Usuario + + DTMedicosClientesSucursales.Rows.Add(nRow) + + End If + + DTMedicosClientesSucursales.AcceptChanges() + + End If + + If Not TieneError Then + RegistraScript(" $('#DVMedicoClienteSucursal').modal('hide');") + 'Alert("Detalle Guardado Correctamenrte", TipoMensaje.MsgInformacion) + CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) + End If + + End Sub + + Public Sub CargaGVMedicoClienteSucursal(CveMedicoConsulta As Integer, CveEmpresa As Integer) + + GvMedicosClientesSucursales.DataSource = Nothing + + If CveMedicoConsulta > 0 Then + Dim objVenta As New ClsVentas + + If (objVenta.GetMedicosClientesSucursales(CveMedicoConsulta, CveEmpresa)) Then + GvMedicosClientesSucursales.DataSource = objVenta.DtResultados + End If + + objVenta.Dispose() + Else + GvMedicosClientesSucursales.DataSource = DTMedicosClientesSucursales + End If + + GvMedicosClientesSucursales.DataBind() + UpModal.Update() + + End Sub + + Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs) + + 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 + + If CveMedico > 0 Then + CveMedicoClienteSucursal = GvRow.DataKey("CveMedicoClienteSucursal").ToEntero + Else + IndexSeleccionado = GvRow.RowIndex + End If + + If CveClienteSucursal > 0 Then + DdlClienteSucursal.SelectedValueExist($"{CveCliente}|{CveClienteSucursal}") + Else + DdlClienteSucursal.SelectedValueExist($"{CveCliente}|") + End If + + 'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion") + TxtHorario.Text = GvRow.DataKey("Horario") + TxtConsultorio.Text = GvRow.DataKey("Consultorio") + TxtTorre.Text = GvRow.DataKey("Torre") + TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre") + + + Dim array As String() = GvRow.DataKey("DiasAtencion").Split(New Char() {"-"c}) + + If array.Length = 7 Then + If array(0) = "1" Then ChkLunes.Checked = True + If array(1) = "1" Then ChkMartes.Checked = True + If array(2) = "1" Then ChkMiercoles.Checked = True + If array(3) = "1" Then ChkJueves.Checked = True + If array(4) = "1" Then ChkViernes.Checked = True + If array(5) = "1" Then ChkSabado.Checked = True + If array(6) = "1" Then ChkDomingo.Checked = True + End If + RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');") + UpModalMedicoClienteSucursal.Update() + + End Sub + Protected Sub LnkEliminarClienteSucursal_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + Dim TieneError As Boolean = False + + GvMedicosClientesSucursales.DataSource = Nothing + + If CveMedico > 0 Then + + Dim CveMedicoClienteSucursalEliminar As Integer = GvRow.DataKey("CveMedicoClienteSucursal").ToEntero + Dim objVenta As New ClsVentas + + If Not objVenta.RemoveMedicosClientesSucursales(CveMedicoClienteSucursalEliminar, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + + objVenta.Dispose() + + Else + + Dim RowIndex As Integer = GvRow.RowIndex + DTMedicosClientesSucursales.Rows.RemoveAt(RowIndex) + DTMedicosClientesSucursales.AcceptChanges() + + End If + + If Not TieneError Then + CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) + End If + + + End Sub + +#End Region + + + + End Class diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 6c8892736..bdb0c440d 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -226,14 +226,25 @@
- + - + - + + + + + + + + + + + @@ -255,23 +266,31 @@ + + + + + + + + + + + + + - - + - + - - - - - + @@ -314,67 +333,7 @@ - <%-- - - - - - -
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - - - - - - --%> + @@ -388,8 +347,7 @@ -
- <%----%> +
- <%----%> +