Cat Medicos telefono, correo y especialidad

App_Code/ClsVentas.vb

@@ -5994,7 +5994,8 @@ Public Class ClsVentas
 
 
 
-    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) As Boolean
+    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, Especialidad As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosAdd")
@@ -6010,6 +6011,11 @@ Public Class ClsVentas
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Mail", SqlDbType.VarChar).Value = Mail
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -6021,7 +6027,8 @@ 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) As Boolean
+    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, Especialidad As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosUpdate")
@@ -6037,6 +6044,9 @@ Public Class ClsVentas
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@Mail", SqlDbType.VarChar).Value = Mail
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
         End With
         Try
             SqlAdapter.Fill(Data)

Compras/Compras.aspx.vb

@@ -8598,7 +8598,9 @@ Partial Class Compras_Compras
                                     If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal,
                                                                    Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
                                                                    RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
-                                                                   IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso ChkEsNoDeducible.Checked, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
+                                                                   IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
+                                                                   IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso ChkEsNoDeducible.Checked, True, False),
+                                                                   CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
 
                                         Retorno = False
                                         Exit For
@@ -10893,7 +10895,7 @@ Partial Class Compras_Compras
 
 
                     Try
-                        TmpDT.Rows(Index)("CveActivoFijo") = Nothing
+                        TmpDT.Rows(Index)("CveActivoFijo") = -1
                         TmpDT.AcceptChanges()
                     Catch ex As Exception
 

Ventas/CatMedicos.aspx

@@ -35,7 +35,7 @@
                 <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" 
+                DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad" 
                 EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                      <asp:TemplateField HeaderText="Medico" ItemStyle-HorizontalAlign="Left" >
@@ -56,15 +56,21 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     
-                    <asp:TemplateField HeaderText="Notas" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Teléfono" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlNotas" runat="server" Text='<%# Eval("Notas") %>'></asp:Literal>
+                            <asp:Literal ID="LtlTelefono" runat="server" Text='<%# Eval("Telefono") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                     
-                    <asp:TemplateField HeaderText="Dias Atención" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Correo" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMail" runat="server" Text='<%# Eval("Mail") %>'></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>
 
@@ -172,6 +178,29 @@
                                 </div>                       
 
                                 <br />
+
+
+                                <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 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 class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>                                    
+                                    <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                </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>

Ventas/CatMedicos.aspx.vb

@@ -50,12 +50,14 @@ Partial Class Ventas_CatMedicos
         Dim ObjVentas As New ClsVentas
 
 
+        Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.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) 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, TxtEspecialidad.Text) Then
                 ProcesoOK = True
             End If
         Else
-            If 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) Then
+            If 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, TxtEspecialidad.Text) Then
                 ProcesoOK = True
             End If
         End If
@@ -123,6 +125,10 @@ Partial Class Ventas_CatMedicos
         TxtDiasAtencion.Text = ""
         TxtHorario.Text = ""
         TxtLugar.Text = ""
+        TxtMail.Text = ""
+        TxtTelefono.Text = ""
+        TxtEspecialidad.Text = ""
+
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -149,6 +155,10 @@ Partial Class Ventas_CatMedicos
         TxtLugar.Text = GvRow.DataKey("Lugar")
         ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
 
+        TxtMail.Text = GvRow.DataKey("Mail")
+        TxtTelefono.Text = GvRow.DataKey("Telefono")
+        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Medico {TxtCedulaProfecional.Text}"