SMS - 2024.01.23 OS en viar Solicitar paciente y Episodio

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