From 47eee107e56dab35d8c7f46bdf4b425fde5a5033 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 12 Jan 2024 18:56:34 -0700
Subject: [PATCH] SMS - 2024.01.08  enviar cveMedico y CveProcedimiento al
 facturar  una remision desde popup

---
 Ventas/Ventas.aspx    |  2 +-
 Ventas/Ventas.aspx.vb | 45 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 18d7194e5..1cbfb545a 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -586,7 +586,7 @@
                                     <b>Requiere Técnico:</b>
                                 </td>
                                 <td runat="server" id="TdRequiereTecnico2" visible="true">
-                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server" CssClass="chksino" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
+                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server" CssClass="chksino" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" Checked="false" />
                                 </td>
                                 <td runat="server" id="TdFechaOS1" visible="true">
                                     <b>Fecha de Cirugia:</b>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 42cc735cf..b05b06ca1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -30975,6 +30975,10 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                AsignaMedicoProcedimientoFacturaRemisionesModal()
+            End If
+
             DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
             DdlMoneda.Enabled = False
             CambiaMoneda()
@@ -31245,6 +31249,9 @@ Partial Class Ventas
 
         RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
     End Sub
+
+
+
     Private Function VerificaRemisiones(ByRef dt As DataTable) As Boolean
         Dim Valido As Boolean = True
         If ChkRemProductos.Checked Then
@@ -35893,6 +35900,44 @@ Partial Class Ventas
 
     End Sub
 
+    Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()
+
+        Dim CveVentaConsultar As Integer = -1
+        If ChkRemProductos.Checked Then
+
+            For Each gvRow As GridViewRow In GvRemPS.Rows
+                If gvRow.FCCheckBox("Chk").Checked Then
+                    CveVentaConsultar = gvRow.DataKey("CveVenta").ToEntero
+                    Exit For
+                End If
+            Next
+
+        Else
+            For Each gvRow As GridViewRow In GvRem.Rows
+                If gvRow.FCCheckBox("Chk").Checked Then
+                    CveVentaConsultar = gvRow.DataKey("CveVenta").ToEntero
+                    Exit For
+                End If
+            Next
+        End If
+
+        If CveVentaConsultar > 0 Then
+            Dim objVenta As New ClsVentas
+            If objVenta.GetVenta(CveVentaConsultar, UsuarioActual.CveEmpresa) Then
+                Dim dRow As DataRow = objVenta.DtResultados.Rows(0)
+                DdlMedico.SelectedValueExist(dRow("CveMedico").ToString.ToEntero)
+                DdlProcedimiento.SelectedValueExist(dRow("CveProcedimiento").ToString.ToEntero)
+                SeEstaFActurandoVentaMedica = True
+                CveTipoVenta = dRow("CveTipoVenta").ToString.ToEntero
+                ChkRequiereTecnico_CheckedChanged(Nothing, Nothing)
+            End If
+            objVenta.Dispose()
+        End If
+
+        UpCliente.Update()
+
+
+    End Sub
 
 #Region "VENTAS MEDICAS"