From 6770346dde08d1179f14a4c4cb98942cd14844bf Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 7 Mar 2024 17:08:38 -0700
Subject: [PATCH 01/10] --Impresion de cambio de vigencia

---
 Compras/PopUpVerFactura.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index fd3c9db42..8d0239e5a 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2891,7 +2891,7 @@ Partial Class PopUpVerFactura
 
                 End If
 
-            Case 3, 16, 37, 40, 45  ' S A L I D A S
+            Case 3, 16, 37, 40, 45, 47  ' S A L I D A S
                 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -2904,6 +2904,8 @@ Partial Class PopUpVerFactura
                     concepto = "SALIDA VIRTUAL"
                 ElseIf CveConcepto = 45 Then
                     concepto = "SALIDA DE USADOS"
+                ElseIf CveConcepto = 47 Then
+                    concepto = "SALIDA POR CAMBIO DE VIGENCIA"
                 Else
                     concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
                 End If

From 8c84011c0177ebd8b2faba5fef998042921e9cf8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 7 Mar 2024 19:17:43 -0700
Subject: [PATCH 02/10] --Activar las RNC, para devoluciones sobre Remisiones.
 y que quede pendiente para aplicarse en las futuras "remisiones/facturas".
 --Agregar columna "Atencion A" en gridview de amortizaciones --Obligar a
 llenar el texto Atencion A con la funconalidad 109 en todos los tipos de
 documento

---
 Ventas/Clientes.aspx    |  1 +
 Ventas/Clientes.aspx.vb | 14 +++++---
 Ventas/Ventas.aspx      | 72 +++++++++++++++++++++-------------------
 Ventas/Ventas.aspx.vb   | 73 ++++++++++++++++++++++++++++++-----------
 4 files changed, 103 insertions(+), 57 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 347109d9d..615d5941e 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1461,6 +1461,7 @@
                                                     <asp:ListItem Value="Rem" Class="one"><label><b>Remisión</b></label></asp:ListItem>
                                                     <asp:ListItem Value="Ped" Class="one"><label><b>Pedido</b></label></asp:ListItem>
                                                     <asp:ListItem Value="DPe" Class="one"><label><b>Devolución de Pedido</b></label></asp:ListItem>
+                                                    <asp:ListItem Value="RNC" Class="one"><label><b>Remisión de NC</b></label></asp:ListItem>
                                                 </asp:RadioButtonList>
                                             </div>
                                         </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 34288b8e0..48457315e 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -922,12 +922,18 @@ Partial Class Clientes
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
+                If RblTipo.Items.FindByValue("RNC") IsNot Nothing Then
+                    RblTipo.Items.Remove(RblTipo.Items.FindByValue("RNC"))
+                End If
+            End If
+
+            ChkPermiso4.Enabled = False
+            ChkPermiso5.Enabled = False
+            ChkPermiso6.Enabled = False
         End If
 
-        'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
-        ChkPermiso4.Enabled = False
-        ChkPermiso5.Enabled = False
-        ChkPermiso6.Enabled = False
 
     End Sub
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 5a677a9e8..6205dd638 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4572,6 +4572,12 @@
                                             <asp:Literal ID="LtlAbreviatura" runat="server" Text='<%# Eval("Abreviatura") %>'></asp:Literal>
                                         </ItemTemplate>
                                     </asp:TemplateField>
+                                    <asp:TemplateField Visible="false">
+                                        <HeaderTemplate>Atención A</HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:Literal runat="server" Text='<%# Eval("AtencionA") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
                                     <asp:TemplateField>
                                         <HeaderTemplate>Amort. Ant.</HeaderTemplate>
                                         <ItemTemplate>
@@ -8685,41 +8691,41 @@
         </asp:UpdatePanel>
     </div>
 
-     <asp:Button ID="BtnShowBloqueoAcceso" runat="server" Text="Show Modal Popup" Style="visibility: hidden; display: none;" />
-        <asp:Button ID="BtnCloseBloqueoAcceso" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" Text="Cancelar" />
+    <asp:Button ID="BtnShowBloqueoAcceso" runat="server" Text="Show Modal Popup" Style="visibility: hidden; display: none;" />
+    <asp:Button ID="BtnCloseBloqueoAcceso" runat="server" CssClass="btn btn-danger" Style="visibility: hidden; display: none;" Text="Cancelar" />
 
-        <!-- ModalPopupExtender -->
-        <cc1:ModalPopupExtender ID="mpeBloque" runat="server" PopupControlID="PanelBloqueoAcceso" TargetControlID="BtnShowBloqueoAcceso"
-            BackgroundCssClass="modalBackground">
-        </cc1:ModalPopupExtender>
+    <!-- ModalPopupExtender -->
+    <cc1:ModalPopupExtender ID="mpeBloque" runat="server" PopupControlID="PanelBloqueoAcceso" TargetControlID="BtnShowBloqueoAcceso"
+        BackgroundCssClass="modalBackground">
+    </cc1:ModalPopupExtender>
 
-        <asp:Panel ID="PanelBloqueoAcceso" runat="server" CssClass="modalPopup" align="center" Style="display: none">
-            <table border="0" width="250px" cellspacing="1" style="background-color: White; padding-left: 10px;">
-                <tr style="background-color: #3598dc; color: #FFFFFF; font-size: 14px; text-align: center">
-                    <td colspan="2">
-                        <asp:Label runat="server" Text="<i class='fa fa-lock fa-2 icontxt'></i>&nbsp;Acceso Restringido" /></td>
-                </tr>
-                <tr>
-                    <td colspan="1">&nbsp;</td>
-                    <td colspan="1">&nbsp;</td>
-                </tr>
-                <tr>
-                    <td colspan="1">
-                        <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
-                    </td>
-                    <td colspan="1" style="text-align: center">
-                        <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
-                        <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
-                    </td>
-                </tr>
-                <tr>
-                    <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
-                        <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
-                </tr>
-            </table>
-            <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
-            &nbsp;
-        </asp:Panel>
+    <asp:Panel ID="PanelBloqueoAcceso" runat="server" CssClass="modalPopup" align="center" Style="display: none">
+        <table border="0" width="250px" cellspacing="1" style="background-color: White; padding-left: 10px;">
+            <tr style="background-color: #3598dc; color: #FFFFFF; font-size: 14px; text-align: center">
+                <td colspan="2">
+                    <asp:Label runat="server" Text="<i class='fa fa-lock fa-2 icontxt'></i>&nbsp;Acceso Restringido" /></td>
+            </tr>
+            <tr>
+                <td colspan="1">&nbsp;</td>
+                <td colspan="1">&nbsp;</td>
+            </tr>
+            <tr>
+                <td colspan="1">
+                    <asp:Label runat="server" Text="Código de Acceso:" Font-Bold="true" Width="120px" />
+                </td>
+                <td colspan="1" style="text-align: center">
+                    <asp:TextBox ID="TxtCodigoAcceso" runat="server" type="password"></asp:TextBox>
+                    <asp:RequiredFieldValidator ID="RFVCodigoAcceso" runat="server" ControlToValidate="TxtCodigoAcceso" Display="None" ErrorMessage="<span class='has-error'><span id='username-error' class='help-block'>El campo <b>''Código de Acceso''</b> es necesario.</span></span>" ValidationGroup="GrpValidarCodigo"></asp:RequiredFieldValidator>
+                </td>
+            </tr>
+            <tr>
+                <td colspan="2"><span class='has-error'><span id='username-error' class='help-block'>
+                    <asp:Literal ID="LtlMensajeBloqueo" runat="server" Text=""></asp:Literal></span></span></td>
+            </tr>
+        </table>
+        <asp:Button ID="BtnCambiar" runat="server" CssClass="btn btn-success btn-sm" Text="Desbloquear" ValidationGroup="GrpValidarCodigo" OnClick="BtnCambiar_Click" />
+        &nbsp;
+    </asp:Panel>
 
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 49ca77f5e..1a5fe4e83 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3547,6 +3547,10 @@ Partial Class Ventas
                 End If
                 UpPS.Update()
 
+                If DdlTipoComprobante.Items.FindByValue("RNC") Is Nothing Then
+                    DdlTipoComprobante.Items.Add(New ListItem("Remisión de nota de crédito", "RNC"))
+                End If
+
             End If
 
         End If
@@ -5089,6 +5093,10 @@ Partial Class Ventas
 
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                     Case "Egs"
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
+
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                         Trsaldo.Visible = True
@@ -5120,6 +5128,9 @@ Partial Class Ventas
                         DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                         EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
                     Case "RNC"
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -9248,6 +9259,11 @@ Partial Class Ventas
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso TxtAtencionA.Text.Trim.Length = 0 Then
+            Alert("El campo 'Atención A' es requerido. Favor de llenarlo", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If Not ValidaImportePublicoGeneral() Then
             Exit Sub
         End If
@@ -14873,6 +14889,33 @@ Partial Class Ventas
 
                                     End If
 
+                                    'SI ES PAGO CON DEVOLUCION
+                                    If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
+                                        If row2.DataKey("CveConceptoContable").ToString().ToEntero() = 277 Then
+
+                                            If row2.FCCheckBox("Chk" & row2.RowIndex).Checked Then
+                                                importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal() * Multiplicador
+                                                importeMX = importeMovimiento * tipoCambio
+                                                sumaAmorticaciones += importeMovimiento
+
+                                                If importeMovimiento <> 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMovimiento * tipoCambio, 150, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=-1, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveClasificacion:=ObjFactura.DtDetalle.MAX("CveClasificacion").ToEntero(), CveSubProyecto:=ObjFactura.CveSubProyecto, Contabilizable:=Contabilizable) Then
+                                                        ErrorPrepoliza = True
+                                                    End If
+
+                                                    If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento * -1, importeMX * -1, 277, Referencia, Concepto, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento * -1, importeMX * -1, 278, Referencia, Concepto, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=-1, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                            ErrorPrepoliza = True
+                                                        End If
+                                                    Else
+                                                        ErrorPrepoliza = True
+                                                    End If
+                                                End If
+                                            End If
+
+                                        End If
+                                    End If
+
                                 Next
 
                                 If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
@@ -16205,7 +16248,11 @@ Partial Class Ventas
             End If
 
             GVAnticipos.Columns(4).Visible = False
-            GVAnticipos.Columns(7).Visible = False
+            GVAnticipos.Columns(8).Visible = False
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                GVAnticipos.Columns(6).Visible = True
+            End If
 
             GVAnticipos.DataBind()
         End If
@@ -16343,7 +16390,7 @@ Partial Class Ventas
             'SI UN REGISTRO ES DE DIFERENTE MONEDA AL DOCUMENTO SE MUESTRAN LAS COLUMNAS
             If e.Row.DBCampo("CveMoneda").ToString().ToEntero() > 0 And e.Row.DBCampo("CveMoneda").ToString().ToEntero() <> DdlMoneda.SelectedValue.ToEntero() Then
                 GVAnticipos.Columns(4).Visible = True
-                GVAnticipos.Columns(7).Visible = True
+                GVAnticipos.Columns(8).Visible = True
             End If
 
 
@@ -16744,7 +16791,7 @@ Partial Class Ventas
                 If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
 
                     For Each gvr As GridViewRow In GVAnticipos.Rows
-                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12) Then
+                        If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(12, 277) Then
                             Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
                         End If
                     Next
@@ -20184,28 +20231,14 @@ Partial Class Ventas
         'si tiene la funcionalidad que se active independiente del tipo de documento RMF 15-10-2017
         Tr33.Visible = True
 
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
             BtnEmitirImprimir.Text = "Emitir e Imprimir"
-            'TdReferencia.Style.Add("display", "none")
-        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Then
-            BtnEmitirImprimir.Text = "Emitir e Imprimir"
-            'TdReferencia.Style.Remove("display")
-        ElseIf DdlTipoComprobante.SelectedValue = "Rem" Then
+        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped", "PeC", "PA", "RNC", "Com") Then
             BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
-        ElseIf DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC", "PA") Then
-            BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
         ElseIf DdlTipoComprobante.SelectedValue = "Cot" Then
             BtnEmitirImprimir.Text = "Cotizar"
-            'TdReferencia.Style.Add("display", "none")
-
             'FACTURACION 3.3
             Tr33.Visible = True
-
-        ElseIf DdlTipoComprobante.SelectedValue = "Com" Then
-            BtnEmitirImprimir.Text = "Registrar"
-            'TdReferencia.Style.Add("display", "none")
         ElseIf DdlTipoComprobante.SelectedValue.ToString() = "OP" Then
             BtnEmitirImprimir.Text = "Registrar"
             TdOrdenPago.Visible = True
@@ -30695,7 +30728,7 @@ Partial Class Ventas
 
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
-                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'NC' ", "")}")
+                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC') ", "")}")
                 divAmortizacionTipoRelacion.Visible = False
                 GVAnticipos.DataSource = DtMovtos
                 GVAnticipos.DataBind()

From 6ba133e1b26fd676bd62d8af02e0110dc30d0dcb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 8 Mar 2024 12:38:28 -0700
Subject: [PATCH 03/10] --Atencion A, si no tiene texto habilitar el campo
 Atencion A, al aplicar DEV o NC

---
 Ventas/Ventas.aspx.vb | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1a5fe4e83..c561b9b69 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5065,10 +5065,6 @@ Partial Class Ventas
 
                 Select Case DbRowVenta("TipoDocto").ToString()
                     Case "Ing"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5093,10 +5089,6 @@ Partial Class Ventas
 
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                     Case "Egs"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
                         HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
                         Trsaldo.Visible = True
@@ -5109,10 +5101,6 @@ Partial Class Ventas
                         End If
 
                     Case "Rem"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
-
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5128,9 +5116,6 @@ Partial Class Ventas
                         DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                         EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
                     Case "RNC"
-                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
-                        End If
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -5275,6 +5260,10 @@ Partial Class Ventas
 
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+            End If
+
             DdlTipoRelacionARelacionar.SelectedValueExist(DbRowVenta("CveTipoRelacion").ToString())
 
             'contado 0, credito 1, terminal 2 
@@ -29039,6 +29028,13 @@ Partial Class Ventas
                 CambiaTipoDocto()
 
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If TxtAtencionA.Text.Trim.Length = 0 Then
+                    TxtAtencionA.Enabled = True
+                End If
+            End If
+
         Catch ex As Exception
             OnError("Ocurrió un error al aplicar NC", ex)
         End Try
@@ -30060,6 +30056,12 @@ Partial Class Ventas
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If TxtAtencionA.Text.Trim.Length = 0 Then
+                TxtAtencionA.Enabled = True
+            End If
+        End If
+
         AplicaDevolucion = True
         SaldoVentaDevolucion = HplSaldoAuxiliar.Text.ToDecimal
         CveVentaDevolucion = CveVenta

From d4590a7136527c3c89445666ea73527584bad236 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 8 Mar 2024 17:24:13 -0700
Subject: [PATCH 04/10] --FIX. quitar codigo de cancelacion en opcion de
 saldado de venta

---
 Ventas/Ventas.aspx.vb | 137 ++++++++++++++++++------------------------
 1 file changed, 60 insertions(+), 77 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c561b9b69..7a5a0f5b9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26798,26 +26798,7 @@ Partial Class Ventas
 
 #Region "  SALDAR VENTA  "
     Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
-        'SaldarVenta()
-
-        Dim ObjCancelacion As New Timbrado
-
-        Dim FolioFiscal As String = LblFolioFiscal.Text
-        Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
-        Dim RFCReceptor As String = LblRFC.Text
-        Dim CvePACCancelacion As Integer = 4
-
-
-        Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
-
-        If RespCancelacion.Verificado Then
-
-
-
-        Else
-            Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
-        End If
-
+        SaldarVenta()
     End Sub
     Private Sub SaldarVenta()
         'Dim ObjVenta As New ClsVentas
@@ -26831,9 +26812,6 @@ Partial Class Ventas
         'RegistraScript("$('#ModalSaldarVenta').modal('hide')", "ModalSaldarVentaHidde")
 
 
-
-        Dim ObjConta As New ClsContabilidad
-        ObjConta.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
 
@@ -26945,69 +26923,74 @@ Partial Class Ventas
         End If
 
         Dim UsaComplementaria As Boolean = True
+        Dim ObjConta As New ClsContabilidad
+        ObjConta.IniciaTransacSQL()
+        Try
+            If MsgError = "" AndAlso Saldo > 0 Then
+                CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-        If MsgError = "" AndAlso Saldo > 0 Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-            If UsaComplementaria AndAlso tCveMoneda = 2 Then
-                'normal
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-                'complementaria
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-
-            Else
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-
-            End If
-
-            'fluctuación.
-            If tCveMoneda = 2 Then
-                Dim ImporteFluctuacion As Decimal = 0
-                ImporteFluctuacion = Saldo * (TCPago - TCVenta)
-                If TCPago > TCVenta Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                If UsaComplementaria AndAlso tCveMoneda = 2 Then
+                    'normal
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
+                    'complementaria
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        MsgError = "Ocurrio un error al saldar el movimiento"
+                    End If
+
                 Else
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
-                End If
-
-                'cuando hay pago en dólares, se ajusta el concepto de subtotal,
-                SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
-
-            End If
-            If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            'al gasto,Subtotal
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
-                If ObjConta.ValorPolizaDescuadre > 0 Then
-                    MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
-                    GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
 
                 End If
-            End If
-        Else
-            MsgError = "Saldo Cero"
-        End If
 
+                'fluctuación.
+                If tCveMoneda = 2 Then
+                    Dim ImporteFluctuacion As Decimal = 0
+                    ImporteFluctuacion = Saldo * (TCPago - TCVenta)
+                    If TCPago > TCVenta Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "Ocurrio un error al saldar el movimiento"
+                        End If
+                    Else
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "Ocurrio un error al saldar el movimiento"
+                        End If
+                    End If
+
+                    'cuando hay pago en dólares, se ajusta el concepto de subtotal,
+                    SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
+
+                End If
+                If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                'al gasto,Subtotal
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
+                        GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+
+                    End If
+                End If
+            Else
+                MsgError = "Saldo Cero"
+            End If
+        Catch ex As Exception
+            MsgError = "Ocurrió un error al saldar"
+            GuardaLog(ex.ToString())
+        End Try
 
         If MsgError = "" Then
             'ObjConta.RollBack()

From 4ad2bbd5a7c8424ba1c1097429639cc60ac71057 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 8 Mar 2024 18:08:28 -0700
Subject: [PATCH 05/10] =?UTF-8?q?SMS=20-=20Cat=20M=C3=A9dicos=20ajustes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsVentas.vb           | 151 ++++++++--
 General/SaldosIniciales.aspx.vb |  44 ++-
 UserControl/AddMedico.ascx      | 502 +++++++++++++++++++++-----------
 UserControl/AddMedico.ascx.vb   | 408 ++++++++++++++++++++++++--
 Ventas/CatMedicos.aspx          | 314 +++-----------------
 Ventas/CatMedicos.aspx.vb       |  14 +-
 6 files changed, 940 insertions(+), 493 deletions(-)

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: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
-                    Else
-                        Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.", NumRows), TipoMensaje.MsgInformacion)
-                    End If
-                    Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente. RFC:{1} ", Encontrados, RFC), TipoMensaje.MsgInformacion)
+
+                    'If Encontrados > 0 Then
+                    '    Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", Encontrados, NumRows - 1 - Encontrados), TipoMensaje.MsgInformacion)
+                    'Else
+                    '    Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.", Encontrados), TipoMensaje.MsgInformacion)
+                    'End If
+                    Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.", Encontrados), TipoMensaje.MsgInformacion)
+                    'Alert(String.Format("Se agregaron: <b>{0}</b> 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" %>
+<%--<style>
+    .modal {
+    z-index: 10150 !important;
+        }
 
-    <div id="DVAgregarMedico"  style="margin-top:-30px!important">
-        <div class="modal-dialog" style="min-width: 450px;">
+        .modal-backdrop.show {
+            z-index: 10140 !important;
+        }
+        .select2me {
+    z-index: 10160 !important; /* Asegúrate de que sea más alto que el modal y el backdrop */
+}
+</style>--%>
+
+    <div id="DVAgregarMedico"  style="margin-top:-30px!important;" >
+        <div class="modal-dialog" style="min-width: 650px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="modal-header ">
@@ -9,182 +21,247 @@
                         <h4 class="modal-title">
                             <asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</asp:Literal></h4>
                     </div>
-                    <div class="modal-body">
+                    <div class="modal-body" >
+                        <div class="row">
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtNombre" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtNombre" runat="server" ControlToValidate="TxtNombre" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtNombre.ClientID.ToString()%>">Nombre:</label>
+                                </div>
+
+                            </div>
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtAPaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RfvTxtAPaterno" runat="server" ControlToValidate="TxtAPaterno" CssClass="help-block errorimput"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtAPaterno.ClientID.ToString()%>">Apellido Paterno:</label>
+                                    </div>
+                            </div>
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                <asp:TextBox ID="TxtAMaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RfvTxtAMaterno" runat="server" ControlToValidate="TxtAMaterno" CssClass="help-block errorimput"
+                                    ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Materno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
+                                <label for="<%= TxtAMaterno.ClientID.ToString()%>">Apellido Materno:</label>
+                                    </div>
+                            </div>
+                            <div class="col-md-4">
+                            </div>
+                        </div>
+
+
+                        <div class="row">
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>--%>
+                                    <label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">
+                                    <label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label>
+
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
+                                        <asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+
+                                    <ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <%--<asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
+                                    <asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarMedico"></asp:CompareValidator>
+                                    <%--<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>--%>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                </div>
+                            </div>
+                             <div class="col-md-4">
+                                 <div class="form-group form-md-line-input input-iconright">
+                                     <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                     <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                     <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                 </div>
+                             </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-6">
+                            </div>
+
+                        </div>
+                        <br />
+
+                        <div class="row">
+                           
+                            <div class="col-md-4">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
+                                </div>
+
+                            </div>
+                             <div class="col-md-4">
+                                 <div class="form-group form-md-line-input input-iconright">
+                                     <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                     <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
+                                     <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
+                                         ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
+                                         ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
+                                     <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
+                                 </div>
+                             </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
+                                    <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%" DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
+                                    <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
+                                </div>
+                            </div>
+
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control select2me" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="100%">
+                                        <asp:ListItem Selected="true" Text="Sin asignar" Value="0"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
+                                </div>
+                            </div>
+                        </div>
+
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                            <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
+                        </div>
+          
+
+                         <div class="row">
+                             <div class="col-md-12" style="text-align:right!important">
+                                 <asp:LinkButton runat="server" ID="LnkAgregarMedicoClienteSucursal" data-toggle="tooltip" data-placement="right" title="Agregar" CssClass="btn btn-circle btn-default"  OnClick="LnkAgregarMedicoClienteSucursal_Click"
+                                     Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                             </div>
+                         </div>
+
                         <div class="row">
                             <div class="col-md-12">
 
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtMedico" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvTxtMedico" runat="server" ControlToValidate="TxtMedico" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Médico:</label>
-                                </div>
+                                <asp:GridView ID="GvMedicosClientesSucursales" runat="server" AutoGenerateColumns="False"
+                                    DataKeyNames="CveMedicoClienteSucursal,CveMedico,CveCliente,CveClienteSucursal,DiasAtencion,Horario,Consultorio,Torre,AsistenteNombre"
+                                    EmptyDataText="No se encontraron   Registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Hospital" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                         				
 
 
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                            <%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>--%>
-                                            <label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">
-                                            <label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label>
+                                        <asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
-                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
-                                                <asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
-                                                <span class="input-group-btn ">
-                                                    <asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                </span>
-                                            </div>
+                                        <asp:TemplateField HeaderText="Horario" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlHorario" runat="server" Text='<%# Eval("Horario") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
-                                            <ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                            <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                            <asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
-                                            <asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarMedico"></asp:CompareValidator>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                         <asp:TemplateField HeaderText="Consultorio" ItemStyle-HorizontalAlign="Left">
+                                             <ItemTemplate>
+                                                 <asp:Literal ID="LtlConsultorio" runat="server" Text='<%# Eval("Consultorio") %>'></asp:Literal>
+                                             </ItemTemplate>
+                                         </asp:TemplateField>
 
-                                        </div>
-                                    </div>
-                                </div>
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                    </div>
-                                </div>
-
-                                <br />
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                            <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                            <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                            <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                            <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
-                                        </div>
-
-                                    </div>
-                                </div>
+                                         <asp:TemplateField HeaderText="Torre" ItemStyle-HorizontalAlign="Left">
+                                             <ItemTemplate>
+                                                 <asp:Literal ID="LtlTorre" runat="server" Text='<%# Eval("Torre") %>'></asp:Literal>
+                                             </ItemTemplate>
+                                         </asp:TemplateField>
 
 
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                            <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
-                                            <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
-                                                ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
-                                                ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
-                                            <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                       
-                                    </div>                                    
-                                </div>
+                                          <asp:TemplateField HeaderText="Asistente" ItemStyle-HorizontalAlign="Left">
+                                              <ItemTemplate>
+                                                  <asp:Literal ID="LtlAsistente" runat="server" Text='<%# Eval("AsistenteNombre") %>'></asp:Literal>
+                                              </ItemTemplate>
+                                          </asp:TemplateField>
 
-                                
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
-                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">                                   
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%"  DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
-                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
-                                </div>
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtLugar" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-3">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-3">
-                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-
-                                <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
-                                    <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
-                                </div>
-
-
-                                 <div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
-                                     <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright" >
-                                            <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
-                                        </div>
-                                    </div>                                   
-                                </div>
+                                       <%-- <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>--%>
+
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEditarClienteSucursal" runat="server" AlternateText="Editar" OnClick="LnkEditarClienteSucursal_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                <asp:LinkButton ID="LnkEliminarClienteSucursal" OnClick="LnkEliminarClienteSucursal_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
 
+                                    </Columns>
+                                </asp:GridView>
 
                             </div>
                         </div>
+
+
+                        <div class="row">
+                            <div class="col-md-12">
+                            </div>
+                        </div>
+
+
+
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
+                            <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+
+                        <div class="row" runat="server" id="DVUsuarioFechaIng" visible="false">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                    <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                    <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
+                                </div>
+                            </div>
+                        </div>
+
+
+
+
                     </div>
 
                     <div class="modal-footer">
@@ -195,3 +272,104 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+
+     <div id="DVMedicoClienteSucursal" class="modal ADS fade" role="dialog"  style="z-index:10150" >
+        <div class="modal-dialog" style="width: 450px; z-index:10150" >
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalMedicoClienteSucursal" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <a id="XCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" class="close" onclick="closeModal()">×</a>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">                  
+
+                          <div class="row">
+                              <div class="col-md-6">                              
+                                  <div class="form-group form-md-line-input input-iconright ">
+                                      <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true" Width="100%"> </asp:DropDownList>
+                                      <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
+                                          ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalMedicoClientesucursal"></asp:RequiredFieldValidator>
+                                      <ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
+                                      <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
+                                  </div>
+                              </div>
+                          </div>
+
+                        <div class="row">
+
+                              <div class="col-md-6">
+                                  <div class="form-group form-md-line-input">
+                                      <asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de Atención:"></asp:Label>
+                                      <br />
+                                      <label><b>L</b></label>&nbsp;&nbsp;&nbsp;
+                                      <label><b>M</b></label>&nbsp;&nbsp;&nbsp;
+                                      <label><b>MI</b></label>&nbsp;&nbsp;&nbsp;
+                                      <label><b>J</b></label>&nbsp;&nbsp;
+                                      <label><b>V</b></label>&nbsp;&nbsp;&nbsp;
+                                      <label><b>S</b></label>&nbsp;&nbsp;&nbsp;
+                                      <label><b>D</b></label>&nbsp;&nbsp;&nbsp;
+                                      <br />
+                                      <asp:CheckBox ID="ChkLunes" runat="server" />&nbsp;                                                                           
+                                      <asp:CheckBox ID="ChkMartes" runat="server" />&nbsp;                                                                           
+                                      <asp:CheckBox ID="ChkMiercoles" runat="server" />&nbsp;                                                                           
+                                      <asp:CheckBox ID="ChkJueves" runat="server" />&nbsp;                                                                           
+                                      <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;                                                                           
+                                      <asp:CheckBox ID="ChkSabado" runat="server" />&nbsp;                                                                   
+                                      <asp:CheckBox ID="ChkDomingo" runat="server" />&nbsp;                                                                   
+     
+                                  </div>
+                              </div>
+
+                          <%--  <div class="col-md-6" runat="server" visible="false">
+                                <div class="form-group form-md-line-input input-iconright" >
+                                    <asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                    <label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
+                                </div>
+                            </div>--%>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                                    <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
+                                </div>
+                            </div>
+                        </div>
+
+                        <div class="row">                            
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
+                                </div>
+                            </div>
+                        </div>
+
+                           <div class="form-group form-md-line-input input-iconright">
+                               <asp:TextBox ID="TxtAsistenteNombre" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
+                               <label for="<%= TxtAsistenteNombre.ClientID.ToString()%>">Asistente:</label>
+                           </div>
+                         
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGaurdarMedicoClienteSucursal" OnClick="BtnGaurdarMedicoClienteSucursal_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpModalMedicoClientesucursal"  />                        
+                        <a id="btnCerrarmodalMedicoClienteSucursal" runat="server"  ClientIDMode="Static"  onclick="closeModal()"  class="btn default">Cancelar</a>
+                        
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+ 
+<script type="text/javascript">
+    function closeModal() {
+        $('#DVMedicoClienteSucursal').modal('hide');
+    }
+</script>
\ 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 @@
                         <div class="row">
                             <div class="col-md-12">
 
-                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"
+                                <%--DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"--%>
+                                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"                                    
+                                    DataKeyNames="CveMedico,Nombre,APaterno,AMaterno,CedulaProfesional,FechaNacimiento,Notas,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Usuario,CveVendedor"
                                     data-sort="true"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
-                                        <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
+                                        <asp:TemplateField HeaderText="Nombre" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>
-                                                <asp:Literal ID="LtlMedico" runat="server" Text='<%# Eval("Medico") %>'></asp:Literal>
+                                                <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Apellido Paterno" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlAPaterno" runat="server" Text='<%# Eval("APaterno") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Apellido Materno" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlAMaterno" runat="server" Text='<%# Eval("AMaterno") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
@@ -255,23 +266,31 @@
                                             </ItemTemplate>
                                         </asp:TemplateField>                                        
 
+                                        <asp:TemplateField HeaderText="Hospital" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlHospital" runat="server" Text='<%# Eval("Hospital") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Consultorio" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlConsultorio" runat="server" Text='<%# Eval("Consultorio") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+
                                         <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-
-                                        <asp:TemplateField HeaderText="Horario" ItemStyle-HorizontalAlign="Left">
+                                        <asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>
-                                                <asp:Literal ID="LtlHorario" runat="server" Text='<%# Eval("Horario") %>'></asp:Literal>
+                                                <asp:Literal ID="LtlVendedor" runat="server" Text='<%# Eval("Vendedor") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                        <asp:TemplateField HeaderText="Lugar" ItemStyle-HorizontalAlign="Left">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlLugar" runat="server" Text='<%# Eval("Lugar") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
+                              
 
                                         <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
                                             <ItemTemplate>
@@ -314,67 +333,7 @@
         </ajax:TabPanel>
 
 
-            <%--  <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">        
-            <ContentTemplate>
-
-                <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        
-                        <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
-                            <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                        </div>
-                        <div class="row">
-                            <div class="col-md-12">
-
-                                <asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
-                                    EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
-                                    <Columns>
-                                        <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>                                    
-
-                                        <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
-                                            <ItemTemplate>
-                                                <asp:LinkButton ID="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                                <asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-
-
-                                    </Columns>
-                                </asp:GridView>
-
-                            </div>
-                        </div>
-
-
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-
-            </ContentTemplate>
-        </ajax:TabPanel>--%>
+            
 
     </ajax:TabContainer>
         </ContentTemplate>
@@ -388,8 +347,7 @@
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAddMedico" UpdateMode="Conditional">
             <ContentTemplate>
 
-                <div class="modal-content" style="max-width:600px!important;max-height:505px!important">
-                    <%--<UserControl:AddMedico runat="server" ID="AddMedicoControl" />--%>
+                <div class="modal-content" style="background-color: rgba(255, 255, 255, 0.0);width: 100vw!important;height: 100vh;" >
                     <UserControl:AddMedico runat="server" ID="AddMedicoControl" />
                 </div>
                 <asp:Button ID="BtnRecargaMedicos" Style="display: none;" ClientIDMode="Static" runat="server" OnClick="BtnRecargaMedicos_Click" />
@@ -400,197 +358,7 @@
     </div>
     
 
-    <%--<div id="DVAgregarMedico" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="min-width: 450px;">
-            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModal" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <div class="modal-header ">
-                        <button type="button" class="close" data-dismiss="modal">×</button>
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</asp:Literal></h4>
-                    </div>
-                    <div class="modal-body">
-                        <div class="row">
-                            <div class="col-md-12">
-
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtMedico" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvTxtMedico" runat="server" ControlToValidate="TxtMedico" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Medico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Médico:</label>
-                                </div>
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>                                            
-                                            <label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">
-                                            <label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label>
-
-                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
-                                                <asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
-                                                <span class="input-group-btn ">
-                                                    <asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                </span>
-                                            </div>
-
-                                            <ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                            <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                            <asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
-                                            <asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarRegistro"></asp:CompareValidator>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
-
-                                        </div>
-                                    </div>
-                                </div>
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                    </div>
-                                </div>
-
-                                <br />
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                            <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                            <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                            <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                            <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
-                                        </div>
-
-                                    </div>
-                                </div>
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                            <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
-                                            <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
-                                                ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
-                                                ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarRegistro"></asp:RegularExpressionValidator>
-                                            <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                       
-                                    </div>                                    
-                                </div>
-
-                                
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
-                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">                                   
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlSubEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="SubEspecialidad" Width="100%"  DataValueField="CveMedicoSubEspecialidad"></asp:DropDownList>
-                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
-                                </div>
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-
-
-
-                                <div class="row">
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtLugar" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtLugar.ClientID.ToString()%>">Hospital:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-3">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-3">
-                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtTorre" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                            <label for="<%= TxtTorre.ClientID.ToString()%>">Torre:</label>
-                                        </div>
-                                    </div>
-                                </div>
-
-
-
-                                <div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
-                                    <asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
-                                    <label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
-                                </div>
-
-
-                                 <div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
-                                     <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input input-iconright" >
-                                            <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
-                                        </div>
-                                    </div>                                   
-                                </div>
-
-                            </div>
-                        </div>
-                    </div>
-
-                    <div class="modal-footer">
-                        <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
-                        <button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
-                    </div>
-                </ContentTemplate>
-            </asp:UpdatePanel>
-        </div>
-    </div>--%>
+    
 
 
      <div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
@@ -632,7 +400,7 @@
 
 
     <div id="DVModalCumple" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
+        <div class="modal-dialog" style="width: 650px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpDVModalCumple" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="modal-header ">
@@ -718,6 +486,18 @@
             $("#HdnCveMedicoNuevo").val(CveNuevoMedico)
             $('#BtnRecargaMedicos').click();
         }
+
+    
+            //$(document).ready(function () {
+            //    // Inicializa el modal exterior (DvModalAddMedico)
+            //    $('#DvModalAddMedico').modal({
+            //        backdrop: 'static',
+            //        keyboard: false,
+            //        show: false // Importante si deseas controlar manualmente cuándo se muestra
+            //    });
+
+         
+    
     </script>
   
 </asp:Content>
diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb
index 25f8a783f..910d910ce 100644
--- a/Ventas/CatMedicos.aspx.vb
+++ b/Ventas/CatMedicos.aspx.vb
@@ -170,7 +170,7 @@ Partial Class Ventas_CatMedicos
         AddMedicoControl.CveMedico = -1
         AddMedicoControl.LimpiarControles()
         UpModalAddMedico.Update()
-        RegistraScript("$('#DvModalAddMedico').modal();")
+        RegistraScript("$('#DvModalAddMedico').modal({ backdrop: 'static', keyboard: false });")
     End Sub
 
     Public Sub Edit_Click(sender As Object, e As EventArgs)
@@ -179,10 +179,12 @@ Partial Class Ventas_CatMedicos
 
         CveMedico = GvRow.DataKey("CveMedico").ToEntero
 
-        AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Medico"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"), GvRow.DataKey("DiasAtencion"),
-                                        GvRow.DataKey("Horario"), GvRow.DataKey("Lugar"), GvRow.DataKey("Consultorio"), Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"),
-                                        GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero, GvRow.DataKey("Torre"),
-                                        GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"))
+        AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Nombre"), GvRow.DataKey("APaterno"), GvRow.DataKey("AMaterno"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"),
+                                         Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"), GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero,
+                                        GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero)
+
+
+
 
 
         'TxtMedico.Text = GvRow.DataKey("Medico")
@@ -213,7 +215,7 @@ Partial Class Ventas_CatMedicos
 
         'UpModal.Update()
         UpModalAddMedico.Update()
-        RegistraScript("$('#DvModalAddMedico').modal();")
+        RegistraScript("$('#DvModalAddMedico').modal({ backdrop: 'static', keyboard: false });")
 
     End Sub
 

From 54776fdd8bf12c984ef55f2576eda51196134333 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 8 Mar 2024 18:10:44 -0700
Subject: [PATCH 06/10] =?UTF-8?q?SMS=20-=20Cat=20M=C3=A9dicos=20Ventas=20a?=
 =?UTF-8?q?juste=20modal=20medicos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 6205dd638..72bdb40e7 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8734,7 +8734,7 @@
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAddMedico" UpdateMode="Conditional">
             <ContentTemplate>
 
-                <div class="modal-content" style="max-width: 600px!important; max-height: 505px!important">
+                <div class="modal-content" style="background-color: rgba(255, 255, 255, 0.0);width: 100vw!important;height: 100vh;" >
                     <UserControl:AddMedico runat="server" ID="AddMedicoControl" />
                 </div>
                 <asp:Button ID="BtnRecargaMedicos" Style="display: none;" ClientIDMode="Static" runat="server" OnClick="BtnRecargaMedicos_Click" />
@@ -8748,7 +8748,7 @@
 
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAddProcedimiento" UpdateMode="Conditional">
             <ContentTemplate>
-                <div class="modal-content" style="max-width: 600px!important; max-height: 505px!important">
+                <div class="modal-content" style="background-color: rgba(255, 255, 255, 0.0);width: 100vw!important;height: 100vh;" >
                     <UserControl:AddProcedimiento runat="server" ID="AddProcedimientoControl" />
                 </div>
                 <asp:Button ID="BtnRecargaProcedimientos" Style="display: none;" ClientIDMode="Static" runat="server" OnClick="BtnRecargaProcedimientos_Click" />

From 23f7d10c123012584652b23c14fdf641ac0bcc0e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 9 Mar 2024 11:08:00 -0700
Subject: [PATCH 07/10] =?UTF-8?q?SMS=20-=20Cat=20M=C3=A9dicos=20Validacion?=
 =?UTF-8?q?es=20campos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 UserControl/AddMedico.ascx | 28 ++++++++++++++++++----------
 Ventas/CatMedicos.aspx     |  7 ++++++-
 2 files changed, 24 insertions(+), 11 deletions(-)

diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx
index fc89acd53..cb4e00d56 100644
--- a/UserControl/AddMedico.ascx
+++ b/UserControl/AddMedico.ascx
@@ -57,8 +57,8 @@
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                    <%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>--%>
+                                    <asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label>
                                 </div>
                             </div>
@@ -86,6 +86,8 @@
                                  <div class="form-group form-md-line-input input-iconright">
                                      <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
                                      <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                     <asp:RequiredFieldValidator ID="RfvTxtTelefono" runat="server" ControlToValidate="TxtTelefono" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
                                      <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
                                  </div>
                              </div>
@@ -105,6 +107,9 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtCelular" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
                                     <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtCelular" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico">
+                                    </asp:RequiredFieldValidator>                                    
                                     <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
                                 </div>
 
@@ -116,6 +121,8 @@
                                      <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
                                          ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
                                          ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
+                                     <asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
                                      <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
                                  </div>
                              </div>
@@ -125,6 +132,8 @@
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
                                     <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                 </div>
                             </div>
@@ -289,8 +298,9 @@
                               <div class="col-md-6">                              
                                   <div class="form-group form-md-line-input input-iconright ">
                                       <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true" Width="100%"> </asp:DropDownList>
-                                      <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
-                                          ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalMedicoClientesucursal"></asp:RequiredFieldValidator>
+                                      <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="help-block errorimput"   InitialValue="-1"
+                                          ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalMedicoClientesucursal">
+                                      </asp:RequiredFieldValidator>
                                       <ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
                                       <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
                                   </div>
@@ -322,12 +332,7 @@
                                   </div>
                               </div>
 
-                          <%--  <div class="col-md-6" runat="server" visible="false">
-                                <div class="form-group form-md-line-input input-iconright" >
-                                    <asp:TextBox ID="TxtDiasAtencion" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                                    <label for="<%= TxtDiasAtencion.ClientID.ToString()%>">Días de Atención:</label>
-                                </div>
-                            </div>--%>
+                       
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
@@ -340,6 +345,9 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtConsultorio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtConsultorio" runat="server" CssClass="help-block errorimput"  
+                                        ControlToValidate="TxtConsultorio" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Consultorio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalMedicoClientesucursal">
+                                    </asp:RequiredFieldValidator>
                                     <label for="<%= TxtConsultorio.ClientID.ToString()%>">Consultorio:</label>
                                 </div>
                             </div>
diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx
index bdb0c440d..1895c5a48 100644
--- a/Ventas/CatMedicos.aspx
+++ b/Ventas/CatMedicos.aspx
@@ -264,7 +264,12 @@
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlTelefono" runat="server" Text='<%# Eval("Telefono") %>'></asp:Literal>
                                             </ItemTemplate>
-                                        </asp:TemplateField>                                        
+                                        </asp:TemplateField>      
+                                        <asp:TemplateField HeaderText="Correo" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlCorreo" runat="server" Text='<%# Eval("Mail") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>  
 
                                         <asp:TemplateField HeaderText="Hospital" ItemStyle-HorizontalAlign="Left">
                                             <ItemTemplate>

From 85f3eb552278f07749d631c4ea2ed38d6bcc92c3 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sun, 10 Mar 2024 11:09:07 -0700
Subject: [PATCH 08/10] modal regreso  sin transparencias

---
 Inventarios/EntregaAlmacen.aspx    | 11 +++++++++++
 Inventarios/EntregaAlmacen.aspx.vb |  5 +++--
 UserControl/AddMedico.ascx.vb      |  9 +++++++--
 Ventas/Ventas.aspx.vb              | 10 ++++++++--
 4 files changed, 29 insertions(+), 6 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 787910cdd..39ebbe52f 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -1150,6 +1150,17 @@
 
         }
 
+        function fncCantidad(checkbox, numeroMax, idTbCantidadF) {
+            
+            var $textbox = $('#' + idTbCantidadF);
+
+            if ($(checkbox).is(':checked')) {
+                $textbox.val(numeroMax);
+            } else {
+                $textbox.val(0);
+            }
+        }
+
     </script>
 
 </asp:Content>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 7e9b55a25..b2012351d 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Web.Management
+Imports DocumentFormat.OpenXml.InkML
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports MoreLinq
@@ -1237,13 +1238,13 @@ Partial Class Inventarios_EntregaAlmacen
 
             If BloqueCantidad Then
                 e.Row.FCTextBox("TbCantidadF").Enabled = False
+            Else
+                e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}')")
             End If
 
 
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
-
                 CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"))
-
             End If
 
 
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb
index 9dc3626fa..36efb7edb 100644
--- a/UserControl/AddMedico.ascx.vb
+++ b/UserControl/AddMedico.ascx.vb
@@ -68,8 +68,7 @@ Partial Class UserControl_AddMedico
     Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            CargaCombos()
-            CargaCombosMedicoClientesucursal()
+
         End If
     End Sub
 
@@ -138,6 +137,9 @@ Partial Class UserControl_AddMedico
 
 
     Public Sub LimpiarControles()
+        CargaCombos()
+        CargaCombosMedicoClientesucursal()
+
         CveMedico = -1
         CrearDTMedicosClientesSucursales()
         CveMedicoClienteSucursal = -1
@@ -197,6 +199,9 @@ Partial Class UserControl_AddMedico
     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)
 
+        CargaCombos()
+        CargaCombosMedicoClientesucursal()
+
         CveMedico = CveMedicoEditar
         TxtNombre.Text = Nombre
         TxtAPaterno.Text = APaterno
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7a5a0f5b9..b755a1c7b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36949,8 +36949,14 @@ Partial Class Ventas
             If DdlClientesModal.SelectedValue.ToEntero > 0 Then
                 ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
             Else
-                Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+                Dim CveClientePublicoGeneral As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", " RFC = 'XAXX010101000' ").ToEntero
+
+                If CveClientePublicoGeneral > 0 Then
+                    ViewState("CveCliente") = CveClientePublicoGeneral
+                Else
+                    Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             End If
 
 

From 7169c48da5cc5347271d8a24fae3a05e47d7c592 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 11 Mar 2024 15:21:13 -0700
Subject: [PATCH 09/10] =?UTF-8?q?SMS=20-=20Cat=20M=C3=A9dicos=20Retro?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 UserControl/AddMedico.ascx    |  2 +-
 UserControl/AddMedico.ascx.vb | 95 +++++++++++++++++++++++++----------
 Ventas/Ventas.aspx.vb         |  3 +-
 3 files changed, 72 insertions(+), 28 deletions(-)

diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx
index cb4e00d56..80bdcd6e0 100644
--- a/UserControl/AddMedico.ascx
+++ b/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>
 
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb
index 36efb7edb..277a05b03 100644
--- a/UserControl/AddMedico.ascx.vb
+++ b/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-")
-        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()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b755a1c7b..25c926220 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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), "")

From 34c8faddf637715703673784b766882b483fcd1f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 11 Mar 2024 17:30:24 -0700
Subject: [PATCH 10/10] --mejora de logica de cancelacion de remisiones de NC

---
 App_Code/Modelos.vb | 43 ++++++++++++++++++++++++++-----------------
 Ventas/PV.aspx.vb   |  2 +-
 2 files changed, 27 insertions(+), 18 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 916eac813..4a7b56be4 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3248,31 +3248,40 @@ Namespace Modelos
                                         Dim TipoMovto68 As Boolean = TipoMovimiento
                                         'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS
                                         If ValorMultiplicador = -1 Then
-                                            CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta, GenerarPrePoliza:=False)
+                                            Dim CveMovCancelacion = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta, GenerarPrePoliza:=False)
+                                            If CveMovCancelacion > 0 Then
+                                                CveMovimientoReferencia = CveMovCancelacion
+                                            Else
+                                                ErrorPrepoliza = True
+                                            End If
                                         Else
                                             CveMovimientoReferencia = CveMovimiento
                                         End If
                                         ' If ObjFactura.EsGarantia Then, el valor viene en cero ya
-                                        If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
-                                            Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador
 
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then
+                                        If Not ErrorPrepoliza Then
+                                            If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
+                                                Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador
+
+                                                If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Importe68, 68, Referencia, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, Contabilizable:=False) Then
+                                                    ErrorPrepoliza = True
+                                                End If
+
+                                                If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto68, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                    ErrorPrepoliza = True
+                                                End If
+
+                                                Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador
+
+                                                If Not ErrorPrepoliza AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe318, Importe318, 318, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                                    ErrorPrepoliza = True
+                                                End If
+
+                                            Else
                                                 ErrorPrepoliza = True
                                             End If
-
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovto68, importeMovimiento, importeMX, 277, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
-                                                ErrorPrepoliza = True
-                                            End If
-
-                                            Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador
-
-                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe318, Importe318, 318, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
-                                                ErrorPrepoliza = True
-                                            End If
-
-                                        Else
-                                            ErrorPrepoliza = True
                                         End If
+
                                         'Else
                                         '    If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
                                         '        Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("")
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 29ad9b268..1a66ff435 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3466,7 +3466,7 @@ Partial Class PV
                 Dim SbAlert As New StringBuilder
 
                 Try
-                    Retorno = ObjFactura.EmitirFactura(Transac:=ObjAcum.IniciaTransacSQL())
+                    Retorno = ObjFactura.EmitirFactura(Transac:=ObjAcum.IniciaTransacSQL(), Modulo:="PV/GuardarVenta")
 
                     If Retorno IsNot Nothing AndAlso Retorno.CveVenta > 0 Then