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