From 1ad0dc9f132ce23117951bb33ad3a2406f93846d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 May 2024 17:39:15 -0700
Subject: [PATCH] =?UTF-8?q?-=20cargar=20informaci=C3=B3n=20para=20SMS?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0001c1355..045c8bec6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12172,6 +12172,11 @@ Partial Class Ventas
             ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            ObjFactura.Medico = DdlMedico.SelectedItem.Text
+            ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
+        End If
+
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
             Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal