- OrdenesServicios.aspx,vb agregar campos Paciente, Episodio

- Ventas.aspx,vb mostar ddls de medico y procedimiento en observaciones
- ClsVentas Agregar funcion UpdateVentasDetalleCantidadDevolucion
- ProductosServicios.aspx,vb agregar campos codigo alterno, descripcion alterna para empresas  hospitalarias
-

Ventas/Ventas.aspx.vb

@@ -5217,6 +5217,20 @@ Partial Class Ventas
             TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2)
             TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString()
 
+            If DbRowVenta("CveProcedimiento").ToString().ToEntero > 0 Then
+                DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString())
+                DdlProcedimientoObservaciones.Enabled = False
+                TrObsProcedimiento1.Visible = True
+                TrObsProcedimiento2.Visible = True
+            End If
+
+            If DbRowVenta("CveMedico").ToString().ToEntero > 0 Then
+                DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString())
+                DdlMedicoObservaciones.Enabled = False
+                TrObsMedico1.Visible = True
+                TrObsMedico2.Visible = True
+            End If
+
             If TxtRetIVA.Text.ToDecimal() > 0 Then
                 TrRetIVA.Style.Add("display", "")
                 UsuarioActual.Empresa.MostrarRetIVA = True
@@ -7760,6 +7774,11 @@ Partial Class Ventas
 
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
+
+
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaMedicos()
@@ -7769,6 +7788,9 @@ Partial Class Ventas
         DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimientoModal.DataBind()
 
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaDdlClientes()