!-----------------------------------!
! Ordeno y Busco por Codigo         !
!-----------------------------------!
 free(QBusqueda)
!-----------------------------------!
! ORDENO POR CODIGO DE MEDICAMENTO  !
!-----------------------------------!
 if L:Medicamento <> 0 then
  sort(QMedicamentos,QM:Medicamento)
  QM:Medicamento = L:Medicamento
  get(QMedicamentos,QM:Medicamento)
  if not errorcode() then
   loop X# = 1 to records(QMedicamentos)
    get(QMedicamentos,X#)
    if QM:Medicamento <> L:Medicamento then cycle .
    QB:Descripcion = clip(QM:Medicamento)&' '&clip(QM:NomComercial)
    add(QBusqueda)
   end
!   message('Nombre : '&clip(QM:NomComercial),'ATENCION',icon:exclamation)
  else
   message('Registro no hallado','ATENCION',icon:exclamation)
  end
!----- Pinto el Entry por el que Busco -------!
  ?L:Medicamento{prop:color} = Color:red
  ?L:NomComercial{prop:color} = Color:none
  ?L:DrogaPrincipal{prop:color} = Color:none
  ?L:Accion{prop:color} = Color:none
!---------------------------------------------!

 elsif L:NomComercial <> '' then

!---------------------------------------!
! ORDENO POR NOMBRE COMERCIAL           !
!---------------------------------------!
     sort(QMedicamentos,QM:NomComercial)
     QM:NomComercial = L:NomComercial
     get(QMedicamentos,QM:NomComercial)
     if not errorcode() then
      loop X# = 1 to records(QMedicamentos)
       get(QMedicamentos,X#)
       if QM:NomComercial <> L:NomComercial then cycle .
       QB:Descripcion = clip(QM:Medicamento)&' '&clip(QM:NomComercial)
       add(QBusqueda)
      end
!      message('Nombre : '&clip(QM:NomComercial),'ATENCION',icon:exclamation)
     else
      message('Registro no hallado','ATENCION',icon:exclamation)
     end
!----- Pinto el Entry por el que Busco -------!
     ?L:Medicamento{prop:color} = Color:none
     ?L:NomComercial{prop:color} = Color:red
     ?L:DrogaPrincipal{prop:color} = Color:none
     ?L:Accion{prop:color} = Color:none
!---------------------------------------------!

    elsif L:DrogaPrincipal <> '' then

!---------------------------------------!
! ORDENO POR DROGA PRINCIPAL            !
!---------------------------------------!
     sort(QMedicamentos,QM:DrogaPrincipal)
     QM:DrogaPrincipal = L:DrogaPrincipal
     get(QMedicamentos,QM:DrogaPrincipal)
     if not errorcode() then
      loop X# = 1 to records(QMedicamentos)
       get(QMedicamentos,X#)
       IF QM:DrogaPrincipal <> L:DrogaPrincipal then cycle .
       QB:Descripcion = clip(QM:Medicamento)&' '&clip(QM:NomComercial)
       add(QBusqueda)
      end
!      message('Nombre : '&clip(QM:DrogaPrincipal),'ATENCION',icon:exclamation)
     else
      message('Registro no hallado','ATENCION',icon:exclamation)
     end
!----- Pinto el Entry por el que Busco -------!
     ?L:Medicamento{prop:color} = Color:none
     ?L:NomComercial{prop:color} = Color:none
     ?L:DrogaPrincipal{prop:color} = Color:red
     ?L:Accion{prop:color} = Color:none
!---------------------------------------------!

    elsif L:Accion <> '' then

!---------------------------------------!
! ORDENO POR ACCION                     !
!---------------------------------------!
     sort(QMedicamentos,QM:Accion)
     QM:Accion = L:Accion
     get(QMedicamentos,QM:Accion)
     if not errorcode() then
      loop X# = 1 to records(QMedicamentos)
       get(QMedicamentos,X#)
       if QM:Accion <> L:Accion then cycle .
       QB:Descripcion = clip(QM:Medicamento)&' '&clip(QM:NomComercial)
       add(QBusqueda)
      end
!      message('Nombre : '&clip(QM:Accion),'ATENCION',icon:exclamation)
     else
      message('Registro no hallado','ATENCION',icon:exclamation)
     end
!----- Pinto el Entry por el que Busco -------!
     ?L:Medicamento{prop:color} = Color:none
     ?L:NomComercial{prop:color} = Color:none
     ?L:DrogaPrincipal{prop:color} = Color:none
     ?L:Accion{prop:color} = Color:red
!---------------------------------------------!
 end
 ThisWindow.Reset(1)