SMS - 2024.01.23 OS en viar Solicitar paciente y Episodio

OS/OrdenesServicios.aspx

@@ -1283,7 +1283,28 @@
                         </button>
                         <h4 class="modal-title" >Material Utilizado</h4>
                     </div>
-                    <div class="modal-body">
+                    <div class="modal-body">                        
+    
+                         <div class="row">
+
+                             <div class="col-md-6">
+                                 <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtPacienteModal" >
+                                    <asp:TextBox ID="TxtPacienteModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtPacienteModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPacienteModal" 
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paciente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtPacienteModal.ClientID.ToString()%>">Paciente:</label>
+                                </div>
+                            </div>
+
+                            <div class="col-md-6">
+                                   <div class="form-group form-md-line-input input-iconright"  runat="server" visible="false" id="DvTxtEpisodioModal">
+                                       <asp:TextBox ID="TxtEpisodioModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                       <asp:RequiredFieldValidator ID="RfvTxtEpisodioModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEpisodioModal" 
+                                           ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Episodio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                       <label for="<%= TxtEpisodioModal.ClientID.ToString()%>">Episodio:</label>
+                                   </div>
+                                </div>
+                            </div>                      
 
                         <div class="row">
                             <div class="col-md-12">
@@ -1342,7 +1363,8 @@
                     </div>
                     <div class="modal-footer">
 
-                        <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" ValidationGroup="GrpDevolucion"
+                        <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" 
+                            ValidationGroup="GrpMaterialUtilizado" CausesValidation="true"
                             OnClick="LnkModalMaterialUtilizado_Click" >Guardar</asp:LinkButton>
                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
 

OS/OrdenesServicios.aspx.vb

@@ -473,6 +473,9 @@ Partial Class OS_OrdenesServicios
 
                 DVEpisodioPaciente.Visible = True
 
+                DvTxtPacienteModal.Visible = True
+                DvTxtEpisodioModal.Visible = True
+
                 If CveOS > 0 And TipoEstatus >= 3 Then
                     DdlUsuarioAtendio.Enabled = True
                     DVUsuarioAtendio3.Visible = True
@@ -3023,6 +3026,12 @@ Partial Class OS_OrdenesServicios
             LnkModalMaterialUtilizado.Visible = False
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            TxtPacienteModal.Text = TxtPaciente.Text
+            TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
+
+        End If
+
         UpModalMaterialUtilizado.Update()
 
     End Sub
@@ -3038,6 +3047,21 @@ Partial Class OS_OrdenesServicios
 
     Protected Sub LnkModalMaterialUtilizado_Click(sender As Object, e As EventArgs)
 
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+
+            If TxtPacienteModal.Text.Trim.Length = 0 Then
+                Alert("Debe de proporcionar el paciente.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If TxtEpisodioModal.Text.Trim.Length = 0 Then
+                Alert("Debe de proporcionar el episodio.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
         Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
         Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
         Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero
@@ -3307,6 +3331,8 @@ Partial Class OS_OrdenesServicios
             ObjFactura.FechaParaSurtir = TxtFechaCita.Text.ToDateTime
             ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
             ObjFactura.CveVentaRelacion = CveVentaPedido
+            ObjFactura.Paciente = TxtPacienteModal.Text.Trim
+            ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
 
             For Each GvRow As GridViewRow In GvMU.Rows