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

-- mejora en manejo de OS

Browse Source
This commit is contained in:
rrene
2024-07-23 09:10:55 -07:00
parent c569b6e2ef
commit f9e2d478c7
3 changed files with 244 additions and 321 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsOS.vb
View File

@@ -42,6 +42,7 @@ Public Class ClsOS
Public Property FechaProbableTermino As DateTime Public Property FechaProbableTermino As DateTime
Public Property FechaCita As DateTime Public Property FechaCita As DateTime
Public Property CveCotizacion As Integer Public Property CveCotizacion As Integer
Public Property SerieFolioCotizacion As String = ""
Public Property CveUsuarioRecibio As Integer Public Property CveUsuarioRecibio As Integer
Public Property UsuarioRecibio As String Public Property UsuarioRecibio As String
Public Property CveOSPadre As Integer Public Property CveOSPadre As Integer
@@ -66,11 +67,11 @@ Public Class ClsOS
Public Property FechaInicio As DateTime Public Property FechaInicio As DateTime
Public Property SubProyecto As String Public Property SubProyecto As String
Public Property Condiciones As String Public Property Condiciones As String
Public Property CveMedico As Integer = -1 Public Property CveMedico As Integer = -1
Public Property CveProcedimiento As Integer = -1 Public Property CveProcedimiento As Integer = -1
Public Property CveTipoVenta As Integer = -1 Public Property CveTipoVenta As Integer = -1
Public Property CveVenta As Integer = -1 Public Property CveVenta As Integer = -1
Public Property SerieFolioVenta As String = ""
Public Property Paciente As String Public Property Paciente As String
Public Property IdentificadorCliente As String Public Property IdentificadorCliente As String
Public Property FolioAdicional As String Public Property FolioAdicional As String
@@ -581,6 +582,7 @@ Public Class ClsOS
Me.CveClienteSucursal = Data.Rows(0)("CveClienteSucursal").ToString.ToEntero Me.CveClienteSucursal = Data.Rows(0)("CveClienteSucursal").ToString.ToEntero
Me.Cliente = Data.Rows(0)("Cliente").ToString Me.Cliente = Data.Rows(0)("Cliente").ToString
Me.CveCotizacion = Data.Rows(0)("CveCotizacion").ToString.ToEntero Me.CveCotizacion = Data.Rows(0)("CveCotizacion").ToString.ToEntero
Me.SerieFolioCotizacion = Data.Rows(0)("SerieFolioCotizacion").ToString
Me.Folio = Data.Rows(0)("Folio").ToString.ToEntero Me.Folio = Data.Rows(0)("Folio").ToString.ToEntero
' Me.CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero ' Me.CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero
Me.PersonaSolicito = Data.Rows(0)("PersonaSolicito").ToString Me.PersonaSolicito = Data.Rows(0)("PersonaSolicito").ToString
@@ -617,6 +619,7 @@ Public Class ClsOS
Me.Paciente = Data.Rows(0)("Paciente").ToString Me.Paciente = Data.Rows(0)("Paciente").ToString
Me.IdentificadorCliente = Data.Rows(0)("IdentificadorCliente").ToString Me.IdentificadorCliente = Data.Rows(0)("IdentificadorCliente").ToString
Me.CveVenta = Data.Rows(0)("CveVenta").ToString.ToEntero Me.CveVenta = Data.Rows(0)("CveVenta").ToString.ToEntero
Me.SerieFolioVenta = Data.Rows(0)("SerieFolioVenta").ToString
Me.FolioAdicional = Data.Rows(0)("FolioAdicional").ToString Me.FolioAdicional = Data.Rows(0)("FolioAdicional").ToString
End If End If

415
OS/RepServiciosMedicos.aspx
View File

@@ -152,8 +152,7 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" Visible="false" ClientIDMode="Static" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" Visible="false" ClientIDMode="Static" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
@@ -180,243 +179,181 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<div class="row">
<div class="col-md-9">
</div>
<div class="col-md-3" style="text-align:right;">
<button type="button" class="btn btn-default" onclick="$('#ModalColores').modal('show');">Código Colores</button>
</div>
</div>
<div id="ModalColores" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"><span id="spcol">Código Colores</span></h4>
</div>
<div class="modal-body">
<div class="row" id="divColores" style="color:white; width:200px;">
<div class="col-md-12" style="background-color:#3598dc; ">
Levantamiento
</div>
<div class="col-md-12" style="background-color:#002699">
Surtido
</div>
<div class="col-md-12" style="background-color:#8E44AD">
Asignado
</div>
<div class="col-md-12" style="background-color:#26C281">
Finalizado
</div>
<div class="col-md-12" style="background-color:#4B77BE">
Facturado
</div>
<div class="col-md-12" style="background-color:#29b4b6">
Cobrado
</div>
<div class="col-md-12" style="background-color:#e43a45">
Cancelado
</div>
</div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="row"> <div class="row">
<div class="col-md-12 col-sm-12"> <div class="col-md-12 col-sm-12">
<div class="portlet light calendar ">
<div class="portlet-title ">
<div class="caption">
<i class="icon-calendar font-green-sharp"></i>
<span class="caption-subject font-green-sharp bold uppercase">Cirugías</span>
</div>
</div>
<div class="portlet-body">
<div class="portlet light calendar "> <div id="calendar">
<div class="portlet-title "> </div>
<div class="caption">
<i class="icon-calendar font-green-sharp"></i>
<span class="caption-subject font-green-sharp bold uppercase">Cirugías</span>
</div>
</div>
<div class="portlet-body">
<div id="calendar"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
</div> <ContentTemplate>
<asp:Button Text="" runat="server" ID="BtnActualizaAdd" ClientIDMode="Static" Style="display: none;" OnClick="BtnActualizaAdd_Click" />
<asp:HiddenField runat="server" ID="HdnU" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HdnE" ClientIDMode="Static" />
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" UpdateMode="Conditional"> <div id="ModalAgenda" class="modal ADS fade" role="dialog">
<ContentTemplate> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAgenda" UpdateMode="Conditional">
<asp:Button Text="" runat="server" ID="BtnActualizaAdd" ClientIDMode="Static" Style="display: none;" OnClick="BtnActualizaAdd_Click" /> <ContentTemplate>
<asp:HiddenField runat="server" ID="HdnU" ClientIDMode="Static" /> <div class="modal-dialog">
<asp:HiddenField runat="server" ID="HdnE" ClientIDMode="Static" /> <div class="modal-content">
</ContentTemplate> <div class="modal-header ">
</asp:UpdatePanel> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"><span id="SpanTituloAgenda">Servicios a Domicilio</span></h4>
</div>
<div id="ModalAgenda" class="modal ADS fade" role="dialog"> <div class="modal-body">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAgenda" UpdateMode="Conditional"> <div class="row">
<ContentTemplate> <div class="col-md-12" style="text-align: center;">
<div class="modal-dialog"> <asp:Label ID="LblEmpresaCRM" runat="server" Text="" Style="font-size: 16px; display: none; text-align: center;"></asp:Label>
<div class="modal-content"> </div>
<div class="modal-header "> </div>
<button type="button" class="close" data-dismiss="modal">&times;</button> <div class="row" style="display:none!important">
<h4 class="modal-title"><span id="SpanTituloAgenda">Servicios a Domicilio</span></h4> <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
</div> <asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" Enabled="false" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAgendaTipo" InitialValue="-1" runat="server" ControlToValidate="DdlAgedaTipo" CssClass="help-block errorimput" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de agenda''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label style="width: 90%;" for="<%=DdlAgedaTipo.ClientID.ToString()%>">Tipo de Asunto:</label>
</div>
<div class="modal-body"> <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
<div class="row"> <asp:DropDownList ID="DdlPrioridad" ClientIDMode="Static" Width="100%" runat="server" CssClass="form-control input-sm select2me" Enabled="false">
<div class="col-md-12" style="text-align: center;"> <asp:ListItem Selected="True" Text="Baja" Value="1"></asp:ListItem>
<asp:Label ID="LblEmpresaCRM" runat="server" Text="" Style="font-size: 16px; display: none; text-align: center;"></asp:Label> <asp:ListItem Text="Media" Value="2"></asp:ListItem>
</div> <asp:ListItem Text="Alta" Value="3"></asp:ListItem>
</div> </asp:DropDownList>
<div class="row" style="display:none!important"> <label for="<%=DdlPrioridad.ClientID.ToString()%>">Prioridad:</label>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal"> </div>
<asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" Enabled="false" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"> </div>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAgendaTipo" InitialValue="-1" runat="server" ControlToValidate="DdlAgedaTipo" CssClass="help-block errorimput" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de agenda''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label style="width: 90%;" for="<%=DdlAgedaTipo.ClientID.ToString()%>">Tipo de Asunto:</label>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright selectmodal"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlPrioridad" ClientIDMode="Static" Width="100%" runat="server" CssClass="form-control input-sm select2me" Enabled="false"> <asp:TextBox ID="TxtAsuntoAgenda" ClientIDMode="Static" MaxLength="100" CssClass="form-control" runat="server" CausesValidation="true"></asp:TextBox>
<asp:ListItem Selected="True" Text="Baja" Value="1"></asp:ListItem> <asp:RequiredFieldValidator ID="RFVAsuntoAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsuntoAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Asunto''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<asp:ListItem Text="Media" Value="2"></asp:ListItem> <label for="<%= TxtAsuntoAgenda.ClientID.ToString()%>">Asunto:</label>
<asp:ListItem Text="Alta" Value="3"></asp:ListItem> </div>
</asp:DropDownList> <div class="form-group form-md-line-input input-iconright">
<label for="<%=DdlPrioridad.ClientID.ToString()%>">Prioridad:</label> <div id="DivDescripcionUpdate" style="width: 400px; height: 75px; padding-top: 10px; font-size: 14px; display: none;"></div>
</div> <asp:TextBox ID="TxtDescripcionAgenda" ClientIDMode="Static" MaxLength="5000" runat="server" TextMode="MultiLine" Rows="2" CausesValidation="true" Width="100%" CssClass="form-control MultiLineTextBox"></asp:TextBox>
</div> <asp:RequiredFieldValidator ID="RFVDescripcionAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcionAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Descripción''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoAgenda" ClientIDMode="Static" MaxLength="100" CssClass="form-control" runat="server" CausesValidation="true"></asp:TextBox> <asp:Label runat="server" ClientIDMode="Static" ID="LblDireccion" CssClass="form-control"></asp:Label>
<asp:RequiredFieldValidator ID="RFVAsuntoAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsuntoAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Asunto''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator> <label for="<%= LblDireccion.ClientID.ToString()%>" style="height: 60px;">Dirección:</label>
<label for="<%= TxtAsuntoAgenda.ClientID.ToString()%>">Asunto:</label> </div>
</div>
<div class="form-group form-md-line-input input-iconright">
<div id="DivDescripcionUpdate" style="width: 400px; height: 75px; padding-top: 10px; font-size: 14px; display: none;"></div>
<asp:TextBox ID="TxtDescripcionAgenda" ClientIDMode="Static" MaxLength="5000" runat="server" TextMode="MultiLine" Rows="2" CausesValidation="true" Width="100%" CssClass="form-control MultiLineTextBox"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVDescripcionAgenda" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcionAgenda" ErrorMessage="<span style='font-size: 11px;'><b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Descripción''</b> es necesario.</span>" ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
<label for="<%= TxtDescripcionAgenda.ClientID.ToString()%>" style="height: 60px;">Descripción:</label>
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" ClientIDMode="Static" ID="LblDireccion" CssClass="form-control"></asp:Label> <asp:Label runat="server" ClientIDMode="Static" ID="LblSubProyecto" CssClass="form-control"></asp:Label>
<label for="<%= LblDireccion.ClientID.ToString()%>" style="height: 60px;">Dirección:</label> <label for="<%= LblSubProyecto.ClientID.ToString()%>" style="height: 60px;"><asp:Label runat="server" ID="LblSubProyectoEtiqueta"></asp:Label>:</label>
</div> </div>
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" ClientIDMode="Static" ID="LblSubProyecto" CssClass="form-control"></asp:Label>
<label for="<%= LblSubProyecto.ClientID.ToString()%>" style="height: 60px;"><asp:Label runat="server" ID="LblSubProyectoEtiqueta"></asp:Label>:</label>
</div>
<div class="row"> <div class="row">
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;"> <div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;"> <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaInicioAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox> <asp:TextBox ID="TxtFechaInicioAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>">Fecha de Inicio:</label> <label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>">Fecha de Inicio:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaInicioAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>:<br>El campo <b>''Fecha de Inicio''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
<div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
<asp:TextBox ID="TxtFechaFinAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>">Fecha de Fin:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaFinAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaFinAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Fin''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
</div>
<div style="display:none">
<asp:CheckBox Text="Recurrencia" ClientIDMode="Static" runat="server" ID="CheckRecurrencia" />
</div>
<asp:UpdatePanel runat="server" ClientIDMode="Static" UpdateMode="Conditional" ID="UpRecurrencia">
<ContentTemplate>
<div style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div style="float: left; width: 20%; height: 130px;">
<asp:RadioButtonList runat="server" CssClass="tablenopadding" RepeatDirection="Vertical" ID="RBLRecurrencia" AutoPostBack="true" OnSelectedIndexChanged="RBLRecurrencia_SelectedIndexChanged">
<asp:ListItem Text="1- Hora" Value="1" Selected="True" />
<asp:ListItem Text="2- Diario" Value="2" />
<asp:ListItem Text="3- Semanal" Value="3" />
<asp:ListItem Text="4- Mensual" Value="4" />
<asp:ListItem Text="5- Anual" Value="5" />
</asp:RadioButtonList>
</div>
<div style="float: left; width: 80%; height: 130px;">
<div runat="server" id="DivRecurrencia" visible="true" style="width: 100%; height: 100%;">
<asp:HiddenField runat="server" ID="HdnDiasSemanaAgendar" ClientIDMode="Static" Value="" />
<div class="col-md-12"></div>
<div class="row">
<div class="col-md-2" style="padding-right: 0px; text-align: right;">Cada:</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding-left: 0px !important; padding-right: 0px; padding-top: 0px; padding-bottom: 0px; margin-top: -6px;">
<div class="input-group input-sm" style="padding-top: 0px;">
<asp:TextBox ID="TxtFrecuencia" ClientIDMode="Static" Text="1" runat="server" Style="padding-top: 0px; padding-bottom: 0px;" Width="20px" CssClass="form-control input-sm" CausesValidation="true" TextMode="Number"></asp:TextBox>
<label style="margin-top: -3px; margin-left: -5px; width: 20px;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>"></label>
</div>
</div>
<%--<td>
<asp:TextBox runat="server" ClientIDMode="Static" ID="TxtFrecuencia" Text="1" Width="20px" />
</td>--%>
<div class="col-md-2" style="padding-left: 0px;">
<asp:Label Text="Hora(s)" runat="server" ID="LblTextoFrecuencia" />
</div>
</div>
<div class="row" id="TrDiasSemanaAdd" runat="server" style="display: none;">
<div class="col-md-12">
<asp:CheckBoxList runat="server" ID="CheckDiasSemana" ClientIDMode="Static" RepeatColumns="5" RepeatDirection="Horizontal">
<asp:ListItem Text="Lunes" Value="2" />
<asp:ListItem Text="Martes" Value="3" />
<asp:ListItem Text="Miercoles" Value="4" />
<asp:ListItem Text="Jueves" Value="5" />
<asp:ListItem Text="Viernes" Value="6" />
<asp:ListItem Text="Sabado" Value="7" />
<asp:ListItem Text="Domingo" Value="1" />
</asp:CheckBoxList>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;display:none"">
<hr style="margin-top: 0px; margin-bottom: 15px;" />
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="col-md-8" style="padding-left: 0px; padding-right: 0px;">
<asp:RadioButton Text="Terminar despues de:" ID="RBNumeroOcurrencias" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" />
</div>
<div class="form-group col-md-1 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" onclick="FechaFinSet('RBNumeroOcurrencias','TxtFechaFinRecurrencia');" ClientIDMode="Static" CssClass="form-control" TextMode="Number" ID="TxtNumeroOcurrencias" Width="20px" />
<label style="margin-top: 5px; margin-left: -15px; width: 20px;" for="<%= TxtNumeroOcurrencias.ClientID.ToString()%>"></label>
</div>
</div>
<div class="col-md-2" style="margin-top: 5px; padding-left: 5px;">Veces</div>
</div>
<div class="col-md-6">
<div class="row">
<div class="col-md-5" style="padding-left: 0px !important;">
<asp:RadioButton Text="Terminar en:" ID="RBFechaFin" ClientIDMode="Static" GroupName="GNFrecuenciaFinAdd" runat="server" Width="85px" />
</div>
<div class="col-md-6" style="padding-left: 0px !important;">
<div class="form-group form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: -10px">
<div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 108px!important; padding-top: 0px;">
<asp:TextBox ID="TxtFechaFinRecurrencia" ClientIDMode="Static" runat="server" CssClass="form-control" Height="28px" Width="80px" Font-Size="13px"></asp:TextBox>
<label style="margin-left: 10px; width: 85%;" for="<%= TxtFechaFinRecurrencia.ClientID.ToString()%>"></label>
<span class="input-group-btn " style="width: 28px">
<asp:LinkButton ID="imgFechaFinRecurrenciaAdd" class="btn default" runat="server" Style="padding-left: 8px; padding-top: 5px;" Height="28px" Width="28px"><i class="fa fa-calendar"></i></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFinRecurrenciaAdd" runat="server" TargetControlID="TxtFechaFinRecurrencia" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarioFechaFinRecurrenciaAdd" TargetControlID="TxtFechaFinRecurrencia" PopupButtonID="ImgFechaFinRecurrenciaAdd" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<%--<asp:RequiredFieldValidator ID="RFVFechaFinRecurrenciaAdd" runat="server" ControlToValidate="TxtFechaFinRecurrencia" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEFechaFinRecurrenciaAdd" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFinRecurrenciaAdd" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="row" style="width: 100%; float: left; margin-bottom: 10px; margin-left: 0px;display:none">
<hr style="margin-top: 5px; margin-bottom: 10px;" />
<div class="col-md-3" style="padding-left: 0px; padding-right: 0px;">
<asp:CheckBox Text="Gasto Recurrente:" ClientIDMode="Static" runat="server" ID="ChkGastoRecurrente" />
</div>
<div class="form-group col-md-4 form-md-line-input input-iconright" style="padding: 0px !important; margin-top: -5px; margin-left: 0px">
<div class="input-group input-sm" style="padding-top: 0px; padding-left: 0px; padding-right: 0px;">
<asp:TextBox runat="server" ClientIDMode="Static" CssClass="form-control" ID="TxtImporteGastoRecurrente" Width="100px" onkeyup="FormatoMoneda(this)" />
<label style="margin-top: 5px; margin-left: -15px;" for="<%= TxtImporteGastoRecurrente.ClientID.ToString()%>"></label>
<%--<ajax:MaskedEditExtender ID="MEEgastoRecurrente" runat="server" TargetControlID="TxtImporteGastoRecurrente" Mask="999,999.99" MaskType="Number" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:HiddenField runat="server" ID="HdnCveEvento" ClientIDMode="Static" Value="-1" />
<%--<div style="display:none">
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarAgenda" />
<asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" OnClick="BtnEliminar_Click" Text="Eliminar" Style="display: none" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea continuar?" data-btn-ok-label="si" />
</div>--%>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</div> </div>
<asp:RequiredFieldValidator ID="RFVFechaInicioAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>:<br>El campo <b>''Fecha de Inicio''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div> </div>
</div> <div class="form-group col-md-6 form-md-line-input input-iconright" style="padding-left: 0px !important;">
</ContentTemplate> <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm" style="width: 70%;">
</asp:UpdatePanel> <asp:TextBox ID="TxtFechaFinAgenda" Enabled="false" ClientIDMode="Static" runat="server" Width="100%" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
<label style="margin-left: -3px; padding-bottom: 30px; width: 70%;" for="<%= TxtFechaFinAgenda.ClientID.ToString()%>">Fecha de Fin:</label>
</div>
<asp:RequiredFieldValidator ID="RFVFechaFinAdd" Display="None" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaFinAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Fin''</b> es necesario." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
</div>
</div>
</div>
<div class="modal-footer">
<asp:HiddenField runat="server" ID="HdnCveEvento" ClientIDMode="Static" Value="-1" />
<%--<div style="display:none">
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarAgenda" />
<asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" OnClick="BtnEliminar_Click" Text="Eliminar" Style="display: none" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea continuar?" data-btn-ok-label="si" />
</div>--%>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</div>
</div>
</div> </div>
</ContentTemplate>
</div> </asp:UpdatePanel>
</div>
</div> </div>
</div>
</div>
</div>
</div> </div>
<div id="DVModalOS" class="modal ADS fade" role="dialog"> <div id="DVModalOS" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalOS" UpdateMode="Conditional"> <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalOS" UpdateMode="Conditional">
@@ -509,7 +446,23 @@
<%--TÉCNICO--%> <%--TÉCNICO--%>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtTecnico" runat="server" MaxLength="100" CssClass="form-control" /> <asp:TextBox ID="TxtTecnico" runat="server" MaxLength="100" CssClass="form-control" />
<asp:DropDownList ID="DdlTecnicoAsignar" Width="85%" runat="server" CssClass="form-control select2me" DataTextField="Nombre" DataValueField="CveUsuario" visible="false" ></asp:DropDownList>
<label for="<%= TxtTecnico.ClientID.ToString()%>">Técnico: </label> <label for="<%= TxtTecnico.ClientID.ToString()%>">Técnico: </label>
<asp:Button ID="BtnAsignar" runat="server" ClientIDMode="Static" Text="+" OnClick="BtnAsignar_Click" CssClass="btn btn-primary" Width="12%" Visible="false" />
</div>
</div>
</div>
<div class="row">
<div class="col-md-6 " id="divPedido" runat="server">
<div class="form-group form-md-line-input ">
<asp:HyperLink ID="HplPedido" runat="server" Target="_blank" CssClass="Texto form-control" />
<label for="<%= TxtTipoVenta.ClientID.ToString()%>">Pedido: </label>
</div>
</div>
<div class="col-md-6" id="divRemision" runat="server">
<div class="form-group form-md-line-input">
<asp:HyperLink ID="HplRemision" runat="server" Target="_blank" CssClass="Texto form-control" />
<label for="<%= TxtTecnico.ClientID.ToString()%>">Remisión: </label>
</div> </div>
</div> </div>
</div> </div>
@@ -548,6 +501,7 @@
<asp:HiddenField runat="server" ID="HFCveOsDetalle" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HFCveOsDetalle" Value="-1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HFOCveOIEvento" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HFOCveOIEvento" Value="-1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HFCveUsuarioAtendio" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HFCveUsuarioAtendio" Value="-1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HdnFechaCita" Value="" ClientIDMode="Static" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -596,25 +550,18 @@
} }
function updateEvent(event, element) {
function updateEvent(event, element) {
$('#<%=HFCveOS.ClientID%>').val(event.CveOS); $('#<%=HFCveOS.ClientID%>').val(event.CveOS);
$('#<%=HFCveOsDetalle.ClientID%>').val(event.CveOSDetalle); $('#<%=HFCveOsDetalle.ClientID%>').val(event.CveOSDetalle);
$('#<%=HFCveUsuarioAtendio.ClientID%>').val(event.CveUsuarioAtendio); $('#<%=HFCveUsuarioAtendio.ClientID%>').val(event.CveUsuarioAtendio);
$('#<%=HFOCveOIEvento.ClientID%>').val(event.id);
$('#<%=HFOCveOIEvento.ClientID%>').val(event.id);
$('#<%=LnkCommando.ClientID%>').click(); $('#<%=LnkCommando.ClientID%>').click();
} }
function RadionButtonSelectedValueSet(name, SelectdValue) { function RadionButtonSelectedValueSet(name, SelectdValue) {
$('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true); $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);
} }
function CheckUpdate(check) { function CheckUpdate(check) {
if (check.checked) { if (check.checked) {
$("#UpRecurrenciaUpdate").show("slow"); $("#UpRecurrenciaUpdate").show("slow");
@@ -631,8 +578,6 @@
} }
} }
function deleteEvent() { function deleteEvent() {
//var id = $get('HdnId').val; //var id = $get('HdnId').val;
//PageMethods.EliminaEvento(id, deleteSuccess); //PageMethods.EliminaEvento(id, deleteSuccess);
@@ -825,13 +770,9 @@
function InitCalendar() { function InitCalendar() {
$(document).ready(function () { $(document).ready(function () {
Calendario(); Calendario();
}); });
} }

145
OS/RepServiciosMedicos.aspx.vb
View File

@@ -1,10 +1,11 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports APP_Code_CSharp
Imports Extensiones Imports Extensiones
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Web.Services Imports System.Web.Services
Partial Class OS_RepServiciosMedicos Partial Class OS_RepServiciosMedicos
Inherits ClsPaginas Inherits ClsPaginas
@@ -267,11 +268,13 @@ Partial Class OS_RepServiciosMedicos
GetCargaTiposOrden() GetCargaTiposOrden()
cargaDropsModal() cargaDropsModal()
End If End If
End Sub End Sub
Private Sub CargaUsuariosTecnicos() Private Sub CargaUsuariosTecnicos()
If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
Dim DTTecnicosresultado As DataTable = Nothing Dim DTTecnicosresultado As DataTable = Nothing
DTTecnicos = New DataTable DTTecnicos = New DataTable
Dim ObjOS As New ClsOS Dim ObjOS As New ClsOS
@@ -292,6 +295,11 @@ Partial Class OS_RepServiciosMedicos
End If End If
ObjOS.Dispose() ObjOS.Dispose()
DdlTecnicoAsignar.DataSource = DTTecnicos
DdlTecnicoAsignar.DataBind()
DdlTecnicoAsignar.Visible = True
DdlTecnicoAsignar.Items.Insert(0, New ListItem("-", "-1"))
'Dim ObjUsuarios As New ClsSisUsuarios 'Dim ObjUsuarios As New ClsSisUsuarios
'If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then 'If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
' If UsuarioActual.CveRol = 1 Then ' If UsuarioActual.CveRol = 1 Then
@@ -318,7 +326,6 @@ Partial Class OS_RepServiciosMedicos
DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
CargaTiposAgenda() CargaTiposAgenda()
CheckRecurrencia.Attributes.Add("onclick", "CheckAdd(this);")
End Sub End Sub
Private Sub CargaTiposAgenda() Private Sub CargaTiposAgenda()
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
@@ -378,47 +385,10 @@ Partial Class OS_RepServiciosMedicos
RegistraScript("GetView();") RegistraScript("GetView();")
Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
If CheckRecurrencia.Checked Then
RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero
Frecuencia = TxtFrecuencia.Text.ToEntero
'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA
Select Case RecurrenciaTipo
Case 3
Dim StringDias = ""
For Each item As ListItem In CheckDiasSemana.Items
If item.Selected Then
If StringDias.Length > 0 Then
StringDias += ","
End If
StringDias += item.Value
End If
Next
If StringDias.Length > 0 Then
DiasSemana = StringDias
End If
End Select
'If RBSinFechaFinAdd.Checked Then
' RecurrenciaFin = "-1"
'Else
If RBNumeroOcurrencias.Checked Then
RecurrenciaFin = TxtNumeroOcurrencias.Text
ElseIf RBFechaFin.Checked Then
RecurrenciaFin = TxtFechaFinRecurrencia.Text
Else
RecurrenciaFin = "-1"
End If
Else
If HdnCveEvento.Value.ToEntero > 0 Then
Frecuencia = -2 : DiasSemana = "-2" : Dias = -2 : Mes = -2 : RecurrenciaFin = "-2"
End If
End If
'11/05/2018 - GASTO RECURRENTE '11/05/2018 - GASTO RECURRENTE
Dim CveTipoEvento As Integer = IIf(ChkGastoRecurrente.Checked, 10, 2).ToString().ToEntero() Dim CveTipoEvento As Integer = 2
Dim Importe As Double = Convert.ToDouble(IIf(ChkGastoRecurrente.Checked, TxtImporteGastoRecurrente.Text, "-1")) Dim Importe As Double = -1
If HdnCveEvento.Value.ToEntero > 0 Then If HdnCveEvento.Value.ToEntero > 0 Then
If ObjEventos.UpdateEvento(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, DdlAgedaTipo.SelectedValue.ToEntero, -1, FechaInicio, FechaFin, -1, "-1", HdnCveEvento.Value.ToEntero, "-1", If ObjEventos.UpdateEvento(TxtAsuntoAgenda.Text, TxtDescripcionAgenda.Text, DdlPrioridad.SelectedValue.ToEntero, DdlAgedaTipo.SelectedValue.ToEntero, -1, FechaInicio, FechaFin, -1, "-1", HdnCveEvento.Value.ToEntero, "-1",
@@ -446,15 +416,10 @@ Partial Class OS_RepServiciosMedicos
TxtDescripcionAgenda.Text = "" TxtDescripcionAgenda.Text = ""
TxtAsuntoAgenda.Text = "" TxtAsuntoAgenda.Text = ""
DdlPrioridad.SelectedValue = "1" DdlPrioridad.SelectedValue = "1"
TxtNumeroOcurrencias.Text = ""
TxtFechaFinRecurrencia.Text = "" 'RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
RBFechaFin.Checked = False 'TxtFrecuencia.Text = "1"
RBNumeroOcurrencias.Checked = False 'LblEmpresaCRM.Text = ""
RBLRecurrencia.SelectedValue = "1"
CheckDiasSemana.ClearSelection()
RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
TxtFrecuencia.Text = "1"
LblEmpresaCRM.Text = ""
End Sub End Sub
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
@@ -495,38 +460,9 @@ Partial Class OS_RepServiciosMedicos
ObjEventos.Dispose() ObjEventos.Dispose()
Return "a" Return "a"
End Function End Function
Protected Sub RBLRecurrencia_SelectedIndexChanged(sender As Object, e As EventArgs)
Select Case RBLRecurrencia.SelectedValue.ToEntero
Case 1
LblTextoFrecuencia.Text = "Hora(s)"
TrDiasSemanaAdd.Style("display") = "none"
Case 2
LblTextoFrecuencia.Text = "Dia(s)"
TrDiasSemanaAdd.Style("display") = "none"
Case 3
LblTextoFrecuencia.Text = "Semana(s)"
TrDiasSemanaAdd.Style("display") = "block"
'Chequea los dias seleccionados en la recurrencia
For Each item As ListItem In CheckDiasSemana.Items
If HdnDiasSemanaAgendar.Value.Contains(item.Value) Then
item.Selected = True
Else
item.Selected = False
End If
Next
Case 4
LblTextoFrecuencia.Text = "Mes(es)"
TrDiasSemanaAdd.Style("display") = "none"
Case 5
LblTextoFrecuencia.Text = "Año(s)"
TrDiasSemanaAdd.Style("display") = "none"
Case Else
End Select
UpRecurrencia.Update()
End Sub
Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs) Protected Sub BtnActualizaAdd_Click(sender As Object, e As EventArgs)
RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty) 'RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
End Sub End Sub
#End Region #End Region
@@ -618,7 +554,6 @@ Partial Class OS_RepServiciosMedicos
LipiaModalOS() LipiaModalOS()
If TipoAccion = OSModalTipoAccion.Agregar Then If TipoAccion = OSModalTipoAccion.Agregar Then
TxtFechaOS.Text = NowADS().ToString("dd/MM/yyyy") TxtFechaOS.Text = NowADS().ToString("dd/MM/yyyy")
RegistraScript("$('#DVModalOS').modal('show');") RegistraScript("$('#DVModalOS').modal('show');")
LblModalOStitulo.Text = "Agregar Orden de Servicio" LblModalOStitulo.Text = "Agregar Orden de Servicio"
@@ -648,6 +583,7 @@ Partial Class OS_RepServiciosMedicos
HFCveOS.Value = ObjOS.CveOS.ToString HFCveOS.Value = ObjOS.CveOS.ToString
HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
HdnFechaCita.Value = ObjOS.FechaCita.ToString
TxtDescripcion.Text = ObjOS.Descripcion TxtDescripcion.Text = ObjOS.Descripcion
TxtFechaOS.Text = ObjOS.FechaCita.ToString("dd/MM/yyyy HH:mm") TxtFechaOS.Text = ObjOS.FechaCita.ToString("dd/MM/yyyy HH:mm")
TxtProcedimiento.Text = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Procedimiento", "CveProcedimiento =" & ObjOS.CveProcedimiento) TxtProcedimiento.Text = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Procedimiento", "CveProcedimiento =" & ObjOS.CveProcedimiento)
@@ -655,6 +591,12 @@ Partial Class OS_RepServiciosMedicos
TxtCliente.Text = thospital TxtCliente.Text = thospital
TxtTipoVenta.Text = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoVenta", $"CveTipoVenta ={ObjOS.CveTipoVenta}") TxtTipoVenta.Text = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoVenta", $"CveTipoVenta ={ObjOS.CveTipoVenta}")
TxtTecnico.Text = ObjOS.UsuarioAtendio TxtTecnico.Text = ObjOS.UsuarioAtendio
divPedido.Visible = ObjOS.CveCotizacion > 0
HplPedido.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ObjOS.CveCotizacion}"
HplPedido.Text = ObjOS.SerieFolioCotizacion
divRemision.Visible = ObjOS.CveVenta > 0
HplRemision.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={ObjOS.CveVenta}"
HplRemision.Text = ObjOS.SerieFolioVenta
Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión Dim tCve As Integer = ObjOS.CveVenta 'busca la remisión
If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido If tCve <= 0 Then tCve = ObjOS.CveCotizacion 'sino hay remisión toma el pedido
@@ -675,8 +617,17 @@ Partial Class OS_RepServiciosMedicos
LblModalOStitulo.Text = "Orden Cancelada" LblModalOStitulo.Text = "Orden Cancelada"
End If End If
RegistraScript("$('#DVModalOS').modal('show');") If ObjOS.CveUsuarioAtendio = 0 Then
TxtTecnico.Visible = False
DdlTecnicoAsignar.Visible = True
BtnAsignar.Visible = True
Else
TxtTecnico.Visible = True
DdlTecnicoAsignar.Visible = False
BtnAsignar.Visible = False
End If
RegistraScript("$('#DVModalOS').modal('show');")
End If End If
ObjOS.Dispose() ObjOS.Dispose()
@@ -736,4 +687,32 @@ Partial Class OS_RepServiciosMedicos
End Sub End Sub
Protected Sub BtnAsignar_Click(sender As Object, e As EventArgs)
Dim TieneError As Boolean = False
Dim ObjOS As New ClsOS
ObjOS.IniciaTransacSQL()
Dim CveOsDetalle As Integer = HFCveOsDetalle.Value.ToEntero
Dim CveOS As Integer = HFCveOS.Value.ToEntero
Dim CveEstatusAsignada = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 2", "CveEstatusOrdenServicio ASC").ToEntero
If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, HdnFechaCita.Value.ToDate, HdnFechaCita.Value.ToDateTime(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
TieneError = True
End If
If Not TieneError AndAlso Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusAsignada, UsuarioActual.CveUsuario, CveOS) Then
TieneError = True
End If
If Not TieneError Then
ObjOS.Commit()
Alert("La Orden ha sido asignada")
Else
ObjOS.RollBack()
End If
ObjOS.Dispose()
End Sub
End Class End Class