AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SMS - Cat Médicos Retro

Browse Source
This commit is contained in:
rakcsle
2024-03-11 15:21:13 -07:00
parent 85f3eb5522
commit 7169c48da5
3 changed files with 72 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UserControl/AddMedico.ascx
View File

@@ -184,7 +184,7 @@
<asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
<asp:Literal ID="LtlDiasAtención" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>

95
UserControl/AddMedico.ascx.vb
View File

@@ -79,6 +79,10 @@ Partial Class UserControl_AddMedico
End Sub
Sub CargaVendedores()
DdlVendedor.ClearSelection()
DdlVendedor.SelectedValue = Nothing
DdlVendedor.Items.Clear()
Dim ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
DdlVendedor.DataSource = ObjVendedores.DtResultados.FiltraParametros("VendedorTipo = 1")
@@ -92,6 +96,11 @@ Partial Class UserControl_AddMedico
Sub CargaEspecialidad()
DdlEspecialidad.ClearSelection()
DdlEspecialidad.SelectedValue = Nothing
DdlEspecialidad.Items.Clear()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -113,6 +122,10 @@ Partial Class UserControl_AddMedico
Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
DdlSubEspecialidad.ClearSelection()
DdlSubEspecialidad.SelectedValue = Nothing
DdlSubEspecialidad.Items.Clear()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -310,8 +323,12 @@ Partial Class UserControl_AddMedico
End Function
Private Sub CargaCombosMedicoClientesucursal()
Dim objcliente As New ClsClientes
DdlClienteSucursal.ClearSelection()
DdlClienteSucursal.SelectedValue = Nothing
DdlClienteSucursal.Items.Clear()
Dim objcliente As New ClsClientes
If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
DdlClienteSucursal.DataSource = objcliente.DtResultados
Else
@@ -357,19 +374,39 @@ Partial Class UserControl_AddMedico
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")
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
DiasAtencion = String.Join(", ", ListaDiasAntencion)
DiasAtencion = SBDiasAtencion.ToString()
If CveMedico > 0 Then
Dim objVenta As New ClsVentas
@@ -463,6 +500,8 @@ 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
@@ -486,22 +525,26 @@ Partial Class UserControl_AddMedico
TxtTorre.Text = GvRow.DataKey("Torre")
TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")
Dim DiasAtencionArray As String() = GvRow.DataKey("DiasAtencion").Split(New Char() {","c})
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
For Each s As String In DiasAtencionArray
Select Case s.Trim()
Case "L"
ChkLunes.Checked = True
Case "M"
ChkMartes.Checked = True
Case "MI"
ChkMiercoles.Checked = True
Case "J"
ChkJueves.Checked = True
Case "V"
ChkViernes.Checked = True
Case "S"
ChkSabado.Checked = True
Case "D"
ChkDomingo.Checked = True
End Select
Next
RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');")
UpModalMedicoClienteSucursal.Update()

3
Ventas/Ventas.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Option Infer On
Imports System.Activities.Expressions
Imports System.Data
Imports System.Data.SqlClient
Imports System.Diagnostics
@@ -31913,7 +31914,7 @@ Partial Class Ventas
CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero()
Next
If EsRemisionMedica Then
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso EsRemisionMedica Then
TxtObsFact.Text = If(MensajeRemisionesMedicas.ToString().Length > 0, MensajeRemisionesMedicas.ToString().Substring(0, MensajeRemisionesMedicas.ToString().Length - 2), "")
Else
TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "")