!----------------------------------!
! Campos del Queue                 !
!----------------------------------!
 free(QCampos)
 X# = 0
 loop
  X# += 1
  L:Tipo &= what(QMedicamentos,X#)
  if L:Tipo &= NULL then break .
  QC:Descripcion = who(QMedicamentos,X#)
  add(QCampos)
  if errorcode() then stop(error()) .
 end
 ThisWindow.Reset(1)


 