!--------------------------------!
! Creo Queue                     !
!--------------------------------!
 set(Medicamentos)
 logout(1,Medicamentos)
 loop
  if Access:Medicamentos.next() then break .
  QM:Medicamento    = MED:Medicamento
  QM:NomComercial   = MED:NomComercial
  QM:DrogaPrincipal = MED:DrogaPrincipal
  QM:Accion         = MED:Accion
  QM:Presentacion   = MED:Presentacion
  QM:Laboratorio    = MED:Laboratorio
  QM:FechaIngreso   = MED:FechaIngreso
  QM:UnidadMedida   = MED:UnidadMedida
  QM:Texto          = MED:Texto
  QM:Precio         = MED:Precio
  QM:Vigente        = MED:Vigente
  add(QMedicamentos)
  if errorcode() then stop(error()) .
 end
 commit
 ThisWindow.Reset(1)
