!---------------------------!
! Impresion de Queue 	    !
!---------------------------!

1) Boton con Call a Procedure - Imprimo
2) En Parametros va - (QMedicamentos) que es el Queue que dese imprimir

!------ Procedimiento Imprimo ---------!

3) En el Procedimiento Imprimo en Prototype va (*Queue)
4) En Parametros va (QImpresion)
5) En el Before Printing Detail va el siguiente codigo :

 loop X# = 1 to records(QImpresion)
  get(QImpresion,X#)
  L:Medicamento    = what(QImpresion,1)
  L:NomComercial   = what(QImpresion,2)
  L:DrogaPrincipal = what(QImpresion,3)
  L:Accion         = what(QImpresion,4)
  print(RPT:Detail)
 end

