SMS Sub Especialidades, Genrar almacen a cliente en fnc 404 fnc 578
This commit is contained in:
rakcsle
269
Ventas/CatEspecialidadesSubEspecialidades.aspx
Normal file
269
Ventas/CatEspecialidadesSubEspecialidades.aspx
Normal file
@@ -0,0 +1,269 @@
|
||||
<%@ Page Title="Catálogo De Especialidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatEspecialidadesSubEspecialidades.aspx.vb" Inherits="Ventas_CatEspecialidadesSubEspecialidades" %>
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
<link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
Catálogo De Especialidades
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Always">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarSubEspecialidad" OnClick="LnkAgregarSubEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Sub Especialidad"></asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:PostBackTrigger ControlID="LnkExportar" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<ajax:TabContainer runat="server" ID="Tabs">
|
||||
|
||||
|
||||
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
|
||||
<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:TabPanel ID="TabSubEspecialidad" runat="server" HeaderText="SubEspecialidades" ClientIDMode="Static">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpSubEspecialidad" 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="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSubEspecialidad.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="GvSubEspecialidad" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveMedicoSubEspecialidad,CveMedicoEspecialidad,SubEspecialidad,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="Sub Especialidad" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlSubEspecialidad" runat="server" Text='<%# Eval("SubEspecialidad") %>'></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="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="LnkEditarSubEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarSubEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="LnkEliminarSubEspecialidad" OnClick="LnkEliminarSubEspecialidad_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>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
<div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<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-12">
|
||||
|
||||
<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>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
|
||||
<asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
|
||||
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div id="DVAgregarSubEspecialidad" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 450px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalSubEspecialidad" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal1" runat="server">Agregar Sub Especialidad</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:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad" Width="100%" CausesValidation="true" ></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="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtSubEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtSubEspecialidad" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSubEspecialidad"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtSubEspecialidad.ClientID.ToString()%>">Sub Especialidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="DVEstatusSubEspecialidad" runat="server" visible="false">
|
||||
<asp:CheckBox ID="ChkEstatusSubEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatusSubEspecialidad.ClientID.ToString()%>">Activo:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAgergarSubEspecialidad" OnClick="BtnAgergarSubEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarSubEspecialidad" />
|
||||
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
|
||||
|
||||
|
||||
</asp:Content>
|
||||
291
Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
Normal file
291
Ventas/CatEspecialidadesSubEspecialidades.aspx.vb
Normal file
@@ -0,0 +1,291 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Extensions.Primitives
|
||||
|
||||
Partial Class Ventas_CatEspecialidadesSubEspecialidades
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
Public Property CveMedicoEspecialidad As Integer
|
||||
Get
|
||||
If ViewState("CveMedicoEspecialidad") Is Nothing Then
|
||||
ViewState("CveMedicoEspecialidad") = -1
|
||||
End If
|
||||
Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMedicoEspecialidad") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property CveMedicoSubEspecialidad As Integer
|
||||
Get
|
||||
If ViewState("CveMedicoSubEspecialidad") Is Nothing Then
|
||||
ViewState("CveMedicoSubEspecialidad") = -1
|
||||
End If
|
||||
Return ViewState("CveMedicoSubEspecialidad").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveMedicoSubEspecialidad") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaEspecialidad()
|
||||
CargaSubEspecialidad()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "EXCEL"
|
||||
|
||||
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||
|
||||
|
||||
If Tabs.ActiveTabIndex = 0 Then
|
||||
GvEspecialidad.Columns(4).Visible = False
|
||||
Dim SbFiltros As New StringBuilder()
|
||||
|
||||
GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
|
||||
GvEspecialidad.Columns(4).Visible = True
|
||||
ElseIf Tabs.ActiveTabIndex = 1 Then
|
||||
GvEspecialidad.Columns(5).Visible = False
|
||||
Dim SbFiltros As New StringBuilder()
|
||||
|
||||
GvEspecialidad.ExportToExcelGembox("CatSubEspecialidades", UsuarioActual, "Catálogo De Sub Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
|
||||
GvEspecialidad.Columns(5).Visible = True
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "Especialidad"
|
||||
|
||||
|
||||
Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
CveMedicoEspecialidad = -1
|
||||
DVEstatusEspecialidad.Visible = False
|
||||
LimpiarModalEspecialdiad()
|
||||
RegistraScript("$('#DVAgregarEspecialidad').modal();")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim ProcesoOK As Boolean = True
|
||||
|
||||
If CveMedicoEspecialidad > 0 Then
|
||||
If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
Else
|
||||
If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
CargaEspecialidad()
|
||||
Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
|
||||
RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub LimpiarModalEspecialdiad()
|
||||
TxtEspecialidad.Text = ""
|
||||
ChkEstatusEspecialidad.Checked = True
|
||||
UpModalEspecialidad.Update()
|
||||
End Sub
|
||||
Sub CargaEspecialidad()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvEspecialidad.DataSource = ObjVentas.DtResultados
|
||||
DdlEspecialidad.DataSource = ObjVentas.DtResultados
|
||||
Else
|
||||
GvEspecialidad.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
GvEspecialidad.DataBind()
|
||||
|
||||
DdlEspecialidad.DataBind()
|
||||
DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
|
||||
UpEspecialidad.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
|
||||
CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
|
||||
TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
|
||||
ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
|
||||
DVEstatusEspecialidad.Visible = True
|
||||
UpModalEspecialidad.Update()
|
||||
|
||||
RegistraScript("$('#DVAgregarEspecialidad').modal();")
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ProcesoOK As Boolean = True
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
CargaEspecialidad()
|
||||
Alert("Especialidad eliminada correctamente")
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "SubEspecialidad"
|
||||
|
||||
|
||||
Protected Sub LnkAgregarSubEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
CveMedicoSubEspecialidad = -1
|
||||
DVEstatusSubEspecialidad.Visible = False
|
||||
LimpiarModalSubEspecialdiad()
|
||||
RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgergarSubEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim ProcesoOK As Boolean = True
|
||||
|
||||
If CveMedicoSubEspecialidad > 0 Then
|
||||
If Not ObjVentas.UpdateMedicoSubEspecialidad(CveMedicoSubEspecialidad, DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, ChkEstatusSubEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
Else
|
||||
If Not ObjVentas.AddMedicoSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero, TxtSubEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
CargaSubEspecialidad()
|
||||
Alert($"SubEspecialidad {If(CveMedicoSubEspecialidad > 0, "actualizada", "agregada")} correctamente.")
|
||||
RegistraScript("$('#DVAgregarSubEspecialidad').modal('hide');")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub LimpiarModalSubEspecialdiad()
|
||||
DdlEspecialidad.SelectedValueExist(-1)
|
||||
TxtSubEspecialidad.Text = ""
|
||||
ChkEstatusSubEspecialidad.Checked = True
|
||||
UpModalSubEspecialidad.Update()
|
||||
End Sub
|
||||
Sub CargaSubEspecialidad()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
GvSubEspecialidad.DataSource = ObjVentas.DtResultados
|
||||
Else
|
||||
GvSubEspecialidad.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
GvSubEspecialidad.DataBind()
|
||||
|
||||
UpSubEspecialidad.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEditarSubEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
|
||||
CveMedicoSubEspecialidad = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
|
||||
Dim CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
|
||||
|
||||
DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad)
|
||||
TxtSubEspecialidad.Text = GvRow.DataKey("SubEspecialidad")
|
||||
ChkEstatusSubEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
|
||||
DVEstatusSubEspecialidad.Visible = True
|
||||
UpModalSubEspecialidad.Update()
|
||||
|
||||
RegistraScript("$('#DVAgregarSubEspecialidad').modal();")
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminarSubEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ProcesoOK As Boolean = True
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveMedicoSubEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If Not ObjVentas.RemoveMedicoSubEspecialidad(CveMedicoSubEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If ProcesoOK Then
|
||||
CargaSubEspecialidad()
|
||||
Alert("Sub Especialidad eliminada correctamente")
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -20,7 +20,7 @@
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" Visible="false" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
|
||||
</li>
|
||||
|
||||
<li>
|
||||
@@ -225,7 +225,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,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
|
||||
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
|
||||
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">
|
||||
@@ -311,7 +311,7 @@
|
||||
</ajax:TabPanel>
|
||||
|
||||
|
||||
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">
|
||||
<ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static" Visible="false">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
|
||||
@@ -473,10 +473,26 @@
|
||||
</div>
|
||||
<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" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
|
||||
<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="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>
|
||||
|
||||
|
||||
@@ -560,7 +576,7 @@
|
||||
<asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
|
||||
<label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -42,6 +42,7 @@ Partial Class Ventas_CatMedicos
|
||||
CargaCombos()
|
||||
CargaDatos()
|
||||
CargaEspecialidad()
|
||||
CargaSubEspecialidad(-1)
|
||||
BtnConsultar_Click(Nothing, Nothing)
|
||||
End If
|
||||
End Sub
|
||||
@@ -80,12 +81,12 @@ Partial Class Ventas_CatMedicos
|
||||
|
||||
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) Then
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) 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, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
|
||||
UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then
|
||||
ProcesoOK = True
|
||||
End If
|
||||
End If
|
||||
@@ -158,6 +159,8 @@ Partial Class Ventas_CatMedicos
|
||||
TxtTelefono.Text = ""
|
||||
TxtCelular.Text = ""
|
||||
DdlEspecialidad.SelectedValueExist(-1)
|
||||
DdlSubEspecialidad.SelectedValueExist(-1)
|
||||
TxtTorre.Text = ""
|
||||
|
||||
DVEstatus.Visible = False
|
||||
ChkEstatus.Checked = True
|
||||
@@ -189,6 +192,9 @@ Partial Class Ventas_CatMedicos
|
||||
TxtCelular.Text = GvRow.DataKey("Celular")
|
||||
DdlEspecialidad.SelectedValueExist(-1)
|
||||
DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
|
||||
CargaSubEspecialidad(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
|
||||
DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
|
||||
TxtTorre.Text = GvRow.DataKey("Torre")
|
||||
|
||||
DVEstatus.Visible = True
|
||||
LbAgregar.Text = "Actualizar"
|
||||
@@ -373,6 +379,7 @@ Partial Class Ventas_CatMedicos
|
||||
ChkEstatusEspecialidad.Checked = True
|
||||
UpModalEspecialidad.Update()
|
||||
End Sub
|
||||
|
||||
Sub CargaEspecialidad()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
@@ -395,6 +402,26 @@ Partial Class Ventas_CatMedicos
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
|
||||
If CveMedicoEspecialidad > 0 Then
|
||||
DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}")
|
||||
Else
|
||||
DdlSubEspecialidad.DataSource = ObjVentas.DtResultados
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
DdlSubEspecialidad.DataBind()
|
||||
DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
UpModal.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
@@ -440,6 +467,10 @@ Partial Class Ventas_CatMedicos
|
||||
|
||||
|
||||
|
||||
Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -2520,6 +2520,15 @@ Partial Class Clientes
|
||||
|
||||
Dim CvePrecioLista As Integer = DdlPrecioLista.SelectedValue.ToEntero()
|
||||
|
||||
|
||||
If Not ErrorProceso Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlAlmacenAsignado.SelectedValue.ToEntero = -1 Then 'limpiar ddl alamcen temporal que se agrego temporalmente
|
||||
If Not GeneraGuardaAlmacenCliente(ObjClientes.IniciaTransacSQL) Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ErrorProceso Then
|
||||
'VERIFICA SI ES CLIENTE NUEVO O ACTUALIZACION
|
||||
If Me.CveCliente = -1 Then
|
||||
@@ -2642,13 +2651,16 @@ Partial Class Clientes
|
||||
ObjClientes.RollBack()
|
||||
CargaPrecioLista()
|
||||
Alert("Ocurrió un error al guardar.", TipoMensaje.MsgError)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(404) = "30" And UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'limpiar ddl alamcen temporal que se agrego temporalmente
|
||||
CargaDdlAlmacen()
|
||||
End If
|
||||
Else
|
||||
ObjClientes.Commit()
|
||||
|
||||
If CveClienteNuevo > 0 Then
|
||||
ViewState("CveCliente") = CveClienteNuevo
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjClientes.Dispose()
|
||||
@@ -5972,16 +5984,28 @@ Partial Class Clientes
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
CargaDdlAlmacen()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdlAlmacen()
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
|
||||
DdlAlmacenAsignado.SelectedValue = Nothing
|
||||
DdlAlmacenAsignado.ClearSelection()
|
||||
DdlAlmacenAsignado.Items.Clear()
|
||||
|
||||
divAlmacenAsignado.Visible = True
|
||||
DdlAlmacenAsignado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
||||
DdlAlmacenAsignado.DataBind()
|
||||
DdlAlmacenAsignado.Items.Insert(0, New ListItem("-", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
||||
@@ -10397,5 +10421,25 @@ Partial Class Clientes
|
||||
|
||||
End Function
|
||||
|
||||
Private Function GeneraGuardaAlmacenCliente(ByRef transaccionSQL As SqlTransaction) As Boolean
|
||||
|
||||
Dim respuesta As Boolean = True
|
||||
Dim ObjInv As New ClsInventarios(transaccionSQL)
|
||||
|
||||
If ObjInv.AddAlmacen(TxtNombre.Text.Trim, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then
|
||||
|
||||
DdlAlmacenAsignado.Items.Add(New ListItem(TxtNombre.Text.Trim, ObjInv.CveAlmacenAgregado.ToString))
|
||||
DdlAlmacenAsignado.SelectedValueExist(ObjInv.CveAlmacenAgregado.ToString)
|
||||
|
||||
GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
|
||||
|
||||
Else
|
||||
respuesta = False
|
||||
End If
|
||||
|
||||
Return respuesta
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -1664,7 +1664,9 @@ Partial Class ProductosyServicios
|
||||
End Try
|
||||
|
||||
If Not TieneError Then
|
||||
GuardaDatosCartPorte()
|
||||
If Not GuardaDatosCartPorte(ObjProductosServicios.IniciaTransacSQL) Then
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
@@ -3437,4 +3439,17 @@ Partial Class ProductosyServicios
|
||||
|
||||
End Function
|
||||
|
||||
' Private Function validaGuardadoCCP()
|
||||
|
||||
|
||||
' TxtPesoKg.Text.Trim, DdlMaterialPeligroso.SelectedValue, DdlEmbalaje.SelectedValue, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue,
|
||||
'TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim,
|
||||
'TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim,
|
||||
'TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text
|
||||
|
||||
|
||||
' Return False
|
||||
|
||||
' End Function
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user