SMS - Cat Médicos Retro

UserControl/AddMedico.ascx

@@ -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>
 

UserControl/AddMedico.ascx.vb

@@ -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-")
+        Dim ListaDiasAntencion As New List(Of String)
-        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")
 
+        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})
+        For Each s As String In DiasAtencionArray
-
+            Select Case s.Trim()
-        If array.Length = 7 Then
+                Case "L"
-            If array(0) = "1" Then ChkLunes.Checked = True
+                    ChkLunes.Checked = True
-            If array(1) = "1" Then ChkMartes.Checked = True
+                Case "M"
-            If array(2) = "1" Then ChkMiercoles.Checked = True
+                    ChkMartes.Checked = True
-            If array(3) = "1" Then ChkJueves.Checked = True
+                Case "MI"
-            If array(4) = "1" Then ChkViernes.Checked = True
+                    ChkMiercoles.Checked = True
-            If array(5) = "1" Then ChkSabado.Checked = True
+                Case "J"
-            If array(6) = "1" Then ChkDomingo.Checked = True
+                    ChkJueves.Checked = True
-
+                Case "V"
-
+                    ChkViernes.Checked = True
-        End If
+                Case "S"
-
+                    ChkSabado.Checked = True
-
+                Case "D"
+                    ChkDomingo.Checked = True
+            End Select
+        Next
 
         RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');")
         UpModalMedicoClienteSucursal.Update()

Ventas/Ventas.aspx.vb

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