SMS - 2024.01.08 enviar cveMedico y CveProcedimiento al facturar una remision desde popup

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>

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"