!----------------------------------!
! Campos del archivo
!----------------------------------!
 free(QCampos)
 Loop F# = 1 to Medicamentos{PROP:Fields}
  QC:Descripcion = CLIP(Medicamentos{PROP:Label,f#})
  add(QCampos)
  if errorcode() then stop(error()) .
 end
 ThisWindow.Reset(1)

 